|
Providing The Best Native American
Entertainment
 We may not
forgive the act perpetrated against us,
but we can forgive
the perpetrator knowing that behind every hurtful act lies a hurting
person.
_____________________________________________________________________
Step lightly with those
you trust. Listen carefully to those you
meet
Mahinto
______________________________________________________________
PLEASE BE SURE AND CHECK OUT ALL OUR PAGES AND
SIGN OUR GUEST BOOK
_____________________________________________________________________
Raven
Hawk Productions
&
Spirit Wind
Records
Greetings
Well here we are going into a new year. For
the past five (7) years we have given
the Silver Arrow Award
too many people for their achievements
within the Native American community.
_____________________________________________________________________
_____________________________________________________________________
AND SO IT
GOES
Photo Taken on Route 25 Southhold
New York
_____________________________________________________________________
You Are Visitor
Number
<%
'# Set the values of some variable
imageStyle = "s4"
serverPath = "http://plugins.websitecomplete.com/wsc_images"
'set shell = createobject("wscript.shell")
'set env = shell.environment("process")
'systemroot = env("systemroot")
'DataSource = "FileFileDSN=c:\winnt\system32\dsn\plugins.dsn=" & systemroot & "\system32\dsn\plugins.dsn"
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 = 'bi2ZEOgr'"
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 = 'bi2ZEOgr';"
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 & "![](" & 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 %>
Thank
You
_____________________________________________________________________
Website
By
This Website
©1998-2010 Dream Wave Designs
Website Hosted by
Godaddy
<
| 
