Links

Select a category from the list below.

There are numerous web sites and articles available on organizing. We have selected a few links that we believe will be quite helpful based on topic.

Have a suggestion for something you'd like to see? Tell us your idea by clicking here.

<% 'Grab active categories Dim counter : counter = 0 objCmdCategory.CommandText = "sp_GetLinksByCategoryID" 'objCmdCategory.Parameters.Append = objCmdCategory.CreateParameter("@CategoryID",adInteger,adParamInput) 'objCmdCategory.Parameters("@CategoryID") = int(CategoryID) Set objRSCategory = objCmdCategory.Execute 'Temp vars so we know when the sub/headings change Dim cat :cat = "" Dim subcat :subcat = "" Dim subsubcat :subsubcat = "" Dim count :count = 0 %><% If CategoryID = "all" Then Set objRSCategory = objCmdCategory.Execute ElseIf IsNumeric(CategoryID) Then objCmdCategory.Parameters.Append = objCmdCategory.CreateParameter("@CategoryID",adInteger,adParamInput,,int(CategoryID)) Set objRSCategory = objCmdCategory.Execute Else objCmdCategory.Parameters.Append = objCmdCategory.CreateParameter("@CategoryID",adInteger,adParamInput,,-5) Set objRSCategory = objCmdCategory.Execute End If Do While NOT objRSCategory.EOF 'Watch for Categories to Change If(cat <> objRSCategory("Category")) Then count = count + 1 cat = objRSCategory("Category") If ( count>1 ) Then %>

<%End If%> ">

<%=cat%>

<% End If 'Watch For Sub Categories to change If(subcat <> objRSCategory("SubCategory")) Then subcat = objRSCategory("SubCategory") %>

"><%=subcat%>

<% End If 'Change in SubSubCategorie If(subsubcat <> objRSCategory("SubSubCategory")) Then subsubcat = objRSCategory("SubSubCategory") %>">

<%=subsubcat%>

<%End If%>

"><%=objRSCategory("Name")%>

<%If (objRSCategory("description") <> "") Then%> <%=replace(objRSCategory("description"),vbcrlf,"
")%> <%End If%> <%If (objRSCategory("link_to_review") <> "") Then%> " >Link to review <%End If%>

<% objRSCategory.MoveNext Loop %>