<%@language=vbscript%>
<%
Option Explicit
Response.Expires = -1000
Dim rsLinks, strGetLinks
Dim rsLinkCats, strGetLinkCats
Dim memoFixDesc, rsLinkMemo, strGetLinkMemo
%>
Vancouver Physiotherapy - Jericho Sports and Orthopaedic Physio Therapy in Vancouver, BC, Canada
<%
Set rsLinks = Server.CreateObject("ADODB.Recordset")
strGetLinks = "SELECT LinkID, LinkText, LinkHref, LinkCategoryID FROM tblLinks GROUP BY LinkCategoryID, LinkText, LinkHref, LinkDesc, LinkID ORDER BY LinkCategoryID"
rsLinks.Open strGetLinks, oConn, 3
Set rsLinkCats = Server.CreateObject("ADODB.Recordset")
strGetLinkCats = "SELECT DISTINCT (l.LinkCategoryID) AS LinkCategoryID, c.LinkCategory FROM tblLinks AS l INNER JOIN tblLinkCategory AS c ON l.LinkCategoryID = c.LinkCategoryID ORDER BY l.LinkCategoryID"
rsLinkCats.Open strGetLinkCats, oConn, 3
%>
<% pageName = "links" %>
Links
<%
Dim cntHeaders, tempCatID
cntHeaders = 0
Do While NOT rsLinkCats.EOF
%>
<%
If cntHeaders > 0 Then
%>
<%
End If
%>
<%=rsLinkCats("LinkCategory")%>
<%
tempCatID = rsLinkCats("LinkCategoryID")
%>
<%
Do While NOT rsLinks.EOF
Set rsLinkMemo = Server.CreateObject("ADODB.Recordset")
strGetLinkMemo = "SELECT LinkDesc FROM tblLinks WHERE LinkID = " & rsLinks("LinkID") & ""
rsLinkMemo.Open strGetLinkMemo, oConn, 3
memoFixDesc = rsLinkMemo("LinkDesc")
If tempCatID = rsLinks("LinkCategoryID") Then
%>