|
 "Committed to Safety & Excellence"
Welcome!! This is the
cyberhome of East Coast Rotor & Wing, Inc. dba: Island City
Aviation. We are "THE" Rotary Wing (Helicopter) Aviation Company
specializing in New Aircraft Delivery (Mirabel, Torrance, etc.),
Ferrying, Inspection, and Appraisal. Anything Helicopter related!!!
We recently have added ferrying within the UK to our list of
services and have an office in London. We have listed various
sites throughout these pages for your enjoyment. If you have
a site with similar interests and would like to be added just
drop us a note. Your comments are appreciated.
Visit out alternate
website at copter.com
*****NOTE***** If the
pictures and text are wacky, you must be using Netscape,
unfortunately this webpage program (Which otherwise is great!)
supports Internet Explorer only!!!!!
Sorry.
<%
'# Set the values of some variable
imageStyle = "s1"
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 = 'gDKHFpuY'"
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 = "" & counterDisplay & ""
else
counterDisplay = ""
end if
Set oRst = nothing
'#update the current value in the database
sqlQuery = "UPDATE hitcounter SET current_value = " & counterNumber & " WHERE pluginID = 'gDKHFpuY';"
DataConn.Execute(sqlQuery)
DataConn.close
Set DataConn = nothing
%><%= counterDisplay %> | 
