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...