Salve a tutti
sono giorni che cerco una soluzione a questo problema e non vi nego che sto impazzendo.
Devo far visualizzare i dati di un utente contenuto in un DB dopo il suo riconoscimento
tramite password. Riesco a far riconoscere l'utente ma non capisco come far visualizzare i suoi dati privati.
Nel DB (Access) ci sono più utenti con relative password. Dopo aver effettuato il riconoscimento reindirizzo l'utente sulla pagina di risposta
ma come posso fare per fargli vedere solo i suoi dati ? (tra tutti quelli relativi ad altri utenti ? )
Questa è la pagina di accesso (che mi funziona perfettamente).

P.S.
Datemi una risposta relativa a questa pagina se è possibile.
GRAZIE per le eventuali risposte.

Accesso.asp
<%
Response.Buffer = True
%>

<! #include file="../adovbs.inc" ->


<%
fMsg = ""
iMsg = ""
loggedin = False

If Request("btnLogin") <> "" Then
ProcessLogin
Else
If Request("btnLogout") <> "" Then
Session("loginemail") = ""
End If
End If

Sub ProcessLogin()

If Request("email") = "" Then
If Request("paswd") = "" Then
Response.Redirect "risposta.asp"
Exit Sub
Else
Response.Redirect "risposta.asp"
Exit Sub
End If
Else
If Request("paswd") = "" Then
Response.Redirect "risposta.asp"
Exit Sub
End If
End If

cnStHol = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("nome_del_DB.mdb")

sql = "SELECT * " & _
"FROM anagrafe " & _
"WHERE (email = '" & Request("email") & "') ; "
Set rstabella = Server.CreateObject("ADODB.Recordset")
rstabella.Open sql, cnStHol, 3, 1

If rstabella.EOF Then
If LCase(Request("newvisitor")) = "y" Then
rstabella.Addnew
rstabella("email") = Request("email")
rstabella("paswd") = Request("paswd")
rstabella.Update
loggedin = True
Else
Response.Redirect "risposta.asp"
End If
Else
If LCase(Request("newvisitor")) = "y" Then
Response.Redirect "risposta.asp"
Else
If Request("paswd") = rstabella("paswd") Then
loggedin = True
Else
Response.Redirect "risposta.asp"
End If
End If
End If
rstabella.Close

If fMsg <> "" Then
Exit Sub
End If

If loggedin Then
Session("loginemail") = Request("email")
If Session("goback") = "" Then
Response.Redirect "pratiche.asp"
Else
Response.redirect "risposta.asp"
End If
End If
End Sub
%%>

<

Ciao Morgana purtroppo non è questo che volevo sapere.
So come far visualizzare i dati contenuti in una tabella, a me serviva visualizzare un dato in mezzo a tanti dati contanuti in un unica tabella.
es.
Nella tabella ci siamo io, tu, tizio, caio, pippo e i nostri dati personali. (compresa la password)

Pippo inserisce la sua password e andrà a visualizzare i suoi dati personali.(il suo record).

Spero di essre stato chiaro.
Ciao Morgana e grazie
Uno SMACK Grandissimo By Anto77

Questo è il codice della pagina di risposta che non mi funziona, o meglio riconosce l'utente con (BENVENUTO & Session("loginemail") ma non mi visualizza i dati.

<%
set cnStHol= server.createobject("adodb.connection")
openstr = "driver={Microsoft Access Driver (*.mdb)};" &_
"dbq=" & Server.MapPath("Nome_del_DB.mdb")
cnStHol.open openstr,"",""
Set rstabella = Server.CreateObject("ADODB.Recordset")

sql = "SELECT anagrafe.cognome, " & _
"anagrafe.nome, " & _
"anagrafe.indirizzo " & _
"FROM anagrafe " & _
"WHERE (email = '" & Request("email") & "') ; "

%>
<%
If Session("loginemail") = "" Then
Response.Write "I suoi dati non sono esatti, ritorni alla pagina di accesso"

Else
Response.Write "BENVENUTO " & Session("loginemail")
End If
%>


Mica ci vuole un Response.Write? Se si come faccio?

Uno SMACKISSIMO da ANTO77 su JUMPY Chat #Napoli

Cia Cia Morgana

Non funziona ora non mi legge nemmeno il log. mi potresti scrivere il codice per intero
forse sbaglio io in qualcosa.
Mi da questo errore:

Type mismatch line/50 che sarebbe:

cnStHol.open openstr,"",""
Ciao e scusami se ti sto scocciando ma è questione di vita e di morte, (forse). :-)
By ANTO77 in Jumpy chat #Napoli