Como Cargo los datos de la BBDD

[enchodebacon]

Hola, necesito rellenar un combo con datos de una base de datos y en el evento onchange de este rellenar otro. El problema es ke ni me llena el 1º. La base de datos la tengo subida en 1 servidor y lo pruebo todo desde ahi. Os paso el código que tengo para rellenar el 1º combo:

Código:

<form name="form1">
<select name="select" class="normalform" onChange = "javascript:sublist(this.form, familia.value);">
<option selected>Especialidades</option>
<% 
var rs= Server.CreateObject("ADODB.Recordset");
rs.ActiveConnection = "DSN=2dmayo.com.bbddRiojavina;";
rs.Source ="Select Distinct NomVariedad From Productos Where Marca = Alino";
rs.Open();
do while Not rs.EOF 
%>
<option value="<%=rs("NomVariedad")%>"><%=rs("NomVariedad")%></option>
<%
rs.MoveNext();
loop
rs.Close();
%>

Y la función para rellenar el 2º:

Código:

function sublist(inform, selecteditem)
{
inform.menu1.length = 0

<%
count=0
y=0
do while not rs.eof
%>

x = <%= trim(y) %>;

subcat = new Array();
subcatagorys = <%=(rs("EAN"))&" "&(rs("NomProducto")) %>;
subcatagoryof = <%=(rs("Marca"))%>;
subcatagoryid = <%=(rs("EAN"))%>;
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.menu1.options[inform.menu1.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs.MoveNext();
loop
rs.Close();
%>
}

Al probarlo en el servidor me da el error en lo naranja y me dice ke se esperaba: '('

No se ke más probar!!!
Muchas gracias.

[Myakire]

Es "While Not rs.EOF" o bien "do until rs.eof"

[enchodebacon]

Sigue dandome error y he probado con lo ke me has dixo. Mira paso el código entero pero señalando las funciones:

[CODE]
<%@LANGUAGE="JAVASCRIPT"%>

function sublist(inform, selecteditem)
{
inform.menu1.length = 0

<%
count=0
y=0
while Not rs.EOF
%>

x = <%= trim(y) %>;

subcat = new Array();
subcatagorys = "<%=(rs("EAN"))&" "&(rs("NomProducto")) %>";
subcatagoryof = "<%=(rs("Marca"))%>";
subcatagoryid = "<%=(rs("EAN"))%>";
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.menu1.options[inform.menu1.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs.movenext
loop
rs.close
%>
}

%>
</script>

<select name="select" class="normalform" onChange = "javascript:sublist(this.form, familia.value);">
<option>Especialidades</option>
<%
var rs= Server.CreateObject("ADODB.Recordset");
rs.ActiveConnection = "DSN=2dmayo.com.bbddRiojavina;";
rs.Source ="Select distinct NomVariedad From Productos Where Marca = Alino";
rs.Open();
'dim con, rs, cmd
set con=Server.CreateObject("adodb.connection")
con.ConnectionString = "DSN=bbddRiojavina"
con.Open
Set cmd = Server.CreateObject("adodb.command")
cmd.ActiveConnection = con
cmd.CommandText = "Select distinct NomVariedad From Productos Where Marca = Alino"
Set rs = cmd.Execute'
while Not rs.EOF
%>
<option value="<%=rs("NomVariedad")%>" selected><%=rs("NomVariedad")%></option>
<%
'Movemos el puntero al siguiente registro del Recordset'
rs.MoveNext
'Finalizamos el bucle'
Wend
'Cerramos el Recordset y lo destruimos'
rs.Close
'Set rs = Nothing
Cerramos la conexión y la destruimos
con.Close
Set con = Nothing'
%>
</select>

[Myakire]

¿Es el error de que faltan los parentésis en el while not rs.EOF?