% Dim mRisultato Dim strSQL Dim mSelect Dim mFrom Dim rstX Dim rstY Dim rstZ Dim mRicerca Dim midcategoria Dim midmkeyword Dim midluogo Dim midevento Dim midpersonaggio Dim mperiodo Dim mquando Dim mlastdays Dim mi_gg Dim mi_mm Dim mi_aa Dim mf_gg Dim mf_mm Dim mf_aa midcategoria = 0 midkeyword = 0 midluogo = 0 midevento = 90 midpersonaggio = 0 mperiodo = last0 mlastdays = 2 mi_gg = 0 mi_mm = 0 mi_aa = 0 mf_gg = 0 mf_mm = 0 mf_aa = 0 Submit = Ricerca mSelect = "" mFrom = "" mRicerca = "" If midcategoria <> 0 Then mRicerca = mRicerca & "AND News.NewsCategoryID=" & midcategoria & " " End if If midkeyword <> 0 Then mSelect = mSelect & ", News_Keywords.KeywordID" mFrom = mFrom & "LEFT OUTER JOIN News_Keywords ON News.NewsID = News_Keywords.NewsID " mRicerca = mRicerca & "AND News_Keywords.KeywordID=" & midkeyword & " " End if If midluogo <> 0 Then mRicerca = mRicerca & "AND News.PlaceID=" & midluogo & " " End if If midevento <> 0 Then mSelect = mSelect & ", News_Events.EventID" mFrom = "LEFT OUTER JOIN News_Events ON News.NewsID = News_Events.NewsID " mRicerca = mRicerca & "AND News_Events.EventID=" & midevento & " " End if If midpersonaggio <> 0 Then mSelect = mSelect & ", News_People.PersonID" mFrom = mFrom & "LEFT OUTER JOIN News_People ON News.NewsID = News_People.NewsID " mRicerca = mRicerca & "AND News_People.PersonID=" & midpersonaggio & " " End if ' mperiodo puņ essere last0, last1, last2 If mperiodo = "last1" Then mquando = Date() - mlastdays mRicerca = mRicerca & "AND News.DateCreated >='" & Month(mquando) & "/" & Day(mquando) & "/" & Year(mquando) & " 00:00:00' AND News.DateCreated <='" & Month(Date()) & "/" & Day(Date()) & "/" & Year(Date()) & " 23:59:59' " Elseif mperiodo = "last2" Then mRicerca = mRicerca & "AND News.DateCreated >='" & mi_mm & "/" & mi_gg & "/" & mi_aa & " 00:00:00' AND News.DateCreated <='" & mf_mm & "/" & mf_gg & "/" & mf_aa & " 23:59:59' " End if %>
|