<%@ Language=VBScript %> <%Option Explicit%> <% Dim PageName PageName = "Catalogue" %> <% Dim Category, SubCategory, CategoryHeader, CategoryMessage Dim PageCategory, PageSubCategory If Request.Cookies("SessionID") = "" Then Response.Cookies("SessionID") = Session.SessionID Category = Trim(Request("Category")) SubCategory = Trim(Request("SubCategory")) If Category = "" Then Set Conn = Nothing Response.Redirect "catalogue.asp" End If Conn.open strConn strSQL = "SELECT DISTINCT Category.Category " strSQL = strSQL & "FROM Category INNER JOIN Product ON Category.Category = Product.Category " strSQL = strSQL & "WHERE Category.Category = " & FormatSQLText(Category) & " " strSQL = strSQL & "AND Product.Published <> 0" Set RS = Server.CreateObject("ADODB.Recordset") Set RS.ActiveConnection = Conn RS.Open strSQL If RS.EOF Then Set RS = Nothing Set Conn = Nothing Response.Redirect "catalogue.asp" End If Set RS = Nothing PageCategory = Split(Category, " - ")(0) If Ubound(Split(Category, " - ")) = 1 Then PageSubCategory = Split(Category, " - ")(1) %>

Catalogue > <%=PageCategory%> <% strSQL = "SELECT CategoryHeader, CategoryMessage FROM Category WHERE Category = " & FormatSQLText(Category) & " " strSQL = strSQL & "AND (CategoryHeader IS NOT Null OR CategoryMessage IS NOT Null) " Set RS = Server.CreateObject("ADODB.Recordset") Set RS.ActiveConnection = Conn RS.Open strSQL If Not RS.EOF Then %><% CategoryHeader = RS("CategoryHeader") If CategoryHeader <> "" Then %><% End If CategoryMessage = RS("CategoryMessage") If CategoryMessage <> "" Then %><% End If %> <%=Replace(CategoryHeader, vbCrLf, " ")%> <%=Replace(CategoryMessage, vbCrLf, " ")%> <% End If Set RS = Nothing %> Select <%=PageCategory%> category below: <% strSQL = "SELECT Category FROM Category " strSQL = strSQL & "WHERE Category In (SELECT DISTINCT Category FROM Product WHERE Published <> 0) " strSQL = strSQL & "AND Category.Category LIKE '" & Replace(PageCategory,"'","''") & " - %' " strSQL = strSQL & "ORDER BY Category.CategoryOrder, Category.Category " Set RS = Server.CreateObject("ADODB.Recordset") Set RS.ActiveConnection = Conn RS.Open strSQL While Not RS.EOF PageSubCategory = Split(RS("Category"), " - ")(1) %> <% RS.MoveNext Wend Set RS = Nothing %> • &SubCategory=<%=Server.URLEncode(PageSubCategory)%>"><%=PageSubCategory%>

<%Set Conn = Nothing%>