<% @ Language="VBScript" %> <% Option Explicit %> <% Dim theComponent(9) Dim theComponentName(9) Dim theotherComponent(2) Dim theotherComponentName(2) ' the components theComponent(0) = "SMTPsvg.Mailer" theComponent(1) = "Persits.MailSender" theComponent(2) = "SMTPsvg.Mailer" theComponent(3) = "CDONTS.NewMail" theComponent(4) = "CDONTS.NewMail" theComponent(5) = "dkQmail.Qmail" theComponent(6) = "Geocel.Mailer" theComponent(7) = "iismail.iismail.1" theComponent(8) = "Jmail.smtpmail" theComponent(9) = "SmtpMail.SmtpMail.1" 'the other components theotherComponent(0) = "ASPMail.ASPMailCtrl.1" theotherComponent(1) = "ocxQmail.ocxQmailCtrl.1" theotherComponent(2) = "SoftArtisans.SMTPMail" ' the name of the components theComponentName(0) = "ASPMail" theComponentName(1) = "ASPEMail" theComponentName(2) = "ASPQMail" theComponentName(3) = "CDONTS" theComponentName(4) = "Chili!Mail" theComponentName(5) = "dkQMail" theComponentName(6) = "GeoCel" theComponentName(7) = "IISMail" theComponentName(8) = "JMail" theComponentName(9) = "SMTP" 'the name of the other components theotherComponentName(0) = "OCXMail" theotherComponentName(1) = "OCXQMail" theotherComponentName(2) = "SA-Smtp Mail" 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 %>

<% Dim i For i=0 to UBound(theComponent) Response.Write "" & vbNewline Next %> Email Component Test The following components are currently available choices in the latest release of Macshinco Forums " & theComponentName(i) & ":  " If Not IsObjInstalled(theComponent(i)) Then Response.Write "not installed" Else Response.Write "installed!" End If Response.Write "

<% Dim j For j=0 to UBound(theotherComponent) Response.Write "" & vbNewline Next %> Email Component Test The following components are not currently available choices in the latest release of Macshinco Forums but mods are available to add them. " & theotherComponentName(j) & ":  " If Not IsObjInstalled(theotherComponent(j)) Then Response.Write "not installed" Else Response.Write "installed!" End If Response.Write "