<% Dim strSQL Dim rs Dim rsCat strSQl = "Select * from tblcategory Order By Name" set rsCat = GetRecords(strSQL) %> Services

<%intRow = 0 if not rsCat.Eof then Do while not rsCat.eof if intRow mod 2 = 0 and intRow <> 0 then response.write "" end if strSQL = "Select * from tblService where CategoryId =" & rsCat("CategoryId") & " order By Name" set rs = GetRecords(strSQL) response.write "" & trim(rsCat("Name")) & "
"%>
<%If not rs.eof then Do while not rs.eof%>
  • <%=trim(rs("Name"))%>
    		•
    <%rs.movenext loop else%>
    No Services found.
    <%end if set rs = Nothing%>  
    <%intRow = intRow+ 1 rsCat.movenext Loop else response.Write "
    No Categories found.
    " end if set rsCat = Nothing %>