Menu desplegable con DB

[ferent]

Akela, me estás ayudando mucho, y te lo agradezco. La consulta que hago en SQL, es la siguiente:

<%
set con = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
con.open "nombredemibase"
sql = "SELECT Cod_Categoria, Categoria, Descripcion FROM " & "Categorias WHERE Activa ORDER BY Orden"
rs.open sql,con
%>

Si te soy sincero la he tomado de otra que tenía, pero que en vez de en un Select lo metía en una tabla, así era el original:

<%
SET Base = Server.CreateObject ("ADODB.Connection")
SET Tabla = Server.CreateObject ("ADODB.RecordSet")
Base.Open "mibasededatos
SQL = "SELECT Cod_Categoria, Categoria, Descripcion FROM " & "Categorias WHERE Activa ORDER BY Orden"
Tabla.Open SQL, Base, 3,3
%>

¿Qué he echo mal para que no me funcione?

Luego la cierro de este modo:

<%
rs.close
con.close
set rs = nothing
set con = nothing
%>

Muchísimas gracias, de verdad.