<%@ Language=JavaScript %> <% Response.Expires = -1 %> <%=strTitle%>
St. Peter's
Marina
<%=strBanner%>
   
<%=strLinks%>

St Peter's Marina
St Peter's Basin
Newcastle upon Tyne
NE6 1HX
T: 0191 265 4472
F: 0191 276 2618
<%=strBody%> <% try { var Resources = Server.CreateObject("ADODB.Recordset"); var strSQL = "SELECT HRef, Title, Category FROM tblLinks GROUP BY Category, HRef, Title ORDER BY Category"; Resources.Open(strSQL, oConnection); if (!Resources.BOF) { var strCategory = "@"; var bFirstRow = true; while (!Resources.EOF) { if (strCategory != Resources("Category").Value) { if (!bFirstRow) { %> <% } bFirstRow = false; strCategory=Resources("Category").Value; %> <% } %> <% Resources.MoveNext(); } %> <% } else { %> <% } Resources.Close(); } catch(exception) { Response.Write(exception.description); } %>