<% '*********************************************************************** ' System : ASPBanner Unlimited ' Author : Christopher Williams of CJWSoft www.CJWSoft.com ' ' COPYRIGHT NOTICE ' ' See attached Software License Agreement ' ' (c) Copyright 2000 - 2003 by CJWSoft. All rights reserved '*********************************************************************** %> <% If Banner_ID <> "" Then %>
<% Set CmdBannerTemp = Server.CreateObject("ADODB.Command") Set CmdEditAd = Server.CreateObject("ADODB.Recordset") CmdBannerTemp.CommandText = "SELECT Banners.* FROM Banners WHERE (Banner_ID = " & Banner_ID & ")" CmdBannerTemp.CommandType = 1 Set CmdBannerTemp.ActiveConnection = ConnBannerSystem CmdEditAd.Open CmdBannerTemp, , 0, 1 %>

<% =CmdEditAd("Banner_Name") %>

<% If CmdEditAd("Banner_Type") = "Image" Then %> " target="_blank"> " src="<% =CmdEditAd("Banner_Image_URL") %>" alt="<% =CmdEditAd("Banner_ALT_Text") %>" <% If CmdEditAd("Banner_Width") <> "" Then %>width="<% =CmdEditAd("Banner_Width") %>" <% End If %> <% If CmdEditAd("Banner_height") <> "" Then %>height="<% =CmdEditAd("Banner_height") %>"<% End If %>> <% If CmdEditAd("Banner_Text_Message") <> "" Then %>
" target="_blank"><% =CmdEditAd("Banner_Text_Message") %>

<% Else %>

<% End If %> <% Else %> <% =CmdEditAd("Banner_HTML_Code") %> <% End If %> <% Start_Date = Request("Start_Date") End_Date = Request("End_Date") If Start_Date = "" or IsDate(Start_Date) = False Then Start_Date = month(NOW - 30) & "/" & day(NOW - 30) & "/" & year(NOW - 30) End If If End_Date = "" or IsDate(End_Date) = False Then End_Date = month(NOW) & "/" & day(NOW) & "/" & year(NOW) End If %>
Start_Date  End_Date
<% Set CmdBannerTemp = Server.CreateObject("ADODB.Command") Set CmdRetrieveImpressions = Server.CreateObject("ADODB.Recordset") If BannerDatabaseType = "SQL" Then CmdBannerTemp.CommandText = "SELECT Banner_Stats.* FROM Banner_Stats WHERE (Banner_ID = " & Banner_ID & ") And (Banner_Day >= '" & Start_Date & "') AND (Banner_Day <= '" & End_Date & "') ORDER BY Banner_Day DESC" ElseIf BannerDatabaseType = "MSACCESS" Then CmdBannerTemp.CommandText = "SELECT Banner_Stats.* FROM Banner_Stats WHERE (Banner_ID = " & Banner_ID & ") And (Banner_Day >= #" & Start_Date & "#) AND (Banner_Day <= #" & End_Date & "#) ORDER BY Banner_Day DESC" End IF CmdBannerTemp.CommandType = 1 Set CmdBannerTemp.ActiveConnection = ConnBannerSystem CmdRetrieveImpressions.Open CmdBannerTemp, , 0, 1 %>
<% If Not CmdRetrieveImpressions.EOF Then %> <% Else %> <% End If %> <% RowCount = 0 %> <% While Not CmdRetrieveImpressions.EOF %> <% If RowCount = 2 Then RowCount = 0 End If If RowCount = 0 Then Cellbgcolor = "#F3F3EB" Else Cellbgcolor = "#FFFFFF" End If RowCount = RowCount + 1 %> <% CmdRetrieveImpressions.MoveNext %> <% Wend %>
Date Impressions Clicks ClickThru
No Stats Available For This Data Range
<% = CmdRetrieveImpressions("Banner_Day") %> <% = CmdRetrieveImpressions("Banner_Impressions") %> <% = CmdRetrieveImpressions("Banner_Clicks") %> <% If CmdRetrieveImpressions("Banner_Impressions") > 0 AND CmdRetrieveImpressions("Banner_Clicks") > 0 then Response.Write(FormatPercent((CmdRetrieveImpressions("Banner_Clicks")/CmdRetrieveImpressions("Banner_Impressions")),1)) %>
<% End If %>