<% Dim theComponent(21) Dim theComponentName(21) 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" theComponent(21) = "ADODB.Stream" 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" theComponentName(21) = "ADODB.Stream" Function IsObjInstalled(strClassString) on error resume next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 on error goto 0 End Function %> E-mail Component Test <% Dim i for i=0 to UBound(theComponent) %> <% next %>

E-mail komponenttest
The following components are installed
<%= theComponentName(i) %> <% if Not IsObjInstalled(theComponent(i)) then Response.Write("Not installed") else Response.Write("Installed!") end if %>