template

Index :: VBScript :: Debugging-Funktion

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:

Index :: VBScript


template