<%@ LANGUAGE="VBSCRIPT" %> <% '*********************************************************************** ' 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 '*********************************************************************** %> <% CHECKFOR = "Admin" %> <% =App_Name %> Stats Window
  
 
<% Banner_ID = Request("Banner_ID") TotalImpressions = Request("TotalImpressions") TotalClicks = Request("TotalClicks") %> <% 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") %>

Total Impressions <% =TotalImpressions %>
Total Clicks <% =TotalClicks %>
Total Clickthru <% If TotalImpressions > 0 AND TotalClicks > 0 then Response.Write(FormatPercent((TotalClicks/TotalImpressions),1)) %>

<% 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 - 7) & "/" & day(NOW - 7) & "/" & year(NOW - 7) Start_Date = InternationalDate(NOW - 7) End If If End_Date = "" or IsDate(End_Date) = False Then 'End_Date = month(NOW) & "/" & day(NOW) & "/" & year(NOW) End_Date = InternationalDate(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 >= '" & InternationalDate(Start_Date) & "') AND (Banner_Day <= '" & InternationalDate(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 >= #" & InternationalDate(Start_Date) & "#) AND (Banner_Day <= #" & InternationalDate(End_Date) & "#) ORDER BY Banner_Day DESC" End IF CmdBannerTemp.CommandType = 1 Set CmdBannerTemp.ActiveConnection = ConnBannerSystem CmdRetrieveImpressions.Open CmdBannerTemp, , 1, 3 ArrayDim1Size = CmdRetrieveImpressions.RecordCount-1 ReDim StatsArray(ArrayDim1Size,2) StatsArrayCount = 0 %>
<% 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 Banner_Impressions = CmdRetrieveImpressions("Banner_Impressions") Banner_Clicks = CmdRetrieveImpressions("Banner_Clicks") If CmdRetrieveImpressions("Banner_Impressions") > 0 AND CmdRetrieveImpressions("Banner_Clicks") > 0 then BannerClickThru = (CmdRetrieveImpressions("Banner_Clicks")/CmdRetrieveImpressions("Banner_Impressions")) else BannerClickThru = 1 End If If BannerClickThru < 1 Then BannerClickThru = 1 End If StatsArray(StatsArrayCount, 0) = Cint(Banner_Impressions) StatsArray(StatsArrayCount, 1) = Cint(Banner_Clicks) StatsArray(StatsArrayCount, 2) = FormatNumber(BannerClickThru,1) chartlabelstring = chartlabelstring & CmdRetrieveImpressions("Banner_Day") & "," %> <% StatsArrayCount = StatsArrayCount + 1 CmdRetrieveImpressions.MoveNext Wend %>
Date Impressions Clicks ClickThru
No Stats Available For This Data Range
<% = CmdRetrieveImpressions("Banner_Day") %> <% = Banner_Impressions %> <% = 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 %>
<% chartlabelstring = Left(chartlabelstring,Len(chartlabelstring) - 1) y = Split(chartlabelstring,",") 'y = Array("1","2","3") z = Array("Imp", "Clicks", "CTR%") BarChart StatsArray, y, z, "BgColor:000099;Legend:Y;Dir:F;Show:V;LabelColor:FFFFFF;GridColor:FFFFFF;Caption:CTR " & Start_Date & " THRU " & End_Date %> 		 
 
<% 'Response.Write "array dim1 size = " & Ubound(StatsArray) & "
" 'Response.Write "3 shown chart values shown below
" 'Response.Write StatsArray(0, 0) & "
" 'Response.Write StatsArray(0, 1) & "
" 'Response.Write StatsArray(0, 2) & "
" 'Response.Write StatsArray(1, 0) & "
" 'Response.Write StatsArray(1, 1) & "
" 'Response.Write StatsArray(1, 2) & "
" 'Response.Write StatsArray(2, 0) & "
" 'Response.Write StatsArray(2, 1) & "
" 'Response.Write StatsArray(2, 2) & "
" 'Response.Write "label values = " & chartlabelstring & "
" %>