<%@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 (IsNumeric(request("ID"))) then blkID = CInt(request("ID")) else response.redirect "banned_view.asp?msg=2" set getDomain = mlConn.Execute("SELECT * FROM ML_Blocked WHERE blkID = " & blkID) if (getDomain.EOF) then response.redirect "message.asp?msg=20" if request("action") = "Unban" then if (strDBType = "access") then delHeader = " *" else delHeader = "" del = delCommand("DELETE" & delHeader & " FROM ML_Blocked WHERE blkID = " & blkID, ELetter_String) response.redirect "banned_view.asp?msg=3" end if %> <%=ListName%> - Spd E-Letter Administration

Delete Banned Domain

Banned Domain :
 <%=getDomain("blkText")%>
Added:
 <%=getDateFromNum(getDomain("blkAddedDate"))%>
Added By:
 <%=getDomain("blkAddedBy")%>
">