probblemino...
Io faccio cosi' ma... non funge....
Mi ritorna sempre "0"...


Function GetLastRecordID(strConn, ByRef sError)
' Creiamo la query con la sintassi @@identity
xstrSQL = "SELECT @@identity"
' Valorizziamo un recordset
'stop
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
On Error Resume Next
Set objRs = objConn.Execute (xstrSQL)

if err = 0 then
' Se la query restituisce un valore
if not objRs.eof then
' valorizza la variabile
idrecordinserito = objRs(0)
sError= "ID=["&CStr(idrecordinserito)&"]"
else
sError= "ERR : Qry GetId->Eof<-"
end if

else
sError= "ERRORE GENERICO"
end if


' Chudi il recordset
objRs.Close
' Distruggi l'oggetto
set objRs = nothing
' cHIUDO dBcONNECT
objConn.Close
' Distruggi l'oggetto
set objConn = Nothing
GetLastRecordID =idrecordinserito
End Function