<% Do while NOT rs.EOF ColNum = 1 Do while ColNum < 3 %> <% if NOT rs.EOF then rs.MoveNext end if ColNum = ColNum + 1 if NOT rs.EOF then %> <% END IF ColNum = ColNum + 1 Loop %> <% IF NOT rs.EOF then rs.MoveNext End IF Loop %>

">  &categoria=<%=server.urlencode(rs("cat"))%>"><%=rs("cat")%> <% IDCategoria = rs("id") sqlcount = "SELECT count(Titolo) FROM annunci where IDsottocat='" & IDCategoria & "' and show=yes" Set RScounts = Conn.Execute(sqlcount) rcounts = RScounts(0) Response.Write ("( " & rcounts & " )") Response.Write " " Response.Write ""& rs("descrizionecat")& " " %>	"> &categoria=<%=server.urlencode(rs("cat"))%>"><%=rs("cat")%> <% IDCategoria= rs("id") sqlcount = "SELECT count(Titolo) FROM annunci where IDsottocat='" & IDCategoria & "' and show=yes" Set RScounts = Conn.Execute(sqlcount) rcounts = RScounts(0) Response.Write ("( " & rcounts & " )") Response.Write " " Response.Write ""& rs("descrizionecat")& " " RScounts.close set RScounts = nothing%>