<%@ Language=VBScript %> <% Option Explicit %>
<% dim sMese, sAnno, sArea, sTipo, sGiorno sMese = "7" sAnno = Request("Anno") sArea = "Et" sTipo = Request("Uf") sGiorno = "14" dim dcNews, rsNews, filePath, sSql filePath = Server.MapPath("News.mdb") Set DcNews = Server.CreateObject("ADODB.Connection") DcNews.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath if (sMese <> "All") then sSql = "SELECT * FROM News WHERE (Data >#" & sGiorno & "/" & sMese & "/" & sAnno & "#) " end if if (sMese = "All") then sSql = "SELECT * FROM News WHERE (Year(Data)=" & sAnno & ") " end if if (sArea) <> "All" then sSql = sSql & "AND InSTr([Area],'" & sArea & "')" end if if (sTipo) <> "All" then sSql = sSql & "AND InSTr([Tipo],'" & sTipo & "')" end if sSql = sSql & " ORDER BY [Data] DESC, Link DESC;" Set rsNews = DcNews.Execute(sSql) Do While not rsNews.eof if rsNews("NumInventario") = "Nessuno" then Response.write "" Response.Write "" Response.Write "" if left(rsNews("Link"),2) = "./" then Response.Write "" else Response.Write "" end if Response.write "" end if rsNews.MoveNext loop rsNews.Close: Set rsNews=Nothing DcNews.Close: Set DcNews=Nothing %>

Data	Tipo	Descrizione
" & rsNews("Data") & "	" & rsNews("Label") & "	" & rsNews("Commento") & "	" & rsNews("Commento") & "