<% '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_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 %>
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 %>
" target="_self"> .jpg style="border:2px solid #808080" align="middle"> <%=StrToData(RSArticoli("Data"))%>
" onclick="this.target='_self';"><%=RSArticoli("Titolo")%>»
Sezione: " onclick="this.target='_self';"> <%=RSArticoli("Sezione")%> -<% If Abilita_Commenti Then %>');<% Else %>articolo.asp?articolo=<%=RSArticoli("ID")%>#commenti<% End If %>"> <%=Link_Commenti%> (<%=RSArticoli("ConteggioID")%>) <% End If %> <%=Pubblicato_Clic%> <%=RSArticoli("Letture")%> <%=Pubblicato_Clic_chiudi%>
 
<% 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") %>
<% If NOT Abilita_ResizeASPNET Then %> "> <%=Path_DirPublic%>T-<%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin%>T-nd.gif<%End If%>" alt="<%=ALT_Immagine_Thumbnail%>" style="border: 3px double #C0C0C0; background-color: #FFFFFF" /> <% Else %> "> <%=Path_DirPublic%><%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin%>T-nd.gif<%End If%>&opx=<%=Num_ResizeASPNET_LarghezzaFotoThumbnail%>" alt="<%=ALT_Immagine_Thumbnail%>" style="border: 3px double #C0C0C0; background-color: #FFFFFF" /> <% 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)%> ">»»
"><%=ALT_Ico_Fotografia%> <%=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 %>