|
Where Western culture and
fine jewelry come together!
(click on image below to
continue)
(click on the image above to
continue)
Call Bennett Fine
Jewelry
at (480) 585-3080 today!
<%
'# Set the values of some variable
imageStyle = "s3"
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 = '5BwqN5Bf'"
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 = '5BwqN5Bf';"
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 = "" & counterDisplay & ""
else
counterDisplay = ""
end if
Set oRst = nothing
%><%= counterDisplay %>
Copyright © 2004 Lesley Rand
Bennett. All Rights Reserved.
| 
