problema con @@identity e access

[Fello]

Ciao a tutti, premetto che ho cercato e rricercato nel forum 3D che potessero risolvere il mio problema ma non ho trovato niente.

Non riesco ad utilizzare con successo @@identity per estrarre l'ultimo record inserito da quell'utente.

mi potete spiegare come fare?
Io i dati li inserisco nel database in questo modo, poi per richiamarli con @@identity come faccio?

<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/nome_DB.mdb")

sql = "SELECT * FROM nome_TAB"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

RS.AddNew

rs.Fields("nome")=nome_mitt
rs.Fields("telefono")=rec_tel
rs.Fields("mail")=mail_mitt
rs.Fields("oggetto")=oggetto
rs.Fields("messaggio")=corpo_mess
rs.Fields("aggiornamenti")=aggiornamento

rs.update

RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing

%>

[optime]

SELECT @@IDENTITY FROM tabella

poi leggi rs(0)

[Fello]

Ok per la sintassi.
Quello che non capisco è questo, il codice che ho postato inserisci i dati nel database, alla fine di quel codice ho una cosa di questo tipo:

<script>
document.location.replace('conferma.asp');
</script>

dove nella pagina conferma.asp mi pèiacerebbe che venissero fuori i dati immessi dall'utente.
Nel mio caso la connessione la devo chiudere come ho postato in precedenza o la devo lasciare aperta e chiudere nella pagina conferma.asp? :master:
Spero di essermi spiegato!

[Fello]

Portroppo non ho ancora risolto il mio problema, ho tamponato con una soluzione temporanea:

rs.Open "select top 1 * from info order by id desc", conn

ma voglio andare fino in fondo alla storia, ma ho letto da qualche parte che @@identity con access non funziona
possibile??

[weppos]

Al contrario, è nata per ASP e SQL Server.

La risposta di optime è corretta.
Se ti serve un esempio completo http://www.weppos.com/asp/script/scr....asp?script=19

[Fello]

Niente da fare , ottengo questo errore:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

Ecco il codice che uso.

nella pagina contatti.html c'è il form che richiama un modulo asp con qusto codice:

<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/pippo.mdb")

sql = "SELECT * FROM pluto"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

RS.AddNew

rs.Fields("nome")=nome_mitt
rs.Fields("telefono")=rec_tel
rs.Fields("mail")=mail_mitt
rs.Fields("oggetto")=oggetto
rs.Fields("messaggio")=corpo_mess
rs.Fields("aggiornamenti")=aggiornamento

rs.update
%>

l'inserimento avviene correttamente.

alla fine del modulo asp
questo codice:

<script>
document.location.replace('conferma.asp');
</script>

mi rimanda ad una pagina di conferma dove vorrei riassumenre i dati appena inseriti.

il codice è questo:

<%

' Creiamo la query con la sintassi @@identity
strSQL = "select @@identity FROM pluto"

' Valorizziamo un recordset
Set objRs = Server.createObject("ADODB.recordset")

' Eseguiamo la query.
' Ricordo che objConn è il nome della connessione attiva
objRs.open strsql, conn, 1, 3

if not objRs.eof then

idrecordinserito = objRs(0)

end if

objRs.Close

Set objRs = nothing

RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing

%>

inizio a non capirci più niente :master:dove sbaglio?
poi per stampare il contenuto come faccio?