<%=Session("SiteName")%> - Email Tracking

<%@ 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 strmypage Dim strpagesize Dim straction Dim strnumpages Dim strnumrecs Dim stralpha_search Dim stri Dim strx Dim strlb Dim strub Dim strtotal Dim strold Dim stremailArray Dim strtrackingname Dim strlistname Dim strsentdate Dim stremailssent Dim strlistid Dim strlist '** 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") If Request("action") = "delete" Then conn.execute "Delete From " & tbl_prefix & "tracking_lists Where tracking_name = '" & Request("tracking_name") & "'", , adExecuteNoRecords If err <> 0 Then Response.Write"" err.clear Response.End End If conn.execute "Delete From " & tbl_prefix & "tracking Where tracking_name = '" & Request("tracking_name") & "'", , adExecuteNoRecords If err <> 0 Then Response.Write"" err.clear Response.End End If Response.Cookies("deleted") = "Tracking List " & Request("tracking_name") & " as been Deleted" Response.Redirect"tracking.asp" End If %> <%=Session("SiteName")%> - Email Tracking

MailerPro Administration

Send Email Options

Tracking Options

','tracking.asp');" CLASS="NavOff" ; nowrap> Online Help

Email Tracking

<%=Request.Cookies("deleted")%><%Response.Cookies("deleted")=""%>

<% If Request("action") = "yes" Then If Request("strlist") = "" Then Response.Redirect"tracking.asp" End If strlist = Request("strlist") '** CREATING CONNECTION TO DATABASE TRACKING 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 sql = "Select * From " & tbl_prefix & "tracking Where tracking_name = '" &strlist & "' Order By ID DESC" 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 If strmypage > strnumpages Then strmypage = strnumpages If strmypage < 1 Then strmypage = 1 rs.AbsolutePage = strmypage on error goto 0 %>

Tracking Name:	<%=trackingfields(strlist,"tracking_name")%>
List Name:	<%=getlistname(trackingfields(strlist,"listID"))%>
Email Sent:	<%=trackingfields(strlist,"emails_sent")%>
Date Sent:	<%=trackingfields(strlist,"sent_date")%>
Opened:	<%=FormatNumber(strnumrecs,0)%>

Page <%=strmypage%> of <%=strnumpages%>

Email

Opened

Email

Opened

<% Dim strcount strcount = 0 For stri=1 To strpagesize If Not rs.EOF Then If strcount = 0 Then %> <% strcount = 1 Elseif strcount = 1 Then %> <% strcount = 0 End If rs.MoveNext End If Next rs.Close Set rs = nothing %>

<%=rs("email")%>

<%=DisplayDate(rs("opened"))%>

<%=rs("email")%>

<%=DisplayDate(rs("opened"))%>

<% If Not strnumpages = 1 And Not strmypage = 1 Then%> <%End If%>	<% If strnumpages > 1 And Not strmypage = strnumpages Then%> <%End If%>
Goto Page

<%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 %>