Messaggio in grassetto e numero registrazione.

[ubbicom]

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ì:

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.

[weppos]

La connessione è valorizzata ed aperta?

[ubbicom]

Originariamente inviato da weppos
La connessione è valorizzata ed aperta?

Grazie, mi sei stato di grande aiuto:

Dim strSQL1, objRSIncremento, AutoIncremento
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

Dim objMail, messaggio

messaggio = messaggio & VBcrlf & "Tessera = " & AutoIncremento & " 
"

Buonanotte !!!!