<%Dim username, password, re, referer, url
url = session("url") ' recupera il valore della pagina richiesta dal file protezione.asp
referer = Request.form("referer")
username = Request.Form("user")
password = Request.Form("psw")
Set re = New RegExp
re.Pattern = "^[a-z0-9]+$"
If re.Test(username) = False Or re.Test(password) = False Then
session("err") = "speciali"
session("referer") = referer
Response.redirect "login.asp"
end if
if Len(username) < 6 Or Len(password) < 6 Then
session("err") = "lunghezza"
session("referer") = referer
Response.redirect "login.asp"
end if
Dim sc, cn, rs, sql
sc = "dsn=login_personale.dsn"
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open sc
sql = "SELECT * FROM personale "
sql = sql & "WHERE user = '" & username & "'"
rs.Open sql, cn, 2
If rs("password") = password Then
Session("utente") = ucase(rs("user"))
session("err") = ""
session("referer") = ""
session("settore") = rs("settore")
Session("login") = true 'viene passato questo valore alla pagina protezione.asp
Application.Lock
Application("collegati") = Application("registrati") + 1
Application.UnLock
Response.redirect url
Else
session("err") = "false"
session("referer") = referer
Response.redirect "login.asp"
End If
session("url") = ""
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing