Ayuda a convertir codigo PHP en ASP

[tammander]

Hola :)

Código:

<%
    Dim listadoSelects
    set listadoSelects = server.CreateObject("Scripting.Dictionary")
    listadoSelects.add "paises", "lista_paises"
    listadoSelects.add "estados", "lista_estados"

function validaSelect(selectDestino)    
    ' Se valida que el select enviado via GET exista
    ' listadoSelects es una variable de nivel de secuencia de comandos
    validaSelect = listadoSelects.exists(selectDestino)
end function

function validaOpcion(opcionSeleccionada)

    ' Se valida que la opcion seleccionada por el usuario en el select tenga un valor numerico
    validaOpcion = isnumeric(opcionSeleccionada))
end function

Dim selectDestino, opcionSeleccionada
Dim tabla, consultaLimpio
Dim consulta 

selectDestino=request.QueryString("select")
opcionSeleccionada=request.QueryString("opcion")

if validaSelect(selectDestino) And validaOpcion(opcionSeleccionada) then

    tabla=listadoSelects.Item(selectDestino);
<!--#include file="conexion.asp"-->
    on error resume next
    conectar()
    ' Se supone que en el archivo conexion.asp hay un objeto Connection --> conn
    set consulta = server.CreateObject("ADODB.Recordset")
    set consulta = conn.execute("SELECT id, opcion FROM " & tabla & " WHERE relacion='" & opcionSeleccionada & "'")
    if err <> 0 then
        response.Write(err.description)
        response.End()
    end if
    on error goto 0

    ' Comienzo a imprimir el select
    response.Write("<select name='" & selectDestino & "' id='" & selectDestino & "' onChange='cargaContenido(this.id)'>")
    response.Write("<option value='0'>Elige</option>")
    do while not consulta.EOF
    
        ' Convierto los caracteres conflictivos a sus entidades HTML correspondientes para su correcta visualizacion
        consultaLimpio=Server.HTMLEncode(consulta(1))
        ' Imprimo las opciones del select
        response.Write("<option value='" & consulta(0) & "'>" & consultaLimpio & "</option>")
        consulta.moveNext()
    loop
    response.Write("</select>")

    conectar.close()
    set conectar = nothing
    desconectar()
end if

set listadoSelects = nothing
%>

Una página muy interesante para estas cosas:

Conversor de Funciones


Un saludo