Recupero ultimo ID inserito

[orcim]

ciao sto cercando di utilizzare @@IDENTITY, con lo script di weppos, per recuperare l'ultimo id inserito ma niente.. ma restituisce sempre 0...

strSQL = "select @@identity FROM FORUM_MESSAGES"
set objRs = Server.createObject("ADODB.recordset")
objRs.open strsql, sConnString, 1, 3
if not objRs.eof then
idrecordinserito = objRs(0)
end if
Response.Write idrecordinserito
objRs.Close
set objRs = nothing