codice:
<%
if request("User")<>"" and request("Password")<>"" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
Set rs=Server.CreateObject("ADODB.RecordSet")
User = Replace(Request("User"),"'","")
Password = Replace(Request("Password"),"'","")
sql="Select top 1 * from Iscritti where User='"& User &"' and Password='"& Password &"'"
rs.Open sql , Conn ,3 ,3
if not rs.eof then
Session("ID") = rs("ID")
Session("User") = rs("User")
rs("Status_Connect")= True
rs("Date_Now")= Now()
User = rs("User")
rs.update
rs.close
Set rs=Nothing
Conn.close
Set Conn=Nothing
response.redirect("pannello.asp")
else
Response.redirect("lock.htm")
end if
else
Response.redirect("lock.htm")
end if
%>