<%=ListName%> - Spd E-Letter Administration

<%@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" %> <%=ListName%> - Spd E-Letter Administration

Import Banned Domains

<% if request("action") = "go" then %>

Please wait while your data is being processed

<% domains = split(request("data"), vbnewline) if ubound(domains) < 0 then %>

No data to import.

<% else for i = 0 to ubound(domains) thisDomain = trim(domains(i)) set dupCheck = mlConn.Execute("SELECT * FROM ML_Blocked WHERE blkText = '" & replace(thisDomain, "'", "''") & "'") if NOT dupCheck.EOF then set dupCheck = nothing %>

<%=thisDomain%>

Error: This Domain is already on the banned list.

<% else set dupCheck = nothing mlConn.Execute("INSERT INTO ML_Blocked (blkText, blkType, blkAddedDate, blkAddedBy) VALUES ('" & replace(thisDomain, "'", "''") & "',0," & cfgDate & ",'" & replace(session("svUsername"),"'","''") & "')") %>

<%=thisDomain%>

This Domain has been added to the banned list.

<% end if next end if %>

If you wish to do another import, click here.

<% else %>

To import banned domains, simply compile your list with each one on a new line.
Paste the data into the field below and hit 'Import'.

<% end if %>