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 "
" 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 " | " Else Response.Write "" End If Counter = Counter+1 Loop Response.Write " |
"
Response.Write "" & linksRS("LinkTitle") & " - "
Response.Write linksRS("LinkDescription")
Response.Write "
Visited "& linksRS("LinkVisits")&" times