<% @ Language="VBScript" %> <% Option Explicit %> <% '################################################################################# '## Snitz Forums 2000 v3.4.06 '################################################################################# '## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen, '## Huw Reddick and Richard Kinser '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or (at your option) any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from our support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## manderson@snitz.com '## '################################################################################# Dim theComponent(20) Dim theComponentName(20) '## the components theComponent(0) = "ABMailer.Mailman" theComponent(1) = "Persits.MailSender" theComponent(2) = "SMTPsvg.Mailer" theComponent(3) = "SMTPsvg.Mailer" theComponent(4) = "CDONTS.NewMail" theComponent(5) = "CDONTS.NewMail" theComponent(6) = "CDO.Message" theComponent(7) = "dkQmail.Qmail" theComponent(8) = "Dundas.Mailer" theComponent(9) = "Dundas.Mailer" theComponent(10) = "Innoveda.MailSender" theComponent(11) = "Geocel.Mailer" theComponent(12) = "iismail.iismail.1" theComponent(13) = "Jmail.smtpmail" theComponent(14) = "Jmail.Message" theComponent(15) = "MDUserCom.MDUser" theComponent(16) = "ASPMail.ASPMailCtrl.1" theComponent(17) = "ocxQmail.ocxQmailCtrl.1" theComponent(18) = "SoftArtisans.SMTPMail" theComponent(19) = "SmtpMail.SmtpMail.1" theComponent(20) = "VSEmail.SMTPSendMail" '## the name of the components theComponentName(0) = "ABMailer v2.2+" theComponentName(1) = "ASPEMail" theComponentName(2) = "ASPMail" theComponentName(3) = "ASPQMail" theComponentName(4) = "CDONTS (IIS 3/4/5)" theComponentName(5) = "Chili!Mail (Chili!Soft ASP)" theComponentName(6) = "CDOSYS (IIS 5/5.1/6)" theComponentName(7) = "dkQMail" theComponentName(8) = "Dundas Mail (QuickSend)" theComponentName(9) = "Dundas Mail (SendMail)" theComponentName(10) = "FreeMailSender" theComponentName(11) = "GeoCel" theComponentName(12) = "IISMail" theComponentName(13) = "JMail 3.x" theComponentName(14) = "JMail 4.x" theComponentName(15) = "MDaemon" theComponentName(16) = "OCXMail" theComponentName(17) = "OCXQMail" theComponentName(18) = "SA-Smtp Mail" theComponentName(19) = "SMTP" theComponentName(20) = "VSEmail" 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 on error goto 0 End Function Response.Write "" & vbNewLine & _ vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ "" & vbNewLine & _ vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Dim i for i=0 to UBound(theComponent) Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewline next Response.Write " E-mail Component Test The following components are currently available choices in the latest release of Snitz Forums 2000 " & theComponentName(i) & ":  " if Not IsObjInstalled(theComponent(i)) then Response.Write("not installed") else Response.Write("installed!") end if Response.Write " " & vbNewLine & _ "

" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ vbNewLine & _ "" & vbNewLine %>