problema con multiutenza Help

[Luis_Cypher]

salve,

ho creato un'area riservata nel mio sito
gestita d aun db di access chiamato "Utenti.mdb" ed all'internoi campi "nomeutente" e "password"
ho poi creato il seguente script
<%
Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form("nome_utente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")

Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("utenti.mdb")
Dim sql
sql = "SELECT ID FROM Utenti WHERE NOMEUTENTE='" &nome_ut&_
"' AND PASSWORD='" &pass& "'"
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("sec.asp")
end if
%>
cosi' facendo sono riuscito ad inirizzare chiunque ne abbia l'accesso ad una pagina riservata.

Adesso avrei bisogno di cambiare il codice per indirizzare ogni utente verso una sua pagina ma non so come fare

esiste un'anima pia' che mi scriva le righe da cambiare,,,se non addirittura i codice per intero^????

vi ringrazio anticipatamente

[Luca Rotella]

Ciao
direi che ti conviene aggiungere un campo nella tabella Utenti in cui memorizzi la sua pagina personale e quando fai il redirect lo mandi li' invece che nella pagina generica...
Se poi il canpo è vuoto continui a spedirlo su riservato.asp

[Luis_Cypher]

perdonami ma sono negato
dici di inserire un campo nel db es: "nome=link" e se il login e' corretot lo mando a quel link
ottima idea ..ma.....
come cavolo modifico sto script??
potresti inserirmi la modifica
???
grazie

[Santino83_02]

una volta aggiunto link nella tabella,

<%
Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form("nome_utente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")

Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("utenti.mdb")
Dim sql
sql = "SELECT ID, link FROM Utenti WHERE NOMEUTENTE='" &nome_ut&_
"' AND PASSWORD='" &pass& "'"
Dim rs
Set rs = cn.Execute(sql)

Dim autenticato,link
if rs.eof then
autenticato = false
else
autenticato = true
link=rs("link")
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

if autenticato = true then
Session("Autenticato") = "OK"
Response.Redirect(link)
else
Response.Redirect("sec.asp")
end if
%>

[Luis_Cypher]

SEI UN GRANDEEEE!!!!

magari adesso sai anche dirmi che stringa devo cambiare e come...per spostar eil db dalla cartella x a quella fornita dal provider..."mdb-database?"

[Santino83_02]

Originariamente inviato da Luis_Cypher
SEI UN GRANDEEEE!!!!

magari adesso sai anche dirmi che stringa devo cambiare e come...per spostar eil db dalla cartella x a quella fornita dal provider..."mdb-database?"

che palle...

connstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/mdb-database/tuodb.mdb")

[Luis_Cypher]

grazie di nuovo non ti chiedo piu' nulla :-)

[Luis_Cypher]

scherzavo ti chiedo un'altra cosa......

dove lo inserisco quel codice?