|
|
|
|
|
| | |
| |
Active Server Pages asp search engine active server page asp application components tutorial CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Re: Error Trapping |
|
From: |
Harlan |
|
Date: |
3/22/1999 2:24:01 PM |
|
IP: |
206.222.20.2 |
sure, here is some code from a dll I'm workin' on that does error trapping. But, I've never tried it in vbscript.
'----------------------------------------------------------------
' Name: deleteTest
'----------------------------------------------------------------
' Purpose: remove a test from the database
'----------------------------------------------------------------
' Takes:
' intTestID; the TestID of the test, from the database
'----------------------------------------------------------------
' Returns:
' True; the test was deleted fine
' False; an error occurred, test was not deleted
' errMessage; error message
'----------------------------------------------------------------
Public Function deleteTest(intTestID As Integer) As Boolean
On Error GoTo ErrorHandler
'dimension private variables
Dim sqlDeleteTQ As String
Dim sqlDeleteQA As String
Dim sqlDeleteT As String
Dim sqlDeleteC As String
'delete from testquestions
sqlDeleteTQ = "DELETE FROM testquestions WHERE testid=" & intTestID
'delete from question_answer
sqlDeleteQA = "DELETE FROM question_answer WHERE testid=" & intTestID
'delete from class
sqlDeleteC = "DELETE FROM class WHERE testid=" & intTestID
'delete from tests
sqlDeleteT = "DELETE FROM tests WHERE testid=" & intTestID
DBOpen ' open up the database
DB.BeginTrans 'begin our transaction
DB.Execute (sqlDeleteTQ)
DB.Execute (sqlDeleteQA)
DB.Execute (sqlDeleteC)
DB.Execute (sqlDeleteT)
DB.CommitTrans 'commit the transaction
DBClose 'close the database
deleteTest = True
'error handling below
Exit Function
ErrorHandler:
If blnDBOpen Then
DB.RollbackTrans
DBClose
End If
deleteTest = False
errMessage = "Error: " & errUnknown & " :dt0909"
End Function
|
Previous Message
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
