Como cargo varios combo box utilizando una misma tabla?

[lineadecodigo]

Con el siguiente código puedes cargar un combo desde una tabla. La idea es tener la tabla Deportes(deporte).

<%
' Nos conectamos a la base de datos
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "DSN=informatica-juridica.com.example"
db.open DB_CONNECTIONSTRING

' Creamos el RecordSet
Set deportes = Server.CreateObject ("ADODB.RecordSet")
SQLStr = "SELECT * FROM deportes"
deportes.open SQLStr, DB_CONNECTIONSTRING,
adOpenStatic, adLockReadOnly,adCmdText
%>

<SELECT NAME="deportes">

<%
'Recorreremos el RecordSet
do while not deportes.EOF
Response.Write("<OPTION VALUE='"
+ deportes("deporte") + "'>")
Response.Write(deportes("deporte") + "</OPTION>")
'Nos desplazamos por el RecordSet
deportes.MoveNext
loop
%>
</SELECT>

Si te das cuenta solo cojo el campo deporte de la tabla deporte para cargar el combo.

Ahora cambiamos la tabla y la añadimos un campo más para indicar si el deporte es de motor o no, quedandonos Deporte(deporte,motor).

En el código tendremos dos textos, uno con los option de deportes no motor y otro con los option de deportes de motor. (Ojo, que ya no pongo la conexión a la BD)


<%
deportesmotor = ""
deportesNOmotor = ""
'Recorreremos el RecordSet
do while not deportes.EOF
if deportes("motor") = SI
deportesmotor = deportesmotor + ("<OPTION VALUE='" + deportes("deporte") + "'>")
Response.Write(deportes("deporte") + "</OPTION>")
else
deportesNOmotor = deportesNOmotor + ("<OPTION VALUE='"
+ deportes("deporte") + "'>")
Response.Write(deportes("deporte") + "</OPTION>")
end if

'Nos desplazamos por el RecordSet
deportes.MoveNext
loop

' Ahora pintamos los select
<SELECT id="deportesmotor">
Response.Write("deportesmotor")
</SELECT>
<SELECT id="deportesNOmotor">
Response.Write("deportesNOmotor")
</SELECT>
%>

Espero que te sirva de ayuda.

Salu2.
Línea de Código