Como Cargo los datos de la BBDD

[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>