select con datos de la db

[trasgukabi]

vale, pero mejor asi:

Código:

<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("db/base.mdb")

Dim Temp
Temp="Select * From usuarios "

Tabla.Open Temp, Conexion
%><select name="D1" type="text" > <%
do while Not Tabla.EOF
%>
<option value="<%=tabla.Fields("usuario")%>"><%=tabla.Fields("usuario")%></option>

<%
tabla.movenext
loop
Tabla.Close
Conexion.Close
%></select><input type="submit" value="Enviar" name="B1"><input type="reset" value="Restablecer" name="B2">