tengo este bloque de java como hacgo para que me funcione en una pagina de asp.
<script language = "JavaScript">
<%'CONSULTA PARA OBTENER LOS DATOS
set Conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Bases de Datos\San Ignacio de Loyola.mdb")
SQL="SELECT * FROM Alumno"
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("Codigo_Alumno"))%>";
subcatagoryof = "<%=(rs("Nombre_Alumno"))%>";
subcatagoryid = "<%=(rs("Codigo_Alumno"))%>";
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,2]);
inform.subcatagory.options[inform.subcatagory.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs.movenext
loop
rs.close
%>
}
</script>
</head>
<body bgcolor="#ffffff">
<form name="form1" method="post" action="">
<h2 align="center"><b><i><font color="#AE1732"></font></i></b></h2>
<p align="left">
<select size="1" id="select3" name="Nombre_Alumno" onChange = "javascript
:sublist(this.form, Nombre_Alumno.value);">
<option selected>Nombres
</option>
<% Nombreal= "Select distinct Codigo_Alumno, Nombre_Alumno from Alumno"
rs.Open Nombreal, Conn
do while not rs.eof
%>
<option value="<%=rs("Nombre_Alumno")%>"><%=rs("Nombre_Alu mno")%></option>
<%rs.movenext
loop
set rs=nothing
conn.close
set conn=nothing%>
</select>
</p>
<p align="left">
<SELECT name="subcatagory" id="select3">
<Option selected value="none"></option>
</SELECT>
</p>
</form>
<h2 align="center"> </h2>
Saludos y Gracias.