redireccionar a pagina segun una variable

alexgonzalez · #1 (**permalink**) 23/03/2009, 08:36

buenos dias, antes que nada muchas gracias por toda la info que esta expuesta en el foro...
Les explico el problema, tengo un formulario es asp que se valida con un login y password en mi base de datos, pero quiero que al validar me cargue una pagina espesifica, para usuario tengo un campo en mi base de datos el cual contiene el nombre de la pagina a la que debe ser direccionado cada usuario segun login.
Gracias anticipadas.

mc_quake · #2 (**permalink**) 23/03/2009, 09:01

usa un bucle case o un if
y para redireccionar usas Response.Redirect("nombre_de_la_pagina")

alexgonzalez · #3 (**permalink**) 23/03/2009, 12:08

hola que tal gracias por reponder pero te cuento, actual mente estoy usando un if pero no me reconose el valor de la variable (cur) que es quien se conecta con mi db para obtener la direccion de la pagina.

el usuario se valida contra la base de datos, y adicional extraigo el valor de tipo de curso, que almaceno en la variable (cur) en mi if al colocar que si (cur) es igual a XXXX.htm no funciona. AYUDA PORFA

JuanRAPerez · #4 (**permalink**) 23/03/2009, 12:20

pegas código??????

alexgonzalez · #5 (**permalink**) 23/03/2009, 14:34

AQUI TE LO ENVIO ESPERO ME PUEDAS AYUDAR GRACIAS....

<%

'Para los redireccionamientos
Response.Buffer=True
Dim oConn, rs, SQL, usuario, password, cursos, pag 'session("curso")

'tomo el formulario
usuario=Request.Form("usuario")
password=Request.Form("password")
'Si no lo ha enviado le presentamos el formulario
if usuario="" then

Response.Write("<script>alert('Todos los campos son requeridos' );</script>")
%>
<script language="javascript">window.parent.location.repla ce ('formlogin.htm');</script>
<%

else
'Validamos su identidad
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open (application("DBConn"))
SQL="SELECT cursos, id_usuario, usuario, Password FROM " & _
"Usuarios WHERE (Usuario='"&usuario&"' AND Password='"&password&"');"
'Ejecutamos consulta
set rs=oConn.Execute(SQL)
if rs.EOF then

'No existe ese usuario con esa contraseña le negamos el acceso
%>
Response.Write("<script>alert('Usuario y Password invalidos');</script>")
Response.Redirect("formlogin.htm")

<%

else
'le mandamos a la pagina de bienvenida

%>

<script language="javascript">window.parent.location.repla ce ('index.htm');</script>

<%
end if
end if

%>

JuanRAPerez · #6 (**permalink**) 23/03/2009, 15:55

oki probemos donde llega

if rs.EOF then
%>
Response.Write("NO existe usuario")
response.end
<%
else
Response.Write("SI existe usuario")
response.end
%>

<script language="javascript">window.parent.location.repla ce ('index.htm');</script>

<%

alexgonzalez · #7 (**permalink**) 25/03/2009, 09:50

que tal estas buenos dias,
disculpen, pero el codigo aun no me funciona y la verdad ya no se como hacerle, si me echan una mano seria de gran ayuda..

JuanRAPerez · #8 (**permalink**) 25/03/2009, 13:42

Cita:

Iniciado por alexgonzalez

que tal estas buenos dias,
disculpen, pero el codigo aun no me funciona y la verdad ya no se como hacerle, si me echan una mano seria de gran ayuda..

hicistes lo que te indique?
cual fue el resultado=?

alexgonzalez · #9 (**permalink**) 25/03/2009, 14:41

si lo hice pero no me dio ningun resultado, y para colmo ahora me da un error te lo escribo a ver si sabes algo sobre el: no se puede comparar ni ordenar los tipos de datos text, ntext e imagen, excepto cuando se utiliza el operador is null o like. "pensaba que era un error en el tipo de caracter que tenia espesificado en mi asp con respecto a mi db pero todo esta igual, que tal queria solucionar algo y la cosa me salio peor,

JuanRAPerez · #10 (**permalink**) 25/03/2009, 14:57

ummmmmm
pegas tu código como esta actualmente con las observaciones que te hice?

alexgonzalez · #11 (**permalink**) 25/03/2009, 15:30

vale aqui te lo envio y nuevamente gracias por la ayuda!!!!!!
---------
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<%
'Para los redireccionamientos
Response.Buffer=True
Dim oConn, rs, SQL, usuario, password
'Recogemos el formulario
nombre=(Request.Form("usuario"))
password=(Request.Form("Password"))
'Si no lo ha enviado, es decir no hay nada en estas variables
'le presentamos el formulario
if nombre="" then
Response.Write("campos en blanco.")
else
'Validamos su identidad
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open (application("DBConn"))
SQL="SELECT usuario, Password FROM " & _
"Usuarios WHERE (usuario='"&nombre&"' AND Password='"&password&"');"
'Ejecutamos consulta
set rs=oConn.Execute(SQL)
if rs.EOF then
%>
Response.Write("NO existe usuario")
response.end
<%
else
Response.Write("SI existe usuario")
response.end
%>

<script language="javascript">window.parent.location.repla ce ('index.htm');</script>

</BODY>
</HTML>

alexgonzalez · #12 (**permalink**) 26/03/2009, 08:37

