Saluti,

ho questo codice:

codice:
Response.Expires = -2
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "private"
Response.CacheControl = "private"

login="si"

If Session("user") = user AND Session("password") = password Then
'# SE L'UTENTE LOGGATO TORNA NELLA PAGINA DI LOGIN, LO LOGGO AL VOLO
	Loggati
	login="no"
End If


If Request.Form("ctrl") = "ok" Then

	If Request.Form("user") = user AND Request.Form("password") = password Then

		Loggati

	Else
	'# QUALCOSA NON VA, DATI SCORRETTI

	Response.write("I dati sono sbagliati.")
	Response.write("Riprova.")

	End If

Else

	If login <> "no" Then

	'# PAGINA DI LOGIN
	Response.write("Inserisci qui i dati")
	Response.write("<form action='' method='post'>User:
")
	Response.write("<input type='text' name='user'>

")
	Response.write("Password:
")
	Response.write("<input type='password' name='password'>
")
	Response.write("<input type='hidden' name='ctrl' value='ok'>
")
	Response.write("<input type='submit' value='Accedi'></form>")

	End If

End If


Sub Loggati()

	'# TUTTO OK, ACCONSENTO L'ACCESSO

	Session("user") = user
	Session("password") = password

	Response.write("Login effettuato. Prova a navigare in queste pagine protette:")
	Response.write("
Pagina 1")
	Response.write("
Pagina 2")
	Response.write("

Ecco invece il Logout")

End Sub
Il file incluso "dati.asp" contiene il richiamo al database per controllare utente e password. Nella stessa tabella che contiene i dati dell'utente, un campo è il Tipo di cliente (utente, responsabile, amministratore).

Quel che vorrei fare è creare un file da includere che, una volta effettuato il login, riconosca, in base al nome utente usato, di che tipo è il cliente e lo reindirizzi alla pagina corretta.

Il codice della pagina redir.asp è il seguente:

codice:
Dim MyDb
MyDB = "../database/shop.mdb"

Dim objConn, objRs
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
objConn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(MyDB)
objRs.Open "SELECT * from customers where user= '%> user <%'", objConn, 3, 3
Ma da un errore. Qualcuno mi saprebbe dire cosa devo modificare?