Ein beliebtes Problem auf Webservern ist daß bestimmte Komponenten nicht immer installiert sind, oder die Berechtigungen falsch sind. In solchen Fällen schlägt dann
CreateObject fehl, allerdings meistens mit dem Effekt, daß der Benutzer eine mehr oder weniger kryptische Fehlermeldung von ASP präsentiert bekommt.
Um das Ganze zu umgehen, kann man einerseits das
Err Objekt abfragen, allerdings hat die Sache einen Haken: Wenn ich das Objekt in einer Unterfunktion erzeuge, wird das Err Objekt beim Verlassen der Funktion gelöscht, und dann greife ich auf ein nicht existierendes Objekt zu, weil Err keinen Fehler mehr zeigt. In diesem Fall empfiehlt sich die Abfrage auf
Is Nothing, die immer und überall funtioniert: liefert Is Nothing True, dann existiert das Objekt nicht.
Und so sieht das Ganze dann als ASP Code aus:
<%
On Error Resume Next
Dim xObj
Set xObj = CreateObject("Existiert.Sicher.Nicht")
If xObj Is Nothing Then
Response.Write "Das Objekt konnte nicht erstellt werden!"
End If
%>