% 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 %>
<% Do while NOT galleryRS.EOF URL = "gallery/"& galleryRS("URL") Response.Write "" Response.Write "" galleryRS.MoveNext Loop %>
<%
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
%>
Buying your Boat
Financing your Boat
Selling your Boat
Surveying your Boat
Family Sailing
Types of Yacht
Makes of Yacht
Insurance