I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
GanT
GanT
il 2 novembre 2004 alle 10:56
10 messaggi dal 20 ottobre 2004
www.ilgant.com
Salve ho personalizzato delle pagine del mio sito per ogni utente in modo ke cn login e pwdpossono accedere alla loro pagina personale e rispettive opzioni.
Ma come posso fare a estrarre dal database solo il la id ke riguarda l'utente interessato?
Avevo provato ad estrarre l'id quando l'utente effetuava il login ma nn m va bene.
Sareste gentilissimi ad aiutarmi.
Grazie!
RispondiQuoting
ras78
ras78
il 2 novembre 2004 alle 11:41
3.091 messaggi dal 05 marzo 2001
www.agency.com
Quando esegui la query per controllare se l' utente esiste, basta che, in caso di autenticazione positiva, tu estragga l' ID dalla tabella mettendola semplicemente in una variabile. Es:
set rs=server.createobject("ADODB.Recordset")
set conn=server.createobject("ADODB.Connection")
conn.open tuo_dsn-o-altro
query="SELECT * FROM utenti WHERE ..."
rs.open query,conn,1,2
if not rs.eof then
'utente trovato!
userID=rs("ID") 'ipotizzando che l' id stia nel campo ID
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
"This message was written using 100% recycled electrons"
RispondiQuoting
GanT
GanT
il 2 novembre 2004 alle 13:21
10 messaggi dal 20 ottobre 2004
www.ilgant.com
ho fatto come hai detto ma nela pagina personale dell'utente mi da qst errore:

-------------------------------------------------
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id='.

/admin_user/index.asp, line 16
-------------------------------------------------
il codice d qst pagina è il seguente:
-------------------------------------------------
<%
if session("registrato") <> "sicuro" then
response.redirect("validate.asp?url=index.asp")
else
%>

<%
Dim id1
id1=request.querystring("id")

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/incidentate.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from incidentate where id=" & id1 & "", conn
Do while NOT RS.EOF
%>
-------------------------------------------------

Grazie
Modificato da GanT il 02 novembre 2004 13.21 -
RispondiQuoting
darkox
darkox
il 2 novembre 2004 alle 16:35
844 messaggi dal 27 gennaio 2004
id1 è una stringa quindi va racchiuso tra apici.
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from incidentate where id='" & id1 & "'"
ciao
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.