Redireccionar...

[ken-obi]

wenas a todos,
tengo ya echa un ejemplo de LOGIN y es un formulario Nick y Pass que manda las variables a login.asp,
y dentro en login.asp e puesto un javascript de history.go (-1)
pero no funciona bien porque cuando vuelve a la pagina tengo que refrescarla para que se muestre la session....creo que me explico fatal
gracias de antemano...

[meru-kun]

Sí, no entiendo nada.
Tal y como lo dices, estás mezclando JS con VB, y eso no puede ser. Intenta explicarlo mejor para que (al menos yo que no lo entiendo) pueda ayudarte.

Un saludo.

[ken-obi]

Iniciado por meru-kun

Sí, no entiendo nada.
Tal y como lo dices, estás mezclando JS con VB, y eso no puede ser. Intenta explicarlo mejor para que (al menos yo que no lo entiendo) pueda ayudarte.

Un saludo.

me lo imaginaba,
me explico:
lo que quier es que cuando un usuario introduzca su nick y password aga session y vuelva a la misma pagina donde estaba.

me entiendes ahora

[meru-kun]

Ahora sí.

En la página donde se hace el login (donde se meten los datos), que haya un form así:

<input type=hidden name=ref value=<%=Request.ServerVariables("HTTP_REFERER")%> ">

Y en donde se hace el login (se ejecuta el ASP), haz esto:
response.redirect Request.Form("ref")

Creo que buscas eso :)

[ken-obi]

Iniciado por meru-kun

Ahora sí.

En la página donde se hace el login (donde se meten los datos), que haya un form así:

<input type=hidden name=ref value=<%=Request.ServerVariables("HTTP_REFERER")%> ">

Y en donde se hace el login (se ejecuta el ASP), haz esto:
response.redirect Request.Form("ref")

Creo que buscas eso :)

Gracias pero no funciona porque el formulario sale en todas las paginas:
sabes otra solucion

[meru-kun]

No importa que el formulario salga en todas las páginas. En cada página (dinámica o no) que se genere, se creará un campo "ref" diferente (con un value diferente, vamos). Luego, al darle al login se recoge el valor del formulario creado en la página anterior (no el valor qu va a tener ahora), con lo cual no habrá problema.
No se si me explico.

[ken-obi]

pues me da error, no me deja acer session me echa a la pagina de denegacion de paso

osea que dentro del formulario de login tiene que estar esto:
<input type="hidden" name="ref" value='<%=Request.ServerVariables("HTTP_REFERER")% >'>

y dentro de la pagina de comprobacion tiene que estar esto:
response.redirect Request.Form("ref")

pues no me sale...

[meru-kun]

¿Que error te da?

Por que el response.redirect sólo lo puedes hacer antes de enviar los encabezados HTTP al cliente (vamos, antes de ningún response.write).

Así que deberías incluir el código de login/logout al principio de cada página (un include con ese código en la 1º linea sería lo ideal).

Si la pag. de comprobación es independiente, entonces, que el response.redirect esté antes que cualquier response.write (despues del redirect pon Response.End).

A ver si hay suerte ...

[ken-obi]

cadavez que hago session me sale en una pagina diferente...

porque???

se ve que no recoge bien la variable...

[meru-kun]

PUes no se .... peganos algo del código (la parte relevante, no me pegues todo lo que hay). Pero no se por que pasa eso ...

[ken-obi]

Código:

<!--#include file='dbconnection.inc'--> 

<% 

'Dimension variables
Dim rsCheckUser   'Holds the recordset for the records in the database
Dim strSQL          'Holds the SQL query to query the database 
Dim strUserName 	'Holds the user name

'Initalise the strUserName variable
strUserName = Request.Form("txtUserName")

'Create an ADO recordset object
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT password, ID, username, admin, lastname, aim, email, suspend FROM tblUsers WHERE username ='" & strUserName & "'"

'Open the recordset with the SQL query 
rsCheckUser.Open strSQL, adoCon

'If the recordset finds a record for the username entered then read in the password for the user
If NOT rsCheckUser.EOF Then

	'Read in the password for the user from the database
	If (Request.Form("txtUserPass")) = rsCheckUser("password") Then
	

	     If rsCheckUser("suspend") = 0 Then
		 'Write the HTML to display the current record in the recordset

			Session("userGood") = True
			Session("userID") = rsCheckUser("ID")
			Session("userName") = rsCheckUser("username")
			Session("userAdmin") = rsCheckUser("admin")
		 	Session("lastName") = rsCheckUser ("lastname")
			Session("aIm") = rsCheckUser ("aim")
			Session("Email") = rsCheckUser ("email")
		 Else 
		 Response.Redirect("solosocios.asp?mode=suspend")
		 End If
	 
		
	'Reset server objects
	rsCheckUser.Close
	Set rsCheckUser = Nothing
	Set adoCon = Nothing

	'Redirect to the authorised user page and send the users name
		response.redirect Request.Form("ref")
		response.end


	End If
End If



		

'Reset server objects
rsCheckUser.Close
Set rsCheckUser = Nothing
Set adoCon = Nothing

'If the script is still running then the user must not be authorised
Session("userGood") = False

'Redirect to the unautorised user page
Response.Redirect"entrar.asp?url=2"
%>

[meru-kun]

No veo nada raro en el código ... vamos, que si todo va bien, redirecciona correctamente y se acabó.
Prueba a quitar el Response.End, y a decirnos que error es el que te lanza.

[ken-obi]

tiene que ser REMOTE_ADDR, no hay otr??? como path_info

[meru-kun]

Tiene que ser esto:
<%=Request.ServerVariables("HTTP_REFERER")%>">

Nada de REMOTE_ADDR (que esa es la IP del cliente) o PATH_INFO (que ese es el path físico dentro del server).

Si no, prueba a recoger la ruta física del archivo, y a juntar luego la QUERYSTRING que le pasas:
strScriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InstrRev(Request.ServerVariables("SCRIPT_NAME"), "/")+1)
strQueryString = Request.ServerVariables("QUERY_STRING")

pagAct = strScriptName & "?" & strQueryString

[ken-obi]

Iniciado por meru-kun

Tiene que ser esto:
<%=Request.ServerVariables("HTTP_REFERER")%>">

Nada de REMOTE_ADDR (que esa es la IP del cliente) o PATH_INFO (que ese es el path físico dentro del server).

Si no, prueba a recoger la ruta física del archivo, y a juntar luego la QUERYSTRING que le pasas:
strScriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InstrRev(Request.ServerVariables("SCRIPT_NAME"), "/")+1)
strQueryString = Request.ServerVariables("QUERY_STRING")

pagAct = strScriptName & "?" & strQueryString

ya lo logre lo que ize fue poner en login.asp esto:
response.redirect request.ServerVariables("HTTP_REFERER")
y con solo eso ya funcionaba....
pero muchisimas gracias por la ayuda de todo el DIA si fueran todos como tu...

[meru-kun]

Bueno, al final salió todo bien. Aunque no haya sido mucha mi ayuda, por lo menos si que te orienté (lo del Request), así que me alegro de haberte ayudado.

Suerte con tu pagina. Y espero que la prox. duda la podamos resolver en menos tiempo

Un saludo