Hola, tengo un formulario de validación de sesión que comprueba si los datos introducidos corresponden a un nombre y contraseña de la base de datos,
si es así, se valida la sesión,
si no, no,
todo funciona bien, el problema es que al introducir los datos correctos sin importar si es en mayúsculas o minúsculas igual me valida la sesión, alguna idea de por que sucede esto?, Gracias
el código es este:
<%
Dim oconn,objrs,strsql,nom,pass
nom=request.form("nombre")
pass=request.form("password")
set oconn=server.createobject("adodb.connection")
set objrs=server.createobject("adodb.recordset")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\ddpharma\datos\datos_ddpharma.mdb "))
if nom="" and pass="" then
session.abandon
else
strSQL= "SELECT * FROM ADMINISTRADORES WHERE NOMBRE ='" & nom & "' AND PASSWORD = '" & pass & "';"
objrs.Open strSQL, oConn
IF NOT(objrs.BOF AND objrs.EOF) THEN
session("autorizacion")=1
session("nombre")= objrs.fields("NOMBRE")
Session("a1")=objrs.fields("APELLIDO1")
Session("a2")=objrs.fields("APELLIDO2")
Response.redirect "comprobar_sesion.asp"
ELSE
session("autorizacion")=-1
Response.redirect "comprobar_sesion.asp"
END IF
END IF
%>
...y el formulario,
