hola a todos tengo un problema un usuario tiene problemas con el login de su usuario:
le envié al usuario un mail para que se conectase a una pagina de registro para ver donde podía tener el error, no paso de la primera pagina, os pego un trocito de traza simplificado y unos trocitos de código, pero el problema no es de este sino del usuario, pues desde cualquier otro ordenador que he probado, incluso con IE 6.0 entrando sus claves no me da error. Os pido vuestra ayuda, no se si será algo de la configuración de segurisad o que ha bloqueado las cookies pero le he preguntado por telefono y parece que lo tiene bien.
el usuario puede acceder a login1,
introduce sus claves (incluso se las pongo por defecto para que no se equivoque)
le da a continuar y se bloquea.
pero donde se bloquea, al enviar los datos al cargar los datos, al escribir el la variable sessión del login2.asp???
TRAZA (el usuario no pasa a login2.asp, se queda en blanco cargando)
---------------
2003-06-16 06:38:29 80.59.153.193 - GET /login1.asp 200 0 HTTP/1.1 Mozilla/4.0+(compatible;+MSIE+6.0;+Windows+98)
http://mb30.terra.es/frame.html
2003-06-16 06:38:35 80.59.153.193 - POST /login1.asp 302 89 HTTP/1.1 Mozilla/4.0+(compatible;+MSIE+6.0;+Windows+98)
http://www.ecosmep.com/login1.asp
2003-06-16 06:39:19 80.59.153.193 - POST /login1.asp 302 89 HTTP/1.1 Mozilla/4.0+(compatible;+MSIE+6.0;+Windows+98)
http://www.ecosmep.com/login1.asp
Login1 (es simplemente un login, a mi me funciona)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dtBegin = timer
%>
<!--#include file="Connections/Usuarios.asp" -->
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("textfield"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="login2.asp"
MM_redirectLoginFailed="Errores/ErrorRegistro.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_Usuarios_STRING
MM_rsUser.Source = "SELECT Usuario, Password"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM Usuarios WHERE Usuario='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & Replace(Request.Form("textfield2"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization ).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name="form1" method="POST" action="<%=MM_LoginAction%>">
<p>usuario
<input name="textfield" type="text">
</p>
<p>contraseña:
<input name="textfield2" type="password">
</p>
<p>simplemente pulsa continuar<br>
<input type="submit" name="Submit" value="Continuar">
</p>
</form>
<p> </p>
</body>
</html>
<% dtEnd = timer
response.write(formatnumber(dtend - dtbegin, 4)) %>
Login2:
----------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dtBegin = timer
%>
<!--#include file="Connections/Usuarios.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("MM_Username") <> "") Then
Recordset1__MMColParam = Session("MM_Username")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Usuarios_STRING
Recordset1.Source = "SELECT * FROM Usuarios WHERE Usuario = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
dtBegin = timer
Session("CIF") =(Recordset1.Fields.Item("CIF").Value)
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<p>
Tu CIF es: <% response.write(Session("CIF")) %>
</p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<% dtEnd = timer
response.write(formatnumber(dtend - dtbegin, 4))
%>