Memorizzare id su campo diverso

[[trodat]]

Ciao, non riesco a far "scrivere" l'id di un nuovo utente registrato, nel campo utente_id della tabella codici, dove sbaglio?:

strConn="driver={Microsoft Access Driver (*.mdb)}; " 
		strConn=strConn & " DBQ=" & Server.MapPath("users.mdb") 
		strConn=strConn & ";pwd=" & strCodedb

		Conn.Open (strConn)
		strSql = "SELECT * FROM codici WHERE userName='"&strUser&"'"
		Set rs = Server.CreateObject("ADODB.Recordset")

		rs.Open strSql, conn ,3,3		

		'Controllo il recordset
		if rs.eof then
			rs.addnew
				rs(1)=strUser
				rs(2)=cripta(strCode1,Key)
				rs(3)=strMail
				rs("utente_id")=rs("id")
				
				
			rs.update

[99eros9]

utente_id e id sono campi della stessa tabella??

[[trodat]]

Originariamente inviato da 99eros9
utente_id e id sono campi della stessa tabella??

si sono campi della stessa tabella...

[99eros9]

Che tipo di errore ottieni? (perdonami ma io di solito faccio tutto direttamente nella query sql).

[[trodat]]

Originariamente inviato da 99eros9
Che tipo di errore ottieni? (perdonami ma io di solito faccio tutto direttamente nella query sql).

nessun errore, non scrive il valore nel campo in cui lo richiedo...

[[trodat]]

sto provando anche così, ma passa sempre zeo come ultimo record inserito:

Set Conn=Server.CreateObject("ADODB.Connection") 
		strConn="driver={Microsoft Access Driver (*.mdb)}; " 
		strConn=strConn & " DBQ=" & Server.MapPath("users.mdb") 
		strConn=strConn & ";pwd=" & strCodedb
		Conn.Open (strConn)
		strSql = "SELECT * FROM codici WHERE userName='"&strUser&"'"
				
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open strSql, conn, 3, 3		

		if rs.eof then
		
sSQL = "select @@identity FROM codici"
set objRs = Server.createObject("ADODB.recordset")
objRs.open sSQL, Conn, 1, 3
if not objRs.eof then
idrecordinserito = objRs(0)
end if
objRs.Close
set objRs = nothing
	
			rs.addnew
				rs(1)=strUser
				rs(2)=cripta(strCode1,Key)
				rs(3)=strMail
				rs("utente_id")=idrecordinserito
				rs("unita_id")=strCT
			rs.update
			
zSQL = "insert into tUtenti_Unita (utente_id, unita_id) values ("&idrecordinserito&", "&strCT&")"
conn.Execute(zSQL)