Dim conn,rs,SQL,RecsAffected,dt
Set conn=Server.CreateObject("ADODB.Connection")
conn.Mode=adModeRead
conn.ConnectionString = aConnectionString
conn.Open
Set rs =Server.CreateObject("ADODB.Recordset")
rs.open "insert into auto (name,city) values('smo1','vizag1')", conn
rs.open "select IDENT_CURRENT('auto')"
dt=rs(0).value
Response.Write dt
Set rs = Nothing
conn.Close
Set conn = Nothing
Each time the above code is executed one new number is inserted along with the record.