Te pongo un ejemplo de como lo uso yo:
Código:
Set cnn = server.CreateObject("ADODB.Connection")
cnn.open tal
bDoes = false
if isObject(cnn) then
set c = cnn.Properties
for each d in c
if instr(d.name,"Transaction DDL") then bDoes = true
next
end if
cnn.Errors.Clear()
on error resume next
' Si permite transacciones
if bDoes then cnn.BeginTrans
cnn.execute strSQL
if cnn.Errors.Count > 0 then
if bDoes then cnn.RollbackTrans
' Uso una clase para el error, pero lo simplifico
For each error in cnn.Errors
response.write "Error: " & error.number & " : " & error.Description & " SQL: (" & error.SQLState & ") " & strSQL & "<br >"
next
response.end
else
- Restaura los errores
on error goto 0
if bDoes then cnn.CommitTrans
end if
Espero que te sirva
Un saludo