<% DIM sql, RS sql = "SELECT PROJECT_CATEGORY,PROJECT_URL,PROJECT_SEC_CAT, PROJECT_CAT_TITLE FROM PROJECT where DISP_PROJ ='Y' and PROJECT_CATEGORY='Woodworking & Workshops' ORDER BY PROJECT_CAT_TITLE" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open sql, dbConnection %> Do It Yourself Home Improvement - Woodworking & Workshops
Home > Home Improvement Projects > Woodworking & Workshop  
Do It Yourself Home Improvement - Woodworking & Workshops

Do It Yourself Home Improvement Woodworking & Workshops

It’s your secret dream: you’ve always wanted to be the one who can slip into the workshop and emerge hours later with an expertly crafted project. Here, you’ll find out how to make anything from a cat tree to a cradle… a window seat to a wine rack... a dog house to a playhouse.

Plus: organizing your workspace. How to make sure every tool is in its place and within reach when you need it.

  
<% MyArray= RS.GetRows() RS.close set RS= nothing dbConnection.close set dbConnection = nothing Const projectCat = 0 Const projectURL = 1 Const projectCat_Sec = 2 Const projectTitle = 3 %>
 
Woodworking
  
Workshop
<% 'This will capture all projects that have a sub category related to Toilet For lnLoopCounter = 0 to Ubound(MyArray,2) if MyArray(projectCat_Sec,lnLoopCounter) ="Woodworking" then %> <%=MyArray(projectTitle,lnLoopCounter)%>
<% end if Next%> 		  <% 'This will capture all projects that have a sub category related to Toilet For lnLoopCounter = 0 to Ubound(MyArray,2) if MyArray(projectCat_Sec,lnLoopCounter) ="Workshop" then %> <%=MyArray(projectTitle,lnLoopCounter)%>
<% end if Next%>

Restoration
<% 'This will capture all projects that have a sub category related to Toilet For lnLoopCounter = 0 to Ubound(MyArray,2) if MyArray(projectCat_Sec,lnLoopCounter) ="Restoration" then %> <%=MyArray(projectTitle,lnLoopCounter)%>
<% end if Next%>

Walls
<% 'This will capture all projects that have a sub category related to Toilet For lnLoopCounter = 0 to Ubound(MyArray,2) if MyArray(projectCat_Sec,lnLoopCounter) ="Walls" then %> <%=MyArray(projectTitle,lnLoopCounter)%>
<% end if Next%>

Painting
<% 'This will capture all projects that have a sub category related to Toilet For lnLoopCounter = 0 to Ubound(MyArray,2) if MyArray(projectCat_Sec,lnLoopCounter) ="Painting" then %> <%=MyArray(projectTitle,lnLoopCounter)%>
<% end if Next%>