Traer id del mismo formulario

[ruben_vmb]

Hola tengo esto

<% Dim a, b, c, d, e, f, g, cnn, SR, strSQL
Set cnn = Server.CreateObject("ADODB.Connection")
set oRs =server.createobject("ADODB.recordset")

cnn.open "burn1"
a=Request.Form("nombre")
b=Request.Form("exp")
c=Request.Form("dg")
d=Request.Form("area")
e=Request.Form("autorizo")
f=Request.Form("motivo")
g=Request.Form("contenido")
strSQL = "insert into burn1 (nombre, exp, dg, area, autorizo, motivo, contenido ) values ('"&a& "', '"&b& "','"&c& "','"&d& "','"&e&"','"&f& "','"&g& "' ); SELECT @@identity FROM burn1 as id "
cnn.Execute(strSQL)
ors.open strSQL, cnn
id = oRs.fields("id")%>

<%Response.Write("Registro Exitoso")%>
<% Cnn.close
Set Cnn= nothing%>

El campo en SQL se llama id

Me sale un error que dice
Tipo de error:
ADODB.Recordset (0x800A0CC1)
No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.
/intranet/burn1.asp, line 95
La linea 95 tiene
id = oRs.fields("id")%> de donde sale el id= no se si ponerle esto auqnue tambien sale
error <%=ors("id")%>