Pagina con combos iguales

[Darkgas]

Hola!!! A ver si me pueden ayudar.
Mi problema es el siguiente, tengo un formulario de carga que tiene 5 combos iguales, cada uno de ellos muestra el campo NombreMedicamento de la tabla Medicamentos(mysql).
Los 5 combos son exactamente iguales, los utilizo para insertar datos en una tabla(NombreMedicamento1, NombreMedicamento2, etc...). El problema es que demora mucho en cargar la pagina debido a que los 5 combos apuntan a la base de datos.
Pregunta: ya que son iguales, como puedo hacer para que llame una sola vez a la base de datos, y utilice esos valores(NombreMedicamentos) en los 5 combos??
Estoy parado con este problema, y tengo varios formularios en las mismas condiciones.
Se puede solucionar para que no demore tanto en cargar la pagina?

[Shiryu_Libra]

y por que necesitas 5 combos identicos???

puedes incorporarles dentro del while el response.flush()

while rs.eof=false
......
rs.movenext
response.flush()
wend

u otra posibilidad es de que entraras al foro de JAVASCRIPT y buscaras algo relacionado con DOM

creas un solo combo, y con tal tecnologia, realizar las copias necesarias de ese mismo

[tammander]

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

[Shiryu_Libra]

que interesante codigo Tam(), creo que cambiare algunos pedazos de codigo por este...