<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = True %>
<%Option Explicit%>
<%Response.Buffer = True%>
<%
'***********************************************************
'** Copyright Notice **
'** Tassietek - MailerPro **
'** Copyright 2001-2004 Tassietek All Rights Reserved. **
'***********************************************************
'** 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"
'** 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
End If
If Session("Start") = "" Then
Response.Cookies("a") = "ended"
Response.Write""
End If
%>
<%
If Request("list_name") <> "" Then
Dim rsfun, sqlfun, strrecordarray, strselectfield
Set rsfun = conn.execute("Select * From " & tbl_prefix & "listnames Where ID = " & Request("list_name"))
strselectfield = ""
Response.Write""
End If
%>
<%
Dim stri, sql, rs
If Request("action") = "variables" Then
If Request("list_name") = "all_lists" Or Request("list_name") = "no" Then
Response.Write"[email](s) "
Response.Write"[list_name](s) "
Response.Write"[subscribe_date](s) "
Response.Write"[from_ip](s) "
Response.Write"[removal_link]"
Else
sql = "Select * From " & tbl_prefix & "listnames Where ID = " & Request("list_name")
Set rs = conn.execute(sql)
If err <> 0 Then
Response.Write""
err.clear
Response.End
End If
If rs("field_count") = 0 Then
Response.Write"[email](s) "
Response.Write"[list_name](s) "
Response.Write"[subscribe_date](s) "
Response.Write"[from_ip](s) "
Response.Write"[removal_link]"
Else
Response.Write"[email](s) "
Response.Write"[list_name](s) "
Response.Write"[subscribe_date](s) "
Response.Write"[from_ip](s) "
Response.Write"[removal_link] "
For stri = 1 To rs("field_count")
If getfields(Request("list_name"),"type_" & stri) = 2 Or getfields(Request("list_name"),"type_" & stri) = 8 Then
strrecordarray = getfields(Request("list_name"),"field_" & stri)
strrecordarray = split(strrecordarray,",")
Response.Write "[" & Replace(strrecordarray(0), " ", "_") & "]" & "(s) "
Else
Response.Write "[" & Replace(rs("field_" & stri), " ", "_") & "]" & "(s) "
End If
Next
End If
End If
Else
Response.Write"[email](s) "
Response.Write"[list_name](s) "
Response.Write"[subscribe_date](s) "
Response.Write"[from_ip](s) "
Response.Write"[removal_link]"
End If
%>
<%
'** 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
%>