Triple Combobox

Puedes hacerlo creando una funcion que te haga el trabajo
de llenar los combos segun los parametros que incorpores,
como por ejemplo:

function Crear_Combo
(consulta,nombre,opcion,mostrar,seleccionado,recarga)
set rst_combo=createobject("ADODB.recordset")
rst_combo.CursorType = adLockReadOnly
rst_combo.Open consulta,conexion,adOpenStatic
if recarga = 1 then recargado=" onChange='submit();' "
Crear_Combo = "<SELECT style=""font-size:10;"" NAME=" &
nombre & recargado & ">"
Crear_Combo = Crear_Combo & "<option value=>Favor
Seleccionar</option>"
do while not rst_combo.EOF
if rtrim(seleccionado) = rtrim(rst_combo(opcion)) then
sel = "SELECTED"
else
sel = " "
end if
Crear_Combo = Crear_Combo & "<option " & sel & " value='"
& rtrim(rst_combo(opcion)) & "'>" & left(UCASE(rtrim
(rst_combo(mostrar))),20) & "</option>"
rst_combo.MoveNext
loop
Crear_Combo = Crear_Combo & "</SELECT>"
response.write Crear_Combo
rst_combo.Close
end function


En donde
consulta = sql
nombre = nombre del combo
opcion=campo que quieres que aparezca en el option
mostrar= campo que deseas visualizar
seleccionado= campo que recibes si se recargo la pagina
para que se mantenga con el ultimo seleccionado
recarga=1 o 0 --> 1 recarga, 0 no recarga

Espero te sirva.

Saludos.

Gracias Gonzalo, estoy en ello haber que tal me va

Puedes hacerlo creando una funcion que te haga el

trabajo

de llenar los combos segun los parametros que

incorpores,

como por ejemplo:

function Crear_Combo
(consulta,nombre,opcion,mostrar,seleccionado,recarga)
set rst_combo=createobject("ADODB.recordset")
rst_combo.CursorType = adLockReadOnly
rst_combo.Open consulta,conexion,adOpenStatic
if recarga = 1 then recargado=" onChange='submit();' "
Crear_Combo = "<SELECT style=""font-size:10;"" NAME=" &
nombre & recargado & ">"
Crear_Combo = Crear_Combo & "<option value=>Favor
Seleccionar</option>"
do while not rst_combo.EOF
if rtrim(seleccionado) = rtrim(rst_combo(opcion)) then
sel = "SELECTED"
else
sel = " "
end if
Crear_Combo = Crear_Combo & "<option " & sel & "

value='"

& rtrim(rst_combo(opcion)) & "'>" & left(UCASE(rtrim
(rst_combo(mostrar))),20) & "</option>"
rst_combo.MoveNext
loop
Crear_Combo = Crear_Combo & "</SELECT>"
response.write Crear_Combo
rst_combo.Close
end function


En donde
consulta = sql
nombre = nombre del combo
opcion=campo que quieres que aparezca en el option
mostrar= campo que deseas visualizar
seleccionado= campo que recibes si se recargo la pagina
para que se mantenga con el ultimo seleccionado
recarga=1 o 0 --> 1 recarga, 0 no recarga

Espero te sirva.

Saludos.
.

No puede, me enrede todo = (

Gracias Gonzalo, estoy en ello haber que tal me va

Puedes hacerlo creando una funcion que te haga el

trabajo

de llenar los combos segun los parametros que

incorpores,

como por ejemplo:

function Crear_Combo
(consulta,nombre,opcion,mostrar,seleccionado,recarga)
set rst_combo=createobject("ADODB.recordset")
rst_combo.CursorType = adLockReadOnly
rst_combo.Open consulta,conexion,adOpenStatic
if recarga = 1 then recargado=" onChange='submit();' "
Crear_Combo = "<SELECT style=""font-size:10;"" NAME=" &
nombre & recargado & ">"
Crear_Combo = Crear_Combo & "<option value=>Favor
Seleccionar</option>"
do while not rst_combo.EOF
if rtrim(seleccionado) = rtrim(rst_combo(opcion)) then
sel = "SELECTED"
else
sel = " "
end if
Crear_Combo = Crear_Combo & "<option " & sel & "

value='"

& rtrim(rst_combo(opcion)) & "'>" & left(UCASE(rtrim
(rst_combo(mostrar))),20) & "</option>"
rst_combo.MoveNext
loop
Crear_Combo = Crear_Combo & "</SELECT>"
response.write Crear_Combo
rst_combo.Close
end function


En donde
consulta = sql
nombre = nombre del combo
opcion=campo que quieres que aparezca en el option
mostrar= campo que deseas visualizar
seleccionado= campo que recibes si se recargo la pagina
para que se mantenga con el ultimo seleccionado
recarga=1 o 0 --> 1 recarga, 0 no recarga

Espero te sirva.

Saludos.
.

.