<% ' Array que vincula los IDs de los selects declarados en el HTML con el nombre de la tabla donde se encuentra su contenido 'listadoSelects=array("select1"=>"paises","select2"=>"departamentos","select3"=>"provincias","select4"=>"distritos") dim listadoSelects1(3) dim listadoSelects(3) listadoSelects1(0)="select1" listadoSelects1(1)="select2" listadoSelects1(2)="select3" listadoSelects1(3)="select4" listadoSelects(0)="paises" listadoSelects(1)="departamentos" listadoSelects(2)="provincias" listadoSelects(3)="distritos" selectDestino=request.querystring("select") opcionSeleccionada=request.querystring("opcion") pos=5 for aux=0 to 3 if (selectDestino=listadoSelects1(aux)) then pos=aux end if next function validaSelect(selectDestino) ' Se valida que el select enviado via GET exista ' if(listadoSelects(selectDestino)) then validaSelect=true ' else ' validaSelect=false ' end if end function function validaOpcion(opcionSeleccionada) ' Se valida que la opcion seleccionada por el usuario en el select tenga un valor numerico if(opcionSeleccionada) then validaOpcion = true else validaOpcion = false end if end function if(validaSelect(selectDestino) and validaOpcion(opcionSeleccionada)) then if (selectDestino="select2") then id="coddepa" opcion="nomdepa" relacion="codpais" end if if (selectDestino="select3") then id="codpro" opcion="nompro" relacion="coddepa" end if if (selectDestino="select4") then id="coddis" opcion="nomdis" relacion="codpro" end if tabla=listadoSelects(pos) cadena="SELECT "&id&", "&opcion&" FROM "&tabla&" WHERE "&relacion&"="&opcionSeleccionada conectar() ' Comienzo a imprimir el select Response.Write("") Response.Write("Selecciona Opcion") Sql = cadena rs.Open Sql, Conn do while not rs.eof ' Convierto los caracteres conflictivos a sus entidades HTML correspondientes para su correcta visualizacion 'rs(opcion)=htmlentities(rs(opcion)) ' Imprimo las opciones del select Response.Write(""&rs(opcion)&"") rs.movenext loop rs.close Response.Write("") end if %>