<%' Response.Expires = -1000 'Response.ExpiresAbsolute = Now() - 1 'Response.AddHeader "cache-control", "private" 'Response.AddHeader "pragma", "no-cache" strCustomerId = session("CustomerId") strCustomerEmail = session("CustomerEmail") ' Create a recordset object to store specific table information Set objrs = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From Clients where (CustomerId = '" + strCustomerId + "') and (CustomerEmail = '" + strCustomerEmail + "')order by CustomerCompany" 'Set the recordset object equal to the SQL query string objrs.Open SQL, objADO, 1, 3 'FUNCTION TheValue(theVar) 'IF Request("error")<>"" THEN 'TheValue=Request(TheVar) 'ELSE 'TheValue=RS(TheVar) 'END IF 'END FUNCTION 'AdminID = Request("AdminID") 'AdminPass = Request("AdminPass") 'Perform = Request("Action") 'AdminSessionID = Request("9054") 'intSessionID = Session.SessionID %>


WELCOME TO <%= strVarCompany %>
Our advertising rates are very flexible and affordable. Each campaign is designed on a custom per account basis.

VIEW RUNNING BANNER STATISTICS

Your banner statistics are located below.

<% IF (objRS.EOF) THEN %>

There are no advertisers to view!

<% Else Do While NOT objRS.EOF 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("CustomerCompany")%> Banner Statistics

" BORDER=0 height="60" width="422" ALT="Current Banner">

Impressions Purchased	Impressions Used	Impressions Left	Click-thru's	Click-thru Ratio
<%=ImpPur%>	<%=ImpNow%>	<%=ImpLeft%>	<%=ClicksNow%>	<%=DoRatio%>

<% objRS.MoveNext Loop 'objado.Close 'Set objado = Nothing End If %>