<%= strText_Home %>::<%= strText_RotatorStatistics %>

<% msgNoBanner = "

" & strText_NoBanner & "

" msgBList = "

" & strText_BannerFound msgBList = msgBList & strText_BannerFound1 & "

" uEmail = sq(CryptText(session("user_logged_email" & strSUnique), key, False)) bShow = Request.Form("B2") strSQL = "SELECT " & tablPfx & "Banner.* FROM " & tablPfx & "Banner WHERE email = '" & uEmail & "';" set rsRot = objConn.Execute(strSQL) If rsRot.EOF then Response.Write msgNoBanner Else Do While Not rsRot.EOF If not rsRot.EOF then banner = rsRot(2) URL = rsRot(4) site = rsRot(3) statLocStr = statLocStr & "" If bShow = banner then sbName = banner sbURL = URL sbSite = site sbAlt = rsRot(5) sbStatus = CBool(rsRot(1)) If sbStatus then sbStatus = strText_Active: Else: sbStatus = strText_NotActive: End If sbImpr = CLng(rsRot(8)) sbStart = rsRot(6) sbEnd = rsRot(7) If CDate(sbEnd) - CDate(sbStart) > 9000 then sbEnd = "Never" Else: sbEnd = "" & sbEnd & "" End If sbShow = True End If rsRot.MoveNext End If Loop %>

" & "" & site statLocStr = statLocStr & "
" statLocStr = statLocStr & " " statLocStr = statLocStr & "

<% Response.Write msgBList & statLocStr & "
" %>

<%= strText_Site %> <%= sbSite %> <%= strText_PropertiesStatistics %>

<% Response.Write "

" Response.Write "

" & vbCrLf Response.Write "" Response.Write "" Response.Write "" J = 0 strSQL = "SELECT * FROM " & tablPfx & "Bannerstat WHERE bname='" & sbName & "' ORDER by adate;" Set rsbs = objConn.Execute(strSQL) hits = 0 views = 0 If not rsbs.EOF then Do While Not rsbs.EOF If J mod 2 = 0 then cellColor = "class='evencell'": Else: cellColor = "class='oddcell'" Response.Write "" hits = hits + CLng(rsbs(4)) views = views + CLng(rsbs(3)) J = J + 1 rsbs.MoveNext Loop End If rsbs.close Response.Write "" Response.Write "" Response.Write "" Response.Write "

" & strText_Date & ":	" & strText_Impressions & ":	" & strText_Clicks & ":
" & rsbs(2) & "	" & rsbs(3) & "	" & rsbs(4) & "
" & strText_Total & ":	" & views & "	" & hits & "

" Response.Write "

" & vbCrLf Response.Write "" Response.Write "" Response.Write "" If sbImpr = 0 then Response.Write "" Response.Write "" Else Response.Write "" Response.Write "" End If Response.Write "

" & strText_BannerStatus & ":	" & sbStatus & "
" & strText_BannerURL & ":	" & sbURL & "
" & strText_BannerAltText & ":	" & sbAlt & "
" & strText_CampaignStarted & ":	" & sbStart & "
" & strText_CampaignEnds & ":	" & sbEnd & "
" & strText_ImpressionsRequested & ":	" & sbImpr & "
" & strText_ImpressionsLeft & ":	" & CLng(sbImpr)-CLng(views) & "

" %>