Galleries:

These are picture galleries with all those pictures that have not made it into a Picture Book. Have a browse around. If you have any information on any of the pictures just fill in the form and we will add it to the page.

All pictures <% Set catinputRS = Server.CreateObject("ADODB.RecordSet") catinputSQL= "Select * FROM tblpicCategory" catinputRS.Open catinputSQL, whtConn, 1 catinputRS.MoveFirst Do while NOT catinputRS.EOF Response.Write " - " & catinputRS("Category") Response.Write "" catinputRS.MoveNext Loop catinputRS.Close Set catinputRS = Nothing %>


Favourite Picture Books:

<% Dim gallerycounter gallerycounter = 1 Set galleryRS = Server.CreateObject("ADODB.RecordSet") gallerySQL= "Select subjectname, SUM(counter) AS total FROM tblSailingPages GROUP BY subjectname ORDER BY total DESC;" galleryRS.Open gallerySQL, whtConn, 1 galleryRS.MoveFirst Do Until gallerycounter = 4 Response.Write "  " Response.Write gallerycounter & "..." Response.Write galleryRS("subjectname") & "  " Response.Write galleryRS("total") & " page views" Response.Write "
" gallerycounter = gallerycounter + 1 galleryRS.MoveNext Loop 'close connections,etc.. galleryRS.Close Set galleryRS = Nothing %>

Guides:

Buying your Boat
Financing your Boat
Selling your Boat
Surveying your Boat
Family Sailing
Types of Yacht
Makes of Yacht
Insurance

Articles:

<% articleRS.MoveFirst Do while NOT articleRS.EOF Response.Write "" Response.Write articleRS("Title") & "
" articleRS.MoveNext Loop %>