Buenos días a todos,
Tengo el siguinte código dentro de una pagina ASP que me provoca un error en la line marcada de color rojo:
IF request.form="" THEN
ELSE
'Creamos objeto conexion
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
StrConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Prueba.mdb")
oConn.Open StrConnect
SQL="SELECT Datos.NIF, Datos.pwd FROM Datos WHERE Datos.NIF='" & request.form("NIF") & "' AND Datos.pwd='" & request.form("pwd") & "'"
'response.write(sql): response.end
RS.Open sql, oConn
'response.write(RS.eof): response.end
'Si el recordset es vacio quiere decir que no hay coincidencia.
IF RS.eof THEN
'Por lo tanto le redireccionamos a la página de inicio para
'que lo vuelva a intentar
response.redirect"contact.asp"
rs.close()
oConn.close()
set rs = nothing
set oConn = nothing
ELSE
'Si el recordset tiene valor le dejamos pasar.
session("nif") = request.form("NIF")
response.redirect "Area Cliente/inicio.asp? nif="&request.form("NIF") &""
rs.close()
oConn.close()
set rs = nothing
set oConn = nothing
END IF
END IF
Me da el error, como he dicho antes, en la linea roja al intentar asignar a una variable de sesión lo que me viene enviado por el formulario. La descripción del error es la siguiente:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: 'session'
/web_ubk/contact.asp, línea 26
Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)
Página:
POST 44 bytes to /web_ubk/contact.asp
Lo gracioso es que este mismo código lo tengo en otro servidor (IIS 5.0) y funciona perfectamente. ¡¡¡¡¡RUEGO ME AYUDEN PORQUE NO SE QUE HAGO MAL!!!!
