Rellenar una lista desplegable dinámicamente

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