Originariamente inviato da weppos
Usa la sintassi @@IDENTITY .
Se non sai come prova ad usare la ricerca del forum, ci saranno almeno una 30na di post con il codice fatto e finito.
ho scritto così:

codice:
Dim strSQL, objRSIncremento
strSQL = "SELECT @@identity FROM tbl_login"
Set objRSIncremento = Server.CreateObject("ADODB.Recordset")
objRSIncremento.Open strSQL, objConn
AutoIncremento = objRSIncremento(0)
Response.Write AutoIncremento
objRSIncremento.Close
set objRSIncremento = nothing
ma restituisce:
ADODB.Recordset error '800a0e7d'

The connection cannot be used to perform this operation. It is either closed or invalid in this context.