 							<th scope="row">#stText.Search.Language#</th>
 							<td>
 								<select name="collLanguage" class="medium">
-									<cfset aLangs = StructKeyArray(stText.SearchLng)>
-									<cfset ArraySort(aLangs, "text")>
-									<cfloop from="1" to="25" index="iLng"> 
-										<option value="#aLangs[iLng]#" <cfif aLangs[iLng] eq "english">selected</cfif>>#stText.SearchLng[aLangs[iLng]]#</option>
+									<cfloop struct="#sortByValue(stText.SearchLng)#" index="key" item="val"> 
+										<option value="#key#" <cfif key eq "english">selected</cfif>>#val#</option>
 									</cfloop>
 								</select>
 							</td>

							</tr>
							<tr>
								<th scope="row">#stText.Search.Language#</th>
								<td><select name="language" class="medium">
									<cfloop collection="#stText.SearchLng#" item="key">
										<option value="#key#" <cfif key eq "english">selected</cfif>>#stText.SearchLng[key]#</option>
									</cfloop>
								</select></td>
							</tr>

<cfif request.admintype EQ "server"><cflocation url="#request.self#" addtoken="no"></cfif>
<cfscript>
	function sortByValue(struct sct) {
		var tmp=structNew("ordered");
		loop struct=sct index="local.k" item="local.v" {
			tmp[v]=k;
		}
		local.keys=tmp.keyArray().sort('textnocase');
		
		var trg=structNew("ordered");
		loop array=keys item="local.k" {
			trg[tmp[k]]=k;
		}

		return trg;
	}
</cfscript>

<cfadmin
   action="getRHServerExtensions"
   type="#request.adminType#"
