<%@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
on error goto 0
server.scripttimeout = 500
mailComponent = request("mailcomponent")
mailServer = request("mailserver")
mailUsername = request("mailusername")
mailPassword = request("mailpassword")
thisPage = mid(request.servervariables("SCRIPT_NAME"), instrrev(request.servervariables("SCRIPT_NAME"), "/") + 1)
searchURL = "http://www.pensaworks.com/support/default.asp?a=5&n=1&NR=25&strSearchDisplay=show&searchtype=any&searchin=all&ST=#SearchText#"
%>
<%=ListName%> - Spd E-Letter Administration
Bounce Reader - Pop3 Tester
This test script will allow you to test the settings to be used with the Spd E-Letter Bounce Reader email account. Please choose the desired component, fill in the server path, username, and password. Any errors encountered will be printed out. Once a connection to the account can be established, the first 50 emails passed back to the script (from email and subject) will be printed out for confirmation.
<%
if request("action") = "go" then
%>
Please wait. This could take a few moments.
<%
response.flush()
mailCount = 0
if mailComponent = "1" then
set mailReader = Server.CreateObject("POP3svg.Mailer")
doIt = showErr(err.number, err.description, err.source, searchURL)
mailReader.RemoteHost = mailServer
mailReader.UserName = mailUsername
mailReader.Password = mailPassword
if bncTempDir <> "" then
mailReader.MailDirectory = bncTempDir
end if
mailReader.OpenPop3
mailCount = mailReader.MessageCount
doIt = showErr(err.number, err.description, err.source, searchURL)
if NOT doIt then
doIt = showErr(err.number, err.description, err.source, searchURL)
end if
elseif mailComponent = "2" then
set mailReader = Server.CreateObject("JMail.POP3")
doIt = showErr(err.number, err.description, err.source, searchURL)
mailReader.Connect mailUsername, mailPassword, mailServer
mailReader.DownloadMessages()
mailCount = mailReader.Count
if NOT doIt then
doIt = showErr(err.number, err.description, err.source, searchURL)
end if
elseif mailComponent = "3" then
set mailReader = Server.CreateObject("IPWorksASP.POP")
doIt = showErr(err.number, err.description, err.source, searchURL)
mailReader.MailServer = mailServer
mailReader.User = mailUsername
mailReader.Password = mailPassword
mailReader.Connect
' mailReader.Action = 1
mailCount = mailReader.MessageCount
mailReader.MaxLines = 20
if NOT doIt then
doIt = showErr(err.number, err.description, err.source, searchURL)
end if
end if
%>
<%
if NOT doIt then
%>
# |
From |
Subject |
<%
if mailCount > 0 then
if (mailCount > 50) then mailCount = 50
for mailIndex = 1 to mailCount
if response.IsClientConnected then
if mailComponent = "1" then
mailReader.Retrieve mailIndex
mailFrom = mailReader.fromAddress
mailSubject = mailReader.Subject
elseif mailComponent = "2" then
Set mailMessage = mailReader.Messages.item(mailIndex)
mailFrom = mailMessage.From
mailSubject = mailMessage.Subject
elseif mailComponent = "3" then
mailReader.MessageNumber = mailIndex
mailReader.Retrieve
mailFrom = mailReader.MessageFrom
mailSubject = mailReader.MessageSubject
end if
%>
<%=mailIndex%> |
<%=server.htmlencode(mailFrom)%> |
<%=server.htmlencode(mailSubject)%> |
<%
response.flush()
end if
next
if mailComponent = "3" then
mailReader.Disconnect
else
mailReader.closePOP3
end if
else
%>
| No e-mails found. |
<%
end if
%>
<%
end if
end if
%>
<%
function showErr(errNumber, errDescription, errSource, searchURL)
on error resume next
if errNumber <> 0 then
showErr = true
if instr(errDescription, "Server.CreateObject Failed~Invalid ProgID") <> 0 then
searchText = errNumber & "+" & server.urlencode("Server.CreateObject Failed Invalid ProgID")
else
searchText = errNumber & "+" & server.urlencode(errDescription)
end if
response.write "
Error:
Error Number: " & errNumber & "
Error Source: " & errSource & "
Error Description: " & errDescription & "
More Info
"
err.clear() : err = 0
else
showErr = false
end if
end function
%>
<%
on error resume next
'=====================
set mailReader = nothing
%>