<% Dim Con, Qcat, Rcat, i, Qcount, Rcount, Numrec, hp, dispari, newurl Dim Qchild, Rchild, navigator, newnav, mprec, pagliv, strurl, gp1, gp2 Dim Qry, Rst, Qnav, Rnav, ii, strqry Dim newlev, MyFile, MyFileObject Dim numr, Qchild1, Rchild1, Qchild2, Rchild2, Qchild3, Rchild3 Set Con = Server.CreateObject ("ADODB.Connection") %> <% Qcat="SELECT * FROM LINK WHERE link.idlink=5" set Rcat = Con.Execute (Qcat) hp=Rcat("link") Rcat.Close Qcat="SELECT * FROM LINK WHERE link.idlink=1" set Rcat = Con.Execute (Qcat) pagliv=Rcat("link") Rcat.Close If Request.Querystring("idute")>"" Then strqry=" AND content_menu.idmatt IN (SELECT User_content.idmenu FROM User_content WHERE User_content.idliv=1 AND User_content.idutente='"&Request.Querystring("idute")&"') " gp1="?idute="&Request.Querystring("idute") gp2="&idute="&Request.Querystring("idute") Else strqry=" " gp1="" gp2="" End If %>

 SELEZIONE PARAMETRI


<% Set Con2 = Server.CreateObject ("ADODB.Connection") %>
Ricerca Mercati per Comune e Settore
 
&l=<%=request.querystring("l")%>" method="post">
  Comune
  Settore
   
 


<% Con2.close %>
<% Con.Close %>