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