<%
strId = request("Id")
' Create a recordset object to store specific table information
Set conn = Server.CreateObject("ADODB.Recordset")
'Establish what records you want selected for the SQL query string
SQL = "Select * From Clients where AdId =" & strId
'Set the recordset object equal to the SQL query string
conn.Open SQL, objADO, 1, 3
strBannerName = conn("BannerName")
strCustomerEmail = conn("CustomerEmail")
strStartDate = conn("StartDate")
strImgUrl = conn("ImgUrl")
strLinkTo = conn("LinkTo")
ClicksNow = conn("ClicksNow")
ImpNow = conn("ImpNow")
ImpPur = conn("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
%>
VIEW A BANNER - STEP 2
<% if strWarningErrMsg <> "" then %>
| Error(s):<%= strwarningErrMsg %>
|
<% end if %>
The selected banner is located below.
|
<%=conn("BannerName")%> Statistics  " BORDER=0 ALT="Current Banner">
|
|
Impressions Purchased |
Impressions Used |
Impressions Remaining |
Click-thru's |
Click-thru Ratio |
| <%=ImpPur%> |
<%=ImpNow%> |
<%=ImpLeft%> |
<%=ClicksNow%> |
<%=DoRatio%> |