Interrogare db access

[seifter]

Ciao a tutti
Ho un problemino:
Devo recuperare dei dati da una tabella e visualizzarli nella pagina personale dell'utente,il codice di prova è:

<% Option Explicit %> 
 
 
<% 
Dim id_sessione  
Dim objRS  
Dim sql  
id_sessione = session("S_username")  
sql = "Select * FROM tab_utenti WHERE Username=" & id_sessione  
objRS.open sql ,Conn, 1, 3   
response.write objRS("Email")
response.end  
%>  
<%  
objRs.Close  
Set objRs = Nothing  
Conn.Close  
Set Conn = Nothing  
%>

Dovrebbe scrivermi la mail estratta dal db in base al valore di session che memorizza al login ma non lo fà
Ho provato seguendo altri post a stampare la stringa sql e il risultato è:

Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''
/www.incontrigratis.net/datiutente.asp, line 12

dove la linea 12 è:

objRS.open sql ,Conn, 1, 3

se inverto le linee in questo modo:

response.write(sql)
response.end
objRS.open sql ,Conn, 1, 3

Ottengo la stringa

Select * FROM tab_utenti WHERE Username=Seifter2
Dove Seifter2 è il valore di session
La connessione al db funziona,la tabella contiene i campi che interrogo ma non funziona!
Non riesco ad uscirne!!!!!
Help

[santino83]

set objRS= server.createObject("adodb.recordset")

objRS.open sql,Conn,1,3

[seifter]

<%  
Dim id_sessione  
Dim objRS  
Dim sql  
id_sessione = session("S_username")  
sql = "Select * FROM tab_utenti WHERE Username=" & id_sessione  
set objRS= server.createObject("adodb.recordset")   
objRS.open sql,Conn,1,3  
response.write objRS("Email")  
response.end  %>

mi restituisce:
Microsoft JET Database Engine (0x80040E10)
Nessun valore specificato per alcuni parametri necessari.
/www.incontrigratis.net/datiutente.asp, line 14

Dove la linea 14 è:
response.write objRS("Email")

Ma il campo email esiste nel DB!!
Nella pagina di registrazione lo uso:
objRS("Email") = request.Form("email")
Com'è possibile che non lo trova dopo????

[seifter]

Ci sono arrivato,se dovesse servire a qualcuno il codice esatto è:

<%  
Dim id_sessione  
Dim objRS  
Dim sql  
id_sessione = session("S_username")  
sql = "Select * FROM tab_utenti WHERE Username = '"&id_sessione &"'" 
set objRS= server.createObject("adodb.recordset")   
objRS.open sql,Conn,1,3  
response.write objRS("Email")  
response.end  
%>

Mancavano gli apici!!!

[maximum]

Lo sospettavo.

Username in genere è una stringa.