Accesso area privata

[Nik]

:byebye:

Ho un database che contiene username e password di un certo numero di iscritti, tra cui anche il mio, l'amministratore. Ho realizzato un form per poter effettuare il login. Ogni utente registrato accede alla propria area privata, dove può soltanto leggere i suoi dati (la sua scheda personale). Se effettuo il login l'amministratore, deve andare in un'altra area privata, dove può modificare, creare e cancellare. Come faccio a fare tutto nello stesso codice?? :crying: Mi sono confusa con gli if ed else!

<%
if Request("azione") = "OK" Then
username = Request("username")
password = Request("password")
username2 = Replace(Request.Form("username"), "'", "''")
password2 = Replace(Request.Form("password"), "'", "''")



Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\xxx\xxx\xxx\xxx\xxx.mdb"

Sql = "SELECT * FROM dati WHERE nick = '"& username2 &"' AND pass = '"& password2 &"' "


Set Rs=conn.execute(sql)

if Rs.EOF Then

Response.Redirect("accessono.html")

else

Session("username") = username

Response.Redirect("privata.asp")
End IF
else

%>

Questo è il codice che decide tutto al momento del login. Se l'username inserito dall'utente è uguale a uno all'interno del database, allora accede all'area privata. Per poter accedere ognuno nel proprio spazio e visualizzare solo le cose personali, cosa dovrei mettere nel Response.Redirect?

 

[lukeonweb]

Immagina che crei la sessione Session("username") che valorizzi come "pippo" che saresti tu.

Nelle pagine private scriverai:

<%
If Session("username") = "pippo" Then
' MOSTRI I LINK CHE PUOI VISUALIZZARE SOLO TU
End If
%>

Le pagine protette generiche riporteranno, all'inizio, il controllo:

<%
If Session("username") = "" Then
Response.End
End If
%>

giusto?

Bene, le tue da amministratore avranno questo controllo:

<%
If Session("username") <> "pippo" Then
Response.End
End If
%>

Fammi sapere se sono stato chiaro e se hai risolto il problema!