% Session("activo")=true sub generaSelect() conectar() 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 if (rs("codpais")=175) then Response.Write(""&rs("nompais")&"") else Response.Write(""&rs("nompais")&"") end if rs.movenext loop rs.close Response.Write("") end sub %>