<% On Error Resume Next myDSN = "DSN=Student;uid=student;pwd=magic" mySQL = "DELETE FROM authors WHERE au_id=200" Set Conn = Server.CreateObject("ADODB.Connection") conn.open myDSN Conn.Execute mySQL,howmany Response.Write "The statement " & mySQL & " deleted " & howmany & " records
" Call ErrorVBScriptReport("Deleting...") Call ErrorADOReport(mySQL,conn) Conn.Close Set conn=Nothing %> The Error trapping library looks like this: <% Sub ErrorVBScriptReport(parm_msg) If Err.number=0 Then Exit Sub End If pad=" " Response.Write "VBScript Errors Occured!
" Response.Write parm_msg & "
" Response.Write pad & "Error Number= #" & Err.number & "
" Response.Write pad & "Error Desc.= " & Err.description & "
" Response.Write pad & "Help Context= " & Err.helpcontext & "
" Response.Write pad & "Help File Path=" & Err.helpfile & "
" Response.Write pad & "Error Source= " & Err.source & "
" End Sub Sub ErrorADOReport(parm_msg,parm_conn) HowManyErrs=parm_conn.errors.count If HowManyErrs=0 Then Exit Sub End If pad=" " Response.Write "ADO Reports these Database Error(s) executing:
" Response.Write SQLstmt & "
" For counter= 0 To HowManyErrs-1 errornum=parm_conn.errors(counter).number errordesc=parm_conn.errors(counter).description Response.Write pad & "Error#=" & errornum & "
" Response.Write pad & "Error description=" Response.Write errordesc & "

" Next End Sub %>