Cargar combo con datos

[Murallitz]

Gracias me sirvio ..pero ahora el problema es que el segundo combo, que si bien trae el dato..solo trae uno nada mas
Es decir solo se llena el primer dato del combo, mas no varios.
que puede ser..les paso el codigo
Gracias

<SELECT NAME="modulos" SIZE="1"
OnChange="ComponerLista (document.forms.Listas.modulos[selectedIndex].value);">

<%
Dim Conex, rs, SQL, cuenta, categoria

set Conex=Server.CreateObject("ADODB.Connection")

set rs=Server.CreateObject("ADODB.Recordset")

Conex.ConnectionString="Provider=SQLOLEDB; Data Source=Data; Initial Catalog=basedatos; User ID=sa;"

Conex.Open

SQL="SELECT * FROM tblSubGrupo"

rs.Open SQL, Conex

cuenta=1

while not rs.EOF

%>
<OPTION VALUE="<%=rs.Fields("CodSubGrupo")%>"
<% if cuenta=1 then%>
SELECTED
<%end if%>>
<%=rs.Fields("NomSubGrupo")%></OPTION>
<%
rs.MoveNext
cuenta=cuenta+1
wend
rs.Close
%>
</SELECT>
</td>
</tr>
<tr>
<td width="50%"><font size="2" face="Verdana" color="#000080"><b>Libro:</b></font>
</td>
<td width="50%">
<SELECT NAME="libros" SIZE="1"></SELECT>
</td>
</tr>
<tr>
<td width="50%" valign="top"><font size="2" face="Verdana" color="#000080"><b>Descripción:</b></font>
</td>
<td width="50%"><textarea rows="7" name="texto" cols="49"></textarea>
</td>
</tr>
</table>

<P align="right"><input type="submit" value="Enviar" name="enviar" onclick="CargarDatos()">
<input type="reset" value="Borrar" name="borrar">


</FORM>

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

<%

SQL="SELECT * FROM tblOperacion ORDER BY NomOperacion"

rs.Open SQL, Conex

cuenta=0

cat="basura"

while not rs.EOF

if cat<>rs.Fields("CodSubGrupo") then
' cambio de categoria, empiezo a contar en 0
cuenta=0
cat=rs.Fields("CodSubGrupo")
'además tengo que crear un nuevo array para la categoría
%>
var opciones<%=cat%> = new Array();

<%
end if
%>

opciones<%=cat%>[<%=cuenta%>]=new Tupla("<%=rs.Fields("NomOperacion")%>","<%=rs.Fiel ds("CodSubGrupo")%>");

<%

cuenta=cuenta+1
response.write(cuenta)
rs.MoveNext

wend
%>


<%
'Limpiamos objetos
rs.Close
set rs=nothing
Conex.Close
set Conex=nothing
%>

var contador;

function ComponerLista ( array )
{

BorrarLista();
array = eval("opciones" + array);

for (contador=0; contador<array.length; contador++)
{
var optionObj = new Option( array[contador].campo1, array[contador].campo2 );

Listas.libros.options[contador] = optionObj;

}
}

function BorrarLista() {

Listas.libros.length=0;
}

//Inicializamos
ComponerLista (1);

-->
</SCRIPT>
<SCRIPT language=JavaScript>
<!--
function Mensaje(element, message)
{
alert(message);
element.focus();
}
function Validar(form)
{
var validado = false;
if (form.nombre.value == "")
{
Mensaje(form.nombre, "Falta el nombre.");
}
else
if (form.texto.value == "")
{
Mensaje(form.texto, "Debe realizar alguna sugerencia antes de enviar.");
}
else if (form.correo.value.indexOf("@") == -1 || form.correo.value.indexOf(".") == -1)
{
Mensaje(form.correo, "Por favor, incluya su dirección electrónica.");
}
else
{
validado = true;
}
return validado;
}
//-->
</SCRIPT>