<!--#include file="common.asp" -->
<%
cat_parent_id = request("cat_parent_id")
call dbConnect(conn,dbConnString)
call listCat(conn,cat_parent_id,listCatOutput)
call dbDisconnect(conn)
%>
<HTML>
<HEAD>
<TITLE>Categorie</TITLE>
</HEAD>
<BODY>
<table style="width:100%;" cellspacing="0" cellpadding="5">
<tr>
<td>
<p>Selezionare la categoria. Se non ha sotto categorie si accede direttamente
alla scheda di dettaglio.</p>
<%if UBound(listCatOutput) > -1 then%>
<table cellspacing="3" cellpadding="0">
<%for vx = 0 to UBound(listCatOutput)%>
<tr>
<td style="height:25px;vertical:align:top;"><img src="images/freccia.gif"
align="absmiddle" />
<%if listCatOutput(vx,3) = 0 then
'Categoria senza sottocategorie: visualizzo il contenuto%>
<a href="content.asp?cat_id=<%=listCatOutput(vx,0)%>" title="Leggi
la scheda"><%=listCatOutput(vx,1)%></a>
<%else
'Categoria con sottocategorie: le visualizzo%>
<a href="cat.asp?cat_parent_id=<%=listCatOutput(vx,0)%>" title="Seleziona
la categoria"><%=listCatOutput(vx,1)%></a> [<span
style="color:red;"><%=listCatOutput(vx,3)%></span> sotto
<%if listCatOutput(vx,3) > 1 then%>categorie<%else%>categoria<%end
if%>]
<%end if%>
</td>
</tr>
<%next%>
</table>
<%else%>
Non ci sono categorie
<%end if%>
</td>
</tr>
</table>
</BODY>
</HTML>