Dim strEmail, strPassword
 
' Recupero i valori dal form
strEmail = Request.Form("email")
strPassword = Request.Form("password")
 
' Li assegno alle variabili di sessione
Session("email") = strEmail
Session("password") = strPassword
 
' dove ti occorrono:
<input name="password" value="<%=session("password")%>"> 
<input name="email" value="<%=session("email")%>"> 

<%
'Creo la variabile Action
Dim Action 
Action = request.form("act")

'Se Action è vuoto stampo il modulo
if Action = "" then
%>

<form method="POST">
<input type="hidden" name="act" value="salva">
<table border="0">
<tr><td>Tua Email</td><td><input type="text" name="email" size="30"></td></tr>
<tr><td>Username</td><td><input type="text" name="user" size="30"></td></tr>
<tr><td>Password</td><td><input type="password" name="pass" size="30"></td></tr>
<tr><td colspan="2"><input type="submit" value="ISCRIVITI"></td></tr>
</table>
</form>

<%
'Se Action ha come valore "salva"...
'Inserisco i valori del modulo nel DB 
elseif Action = "salva" then

'Apro la connessione al DB
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&_
Server.MapPath("utenti_sito.mdb") 

'Aggiungo un nuovo record al DB
Dim Rs
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "UTENTI", conn, 1, 3
Rs.AddNew()
Rs("email") = request.form("email")
Rs("user") = request.form("user")
Rs("pass") = request.form("pass")
Rs("stato") = False
Rs.Update

Session("UserTemp") = request.form("user")
Session("PassTemp") = request.form("pass")

'chiudo recordset e connessione
Rs.Close
set Rs = Nothing
Conn.Close
set Conn = Nothing

'Messaggio a video di conferma
%>

Registrazione avvenuta con Successo, clicca <a href="login.asp"> Qua </a> per eseguire il login

<%
end if
%>

<%
'Creo la variabile Action
'ha come valore il campo act del form
Dim Action
Action = request.form("act")

'Creo la variabile PrimaPagina
'e la setto sulla mia prima pagina asp protetta
Dim PrimaPagina
PrimaPagina = "default.asp"

'se Action è vuota stampo il form
if Action = "" then

%>

<form method="POST" action="login.asp">

<input type="hidden" name="act" value="enter">

<table border="0">

<tr>

<td>User</td>
<% if not Session("UserTemp") = "" then %>

<td><input type="text" name="u" size="20" value="<%=Session("UserTemp")%>"></td>

<%else%>

<td><input type="text" name="u" size="20"></td>

<%end if%>

</tr>


<tr>

<td>Pass</td>


<% if not Session("PassTemp") = "" then %>

<td><input type="password" name="p" size="20" value="<%=Session("PassTemp")%>"></td>

<%else%>

<td><input type="password" name="p" size="20"></td>

<%end if%>

</tr>

<tr>
<td colspan="2">
<input type="submit" value="Login"></td>

</tr>


</table>
</form>

<%
'se Action ha come valore "enter"...
elseif Action = "enter" then

'creo la variabile User
'con il valore del campo u del form
Dim User
User = request.form("u")

'creo la variabile Pass
'con il valore del campo p del form
Dim Pass
Pass = request.form("p")

'Se User e/o Pass è vuota stampo un errore
if (User = "" or Pass = "") then
response.write "Form incompleto!"
response.end

'in caso contrario procedo alla verifica
else

'Apro la connessione al DB
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&_
Server.MapPath("utenti_sito.mdb")

'Imposto la query ed apro il recordset
Dim Query, Rs
Query = "select * from UTENTI where user = '" & User & "' "&_
"and pass = '" & Pass & "'"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open Query, Conn, 3, 3

'se nessun utente corrisponde stampo un errore
if Rs.EOF then
response.write "Spiacente! Login non corretto"
response.end

'in caso contrario imposto la mia session
'ed effettuo il redirect sulla prima pagina
else
Session("User") = User
Session("Pass") = Pass
Response.Redirect PrimaPagina

end if

'chiudo Rcordset e connessione
Rs.Close
set Rs = Nothing
Conn.Close
Set Conn= Nothing

end if
end if
%>