|
Welcome to Roller
Canaries by Paul. If you have any questions while
viewing this web site please feel free to contact us by E-Mail or by
phone. We will make every effort to give you an answer and if unable
to answer your question will try to refer you to someone who will be
able to furnish the information you are seeking.
Please review all the pages
and, hopefully, you will find something of interest to
you.
Roller Canaries with excellent
backgrounds will be available for shipping in the late fall or
winter usually from the middle of November until the middle of
January. Please make contact during that time to check
availability or you may contact me earlier to make a reservation for
birds.
Call Roller Canaries By
Paul at (503) 357-7253 today!
To View a Good Roller
Performing click
HERE.
The above movie requires
either the Microsoft Windows Media Player which may be downloaded
free by clicking
HERE or
the Real One Player which may be downloaded free by clicking
HERE.
Thanks for your visit. You
are visitor number <%
'# Set the values of some variable
imageStyle = "s1"
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 = 'g56rtlVg'"
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 = 'g56rtlVg';"
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 %> since January 10, 2004.
Today is
|