Ciao a tutti,
mi serviva una login in asp e visto che se ne vedono di tutti i colori vi propongo quella che ho fatto per me da esempi già noti, ma priva di bug... testata da notti insonni!!!.
Si compone di un form in htm <i>amministra.htm</i> che raccoglie user e password e le manda ad <i>amministra.asp</i> che le verifica con quelle inserite su db.

<code>&lt;html&gt;

&lt;head&gt;
&lt;title&gt;Amministra&lt;/title&gt;
&lt;/head&gt;

&lt;body&gt;

&lt;form method="POST" action="amministra.asp"&gt;
&lt;div align="center"&gt;&lt;table border="0" width="760"&gt;
&lt;tr&gt;
&lt;td align="right" width="283"&gt;User&lt;/td&gt;
&lt;td align="left" width="469"&gt;&lt;input type="text" name="login" size="30"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td align="right" width="283"&gt;Password&lt;/td&gt;
&lt;td align="left" width="469"&gt;&lt;input type="password" name="password" size="30"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;dd&gt;&lt;input type="submit" value="Entra"&gt; &lt;input type="reset" value="Ricomincia"&gt; &lt;/dd&gt;
&lt;/div&gt;
&lt;/form&gt;
&lt;/body&gt;
&lt;/html&gt;</code>



<code>&lt;%Response.Buffer = True%&gt;
&lt;html&gt;

&lt;head&gt;
&lt;title&gt;Pagina del risultato&lt;/title&gt;
&lt;/head&gt;
&lt;%

user_form = request.form("user")
password_form = request.form ("password")
dim conn
dim rs

Set conn = Server.CreateObject("ADODB.Connection")

Set rs = Server.CreateObject ("ADODB.Recordset")

conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=" & Server.MapPath("cartella/db.mdb")


SQL = " Select * From tbl_login " &_
" Where login like '" & user_form & "' "

rs.Open SQL, conn,1,2

if not rs.BOF then

Do While not rs.EOF

response.redirect("amministra.htm")
rs.movenext
loop

else

session("login") = True
response.redirect("ufficio.asp")
end if
rs.close
conn.close
set rs = nothing
set conn = nothing
%&gt;

&lt;body&gt;
&lt;/body&gt;
&lt;/html&gt;</code>

la variabile session mi assicura che l?utente dispone del permesso inserendo nel global.asa

<code>Sub Session_OnStart
Session("login") = False
End Sub</code>


ed in ogni pagina protetta

<code>&lt;%
If Session("login") then
'fai tutto quello che la tua pagina deve fare
else
'Mi dispiace ma qui non ci puoi entrare
end if
%&gt;</code>

Ciao di nuovo e buon divertimento

Antrax

webmaster www.fiso.it/veneto