It is our goal to reach 100% customer
satisfaction. We
take pride in the quality of our work.Much of our business is
based on customer referrals.We feel that our company’s growth depends on the satisfaction
of our customers.
<%
'# Set the values of some variable
imageStyle = "s1"
serverPath = "http://plugins.websitecomplete.com/wsc_images"
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 = 'fI1Viv3v'"
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 = 'fI1Viv3v';"
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 & ""
next
counterDisplay = "" & counterDisplay & ""
else
counterDisplay = ""
end if
Set oRst = nothing
%><%= counterDisplay %>
![](" & serverPath & "/" & imageStyle & "/" & thisNumber & ".gif)
"
next
counterDisplay = "