|
Welcome to Skydive Skyranch
Free Fly Capital
of the Midwest
Arkansas'
Premier Drop Zone
Located at the junction of
Hwy's 412 and AR 59 North in Siloam Springs,
Arkansas.
We are open every weekend 9
a.m. until dark weather permitting.
Home of the
"Arkansas Traveler" King Air
See Calendar Page or Call
for dates and rates!
First Jump Classes Every Weekend
- Tandem or Solo
Call Skyranch at (888) 456-JUMP
today!
We have 2 Cessna 182 Jump
Aircraft available every weekend.
<%
'# Set the values of some variable
imageStyle = "s7"
serverPath = "http://addons.websitecomplete.com/plugins/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 = 'exFAh3Lt'"
Set oRst = DataConn.Execute(sqlQuery)
if not oRst.eof then
counterNumber = CLng(oRst("current_value")) + 1
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
'#update the current value in the database
sqlQuery = "UPDATE hitcounter SET current_value = " & counterNumber & " WHERE pluginID = 'exFAh3Lt';"
DataConn.Execute(sqlQuery)
DataConn.close
Set DataConn = nothing
%><%= counterDisplay %> |
|
|
| | 
