Rellenar una lista desplegable dinámicamente

[supercoco2000]

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

[Mulato]

Yo estoy tratando de hacer lo mismo...

y utilizo esto que me funciona de acuerdo al select... Lo adapte para ti....

<select name="empleado" size="1">
<option selected value="<%=(Rs.Fields.Item("categoria").Value)%>" <%If (Not isNull((Rs.Fields.Item("categoria").Value))) Then If (CStr(Rs.Fields.Item("categoria").Value) = CStr((Rs.Fields.Item("categoria").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(Rs.Fields.Item("categoria").Value)%></option>
</select>

El unicoproblema es que cuando quiero traer el perfil de nuevo no me trae la opción elegida anteriormente sino el listado en O es decir la persona debe colocar de nuevo el empleado para la busqueda, si es para una busqueda si te va a funcionar...

Suerte....

[supercoco2000]

He probado lo que me comentas y no me funciona.
TEngo esto puesto pero cuando abro el desplegable me sale todo en blanco. Alguien sabe donde esta el error??????????




<%

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

<%' Empezamos nuestro bucle para rellenar la lista
do until rs.EOF
%>
<OPTION VALUE="<%=rs.Fields.item("codcategoria")%>">
<%=rs.fields.item("categoria")%> </OPTION>

<%
rs.MoveNext
loop
%>
</select>

[jpalbox]

yo he modificado un poco el codigo y me va perfectamente
aqui tienes, yo lo he echo con un campo llamado localidad:


Aqui va la consulta

'Empezamos nuestro bucle para rellenar la lista
%> <select size="1" name="areas">
<option>Todasl Areas</option>

<%
while not rs.EOF%>
<OPTION VALUE="<%=rs.Fields("localidad")%>"> <%=rs.fields("localidad")%>


<%
rs.MoveNext
wend
%>


</OPTION></select>

[skatomundo]

Iniciado por supercoco2000

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")%> va con =</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

Falta "=" <% =rs.fields("categoria") %>

saludos