Create table myTable (ID int identity( 1 , 1 ), S varchar( 100 ))

-- одним единственным запросом
	insert myTable ( S ) values ('0123456789')
	select @@IDENTITY [ID]
-- можно получить значение ID вставленной строки

<%@ Language=VBScript %>
<%
...
Dim strSQL, sConn, oSQL, rSQL, ID

sConn = "Provider=SQLOLEDB;" & _
	"Data Source=myBase;" & _
        "Initial Catalog=myCatalog;" & _
        "Timeout=0;" & _
        "Integrated Security=SSPI;"

Set oSQL = CreateObject("ADODB.Connection")
oSQL.CommandTimeout =  0 
oSQL.ConnectionTimeout =  0 

oSQL.Open sConn


strSQL = "insert myTable ( S ) values ('0123456789') " & _
	  "select @@IDENTITY [ID]"

Set rSQL = oSQL.Execute(strSQL)
ID = rSQL("ID")		' выдает ошибку
' ADODB.Recordset: Item cannot be found in the collection
'    corresponding to the requested name or ordinal
' и oSQL.Errors.count  = 0 
' и rSQL.Fiellds.Count = 0


' следующий дополнительный запрос 
	rSQL = oSQL.Execute("select @@IDENTITY [ID]")
	ID = rSQL("ID")
' возвращает NULL		' 
' и oSQL.Errors.count  = 0 
' и rSQL.Fiellds.Count = 1	'!!!


' следующий дополнительный запрос 
	rSQL = oSQL.Execute("select max(ID) ID from myTable")
	ID = rSQL("ID")
' возвращает значение ID	'!
' и oSQL.Errors.count  = 0 
' и rSQL.Fiellds.Count = 1	'!!!

oSQL.Close
...
%>

insert into ... output inserted.id, inserted.s ...