<%@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 request("action") = "Ban" then frmDomain = trim(request("frmDomain")) if frmDomain = "" then msg = 1 else set dupCheck = mlConn.Execute("SELECT blkID FROM ML_Blocked WHERE blkType = 0 AND blkText = '" & replace(frmDomain, "'", "''") & "'") if NOT dupCheck.EOF then msg = 2 else mlConn.Execute("INSERT INTO ML_Blocked (blkText, blkType, blkAddedDate, blkAddedBy) VALUES ('" & replace(frmDomain, "'", "''") & "',0," & cfgDate & ",'" & replace(Session("svUsername"),"'","''") & "')") response.redirect "banned_view.asp?msg=1" end if end if end if %> <%=ListName%> - Spd E-Letter Administration

Ban a Domain

Adding a domain from this page will block all future attempts of subscribing using the domain you specify. This will not apply to existing subscribers, only to new ones.
<% if msg = 1 then %>

Missing Information

<% elseif msg = 2 then %>

Domain Already Banned

<% end if %>
Domain: email@