<%
IDa=request.querystring("Tipo")
Set Connessione=Server.CreateObject("ADODB.Connection")
'Connessione.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../../../../database/archiviohp.mdb")
Connessione.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/database/archiviohp.mdb")
SQLart="SELECT * FROM archiviohp WHERE (tipologia1="&IDa&" or tipologia2="&IDa&" or tipologia3="&IDa&" or tipologia4="&IDa&" or tipologia5="&IDa&") AND Collegamento=0"
Set MyArticolo=connessione.Execute(SQLart)
%>
La ricerca per area tematica ha definito i seguenti articoli:
<% if myarticolo.eof then
%>Non ci sono articoli ancora archiviati
per questa tematica<%
else
do while not MyArticolo.eof
CollegaMadre=MyArticolo(0)
SQLFigli="SELECT * FROM archiviohp Where collegamento="&CollegaMadre&" ORDER BY Titolo"
Set MyFigli=connessione.Execute(SQLFigli)
%>
-
<%=Myarticolo(1) %>
<%if MyArticolo(3)<>"" then
%>di <%=MyArticolo(3) %> -
<% end if %>
HP n.<%=MyArticolo(4)%> - <%= Myarticolo(5) %>
<% if not MyFigli.eof then %>
<% end if %>
<% MyFigli.close
Set MyFigli=Nothing %>
<% MyArticolo.movenext
loop
%>
<% end if %>
<%
MyArticolo.close
Set MyArticolo= Nothing
Connessione.Close
set Connessione=nothing
%>
