Problemas con datos autonumericos

[maygreth]

Hola, aqui esta el código...

## este es el código para insertar un nuevo registro##
conexion()
set rst_in = server.createobject("ADODB.Recordset")
sql = "insert into ordenes (cod_cliente,total,estatus,fecha) values('"&session("id")&"',0,0,'"&fecha&"')"
rst_in.open sql, session("conexion")
on error resume next
if err then
response.Write("error")
end if

## seguidamente este es el código para obtener el numero de registro##

conexion()
set rst_indice = server.createobject("ADODB.Recordset")
sql_indice = "SELECT @@IDENTITY as NewID from ordenes"
rst_indice.open sql_indice, session("conexion")
indice = rst_indice("NewID")
response.Write("indice" &indice)

## solo me imprime un 0 cuando el numero real es otro##
cabe destacar que he probado diferentes sentencias sql, ejemplo

sql_indice = "SELECT @@IDENTITY as NewID"
sql_indice = "SELECT @@IDENTITY as NewID from ordenes"
sql_indice = "SELECT @@IDENTITY from ordenes"
sql_indice = "SELECT @@IDENTITY "

y no he obtenido resultados, agradeceria muchisimo que me puedan ayudar.
Saludos
Ana Azuaje