<body topmargin="0">
<table border="0" width="98%" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<%
cat = Request.QueryString("CatID")
sql = "select * from cat order by id"
set rs = Conn.Execute (sql)
%>
<div align="center"><table border="0" width=440>
<%
Do while NOT rs.EOF
ColNum = 1
Do while ColNum < 3
%>
<TD ALIGN=LEFT VALIGN=middle WIDTH="213"><font face="Arial" size="2">
&cat=<%=server.urlencode(rs("cat"))%>"><%=rs("cat" )%>
<font face="Arial" size="1">
<%
IDCategoria = rs("id")
sqlcount = "SELECT count(Titolo) FROM annunci where IDCategoria='" & rs("id") & "' and show=yes"
Set RScounts = Conn.Execute(sqlcount)
rcounts = RScounts(0)
Response.Write ("( " & rcounts & " )")
Response.Write "
"%>
</font></font></TD>
<%
if NOT rs.EOF then
rs.MoveNext
end if
ColNum = ColNum + 1
if NOT rs.EOF then
%>
<TD ALIGN=LEFT VALIGN=middle WIDTH="227">
<font size="2" face="Arial"> <a href="Annuncio.asp?CatID=<%=rs("id")%>&cat=<%=serv er.urlencode(rs("cat"))%>"><%=rs("cat")%></a<font face="Arial" size="1">
<%
IDCategoria= rs("id")
sqlcount = "SELECT count(Titolo) FROM annunci where IDCategoria='" & rs("id") & "' and show=yes"
Set RScounts = Conn.Execute(sqlcount)
rcounts = RScounts(0)
Response.Write ("( " & rcounts & " )")
Response.Write "
"
%>
</font></font></a>[/b]</TD>
<%
END IF
ColNum = ColNum + 1
Loop
%>
<tr>
<%
IF NOT rs.EOF then
rs.MoveNext
End IF
Loop
%>
</TABLE>
Rispondi quotando
)