Login con menu personalizzato

[Iron83]

Ciao ragazzi rieccomi qui a scrivere, ho un problemino con una parte che non ho ben capito.. Ho creato 2 form di registrazione diversi per due categorie di user diverse, ho aggiunto un campo hidden in ambe due che passa alla pagina d'azione un numero, 2 per il primo form e 3 per il secondo (sarebbe il livello per dividere le categorie di utenti e relativi permessi diversi). Quello che non riesco a fare è creare una session dopo il login che faccia restare attiva la loggatura e faccia visualizzare per ambedue le categorie di users menu differenti nella homepage. I menu sarebbero link ipertestuali tipo: Logout - Pannello di controllo. Cambierebbero solo i link di destinazione. Spero di essere stato il + chiaro possibile e che qualche anima pia possa aiutarmi.. Mi sto fondendo eheheh

Pagina d'azione del Login

<%
	' Dichiarazione variabili
	
Session("Id") = "Id"




	dim intTest
		intTest="0"
	' Verifico se manca il nome utente
	if request.form("username")="" or request.form("codice")="" then
		response.redirect "login_agente.asp?Id=1"
	end if

	' Apro il database
	dim strUsername
		strUsername=replace(request.form("username"),"'","''")
	dim strCodice
		strCodice=replace(request.form("codice"),"'","''")
	

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

	strConn="driver={Microsoft Access Driver (*.mdb)}; " 
	strConn=strConn & " DBQ=" & Server.MapPath("../db/db.mdb") 
	strConn=strConn & ";pwd=" & strCode

	Conn.Open strConn
	sql = "SELECT * FROM agenti WHERE username='"&strUsername&"' AND codice='"&strCodice&"' "
	Set rs = Server.CreateObject("ADODB.Recordset")

	rs.Open sql, conn ,3,3
	
	'verifico che esista davvero

	if rs.eof then
		intTest="1"
	else
		intTest="2"
	end if

	'chiudo il database
	rs.Close
	set rs = Nothing
	conn.Close 
	set conn = Nothing
	
	'avvviso ke il nome è già presente
	if intTest="1" then
		response.redirect "login_agente.asp?Id=2"
	else
		response.redirect "pag_risp.asp"
	end if
%>

[Iron83]

Non c'è proprio nessuno che possa aiutarmi?

[Iron83]

Ok risolto da solo La soluzione non è stata difficile, ho inserito la session nella pagina d'azione sopra postata

Session("pannello") = " <a href=logout.asp>Logout"
Response.Write Session("pannello")

Quindi una volta loggati, la pagina d'azione crea la session e rimanda l'utente nella home page.

Nella home page ho inserito

<%
Response.Write Session("pannello")
%>

che permette di visualizzare il menu Pannello di controllo e Logout. Da pannello di controllo si entra nella pagina dedicata a quella categoria di utenti, al contrario una volta cliccato su logout si cancella la session

<%

Session.Abandon
Response.Redirect "index.asp"
%>

si viene poi reindirizzati nella home page dove ovviamente non è più presente il menu personalizzato

Spero sia utile per i noob come me che si sono avvicinati da poco al mondo ASP. Ovviamente se avete una soluzione diversa al problema postate!

[Iron83]

Ciao raga altro problemino, quando l'utente loggato visualizza la session "pannello" e clicca viene rimandato ad una pagina asp generica. Io vorrei che nel link

 Session("pannello") = " <a href=logout.asp>Logout"
Response.Write Session("pannello")

sia presente questa variabile

Id=<%=rs("id")%>

in modo che ogni singolo utente possa visualizzare la propria pagina con i propri dati personali e non una pagina unica con i dati di tutti gli utenti registrati. Se inserisco la variabile e quindi la trasformo così

"<a href=/agenti/pannello_agenti.asp?Id=<%=rs("id")%>>Pannello di controllo</a> <a href=logout.asp>Logout</a>"

non funziona niente ovviamente... L'errore è mio di sicuro, potete aiutarmi? Grazie in anticipo

[Iron83]

Help

[Santino83_02]

che vuol dire che non funziona nulla?

[Iron83]

Ciao Santino intanto ti ringrazio per la risposta, l'errore che mi da in IIS è questo

 Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/cercocasa/agenti/login.asp, line 4, column 71
Session("pannello") = "<a href=../agenti/pannello_agenti.asp?Id=<%=rs("id")
----------------------------------------------------------------------^

[bulletta]

Session("pannello")="<a href=/agenti/pannello_agenti.asp?Id=<%=rs('id')%>>Pannello di controllo</a> <a href=logout.asp>Logout</a>"

Prova cosi'....

[Iron83]

Non funzia

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0409)
Costante String senza terminazione
/cercocasa/agenti/login.asp, line 4, column 71
Session("pannello")="<a href=/agenti/pannello_agenti.asp?Id=<%=rs('id')
----------------------------------------------------------------------^

[bulletta]

Posta il codice, c'e' qualcosa che mi sfugge.
Prova magari anche con:

Session("pannello")="<a href=/agenti/pannello_agenti.asp?Id=" & rs("id") & ">Pannello di controllo</a> <a href=logout.asp>Logout</a>"

anche se cosi' il valore non e' dinamico, ma statico.