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>