este es el codigo, no mas!.
No me da la lina del error.
* nombre es un campo de tipo char.
Cita: on error resume next
Set Conn = Server.Createobject("ADODB.Connection")
conn.open "bd"
strSQL = "Set Nocount on "
strSQL = strSQL + "insert into TABLA1 (nombre) values ('prueba')"
strSQL = strSQL + " select IdentityInsert=@@identity"
strSQL = strSQL + " set nocount off"
objRS.Open strSQL, Conn
objRS("IdentityInsert")
If Err <> 0 Then
Response.Write "Se ha producido un error: " & Err.Description
End If