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

Home > Home Improvement Projects > Bathroom Projects & Ideas

Do It Yourself Home Improvement Bathroom Projects and Ideas

Do you want a hotel bathroom at home? The kind with the spa shower and antique vanity? You can install a new sink, update that old tile floor, pour a concrete countertop, even fix the toilet. (Or replace it - it's easy!) Start by restoring that grungy old grout around your tub.

The bathroom can be a place to relax and renew. You can make it happen.

<% 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 %>


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




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