|
<%
Dim sDSN, sSQL, sConn, sRS
Dim iImpressions
sDSN = "SQL_MemphisFlyer"
' generate a random number 1-10
randomize
randomnum=int(rnd*9)+1
sSQL = "SELECT BannerURL, BannerLOC, Impressions FROM Banners WHERE BannerID = " & randomnum
Set sConn = Server.CreateObject("ADODB.Connection")
sConn.Open sDSN
Set sRS = Server.CreateObject("ADODB.RecordSet")
sRS.Open sSQL, sConn, 3, 3
If sRS("BannerURL") = "" Then
Response.Write("![](" & sRS("BannerLOC") & ") ")
Else
Response.Write("")
End If
iImpressions = sRS("Impressions")
sRS.Close
'Update the database for Impressions
sSQL = "UPDATE Banners SET Impressions = " & (cInt(iImpressions) - 1) & " WHERE BannerID=" & randomnum
Set sRS = Server.CreateObject("ADODB.RecordSet")
sRS.Open sSQL, sConn, 3, 3
%>
|
![[This Week's Issue]](../images/thisweek.jpg)
OUR 582nd ISSUE
![[News & Opinion]](../images/news_opn.jpg){kind=small}
