<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Access = "User" : Nav3 = "1" %> <% on error resume next function IsObjInstalled(strClassString) IsObjInstalled = False err = 0 Dim testObj Set testObj = Server.CreateObject(strClassString) If 0 = err Then IsObjInstalled = True Set testObj = Nothing err = 0 end function function getVBVersion(ScriptEngineMajorVersion, ScriptEngineMinorVersion, ScriptEngineBuildVersion) s = "" s = s & ScriptEngineMajorVersion & "." s = s & ScriptEngineMinorVersion & "." s = s & ScriptEngineBuildVersion getVBVersion = s end function JPWorks = IsObjInstalled("IPWorksASP.POP") Jmail = IsObjInstalled("JMail.POP3") Pop3 = IsObjInstalled("POP3svg.Mailer") VBVersion = getVBVersion(ScriptEngineMajorVersion, ScriptEngineMinorVersion, ScriptEngineBuildVersion) if (ScriptEngineMajorVersion >= 5 AND ScriptEngineMinorVersion >= 5) then VB = true else VB = False %> <%=ListName%> - Spd E-Letter Administration

Bounce Reader Test

 

Available
Component
Extra info
<% if VB then %> Yes <% else %> No <% end if %>
VBScript
Version: <%=VBVersion%>
<% if Pop3 then %> Yes <% else %> No <% end if %>
ASP Pop3
<% if NOT Pop3 then %> Not <% end if %> Installed
<% if JMail then %> Yes <% else %> No <% end if %>
JMail
<% if NOT JMail then %> Not <% end if %> Installed
<% if IPWorks then %> Yes <% else %> No <% end if %>
IPWorks
<% if NOT IPWorks then %> Not <% end if %> Installed


<% if (VB AND (JMail or Pop3 or IPWorks)) then %> YES <% else %> NO <% end if %>
The Spd E-Letter Bounce Reader system
will <% if (VB AND (Jmail or Pop3 or IPWorks)) then %> <% else %> NOT <% end if %> work on this server.

For the Spd E-Letter Bounce Reader to work, you must have either JMail, ASPPop3, or IPWorks POP. It also requires VBScript 5.5+ due to it's use of Regular Expressions.

For more information on the Spd E-Letter, please visit:
http://www.pensaworks.com/prg_spd.asp