Our favourite links


We are back! After a slight glitch after being hacked - we now have a new links page - hopefully more secure. Please feel free to Suggest a Link (you will need to log on to do so).

<% If Request.QueryString("categoryid") = "" Then %>

<% Set linkcatRS = Server.CreateObject("ADODB.RecordSet") linkcatSQL= "Select * FROM tblLinkCategory ORDER BY Category ASC;" linkcatRS.Open linkcatSQL, whtConn, 1 Dim Counter Counter = 1 Response.Write "

" Do while NOT linkcatRS.EOF Dim CatID CatID = Chr(34) & linkcatRS("category") & Chr(34) Set countRS = Server.CreateObject("ADODB.RecordSet") countSQL= "Select Count(*) AS Total FROM tblSDLinks WHERE Live = 1 AND CategoryID = " & CatID & " ;" countRS.Open countSQL, whtConn, 1 Response.Write "" Else Response.Write "
" Response.Write linkcatRS("Category") & "" Response.Write "       (" & countRS("Total") & ")" countRS.Close Set countRS = Nothing Set CatID = Nothing linkcatRS.MoveNext If Counter Mod 2 = 0 Then Response.Write "
" End If Counter = Counter+1 Loop Response.Write "
" linkcatRS.Close Set linkcatRS = Nothing %>

<% Else%> <% CatID = Chr(34) & Request.QueryString("categoryid") & Chr(34) Set linksRS = Server.CreateObject("ADODB.RecordSet") linksSQL= "Select * FROM tblSDLinks WHERE Live = 1 AND CategoryID = " & CatID & " ORDER BY LinkVisits DESC;" linksRS.Open LinksSQL, whtConn, 1 Response.Write "

"& Request.QueryString("categoryid") &"

" Do while NOT linksRS.EOF Response.Write "

" Response.Write "" & linksRS("LinkTitle") & " - " Response.Write linksRS("LinkDescription") Response.Write "
Visited "& linksRS("LinkVisits")&" times

" linksRS.MoveNext Loop 'close connections,etc.. linksRS.Close Set linksRS = Nothing %>
<%End If %>