%
'dBlog 2.0 CMS Open Source
'Versione file 2.0.0
'FUNZIONE: questo script si occupa di visualizzare i risultati della ricerca in articoli e fotografie
%>
<%
Sub Contenuto()
%>
<%
'Se la ricerca non è abilitata visualizzo il messaggio
If Abilita_Ricerca = False Then
%>
<%=Errore_Ricerca_NonAbilitata%>
<%
Else
Dim SQLArticoli, RSArticoli, Parole, SQLFotografie, RSFotografie, FSTFotografia, ArticoloTrovato, FotografiaTrovata
'Altrimenti eseguo il controllo sulle parole cercate
If Request.QueryString("cosa") = "" OR IsNull(Request.QueryString("cosa")) OR Len(Request.QueryString("cosa")) < 3 Then
Parole = ""
Else
Parole = Request.QueryString("cosa")
End If
'Il minimo di caratteri richiesti per la ricerca è 3
If Parole = "" Then
%>
<%=Errore_Ricerca_Minimo3car%>
<%
Else
%>
Elenco articoli per:<%=Ricerca_Articoli_per%> <%=Server.HTMLEncode(Parole)%>
<%=Testo_Seguono_risultati%>
<%
'Effettuo la ricerca per parole chiave negli articoli
SQLArticoli = "SELECT Articoli.ID, Articoli.Sezione, Count(Commenti.ID) AS ConteggioID, Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture, Articoli.Podcast FROM Commenti RIGHT JOIN Articoli ON Commenti.IDArticolo = Articoli.ID WHERE Articoli.Data <= '"& DataToStr(Date()) &"' AND NOT Articoli.Bozza GROUP BY Articoli.ID, Articoli.Sezione, Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture, Articoli.Podcast ORDER BY Articoli.Data DESC, Articoli.Ora DESC"
Set RSArticoli = Server.CreateObject("ADODB.Recordset")
RSArticoli.Open SQLArticoli, Conn, 1, 3
If RSArticoli.EOF = False Then
ArticoloTrovato = False
'E visualizzo gli eventuali risultati
Do While NOT RSArticoli.EOF
If Now() > cDate(StrToData(RSArticoli("Data")) & " " & StrToOra(RSArticoli("Ora"))) Then
If InStr(LCase(FileToVar(Path_DirPublic & RSArticoli("Testo"), 0)), LCase(Parole)) > 0 OR InStr(LCase(RSArticoli("Titolo")), LCase(Parole)) > 0 Then
ArticoloTrovato = True
StatoAttualeTrailer = Abilita_Trailer
Abilita_Trailer = True
%>
<%
Abilita_Trailer = StatoAttualeTrailer
End If
End If
RSArticoli.MoveNext
Loop
If ArticoloTrovato = False Then
%>
<%=Errore_Articolo_NonTrovato%>
<%
End If
Else
%>
<%=Errore_Articolo_NonTrovato%>
<%
End If
Set RSArticoli = Nothing
%>
Elenco immagini per:<%=Ricerca_Fotografie_per%> <%=Server.HTMLEncode(Parole)%>
<%=Testo_Seguono_risultati%>
<%
'Effettuo la ricerca per parole chiave nelle fotografie
SQLFotografie = "SELECT Fotografie.ID, Fotografie.NomeFile, Count(Commenti.ID) AS ConteggioID, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture FROM Commenti RIGHT JOIN Fotografie ON Commenti.IDFotografia = Fotografie.ID WHERE Fotografie.Data <= '"& DataToStr(Date()) &"' GROUP BY Fotografie.ID, Fotografie.NomeFile, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture ORDER BY Fotografie.Data DESC, Fotografie.Ora DESC"
Set RSFotografie = Server.CreateObject("ADODB.Recordset")
RSFotografie.Open SQLFotografie, Conn, 1, 3
If RSFotografie.EOF = False Then
FotografiaTrovata = False
'E visualizzo gli eventuali risultati
Do While NOT RSFotografie.EOF
If Now() > cDate(StrToData(RSFotografie("Data")) & " " & StrToOra(RSFotografie("Ora"))) Then
If InStr(LCase(RSFotografie("Descrizione")), LCase(Parole)) > 0 Then
FotografiaTrovata = True
Set FSTFotografia = CreateObject("Scripting.FileSystemObject")
%>
<%=Contributo_Di%>
"><%=RSFotografie("Autore")%> <%=Pubblicato_il%> <%=StrToData(RSFotografie("Data"))%> <%=Pubblicato_alle%> <%=StrToOra(RSFotografie("Ora"))%> <%=Pubblicato_Letture%> <%=RSFotografie("Letture")%> <%=Pubblicato_Letture_chiudi%>
<%=Evidenzia(RSFotografie("Descrizione"), Parole)%>
">»»
<%
Set FSTFotografia = Nothing
End If
End If
RSFotografie.MoveNext
Loop
If FotografiaTrovata = False Then
%>
<%=Errore_Fotografia_NonTrovata%>
<%
End If
Else
%>
<%=Errore_Fotografia_NonTrovata%>
<%
End If
Set RSFotografie = Nothing
End If
End If
End Sub
Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), Sezione_Cerca, "", "")
Conn.Close
Set Conn = Nothing
%>