<% '-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Public Sub DisplayCatNav (CatType) CatID = Request.QueryString("catid") sScriptName = Request.ServerVariables("script_name") strMainCatsWindowSize = (request.querystring("MainCats")) if strMainCatsWindowSize <> "" then '#### Set Cookies For Menu Window Response.Cookies(strUniqueID)("MainCatsWindow")=(strMainCatsWindowSize) '#### End of Set Cookies For News Window end if Set objRec = CreateObject("ADODB.Recordset") Set objRec.ActiveConnection = my_Conn objRec.LockType = 2 objRec.Open("SELECT CatID,Template,IMG,Title,CatDesc FROM " & strTablePrefix & "Site_Cats WHERE ParentID = 0 AND " & CatType & "=1 ORDER BY Title ASC;") If objRec.EOF OR objRec.BOF then Response.Write " " Else if (Request.Cookies(strUniqueID)("MainCatsWindow")= "1") then '### Check Cookie For Minimize Status %>

Main Categories

<% i = 1 DO UNTIL objRec.EOF CatDesc = objRec("CatDesc")%> <% i = i + 1 objRec.movenext LOOP %> <% If mLev >= 3 Then %> &cattitle=<%=Server.URLEncode(objRec("Title"))%> &area=<%=objRec("Template")%>" target="_self" onmouseover="javascript:self.status='<%=objRec("Title")%>' ;return true;" onmouseout="javascript:self.status='';return true;"><%=objRec("Title")%> <%= CatDesc %> "" Then Response.Write "Colspan=2" End If%> align="center">&area=<%=Request.QueryString("Area")%>')">Edit Category | <% If mLev = 4 Then %> ')">Delete Category <% End If %> <% End If %> <% objRec.Close Set objRec = Nothing %>

<% else %>

Main Categories

<% end if end if End Sub 'DisplayCatsNav %>