|
|
|
 |
|
|||||||||||||||||||||||||||||||||||||||
|
<%
'# Set the values of some variable
imageStyle = "s2"
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 = 'CXrGVMIU'"
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 = 'CXrGVMIU';"
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 = "![](" & serverPath & "/" & imageStyle & "/endcap_left.gif)
" & counterDisplay & "![](" & serverPath & "/" & imageStyle & "/endcap_right.gif)
"
counterDisplay = "