eccola!
codice:
<html>
<head>
<title>Login</title>
</head>
<%
' Inizializzazione connessione al database
Dim conn, rs, utente, password, nominativo
utente = Request.Form("utente")
password = Request.Form("password")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("\public\tracker.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT utente,password,nominativo FROM users", conn
'Controlla autenticazione
If utente = "" Or password = "" Then
Response.Write "
<font color='#FFFFFF' face='Tahoma'>Errore!! E' necessario compilare entrambi i campi del form!</font></p>" & vbCrLf
Response.Write "
<font face='Tahoma' color='#FFFF00' size='2'>Torna indietro</font></p>" & vbCrLf
Else If rs.EOF And rs.BOF Then
Response.Write "
<font color='#FFFFFF' face='Tahoma'>Errore di autenticazione!! Nome utente o password errati!!</font></p>" & vbCrLf
Response.Write "
<font face='Tahoma' color='#FFFF00' size='2'>Torna indietro</font></p>" & vbCrLf
Else
auth = 0
Do
If rs.Fields("utente").Value = utente And rs.Fields("password").Value = password Then
nominativo=rs.Fields("nominativo").value
auth = 1
End If
rs.MoveNext
Loop While Not rs.EOF
If auth = 1 Then
Session("user")=nominativo
Response.Redirect "default.asp"
Else
Response.Write "
<font color='#FFFFFF' face='Tahoma'>Errore di autenticazione!! Nome utente o password errati!!</font></p>" & vbCrLf
Response.Write "
<font face='Tahoma' color='#FFFF00' size='2'>Torna indietro</font></p>" & vbCrLf
End If
End If
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
<body bgcolor="#0000FF">
</body>
</html>