Roller Canaries By Paul

 
About UsContact UsServicesSite MapGuestbook
 

 

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 %> Hit Counter since January 10, 2004.

Today is

 

About Us | Contact Us | Services | Site Map | Guestbook

Copyright © 1999 Paul R. Scandlyn. All rights reserved.
Revised: 11/08/06