Rellenar Combobox con datos de una base de datos

[ACHAVARRIA]

Aqui te paso un para que compares:

<select size="1" name="Directorio>
<option>Seleccionar</option>
<%
If not rs.BOF then
Rs.movefirst
while (NOT Rs.EOF)
%>
<option value=<%=Rs.fields.item("categoria_URL").value%>>< %=Rs.fields.item
("categoria").value%></option>
<%
Rs.movenext()
wend
End if
%>

</select>