template
Wenn der Webdesigner wenig Erfahrung mit VBScript oder ASP hat, fällt es oft schwer, Fehlerquellen ausfindig zu machen - gerade beim Umgang mit ActiveX-Objekten.
Zumindest in der Entwicklungsphase lohnt sich eine systematische Fehlerüberwachung mithilfe einer eigenen Ausgabefunktion:
Function ErrorBreak(sMsg)
'sMsg: auszugebende Meldung
'falls Fehler vorliegt: zeigt Msgbox und liefert True
'falls kein Fehler vorliegt: liefert False
ErrorBreak = False
If CBool(Err.Number) Then
Msgbox "ERR: " & sMsg & Chr(13) & Chr(10) & "[" & Err.Number & "] " & Err.Description
ErrorBreak = True
End If
End Function
Hier ein Beispiel, wie man sie einsetzen könnte:
Sub blabla()
On Error Resume Next
Err.Clear
' ... Aktion 1 ...
If ErrorBreak("1") Then Exit Sub
' ... Aktion 2 ...
If ErrorBreak("2") Then Exit Sub
' ... Aktion 3 ...
If ErrorBreak("3") Then Exit Sub
End Sub
Folgende Anweisungen sollten am Anfang der zu prüfenden Sub/Funktion stehen:
- On Error Resume Next um im Fehlerfalle den nachfolgenden Code (Aufruf von ErrorBreak()) weiterhin auszuführen.
- Err.Clear um einen evtl. bereits bestehenden Fehlerstatus zurückzusetzen.
template |
|