area riservata

[omar_17]

ho creato un'area riservata ma adesso vorrei impostarla in modo da indirizzare ogni utente a una sua pagina, senza la possibilità di entrare in quella degli altri
che controllo devo fare? ho provato a inventarmi qualcosa ma con pessimi risultati

questa è la pagina per il login

<%
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("mdb-database/db_area.mdb")
Dim sql
sql = "SELECT ID FROM Utenti WHERE USER='" &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("redt-riservato.asp")
else
  Response.Redirect("redt-area.asp")
end if
%>

[Roby_72]

La pagina deve essere la stessa per tutti.
Dovrai attivare una session che incorpori un elemento distintivo dell'utente (l'id ad esempio) che ti servirà per recuperare le informazioni di ogni utente loggato senza fare una pagina diversa per ciascuno.

Roby

[omar_17]

ehm....e come posso farlo?

[Roby_72]

Studia i concetti di base delle aree riservate che trovi negli script e negli articoli di http://asp.html.it

Roby

[omar_17]

ce l'ho fatta però solo creando delle pagine diverse per ogni utente

[Roby_72]

Se i dati degli utenti sono in una base dati puoi fare tutto con una pagina.
Se le info sono inserite a mano nelle pagine allora... sì: devi fare una pagina per ogni utente.

Roby

[omar_17]

eccolo..trovato un altro problema
se user e password sono giusti tutto ok, ma se sono sbagliati mi da questo errore

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/redt-login.asp, line 17

<%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("mdb-database/db_area.mdb")
Dim sql
sql = "SELECT ID FROM Utenti WHERE USER='" &nome_ut&_
       "' AND PASSWORD='" &pass& "'"
Dim rs
Set rs = cn.Execute(sql)

dim pippo
pippo = rs("id")

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
	if pippo = 1 then
  Session("Autenticato1") = "OK"
  Response.Redirect("redt-riservato1.asp")
  else
  Session("Autenticato2") = "OK"
  response.redirect("redt-riservato2.asp")
  end if
else
  Response.Redirect("redt-area.asp")
end if
%>

[Roby_72]

Dim autenticato
if rs.eof then
  autenticato = false
else
  dim pippo
  pippo = rs("id")
  autenticato = true
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

Roby

[omar_17]

grazie mille