<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = True %> <%Option Explicit%> <%Response.Buffer = True%> <% '** PREVENT PAGE FROM BEING CACHED Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" '*********************************************************** '** Copyright Notice ** '** Tassietek - MailerPro ** '** Copyright 2001-2004 Tassietek All Rights Reserved. ** '*********************************************************** If Request.Cookies("login") = "" Then Response.Cookies("action") = "error" Response.Write("") Response.End Elseif Request.Cookies("login") = "3" Then Response.Write("") End If If Session("Start") = "" Then Response.Cookies("a") = "ended" Response.Write"" End If %> <% '** VARIABLES Dim strsort Dim rs Dim sql '** DELETE SELECTED EMAIL OR DOMAIN If Request("action") = "delete" Then conn.execute"Delete From " & tbl_prefix & "banned Where ID = " & Request("ID"), ,adExecuteNoRecords If err <> 0 Then Response.Write"" err.clear Response.End End If End If strsort = "listID" If Request("action") = "sort" Then strsort = Request("fld_sort") End If %>

Sort By - - - - - List Type

<% '** OPEN DATABASE TABLE BANNED AND DISPLAY RECORDS Set rs = conn.execute("SELECT * FROM " & tbl_prefix & "banned Order By " & strsort & " DESC",adOpenForwardOnly,adLockReadOnly) If err <> 0 Then Response.Write"" err.clear Response.End End If If rs.EOF Then Response.Write"No Email or Domains have been Banned." Else Do While Not rs.EOF %>

<%=rs("banned")%>

<% If rs("type") = 1 Then %>Email<% Else %>Domain<% End If%>

<% If rs("listID") = "all_lists" Then %>All Lists<% Else %><%=getlistname(rs("listID"))%><% End If %>

','<%=rs("banned")%>','<% If rs("listID") = "all_lists" Then %>All Lists<% Else %><%=getlistname(rs("listID"))%><% End If %>','<% If rs("type") = 1 Then %>Email<% Else %>Domain<% End If %>');">

<% rs.MoveNext Loop End If rs.close Set rs = nothing %> <% '** ASSURING THAT ALL DATABASE CONNECTIONS ARE CLOSED On Error Resume Next rs.close Set rs = nothing rsfun.close Set rsfun = nothing conn.close Set conn = nothing on error goto 0 %>