<% '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() %>

\\ <%=Sezione_HomePage%> : <%=Sezione_Cerca%>

<% '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 %>

<%=Testo_Seguono_risultati%>

<%=Ricerca_Articoli_per%> <%=Server.HTMLEncode(Parole)%>

<% '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.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 %>

"><%=Evidenzia(RSArticoli("Titolo"), Parole)%>

<%=Contributo_Di%> "><%=RSArticoli("Autore")%> <%=Pubblicato_il%> <%=StrToData(RSArticoli("Data"))%> <%=Pubblicato_alle%> <%=StrToOra(RSArticoli("Ora"))%> <%=Pubblicato_In%> "><%=RSArticoli("Sezione")%>, <%=Pubblicato_Clic%> <%=RSArticoli("Letture")%> <%=Pubblicato_Clic_chiudi%>

<%=Evidenzia(Trailer(FileToVar(Path_DirPublic & RSArticoli("Testo"), 0), "articolo.asp?articolo="& RSArticoli("ID") &"", False), Parole)%> <% If RSArticoli("Podcast") <> "" AND NOT IsNull(RSArticoli("Podcast")) Then Call PodcastPlayer(RSArticoli("Podcast"), RSArticoli("Podcast")) End If %>

<%=Link_Articolo_permalink%> <%If Abilita_Commenti Then%>');<%Else%>articolo.asp?articolo=<%=RSArticoli("ID")%>#commenti<%End If%>"> <%=ALT_Ico_Commenti%>

<%=Link_Commenti%> (<%=RSArticoli("ConteggioID")%>)<%End If%> <%=ALT_Ico_Storico%>

<%=Link_Storico%> "> <%=ALT_Ico_Stampa%>

<%=Link_Stampa%>

<% 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 %>

<%=Ricerca_Fotografie_per%> <%=Server.HTMLEncode(Parole)%>

<% '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.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") %>

<% If NOT Abilita_ResizeASPNET Then %> ">

<%=Path_DirPublic%>T-<%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin%>T-nd.gif<%End If%>" alt="<%=ALT_Immagine_Thumbnail%>" /> <% Else %> ">

<%=Path_DirPublic%><%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin%>T-nd.gif<%End If%>&opx=<%=Num_ResizeASPNET_LarghezzaFotoThumbnail%>" alt="<%=ALT_Immagine_Thumbnail%>" /> <% End If %>

<%=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)%> ">...

<%=Link_Fotografie%> <%If Abilita_Commenti Then%>');<%Else%>fotografia.asp?fotografia=<%=RSFotografie("ID")%>#commenti<%End If%>"> <%=ALT_Ico_Commenti%>

<%=Link_Commenti%> (<%=RSFotografie("ConteggioID")%>)<%End If%> <%=ALT_Ico_Storico%>

<%=Categorie_Fotografie%>

<% 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 %>