<%
dim strUser
strUser=request.form("user")
dim strCode
strCode=request.form("codice")
strCode=cripta(strCode,key)
if(strCode<>"")AND(strUser<>"") then
'Apertura del database
dim strCodedb
strCodedb="innovatel"
dim strOutput
strOutput=""
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("users.mdb")
strConn=strConn & ";pwd=" & strCodedb
Conn.Open (strConn)
strSql = "SELECT * FROM codici WHERE userName='"&strUser&"' AND userCode='"&strCode&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, conn ,3,3
if not(rs.eof) then
'Autorizzo la navigazione in pagine protette
response.cookies("innovatel.it_accesso")("valido")="ok"
response.cookies("innovatel.it_accesso")("nome")=strUser
strOutput="Grazie "&strUser&" per esseri identificato."
end if
'chiudo il database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
if strOutput<>"" then
response.write strOutput
response.end
end if
end if
%>
Effettua il LogOn