<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim sErrorMsg Dim rsMenu set connDB = Server.CreateObject("ADODB.Connection") connDB.Open MM_Connection_STRING sqlGetMenu = "SELECT * FROM tblMenu WHERE ShowNavigation=True ORDER BY MenuOrder ASC" Set rsMenu = BuildRS(sqlGetMenu,connDB) rsMenu.Open() sqlGetSubMenu = "SELECT * FROM tblMenu WHERE ShowNavigation=False ORDER BY MenuOrder ASC" Set rsSubMenu = BuildRS(sqlGetSubMenu,connDB) rsSubMenu.Open() set rsSubRanges = Server.CreateObject("ADODB.Recordset") rsSubRanges.ActiveConnection = MM_Connection_STRING rsSubRanges.Source = "SELECT * FROM tblCollections ORDER BY ListOrder ASC" rsSubRanges.CursorType = 3 rsSubRanges.CursorLocation = 2 rsSubRanges.LockType = 3 rsSubRanges.Open() %> Sovereign Showers <% Dim rsContent Set connDB = Server.CreateObject("ADODB.Connection") connDB.Open MM_Connection_STRING set rsContent = BuildRS("SELECT * FROM tblContents WHERE MenuID = 1",connDB) rsContent.Open() if rsContent.EOF then 'if content doesn't exists connDB.Close() set connDB = nothing Response.Redirect("error.asp") end if ContentTitle = rsContent("ContentTitle") Content = rsContent("Content") rsContent.Close() set rsContent = nothing connDB.Close() set connDB = nothing %>

- "" then %><%=rsMenu("PageLink").value%><% else %>/page.asp?MenuID=<%=iCategoryID%><% end if %>"><%=rsMenu("MenuTitle").value%> <% if iCategoryID = 3 then rsSubRanges.Filter = "IncEnclosures = 'True'" iProductType = 1 elseif iCategoryID = 14 then rsSubRanges.Filter = "IncScreens = 'True'" iProductType = 2 elseif iCategoryID = 13 then rsSubRanges.Filter = "IncShowerTrays = 'True'" iProductType = 3 else rsSubRanges.Filter = "CollectionID = 0" end if %> <% if (NOT rsSubRanges.EOF) then %>
  - &ProductType=<%=iProductType%>" title="<%=rsSubRanges("Collection").value%>"><%=rsSubRanges("Collection").value%>
  <% end if %>

Sovereign Sheer Showering Sensation

<%=Content%>