ciao ragazzi ho questa pagina in asp che ricerca articoli e foto e vorrei che cercasse solamente gli articoli, quale porzione di script va tolta????
<%
'FUNZIONE: questo script si occupa di visualizzare i risultati della ricerca in articoli e fotografie
%>
<%
Sub Contenuto()
%>
<div id="briciole">\\ <span><%=Sezione_HomePage%> : <%=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 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
%>
<div class="giustificato"><%=Errore_Ricerca_Minimo3car% ></div>
<%
Else
%>
<div class="giustificato"><%=Testo_Seguono_risultati%></div>
<div class="giustificato"><%=Ricerca_Articoli_per%><%=Server.HTMLEncode(Paro le)%></div>
<%
'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
%>
<div class="sopra">
<div class="titolo">
"><%=Evidenzia(RSArticoli("Titolo"), Parole)%>
</div>
<div class="piccolo">
<%=Contributo_Di%>"><%=RSArticoli("Autore")%><%=Pubblicato_il%><%=StrToData(RSArticoli("Data")) %><%=Pubblicato_alle%><%=StrToOra(RSArticoli("Ora" ))%><%=Pubblicato_In%>"><%=RSArticoli("Sezione")%>, <%=Pubblicato_Clic%><%=RSArticoli("Letture")%><%=P ubblicato_Clic_chiudi%>
</div>
</div>
<div class="giustificato">
<%=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
%>
</div>
<div class="sotto">
">[img]<%=Path_Skin%>articolo.gif[/img]" border="0" /><%=Link_Articolo_permalink%><%If Abilita_Commenti Then%>');<%Else%>articolo.asp?articolo=<%=RSArticoli("ID ")%>#commenti<%End If%>">[img]<%=Path_Skin%>commenti.gif[/img]" border="0" /><%=Link_Commenti%> (<%=RSArticoli("ConteggioID")%>)<%End If%>[img]<%=Path_Skin%>storico.gif[/img]" border="0" /><%=Link_Storico%>">[img]<%=Path_Skin%>stampa.gif[/img]" border="0" /><%=Link_Stampa%>
</div>
<div class="divider"></div>
<%
Abilita_Trailer = StatoAttualeTrailer
End If
End If
RSArticoli.MoveNext
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 RSArticoli = Nothing
%>
<div class="giustificato"><%=Ricerca_Fotografie_per%><%=Server.HTMLEncode(Pa role)%></div>
<%
'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")
%>
<div class="fright">
<%
If NOT Abilita_ResizeASPNET Then
%>
">[img]<%If FSTFotografia.FileExists(Server.MapPath(Path_DirPu blic & [/img]<%=Path_DirPublic%>T-<%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin% >T-nd.gif<%End If%>" alt="<%=ALT_Immagine_Thumbnail%>" />
<%
Else
%>
">[img]resize.aspx?img=<%If FSTFotografia.FileExists(Server.MapPath(Path_DirPu blic & RSFotografie([/img]<%=Path_DirPublic%><%=RSFotografie("NomeFile")%><% Else%><%=Path_Skin%>T-nd.gif<%End If%>&opx=<%=Num_ResizeASPNET_LarghezzaFotoThum bnail%>" alt="<%=ALT_Immagine_Thumbnail%>" />
<%
End If
%>
</div>
<div class="sopra">
<div class="piccolo">
<%=Contributo_Di%>"><%=RSFotografie("Autore")%><%=Pubblicato_il%><%=StrToData(RSFotografie("Data" ))%><%=Pubblicato_alle%><%=StrToOra(RSFotografie(" Ora"))%>, <%=Pubblicato_Letture%><%=RSFotografie("Letture")% ><%=Pubblicato_Letture_chiudi%>
</div>
</div>
<div class="giustificato">
<%=Evidenzia(RSFotografie("Descrizione"), Parole)%>">...
</div>
<div class="sotto">
">[img]<%=Path_Skin%>articolo.gif[/img]" border="0" /><%=Link_Fotografie%><%If Abilita_Commenti Then%>');<%Else%>fotografia.asp?fotografia=<%=RSFotograf ie("ID")%>#commenti<%End If%>">[img]<%=Path_Skin%>commenti.gif[/img]" border="0" /><%=Link_Commenti%> (<%=RSFotografie("ConteggioID")%>)<%End If%>[img]<%=Path_Skin%>storico.gif[/img]" border="0" /><%=Categorie_Fotografie%>
</div>
<div class="divider"></div>
<%
Set FSTFotografia = Nothing
End If
End If
RSFotografie.MoveNext
Loop
If FotografiaTrovata = False Then
%>
<div class="giustificato"><%=Errore_Fotografia_NonTrova ta%></div>
<%
End If
Else
%>
<div class="giustificato"><%=Errore_Fotografia_NonTrova ta%></div>
<%
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
%>
Rispondi quotando
