<%
'********************************************************
SqlCatsx = "SELECT * FROM categorie WHERE Posizione = 'sx';"
Set rstCatsx = Server.CreateObject("ADODB.Recordset")
rstCatsx.Open sqlCatsx,Conn , 3 , 1, 1
if not rstCatsx.EOF then
do while NOT rstCatsx.EOF
IDCategoria = rstCatsx("ID_categoria")
%>
<%=rstCatsx("Categoria")%>
<%
SqlLinksx = "SELECT * FROM link WHERE ID_categoria =" & IDCategoria
Set rstLinksx = Server.CreateObject("ADODB.Recordset")
rstLinksx.Open sqlLinksx,Conn , 3 , 1, 1
if not rstLinksx.EOF then
do while NOT rstLinksx.EOF
%>
