Como cargo varios combo box utilizando una misma tabla?

[lajimy]

Buenas!!! Busco ayuda, ya que lo que hice no me funciona!! En mi pagina tengo varios combos, que deberian ser cargados con distintos datos pero de una misma tabla. Necesitaria que alguien me oriente un poco como se hace!!!
Desde ya muchas gracias

P.D: Otra duda, yo escribi un par de mensajes que no los pude encontrar, si alguien me puede decir que habra pasado agradezco tambien!

[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

[lajimy]

Muchas gracias lo voy a revisar!!!!
Ahora tengo otro problemita que es que me lista los valores repetidos y los registros en blanco, como puedo evitar eso?
Salu2 y gracias

[lineadecodigo]

filtra bien cuando hagas la query.

Salu2.
Línea de Código

[lajimy]

Paso a explicar bien cual es mi problema y la solucion que estoy precisando!.
Tengo varios combos que se cargan con distintos campos de una misma planilla Excel.
En el momento estoy precisando que NO me despliegue los valores duplicados ni las celdas en blanco.
La verdad que mi experiencia es poquisima y me costo un monton poder llenar los combos con sus datos.
Si aguien me puede dar una mano muchisimas gracias

[lajimy]

Ya solucione el tema de que no me muestre los valores duplicados, utilice un DISTINCT en la consulta SQL.
Ahora seguiria precisando saber como hago para que no me muestre en el combo las celdas vacias y ademas como se hace para saber si me seleccionaron algo y en caso afirmativo saber que fue lo que me seleccionaron
Agradezco pronta ayuda!!
Salu2