hola buenos dias, que tal estan, bueno les cuento ya solucione el problema con el error antes expuesto, fue algo super extraño, solo elimine los campos de mi base de datos y los cree nuevamente con los mismos valores y tarann listo funciona nuevamente esa parte del codigo. ahora viene lo bueno aun no puedo redireccionar a las paginas que quiero, segun el usuario que inicie session.

JuanRAPerez · #13 (**permalink**) 26/03/2009, 10:33

quisiera ayudarte pero tengo mis dudas si realmente esta haciendo las cosas bien

antes que nada en que estas programando? (Expression web DW o) ?

el navegador cuando pruebas la pagina no te muestra errores ??????

digo si yo trato de ejecutar tu código creo que me tronaría en estas partes

<%
'Para los redireccionamientos
Response.Buffer=True
Dim oConn, rs, SQL, usuario, password
'Recogemos el formulario
nombre=(Request.Form("usuario"))
password=(Request.Form("Password"))
'Si no lo ha enviado, es decir no hay nada en estas variables
'le presentamos el formulario
if nombre="" then
Response.Write("campos en blanco.")
else
'Validamos su identidad
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open (application("DBConn"))
SQL="SELECT usuario, Password FROM " & _
"Usuarios WHERE (usuario='"&nombre&"' AND Password='"&password&"');"
'Ejecutamos consulta
set rs=oConn.Execute(SQL)
if rs.EOF then
%>
Response.Write("NO existe usuario")
response.end
<%
else
Response.Write("SI existe usuario")
response.end
%>

<script language="javascript">window.parent.location.repla ce ('index.htm');</script>

</BODY>
</HTML>
y minimo me diria que falta un end if

alexgonzalez · #14 (**permalink**) 26/03/2009, 12:08

hola que tal, estoy programando en visual interdev, la validacion del usuario con el nombre y password la efectua de forma correcta lo que pasa es que cada usuario tiene asignada un pagina en mi db lo que quiero es que al validar el usuario se cargue la pagina que le corresponde... puede que este omitiendo algo pero es mi primera web disculpa por ello... te adjunto nuevamente el codigo que me funciona segun lo dicho anterior mente....

<%
'Para los redireccionamientos
Response.Buffer=True
Dim oConn, rs, SQL, nombre, password, cursos
'Recogemos el formulario
nombre=Request.Form("nombre")
password=Request.Form("Password")
'Si no lo ha enviado, es decir no hay nada en estas variables
'le presentamos el formulario
if nombre="" then
Response.Write("todos los campos son obligatorios.")

else
'Validamos su identidad
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open(application("DBConn"))
SQL="SELECT cursos, usuario, Password FROM " & _
"Usuarios WHERE (usuario='"&nombre&"' AND Password='"&password&"');"
'Ejecutamos consulta
set rs=oConn.Execute(SQL)
if rs.EOF then

'No existe ese usuario con esa contraseña
'Así que le negamos el acceso
Response.Write("Lo siento, no existe ese usuario/contraseña.")
else

Response.Redirect("index.htm")

end if
end if

%>

el campo cursos es el que contiene la direccion de la pagina a la que debe acceder el usuario. gracias por responder..
he puesto un (if cursos="" then) como condicion para cargar la pagina y por lo poco que se para ver si esa variable esta tomando algun dato, y el resultado es que me carga la pagina por defecto, osea que al paracer no esta tomando los datos de mi db.......gracias

JuanRAPerez · #15 (**permalink**) 26/03/2009, 12:12

oki veamos

Código ASP:

Ver original<%Response.Buffer=True
Dim oConn, rs, SQL, nombre, password, cursos
nombre=Request.Form("nombre")
password=Request.Form("Password")
if nombre="" then
     Response.Write("todos los campos son obligatorios.")
else
     set oConn=Server.CreateObject("ADODB.Connection")
     oConn.Open(application("DBConn"))
     SQL="SELECT cursos, usuario, Password FROM " & _
     "Usuarios WHERE (usuario='"&nombre&"' AND Password='"&password&"');"
 
     set rs=oConn.Execute(SQL)
     if rs.EOF then
          Response.Write("Lo siento, no existe ese usuario/contraseña.")
     else
          paginaRediccionar = rs("curso")
          Response.Redirect(paginaRediccionar)
     end if
end if
'cierra recordset
'ciera conexion
%>

suerte

JuanRAPerez · #16 (**permalink**) 26/03/2009, 12:13

PD.

otra cosa sabes Password como nombre de campo no lo uses, dado que es una palabra reservada

usa clave u otro nombre

suerte

alexgonzalez · #17 (**permalink**) 26/03/2009, 15:05

COLEGA MIL GRACIASsssss ahora si me funciona, lo unico es que al cargar la pagina que esta en la base de datos en el navegador me coloca esto (mcolor%20%20%20) no coloco el http porque por reglas del foron aun no puedo y asi continuamente. pero ya extrae los datos. nuevamente gracias

hare la correccion del campo password...

JuanRAPerez · #18 (**permalink**) 26/03/2009, 16:12

%20 son espacios en blanco

como te lo pone????

http://localhost/talcosa.html%20%20%20%20

Código asp:

Ver originalpaginaRediccionar = trim(rs("curso"))

suerte

has un trim(

alexgonzalez · #19 (**permalink**) 27/03/2009, 06:38

Colega Caso resuelto, si en algun momento te ayudar en algo cuenta con ello, mil.... gracias, espero no tener mas problemas, suerte y exito...