Alguien sabe como puedo llenar otro combo de una mismo llamado.....
<html>
<head>
<title>c</title>
<script language = "JavaScript">
<%'CONSULTA PARA OBTENER LOS DATOS
conexionbd = "Provider=SQLOLEDB; Data Source=" & Cstr(Application("Servidor")) & "; Initial Catalog=" & Cstr(Application("Base")) & "; User ID=" & Cstr(Application("Usuario")) & "; Password=" & Cstr(Application("password")) & ";"
Set conn = Server.CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")
conn.Open conexionbd
sql= "select * from RPC"
Rs.Open sql, conn
x=0
%>
// FUNCION DE COMBO BOX COMBINADO
function sublist(inform, selecteditem)
{
inform.subcatagory.length = 0
<%
count= 0
y=0
do while not rs.eof
%>
x = <%= trim(y) %>;
subcat = new Array();
subcatagorys = "<%=(rs("provincia")) %>";
subcatagoryof = "<%=(rs("provincia"))%>";
subcatagoryid = "<%=(rs("region"))%>";
subcat[x,0] = subcatagorys;
subcat[x,1] = subcatagoryof;
subcat[x,2] = subcatagoryid;
if (subcat[x,1] == selecteditem) {
var option<%= trim(count) %> = new Option(subcat[x,0], subcat[x,1] );
inform.subcatagory.options[inform.subcatagory.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs.movenext
loop
rs.close
%>
}
</script>
</head>
<body >
<h2 align="center"><b><i><font color=""><u>prueba</u></font></i></b></h2>
<form name="prueba">
<div align="center">
<center>
<table border="0" width="80%">
<tr>
<td width="77%">
<select size="1" id="comuna" name="comuna" onChange = "javascript
:sublist(this.form, comuna.value);">
<option selected>Selecciona</option>
<%
Sql = "Select * from RPC"
rs.Open Sql, Conn
do while not rs.eof
%>
<option value="<%=rs("provincia")%>"><%=rs("comuna")%></option>
<%
rs.movenext
loop
set rs=nothing
conn.close
set conn=nothing
%>
</select> & nbsp; <SELECT id="subcatagory" name="subcatagory" size="1">
<Option selected value="none"></option>
</SELECT></td>