Usa el
getRows() del objeto
ADODB.Recordset que lo carga en un array y luego lo recorres tantas veces como quieras.
set rs = conn.execute("SELECT idmedicamento, nombremedicamento FROM medicamentos ORDER BY nombremedicamento")
if not rs.EOF then
arreglo = rs.getRows()
end if
' cerramos
rs.close
'etc
Luego no tienes mas que recorrerlo:
Código:
response.write("<select id=""med1"" name=""med1"">" & vbNewLine)
response.write("<option value="""">Seleccione un medicamento</option>" & vbNewLine)
if isArray(arreglo) then
' Recorremos los registros
for i = 0 to UBound(arreglo, 2)
' recorremos los campos
response.write("<option value=""" & arreglo(0,i) & """>" & arreglo(1,i) & "</option>" & vbNewLine)
next
end if
response.write("</select>" & vbNewLine)
Este codigo lo puedes reutilizar tantas veces como quieras (5, 8, 100, 1000000000) Es un array multidimensional sin conexion alguna con la BD.
Un saludo