|
Have You
BeanThere?
Welcome To Our World, "St.
Louis Coffee World." Our company is dedicated to providing the
best and freshest coffee. We have a history of roasting coffee for
23 years and serving the best gourmet drinks to valued friends.
Visit one of our locations and become part of our "St. Louis Coffee
World."
www.STLCoffeeRoasters.com
800-677-JAVA (5282)
Our Visitors Keep Coming!
<%
'# Set the values of some variable
imageStyle = "s1"
serverPath = "//plugins.websitecomplete.com/wsc_images"
protocol = "http:"
If ucase(Request.ServerVariables("HTTPS")) = "ON" Then protocol="https:"
DataSource = "FileDSN=c:\winnt\system32\dsn\plugins.dsn"
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open DataSource
'# grab all their records to see what they have to offer
sqlQuery = "SELECT current_value FROM hitcounter WHERE pluginID = 'iFtZR6VX'"
Set oRst = DataConn.Execute(sqlQuery)
if not oRst.eof then
counterNumber = CLng(oRst("current_value"))
if Session("Counted") = "" then
counterNumber = counterNumber + 1
'#update the current value in the database
sqlQuery = "UPDATE hitcounter SET current_value = " & counterNumber & " WHERE pluginID = 'iFtZR6VX';"
DataConn.Execute(sqlQuery)
DataConn.close
Set DataConn = nothing
Session("Counted") = true
end if
counterNumber = "0000000000" & counterNumber
counterNumber = right(counterNumber,8)
counterDisplay = ""
howLong = len(counterNumber)
for i=1 to howLong
thisNumber = mid(counterNumber,i,1)
counterDisplay = counterDisplay & "![](" & protocol & serverPath & "/" & imageStyle & "/" & thisNumber & ".gif) "
next
counterDisplay = "" & counterDisplay & ""
else
counterDisplay = ""
end if
Set oRst = nothing
%><%= counterDisplay %> | 
