<%
strAccessLevel = session("AccessLevel")
strUserName2 = session("UserName")
' Create a recordset object to store specific table information
Set objrs = Server.CreateObject("ADODB.Recordset")
if strAccessLevel = "1" then
'Establish what records you want selected for the SQL query string
SQL = "Select * From Clients order by BannerName"
else
SQL = "Select * From Clients where (UserName = '" + strUserName2 + "') order by BannerName"
end if
'Set the recordset object equal to the SQL query string
objrs.Open SQL, objADO, 1, 3
%>
VIEW RUNNING BANNER STATISTICS
All running banner statistics are located below.
<%
IF (objRS.EOF) THEN
%>
Currently you do not have banners in our site's rotation.
<%
Else
Do While NOT objRS.EOF
strBannerName = objrs("BannerName")
strCustomerEmail = objrs("CustomerEmail")
strStartDate = objrs("StartDate")
strImgUrl = objrs("ImgUrl")
strLinkTo = objrs("LinkTo")
ClicksNow = objrs("ClicksNow")
ImpNow = objrs("ImpNow")
ImpPur = objrs("ImpPur")
If ClicksNow = "0" OR ImpNow = "0" Then
DoRatio = "-"
Else
DoRatioSub = ClicksNow/(ImpNow/100)
DoRatioSub2 = Round(DoRatioSub,2)
DoRatio = DoRatioSub2 & "%"
End If
ImpLeft = ImpPur - ImpNow
%>
|
<%=objrs("BannerName")%> Statistics  " BORDER=0 ALT="Current Banner">
|
|
Impressions Purchased |
Impressions Used |
Impressions Remaining |
Click-thru's |
Click-thru Ratio |
| <%=ImpPur%> |
<%=ImpNow%> |
<%=ImpLeft%> |
<%=ClicksNow%> |
<%=DoRatio%> |
|
|
<%
objRS.MoveNext
Loop
End If
%>