<% Set galleryRS = Server.CreateObject("ADODB.RecordSet") categoryID = Chr(34) & Request.QueryString("category") & Chr(34) If Request.QueryString("category")= "" Then gallerySQL= "Select * FROM tblPictures WHERE active=-1 ORDER BY ID DESC" Else gallerySQL ="Select * FROM tblPictures WHERE Category = " & categoryID & " AND active=-1 ORDER BY ID DESC" End If galleryRS.Open gallerySQL, whtConn, 1 %> <%Response.Write Request.QueryString("category")%> - Pictures of sailing, boating and yachts

<% If Request.QueryString("category") = "" Then Response.Write "All pictures:" Else Response.Write Request.QueryString("category") End If %>

<% Do while NOT galleryRS.EOF URL = "gallery/"& galleryRS("URL") Response.Write "" Response.Write " & Chr(34) & GalleryRS(" galleryRS.MoveNext Loop %>

Favourite Picture Books:

<% Dim gallerycounter gallerycounter = 1 Set galleryRS = Server.CreateObject("ADODB.RecordSet") gallerySQL= "Select subjectname, CAST(SUM(counter) AS SIGNED) 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 %>