necesito desplegar un campo donde escoger un nombre y luego que me pase el nombre elegido. Los nombres necesito que los coja desde una tabla llamada categoria.
<p><select size="1" name="D2">
<%
Dim oConn, rs, SQL
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "deportes"
set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM categoria"
rs.Open SQL, oConn
' Ahora pintamos nuestra lista desplegable:
%>
<SELECT SIZE=1 NAME="Empleado">
<OPTION VALUE="0">[Elija su empleado]</OPTION>
<%
' Empezamos nuestro bucle para rellenar la lista
do until rs.EOF
%>
<OPTION VALUE="<%=rs.Fields("codcategoria")%>">
<%rs.Fields("categoria")%> </OPTION>
<%
rs.MoveNext
loop
rs.close
oconn.close
%>
</select>
pongo esto y me da este error que no tengo ni idea de porque
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01C2)
Número de argumentos erróneo o asignación de propiedad no válida: 'Fields'
/tienda/asp/seleccion.asp, línea 44
alguien puede ayudarme. Gracias a tods de antemano y felicidades por vuestra gran labor