<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Access : Access = "User" Dim Nav3 : Nav3 = "2" %> <% if (NOT comCheck(8, debugMode)) then response.redirect "message.asp?msg=50" hexCheckLevel = 3 num = 0 SubscriberID = request("ID") if (request("SubscriberID") <> "") then SubscriberID = request("SubscriberID") if (SubscriberID = "") then response.redirect "message.asp?msg=20" set getInfo = mlConn.Execute("SELECT ML_Lists.ListID AS ListID, * From ML_Subscribers INNER JOIN ML_Lists ON ML_Lists.ListID = ML_Subscribers.ListID WHERE ML_Subscribers.SubscriberID = " & SubscriberID) if (getInfo.EOF) then response.redirect "message.asp?msg=20" if not allowedList(getInfo("ListID"), allowedLists) then response.redirect "message.asp?msg=49" subID = getInfo("SubscriberID") subName = getInfo("Name") subEmail = getInfo("Email") subSubscribed = getDateFromNum(getInfo("SubscribedDate")) subBounces = getInfo("numBounces") if request("action") = "go" then if (request("hexLevel") <> "") then hexLevel = request("hexLevel") else hexLevel = hexLevel hexCheckLevel = hexLevel if (request("hexTimeout") <> "" and IsNumeric(request("hexTimeout"))) then hexTimeout = request("hexTimeout") else hexTimeout = hexTimeout if (request("hexMx") = "1") then hexMx = true else hexMx = false if (request("hexVrfy") = "1") then hexVrfy = true else hexVrfy = false if (request("hexDomainLiterals") = "1") then hexDomainLiterals = true else hexDomainLiterals = false hexMXRecords = "" : hexResponse = "" : hexResponseCode = "" : hexResponseText = "" validate = hexVerifyEmail(subEmail, hexResponse, hexResponseCode, hexResponseText, hexTimeout, hexLevel, hexMx, hexExtraText, hexDomainDot, hexDomainLiterals, hexVrfy, hexMXRecords, emailTest) end if %> <%=ListName%> - Spd E-Letter Administration

Validate Subscriber

Subscriber ID:
 <%=subID%>
Name:
 <%=subName%>
Email Address:
 <%=subEmail%>
Subscribed:
 <%=subSubscribed%>
Total Bounces:
 <%=subBounces%>
Action:
Validation Level:
Timeout:
Require MX Record:
 >
Try VRFY and EXPN:
 >
Disallow domain literals:
 >
<% if request("action") = "go" then %>

Response Information
Confidence Rating:
 <%=hexResponse%> ( <% if hexResponse = 1 then %> Syntax <% elseif (hexResponse = 2) then %> Domain <% elseif (hexResponse = 3) then %> SMTP <% else %> Bad Address <% end if %> ) - More
Error Code:
 <%=hexResponseCode%>
Error:
 <%=hexResponseText%>
MX Records
<% for each rec in hexMxRecords num = num + 1 %> <% next %> <% if num = 0 then %> <% end if %>
Preference Exchange IP Address
<%= rec.Preference %> <%= rec.Exchange %> [ <%= emailTest.AddrToString( rec.Addr ) %> ]
No MX Records
SMTP Session
 
			<%
			data = emailTest.SmtpSession
			data = replace(data, "<", "<")
			data = replace(data, ">", ">")
			response.write data
			%>
For more information on the response details,
please visit the Hexillicon website.

<% end if %>