<% If Banner_ID <> "" Then %>

<% Set cmdTemp = Server.CreateObject("ADODB.Command") Set CmdEditAd = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT Banners.* FROM Banners WHERE (Banner_ID = " & Banner_ID & ")" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = ConnPasswords CmdEditAd.Open cmdTemp, , 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 %> <% Set cmdTemp = Server.CreateObject("ADODB.Command") Set CmdRetrieveImpressions = Server.CreateObject("ADODB.Recordset") If BannerDatabaseType = "SQL" Then cmdTemp.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 cmdTemp.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 cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = ConnPasswords CmdRetrieveImpressions.Open cmdTemp, , 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 %>