<% 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="alex03472370" 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 response.redirect "upload.php" 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 %> i-LINK
Nome Utente
 
Password