Subo esto un poco.
Resulta que (novato de mi) no sabia que el dominio buscaba un default.asp si no encontraba un index.htm (yo no lo sabia y utilizaba un index.html con frames). Asi que ahora he eliminao el index.html y he puesto el default.asp como principal (sin ningun frame)
Pensaba que asi se solucionaria...pero no. Ahora al menos consigo que si el login es incorrecto me salga un mensaje de error, pero la variable de sesion sigue sin crearmela
. Si el Login es correcto no me sale el mensaje de error, pero la pagina se queda tal cual estaba antes, en lugar de salirme el mensaje de Bienvenido xxxx.
Como ya digo esto solo me pasa si entro con el IE 6.0, y me funciona perfectamente si entro por la ruta absoluta. SZin embargo, si entro por mi dominio no me crea la variable.
El codigo es el siguiente (es el que crea el dreamweaver)
Código:
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("nick"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization="nivel"
MM_redirectLoginSuccess="default.asp"
MM_redirectLoginFailed="default.asp?acceso=1"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_DREAMpesvalencia_STRING
MM_rsUser.Source = "SELECT nick, password"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM usuarios_confirmados WHERE nick='" & Replace(MM_valUsername,"'","''") &"' AND password='" & Replace(md5(Request.Form("password")),"'","''") & "'"
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
Response.Write(" Inicio de sesion correcto")
' 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 true 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