<% @ Language="VBScript" %> <% Dim theComponent(7) Dim theComponentName(7) ' the components theComponent(0) = "SMTPsvg.Mailer" theComponent(1) = "Persits.MailSender" theComponent(2) = "SMTPsvg.Mailer" theComponent(3) = "CDONTS.NewMail" theComponent(4) = "CDONTS.NewMail" theComponent(5) = "Geocel.Mailer" theComponent(6) = "Jmail.smtpmail" theComponent(7) = "Jmail.Message" ' the name of the components theComponentName(0) = "ASPMail" theComponentName(1) = "ASPEMail" theComponentName(2) = "ASPQMail" theComponentName(3) = "CDONTS" theComponentName(4) = "Chili!Mail" theComponentName(5) = "GeoCel" theComponentName(6) = "JMail" theComponentName(7) = "Jmail.v4" Function IsObjInstalled(strClassString) On Error Resume Next ' initialize default values IsObjInstalled = False Err = 0 ' testing code Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True ' cleanup Set xTestObj = Nothing Err = 0 End Function %> Email Component Test
<% Dim i For i=0 to UBound(theComponent) Response.Write "" & vbNewline Next %>
Email Component Test
The following components are currently available choices
" & theComponentName(i) & ": " If Not IsObjInstalled(theComponent(i)) Then Response.Write "not installed" Else Response.Write "installed!" End If Response.Write "

Close