Si è vero va bene anche solo la password case sensitive. Però non ho capito come risolvere l'altro problema. Ora posto qui tutto il codice.
Grazie
codice:
<%
Dim user, password, re
user = Request.Form("User")
password = Request.Form("Password")
Set re = New RegExp
re.Pattern = "^[a-zA-Z0-9]+$"
If re.Test(user) = False then
Response.Write ("Inserire username alfanumerica")
response.end
end if
If re.Test(password) = False then
Response.Write ("Inserire password alfanumerica")
response.end
end if
If Len(user) < 6 Or Len(password) < 6 Then
Response.Write ("Inserire username e password di almeno 6 caratteri")
Else
Dim cn, rs, sql
Set cn = Server.CreateObject("ADODB.Connection")
cn.open(ConnStrSQL)
sql = "SELECT * FROM Anagrafica WHERE [user] = '" & user & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 1, 1
IF NOT rs.bof or rs.bof THEN
If rs("password") = password Then
'esegui il redirect della pagina
session("registrato")=rs.Fields("ID").Value
response.redirect("perspage.asp?ID="&rs.Fields("ID").Value)
Else
'password errata o utente inesistente
response.redirect("checkOut.html")
End If
End If
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End If
%>
Rispondi quotando
