Posted to
Classic ASP
by
newdev01
on
06-13-2009, 3:12 AM
Dim dbCon, sql, trandate, rsBatch, selectBatch, strconn
Set dbCon = Server.CreateObject("ADODB.Connection")
dbCon.open Session("strConn")
dbCon.BeginTrans
Set rsBatch = server.createobject("ADODB.Recordset")
rsBatch.ActiveConnection = dbCon
rsBatch.LockType = adLockOptimistic
rsBatch.CursorLocation = ...