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.