E-Books and Checklists

Have an organizing project to complete, but just not sure where to start? This is the place for you!

We will provide worksheets, checklists and project plans for various projects that you can select and have sent to you via download.

Please Make Your Selection

" method="POST" id="frmDownload" name="frmDownload">

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

<% 'Either show all categories or only show the one selected 'Temp vars so we know when the sub/headings change Dim cat :cat = "" Dim subcat :subcat = "" Dim subsubcat :subsubcat = "" Dim count :count = 0 %><% objCmdCategory.CommandText = "sp_GetDownloadsByCategoryID" If CategoryID = "all" Then Set objRSCategory = objCmdCategory.Execute ElseIf IsNumeric(CategoryID) Then objCmdCategory.Parameters.Append = objCmdCategory.CreateParameter("@CategoryID",adInteger,adParamInput,,CategoryID) 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%>

<% if objRSCategory("picture") <> "" Then %>

">
<%End If %> <% If objRSCategory("cost") = 0 Then 'Response.write(FormatCurrency(objRSCategory("Cost"))) Response.Write("FREE
") %> ">

<% Else %> <% End If %>

<%= objRSCategory("Title")%>
<%If objRSCategory("description")<> "" Then%> <%= replace(objRSCategory("description"),vbcrlf,"
")%>
<%End If%>

<% objRSCategory.MoveNext Loop %>