Hacer la siguiente redireccion al validar

[Hereze]

Hola,

tengo una página asp de inicio de sesión que ataca a uba base de datos que tiene los siguientes campos:

Id, Login, Password, URL

Actualmente, el código asp hace lo siguiente:

set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "xxxxxxxx"
SQL="SELECT Id, Login, Password, URL FROM " & _
"xxx.prueba WHERE (Login='"&nombre&"' AND Password='"&password&"');"

set rs=oConn.Execute(SQL)

if rs.EOF then

Session("ID")=Cint(0)
Response.Redirect("error.asp")
else

Session("ID")=CInt(rs.Fields("Id"))

pagina = nombre

Response.Redirect(nombre)"

end if

Es decir, que si el login es correcto, se le redirecciona a la página cuyo nombre corresponde al nombre de usuario.

Ejemplo:

ID: 1
Usuario: prueba.asp
Password: pruebatd
URL: primera.asp

Si la validación es correcta, se le redirecciona a prueba.asp

Lo que quiero, es que en vez de que se le redireccione a Usuario, se le redireccione a la web que está escrita en el campo URL, en este caso se le debería redireccionar a primera.asp

He probado varias cosas, en la select, he escrito: SQL="SELECT Id, Login, Password, URL FROM " & _

Pero el problema me lo encuentro a la hora de hace el redirect, si pongo:

pagina = URL

Response.Redirect(URL)

no me sale nada, lo comprobé haciendo un Response.write(URL) y no me escribçia nada, señal de que no coje el contenido del campo URL.

¿Añguna sugerencia?

Gracias.

[Shiryu_Libra]

ya miraste este POST
en la pagina de biblioteca de clases y funciones de ASP, pudieras acomodarla a tu necesidad no crees?

_________________________
creo que no lei la ultima parte bien, pero has tratado de imprimir directamente el campo

response.write RS("URL").value

para saber si te extrae la informacion de la base?

Código:

   if rs.EOF then
     
          Session("ID")=Cint(0)
          Response.Redirect("error.asp")
 else

          Session("ID")=CInt(rs.Fields("Id"))

pagina = nombre<<<<<<------------------------esta parte

Response.Redirect(nombre)"

end if

ademas que a nombre, no le estas asignando ningun dato de la base... no te has fijado?

48 y tambien el 49 pudieran servirte para redirigir el contenido, con la creacion que ocupas tu

[Hereze]

Hola Shiryu_Libra,

en ...WHERE (Login='"&nombre&"'...) estoy haciendo la asignación Login=nombre

por eso escrito de esta forma:

pagina = nombre

Response.Redirect(nombre)

funciona perfectamente, y se redirecciona a una página que es el valor del campo Login.

El problema viene cuando intento que se redireccione al valor del campo URL, entonces falla.

Si hago el response.write(URL) no mew imprime nada en pantalla, señal de que no coje el valor del campo URL (que es tal cual está en la base de datos).

Saludos.

[sjam7]

ando medio alterado por el fin, pero, donde toma el valor la variable URL?

[Hereze]

Iniciado por sjam7

ando medio alterado por el fin, pero, donde toma el valor la variable URL?

Ese es el problema, que no sé como hacerlo para crear una variable que tome como valor el campo URL.

Por eso probé el incluir el campo URL en la SELECT inicial.

Un saludo.

[Shiryu_Libra]

bueno entonces que tipo de dato es URL en la base de datos?

[Hereze]

Un simple campo texto donde está escrito una pagina web. Este es un regustro de ejemplo:

ID: 1
Login: demo
Password: demo1
URL: demo1.asp

lo que busco es que cuando se valide el usuario demo, se le redireccione a demo1.asp y así sucesivamente.

Un saludo.

[Shiryu_Libra]

me referia a que si era tipo TEXT? o como lo tienes asignado ese campo

[Hereze]

Iniciado por Shiryu_Libra

me referia a que si era tipo TEXT? o como lo tienes asignado ese campo

es un char igual que el campo Login.

Saludos.

[Shiryu_Libra]

perdona compañero??, pero me podrias especificar en donde mandas imprimir el campo URL, no lo he encontrado, he hecho una prueba local, donde genero una tabla, con 2 campos, un hipervinculo, el otro texto, y me despliega los resultados, podrias decirme en tu codigo donde mandas llamar el campo URL

set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "xxxxxxxx"
SQL="SELECT Id, Login, Password, URL FROM " & _
"xxx.prueba WHERE (Login='"&nombre&"' AND Password='"&password&"');"

set rs=oConn.Execute(SQL)

if rs.EOF then

Session("ID")=Cint(0)
Response.Redirect("error.asp")
else

Session("ID")=CInt(rs.Fields("Id"))

pagina = nombre

Response.Redirect(nombre)"

end if
_______________
creo que te falta algo asi como
response.redirect(RS("URL").value)

[Shiryu_Libra]

con tu permiso

set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "xxxxxxxx"
SQL="SELECT Id, Login, Password, URL FROM " & _
"xxx.prueba WHERE (Login='"&nombre&"' AND Password='"&password&"');"

set rs=oConn.Execute(SQL)

if rs.EOF then
Session("ID")=Cint(0)
Response.Redirect("error.asp")
else

Session("ID")=CInt(rs.Fields("Id"))

pagina = RS.fields("URL").value
Response.Redirect(pagina)"

end if

creo que asi deberia funcionar compañero

[Hereze]

Hola, lo acabo de probar y este es el resultado:

demo1.asp
%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2 0%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20% 20%20%20%20%20%20%20%20%20

es decir me redirecciona a demo1.asp
(esto es correcto), pero a continuación, me añade %20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2 0%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20% 20%20%20%20%20%20%20%20%20

y claro sale página no encontrada.

[Shiryu_Libra]

ventaja es que ya te imprime el resultado, ahora el detalle es que te imprime espacios que no van, que podriamos hacer

[Shiryu_Libra]

Iniciado por Shiryu_Libra

con tu permiso

set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "xxxxxxxx"
SQL="SELECT Id, Login, Password, URL FROM " & _
"xxx.prueba WHERE (Login='"&nombre&"' AND Password='"&password&"');"

set rs=oConn.Execute(SQL)

if rs.EOF then
Session("ID")=Cint(0)
Response.Redirect("error.asp")
else

Session("ID")=CInt(rs.Fields("Id"))

pagina = RS.fields("URL").value
pagina=replace(pagina," ","")
Response.Redirect(pagina)

end if

creo que asi deberia funcionar compañero

le agrege esa linea, espero que ahora si te funcione como esperas, suerte

[Hereze]

Ahora sí, perfecto.

Muchísimas gracias.

[Shiryu_Libra]

suerte