contenuto
codice:
<%
'Connessione al database

connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("mdb-database/utenti.mdb")

paginaOriginale=request("paginaOriginale")
if paginaOriginale="" then paginaOriginale="Default.asp"


login=request("email")
pass=request("pass")



Set connessione = Server.CreateObject("ADODB.Connection")
connessione.Open connectionString
query="SELECT * FROM UTENTI WHERE email='"&login&"'"
Set rs = connessione.execute(query)

if rs.EOF then 
	Session.Abandon
	paginaDiDestinazione = "login.asp?errore="&Server.URLEncode("Nome utente inesistente")&"&paginaOriginale="&paginaOriginale
else 

	if rs("pass")=pass then '
			Session("Autenticato")="OK"
		Session("ID")=rs("ID")
		paginaDiDestinazione = paginaOriginale
	else
		'L'utente ha sbagliato password
		Session.Abandon
		paginaDiDestinazione = "login.asp?errore="&Server.URLEncode("Password Errata")&"&paginaOriginale="&paginaOriginale
	end if
end if


rs.close
set rs = nothing
connessione.close
set connessione = nothing


Response.Redirect paginaDiDestinazione
%>