ASP - PALTA MAYO

supongamos que keremos capturar el ultimo registro...

'Aquí es donde se Lockea la Base....
Application.Lock

'Capturamos el último id incrementando en uno...
v_idurl = recupera_ult_idurl(Strsql_02)
v_ultid = clng(v_idurl) + 1
'Completamos el string de la query insert con el id nuevo...
StrSql_01 = StrSql_01 & "" & v_ultid & ") "

'Ejecutamos los objetos...
set setderegistros_01 = conexionBD.execute(StrSql_01)
set setderegistros_01 = nothing

response.write("strsql 1:"&StrSql_01&"<br>")
response.write("-------------------------<br>")
response.write("strsql 2:"&StrSql_02&"<br>")
response.write("-------------------------<br>")
'Y soltamos la Base finalmente...
Application.Unlock

Trata de hacer solo lo justo y necesario al lockear la Base, es decir armar strings de querys y todos eso dejalo fuera...para que de esta manera se demore lo menos posible y se haga de manera "Transaccional"....

Espero que te sirva de algo....