% Session("activo")=true conectar() sub generaSelect() Response.Write("") Response.Write("Seleccione el pais") Sql = "Select distinct codpais,nompais from pais order by nompais" rs.Open Sql, Conn, adOpenDynamic do while not rs.eof Response.Write(""&rs("nompais")&"") rs.movenext loop rs.close Response.Write("") end sub %>