Como ordenar alfabeticamente 2do combo

[pepelucho]

<SELECT NAME="Categorias" SIZE="1"
OnChange="ComponerLista (document.forms.Listas.Categorias[selectedIndex].value);">
<%
set rsq=Server.CreateObject("ADODB.Recordset")
SQLq="SELECT *FROM Cargo order by carnombre"
rsq.Open SQLq, cn
cuenta=1
while not rsq.EOF
%>
<OPTION VALUE="<%=rsq.Fields("carcodigo")%>"
<% if cuenta=1 then%>
SELECTED
<%end if%>>
<%=rsq.Fields("carnombre")%></OPTION>
<%
rsq.MoveNext
cuenta=cuenta+1
wend
rsq.Close
%>
</SELECT>
</font></td>
</tr>
<tr>
<td height="66"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Funci&oacute;n
en la empresa</font></td>
<td>
<SELECT NAME="Productos" SIZE="1">
</SELECT>
<P>

<SCRIPT LANGUAGE="Javascript">
<!--
function Tupla ( campo1, campo2 )
{
this.campo1 = campo1;
this.campo2 = campo2;
}

<%
'Vamos a crear nuestros arrays de productos desde ASP
'El primer if detecta un cambio en la categoría para
'crear un nuevo array en Javascript

SQL="SELECT * FROM funcion ORDER BY carcodigo,funcodigo"
rsq.Open SQL, cn
cuenta=0
cat="basura"
while not rsq.EOF
if cat<>rsq.Fields("carcodigo") then
' cambio de categoria, empiezo a contar en 0
cuenta=0
cat=rsq.Fields("carcodigo")
'además tengo que crear un nuevo array para la categoría
%>
var opciones<%=cat%> = new Array();
<%
end if
%>
opciones<%=cat%>[<%=cuenta%>]=new Tupla("<%=rsq.Fields("funnombre")%>","<%=rsq.Field s("funcodigo")%>");

<%
cuenta=cuenta+1
rsq.MoveNext
wend
%>


<%
'Limpiamos objetos
rsq.Close
set rsq=nothing
cn.Close
set cn=nothing
%>

var contador;

function ComponerLista ( array ) {
// Compone la lista dependiente a partir
// del valor de la opcion escogida en la lista "padre"
BorrarLista();
array = eval("opciones" + array);

for (contador=0; contador<array.length; contador++)
{
// añade elementos nuestro combobox
var optionObj = new Option( array[contador].campo1, array[contador].campo2 );

Listas.Productos.options[contador] = optionObj;
} // for
} // ComponerLista


function BorrarLista() {

Listas.Productos.length=0;
}

//Inicializamos
ComponerLista (1);

-->
</SCRIPT>