<%@ 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. **
'***********************************************************
'** CHECKING TO SEE IF LOGGED IN IF NOT TAKE YOU TO THE LOGIN PAGE
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.Redirect"login.asp?logoff=1"
End If
'** VARIABLES
Dim rs
Dim sql
Dim strwhichlist
Dim strunverifiedcount
Dim strverifiedcount
Dim strmypage
Dim strpagesize
Dim straction
Dim stralphabet
Dim strnumpages
Dim strnumrecs
Dim stralpha_search
Dim stri
Dim strx
Dim strlb
Dim strub
Dim strtotal
Dim strold
Dim stremailArray
'** DELETE SUBSCRIBER RECORDS
If Request("action_delete") = "delete" Then
Set rs = conn.execute("SELECT * FROM " & tbl_prefix & Request("which"))
If err <> 0 Then
Response.Write""
err.clear
Response.End
End If
For each stremailArray in Request("chkID")
If Not rs.EOF Then
conn.execute("Delete From " & tbl_prefix & Request("which") & " WHERE ID = " & stremailArray)
If err <> 0 Then
Response.Write""
err.clear
Response.End
End If
End If
Next
rs.close
Set rs = nothing
End If
sql = "Select * From " & tbl_prefix & "listnames Order By ID DESC"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn,3,3
If Not rs.EOF Then
strwhichlist = rs("ID")
Else
Response.Cookies("nolist") = "You have no Lists, must create a List!"
Response.Redirect"create_lists.asp"
Response.End
End If
rs.Close
Set rs = nothing
If Request("which") <> "" Then
strwhichlist = Request("which")
End If
'** SETTING PAGE NUMBER AND SIZE
strmypage = CInt(Request("page"))
If strmypage=0 Then strmypage=1
strpagesize = CInt( Request("recs") )
If strpagesize = 0 Then strpagesize = Session("Records")
'** CREATING CONNECTION TO DATABASE EMAIL TABLE
Set rs = Server.CreateObject("ADODB.RecordSet")
If err <> 0 Then
Response.Write""
err.clear
Response.End
End If
rs.PageSize = strpagesize
rs.CacheSize = strpagesize
rs.CursorLocation = adUseClient
'** SEARCH RECORDS
sql = "SELECT * FROM " & tbl_prefix & strwhichlist & " ORDER BY edate DESC"
Select Case Request("action")
Case "do_search"
If Request("fldfield") = "edate" Then
sql = "Select * From " & tbl_prefix & strwhichlist & " Where " & Request("fldfield") & " Between " & FormatDatabaseDate(Request("term") & " 00:00:00") & " And " & FormatDatabaseDate(Request("term") & " 23:59:59")
straction = "do_search"
Else
sql = "SELECT * FROM " & tbl_prefix & strwhichlist & " Where " & Request("fldfield") & " Like '%" & Request("term") & "%' ORDER BY edate DESC"
straction = "do_search"
End If
Case "showit"
sql = "SELECT * FROM " & tbl_prefix & strwhichlist & " ORDER BY edate DESC"
straction = "showit"
Case "alphasearch"
straction = "alphasearch"
stralpha_search = Request("alpha_search")
If Len(Request("alpha_search")) = 1 Then
sql = "SELECT * FROM " & tbl_prefix & strwhichlist & " Where email Like '" & Request("alpha_search") & "%' ORDER BY edate DESC"
Elseif Request("alpha_search") = "all" Then
sql = "SELECT * FROM " & tbl_prefix & strwhichlist & " ORDER BY edate DESC"
Elseif Request("alpha_search") = "nonalphabet" Then
Dim alphabet
sql = "SELECT * FROM " & tbl_prefix & strwhichlist & " WHERE email Not Like 'a%'"
for alphabet = 98 to 122
sql = sql & " AND email Not Like '" & chr(alphabet) & "%'"
next
sql = sql & " ORDER BY edate DESC"
Else
sql = "SELECT * FROM " & tbl_prefix & strwhichlist & " ORDER BY edate DESC"
End If
End Select
'** OPENING EMAIL DATABSE TABLE
rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly, adCmdText
If err <> 0 Then
Response.Write""
err.clear
Response.End
End If
strnumpages = rs.PageCount
strnumrecs = rs.RecordCount
%>
<%=Session("SiteName")%> - View Subscribers
Page <%=strmypage%> of <%=strnumpages%> of
<%=FormatNumber(strnumrecs,0)%> record/s found
in <%=getlistname(strwhichlist)%>. <%If Not rs.EOF Then%><%End If%>
Email
Subscribe Date
From IP
Check Box's to Delete List Records
<%
'rs.close
Set rs = nothing
%>
User [<%=Request.Cookies("user")%>]
Powered by <%=version%>
<%
'** 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
%>
<%End If%>