<%
'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
%>
<% Response.Buffer = True %>
<!--#include virtual="/mdb-database/inc_costanti.asp"-->
<!--#include file="inc_db.asp"-->
<!--#include file="inc_funzioni.asp"-->
<!--#include file="inc_moduli.asp"-->
<%
Sub Contenuto()
%>
<%
if Request.QueryString("opc")= "Web" then
%>
<div id="briciole">\\ <span><a href="default.asp"><%=Sezione_HomePage%></a> : <%=Sezione_Cerca%></span></div>
<%
'Se la ricerca non è abilitata visualizzo il messaggio
If Abilita_Ricerca = False Then
%>
<div class="giustificato"><%=Errore_Ricerca_NonAbilitat a%></div>
<%
Else
Dim SQL_News, RS_News, Parole, ArticoloTrovato
'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
%>
<div class="giustificato"><%=Errore_Ricerca_Minimo3car% ></div>
<%
Else
%>
<div class="giustificato"><%=Testo_Seguono_risultati%></div>
<div class="giustificato"><strong><%=Ricerca_Articoli_p er%> <%=Server.HTMLEncode(Parole)%></strong></div>
<%
'Effettuo la ricerca per parole chiave negli articoli
SQL_News = "SELECT * FROM tblDiario ORDER BY id DESC"
Set RS_News = Server.CreateObject("ADODB.Recordset")
RS_News.Open SQL_News, ConNews, 1, 3
Dim TagsSplit
If RS_News.EOF = False Then
'E visualizzo gli eventuali risultati
Do While NOT RS_News.EOF
If InStr(LCase(FileToVar(Path_DirPublic_News & RS_News("texto"), 0)), LCase(Parole)) > 0 OR InStr(LCase(RS_News("Titulo")), LCase(Parole)) > 0 OR InStr(LCase(RS_News("copete")), LCase(Parole)) > 0 Then
CorrisponzaTrovata=true
end if
If CorrisponzaTrovata then
ArticoloTrovato = True
StatoAttualeTrailer = Abilita_Trailer
Abilita_Trailer = True
%>
<div class="sopra">
<div class="titolo">
<a href="noticia.asp?id=<%=RS_News("id")%>"><%=RS_New s("Titulo")%></a>
</div>
<div class="piccolo">
<%=Contributo_Di%> <a href="autori.asp?chi=<%=RS_News("autor")%>"><%=RS_ News("autor")%></a> <%=Pubblicato_il%> <%=StrToData(RS_Ne ws("Fecha"))%> <%=Pubblicato_alle%> <%=S trToOra(RS_News("horaEd"))%>
</div>
</div>
<div class="divider"> </div>
<%
Abilita_Trailer = StatoAttualeTrailer
End If
if not RS_News.eof then
RS_News.MoveNext
else
exit do
end if
Loop
If ArticoloTrovato = False Then
%>
<div class="giustificato">
<%=Errore_Articolo_NonTrovato%>
</div>
<%
End If
Else
%>
<div class="giustificato">
<%=Errore_Articolo_NonTrovato%>
</div>
<%
End If
Set RS_News = Nothing
End If
End If
else
CONTINUA...