|
Empowering
Business
Empowering business is about
designing strategies that enable growth and success.
Creating strategic solutions that work from a business' core
competencies. Finding unique strengths and developing them
into growth and success opportunities. Creating
a sustainable start for start-ups.
Every business has unique strengths and
competencies--we know, it's the first thing that we look for.
And we use that information to build plans for growth,
marketing, e-business and e-commerce that capitalize on those
competencies. For more detailed information about the range of
services we offer, go to our 'Services' page.
Are you using Internet-enabled customer
service strategies? Read our latest article to learn
how to effectively utilize technology as a component of your
customer service strategy and read our review of one company that
provides superior customer service.
Strategix Group
info@strategixgroup.net
tel/fax (480) 894-1675
Copyright (C)
2001-2004 by Strategix Group. All Rights
Reserved.
<%
'# 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 = 'Zcv3FtXF'"
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 = 'Zcv3FtXF';"
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 %> |