Ciao!...stó cercando di realizzare una sessione riservata ai soli utenti registrati.
-Per cominciare ho creato un database(con Access)
-poi ho inserito il form nella index.asp
<FORM ACTION="login.asp" METHOD="POST">
<TABLE width="340" height="147" BORDER=0 ALIGN=CENTER bordercolor="#FFFF00" BGCOLOR=#FFFF00>
<TR BGCOLOR=#EE00F8>
<TD WIDTH=150 height="36" ALIGN=CENTER bgcolor="#99CCFF"> <div align="center"><font size="3" face="Comic Sans MS">NOME
UTENTE</font></div></td>
<TD width="150" bgcolor="#FFCCFF">
<INPUT TYPE=TEXT NAME="NomeUtente" SIZE=20>
</td>
</TR>
<TR BGCOLOR=#EEEEEE>
<TD WIDTH=150 height="31" ALIGN=CENTER bgcolor="#99CCFF"> <div align="center"><font size="3" face="Comic Sans MS">PASSWORD</font></div></td>
<TD bgcolor="#FFCCFF">
<INPUT TYPE=PASSWORD NAME="password" SIZE=20>
</TD>
</TR>
<TR BGCOLOR=#EEEEEE>
<TR BGCOLOR=#EEEEEE>
<TD WIDTH=150 height="36" ALIGN=CENTER bgcolor="#99CCFF"><font face="Comic Sans MS">Indirizzo
eMail</font></td>
<TD bgcolor="#FFCCFF">
<INPUT TYPE=TEXT NAME="Indirizzo_email" SIZE=30>
</td>
</TR>
<TD HEIGHT=30 COLSPAN=2 ALIGN=CENTER>
<INPUT TYPE=SUBMIT NAME="show" VALUE="LOGIN">
</TD>
</TR>
</TABLE>
<p> </p>
</FORM>
Lo script contenuto nella pagina login.asp,alla quale é indirizzato il contenuto del form,é il seguente :
<%
Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form("NomeUtente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("mdb-database/dbuten.mdb")
Dim sql
sql = "SELECT IDutente FROM Utenti WHERE NomeUtente='" &NomeUtente&_
"' AND password='" &password& "'"
Dim rs
Set rs = cn.Execute(sql)
Dim autenticato
if rs.eof then
autenticato = false
else
autenticato = true
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
if autenticato = true then
Session("Autenticato") = "OK"
Response.Redirect("riservato.asp")
else
Response.Redirect("index.asp")
end if
%>
esiste poi il file riservato.asp (pagina a cui dovrebbe in teoria accedere l'utente autenticato).
Il problema é che quando arrivo a compilare il form e ad inviarne il contenuto anziché rimandarmi alla index(se non autenticato) o alla riservato.asp(se autenticato) mi dice che si verifica un errore interno del server e non trova la pagina...
...dovrebbe essere tutto giusto,anche perché non é farina del mio sacco, io ho solo adattato un tutorial trovato su aspcode.it alle mie esigenze diciamo.
Se poteste in qualche modo aiutarmi ve ne sarei molto grata.
a presto
-Per cominciare ho creato un database(con Access)
-poi ho inserito il form nella index.asp
<FORM ACTION="login.asp" METHOD="POST">
<TABLE width="340" height="147" BORDER=0 ALIGN=CENTER bordercolor="#FFFF00" BGCOLOR=#FFFF00>
<TR BGCOLOR=#EE00F8>
<TD WIDTH=150 height="36" ALIGN=CENTER bgcolor="#99CCFF"> <div align="center"><font size="3" face="Comic Sans MS">NOME
UTENTE</font></div></td>
<TD width="150" bgcolor="#FFCCFF">
<INPUT TYPE=TEXT NAME="NomeUtente" SIZE=20>
</td>
</TR>
<TR BGCOLOR=#EEEEEE>
<TD WIDTH=150 height="31" ALIGN=CENTER bgcolor="#99CCFF"> <div align="center"><font size="3" face="Comic Sans MS">PASSWORD</font></div></td>
<TD bgcolor="#FFCCFF">
<INPUT TYPE=PASSWORD NAME="password" SIZE=20>
</TD>
</TR>
<TR BGCOLOR=#EEEEEE>
<TR BGCOLOR=#EEEEEE>
<TD WIDTH=150 height="36" ALIGN=CENTER bgcolor="#99CCFF"><font face="Comic Sans MS">Indirizzo
eMail</font></td>
<TD bgcolor="#FFCCFF">
<INPUT TYPE=TEXT NAME="Indirizzo_email" SIZE=30>
</td>
</TR>
<TD HEIGHT=30 COLSPAN=2 ALIGN=CENTER>
<INPUT TYPE=SUBMIT NAME="show" VALUE="LOGIN">
</TD>
</TR>
</TABLE>
<p> </p>
</FORM>
Lo script contenuto nella pagina login.asp,alla quale é indirizzato il contenuto del form,é il seguente :
<%
Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form("NomeUtente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("mdb-database/dbuten.mdb")
Dim sql
sql = "SELECT IDutente FROM Utenti WHERE NomeUtente='" &NomeUtente&_
"' AND password='" &password& "'"
Dim rs
Set rs = cn.Execute(sql)
Dim autenticato
if rs.eof then
autenticato = false
else
autenticato = true
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
if autenticato = true then
Session("Autenticato") = "OK"
Response.Redirect("riservato.asp")
else
Response.Redirect("index.asp")
end if
%>
esiste poi il file riservato.asp (pagina a cui dovrebbe in teoria accedere l'utente autenticato).
Il problema é che quando arrivo a compilare il form e ad inviarne il contenuto anziché rimandarmi alla index(se non autenticato) o alla riservato.asp(se autenticato) mi dice che si verifica un errore interno del server e non trova la pagina...
...dovrebbe essere tutto giusto,anche perché non é farina del mio sacco, io ho solo adattato un tutorial trovato su aspcode.it alle mie esigenze diciamo.
Se poteste in qualche modo aiutarmi ve ne sarei molto grata.





a presto