<%@LANGUAGE="VBSCRIPT"%> <% Page_Title = "Links" %> <% '********************************* Recordsets **********************************' %> <% Dim Link_Set__MMColParam Link_Set__MMColParam = "all" If (Request.QueryString("category") <> "") Then Link_Set__MMColParam = Request.QueryString("category") End If %> <% Dim Link_Set Dim Link_Set_numRows Set Link_Set = Server.CreateObject("ADODB.Recordset") Link_Set.ActiveConnection = MM_DATA_STRING Link_Set.Source = "SELECT Link.*, LinkGroup.LinkGroupTitle FROM LinkGroup INNER JOIN Link ON LinkGroup.LinkGroupID = Link.LinkGroupID WHERE Link.LinkGroupID LIKE '" + Replace(Link_Set__MMColParam, "'", "''") + "' OR 'all' = '" + Replace(Link_Set__MMColParam, "'", "''") + "' ORDER BY LinkGroup.LinkGroupSortOrder, LinkGroup.LinkGroupTitle, Link.LinkSortOrder, Link.LinkTitle" Link_Set.CursorType = 0 Link_Set.CursorLocation = 2 Link_Set.LockType = 1 Link_Set.Open() Link_Set_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Link_Set_numRows = Link_Set_numRows + Repeat1__numRows %> <%=Website_Name%> - <%=Page_Title%>

Links

 
<% If Not Link_Set.EOF Or Not Link_Set.BOF Then %> <% prevcategory = -1 %> <% While ((Repeat1__numRows <> 0) AND (NOT Link_Set.EOF)) %> <% If CInt(Link_Set.Fields.Item("LinkGroupID").Value) <> prevcategory Then %> <% If prevcategory <> -1 Then %> <% Response.Write("") %>

<% End If %>

<%=(Link_Set.Fields.Item("LinkGroupTitle").Value)%>

<% Response.Write("") %>

<% End If ' end Not Link_Set.EOF Or NOT Link_Set.BOF %> <% If Link_Set.EOF And Link_Set.BOF Then %>

Sorry, We have no links at the moment

<% End If ' end Link_Set.EOF And Link_Set.BOF %>

<% Link_Set.Close() Set Link_Set = Nothing %>