Desplegable con los datos de una tabla

[supercoco2000]

Necesito hacer un desplegable que me muestre todos los campos de una tabla.
El codigo que tengo realizado es el siguiente pero me muestra el desplegable en blanco u no se porque. Gracias de antemano por su ayuda


<%

sqltxt="select * from categoria"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "deportes"

set rs=createobject("ADODB.Recordset")
rs.open sqltxt,conn


' 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("codcategoria")%>">
<%=rs.Fields("categoria")%> </OPTION>

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

[maestro]

Metodo 1:

<select size="1" name="Directorio ">
<option>Seleccionar</option>
<%
while (NOT Rs.EOF)
%>
<option value=<%=Rs.fields.item("campo").value%>><%=Rs.fie lds.item("campo").value%></option>
<%
Rs.movenext()
wend
%>

</select>

Metodo 2:

Sql="select * from tutabla"
'ejecutamos la consulta
<select name="Lista">
<%do while not Rs.eof%>
<option value="<%=rs("campo")%>"><%=rs("campo")%></option>
<%Rs.movenext
loop
%>
</select>

[supercoco2000]

ya me funciona.
Muchas gracais por vuestra ayuda