<% Option Explicit %> <% Response.Buffer = True Dim FSO Dim Cartella Dim ArrayParole Dim ParoleDaCercare Dim Root Dim FileURL Dim ServerPath Dim FileVisualizzati Dim TotaleFileCercati Dim TotaleFileTrovati Dim NumeroFile Dim LoopContaLinkPagine Dim ArrayRisultatiRicerca(200) Dim LoopContaLinkPagineRisultati Dim ArrayPosizioneRisultati Dim CorrispondenzaTrovata Dim TipiDiFileDoveCercare Dim CartellaDaEscludere Dim FileDaEscludere Dim WebInInglese dim chiave Const RecordsPerPagina = 10 TipiDiFileDoveCercare = "htm,html,asp" CartellaDaEscludere = "cgi_bin,_bin,fpdb,db,private,images" FileDaEscludere = "riservato.htm,file_protetto.asp,amministrazione.asp" WebInInglese = False TotaleFileCercati = 0 chiave= request.querystring("chiave") %> Confartigianato FPA napoli - Federazione Provinciale Artigiani | Cerca nel sito

ARTIGIANATO ARTISTICO  | EDITORIALE  |   METEO  | NEWSLETTER  |  INVIO EMAIL  | INVIO SMS  |  ULTIMA ORA AGGIORNAMENTI FISCALI   |  NEWS

Cerca

Federazione Provinciale Artigianato Napoli

Aggiungi questo sito tra i preferiti

Imposta Confartigianato come pagina iniziale

Cerca nel sito

www.infoimprese.it
per nome
per prodotti

CONFARTIGIANATO FPA Napoli - Ricerca

Compilando il semplice modulo sottostante è possibile cercare in tutto il sito confartigianato.

Parola chiave

Ordina per

Almeno una parola Tutte le parole Frase intera

 In alternativa può essere effettuata una ricerca esclusivamente negli articoli delle news.      Il motore di ricerca articoli è disponibile in questa pagina  
<% ParoleDaCercare = Trim(Request.querystring("chiave")) ParoleDaCercare = Replace(ParoleDaCercare, "<", "<", 1, -1, 1) ParoleDaCercare = Replace(ParoleDaCercare, ">", ">", 1, -1, 1) ArrayParole = Split(Trim(ParoleDaCercare), " ") NumeroFile = CInt(Request.QueryString("PosizioneDiPartenza")) FileVisualizzati = NumeroFile Set FSO = Server.CreateObject("Scripting.FileSystemObject") If NOT ParoleDaCercare = "" Then Set Cartella = FSO.GetFolder(Server.MapPath("./")) ServerPath = Cartella.Path & "\" Root = True Call SearchFile(Cartella) Set FSO = Nothing Set Cartella = Nothing Response.Write vbCrLf & " " Response.Write vbCrLf & " " If CorrispondenzaTrovata = False Then Response.Write vbCrLf & " " Else Response.Write vbCrLf & " " End If 'Chiude la tabella con lo stato della ricerca Response.Write vbCrLf & " " Response.Write vbCrLf & "
 Ricerca effettuata nel sito per " & ParoleDaCercare & "   Spiacente, nessuna corrispondenza trovata. Ricerca effettuata nel sito per " & ParoleDaCercare & "   Risultati da " & NumeroFile + 1 & " a " & FileVisualizzati & " di " & TotaleFileTrovati & "
" Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "
" If CorrispondenzaTrovata = False Then Response.Write vbCrLf & "
" Response.Write vbCrLf & " La ricerca - " & ParoleDaCercare & " - non ha fornito risultati su questo sito." Response.Write vbCrLf & "

" Response.Write vbCrLf & " Consigli :" Response.Write vbCrLf & "
" Response.Write vbCrLf & "
  • Controlla di aver digitato correttamente le parole.
  • Utilizza altre parole.
  • Utilizza parole meno specifiche.
  • Utilizza meno parole.
" Else For LoopContaLinkPagineRisultati = 1 to (FileVisualizzati - NumeroFile) Response.Write vbCrLf & "
" Response.Write vbCrLf & " " & ArrayRisultatiRicerca(LoopContaLinkPagineRisultati) Response.Write vbCrLf & "
" Next End If Response.Write vbCrLf & "
" End If If TotaleFileTrovati > RecordsPerPagina Then Response.Write vbCrLf & "
" Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "
" Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "
" Response.Write vbCrLf & " Pagine :  " If FileVisualizzati > RecordsPerPagina Then Response.Write vbCrLf & " << Precedente " End If If TotaleFileTrovati > RecordsPerPagina Then For LoopContaLinkPagine = 1 to CInt((TotaleFileTrovati / RecordsPerPagina) + 0.5) If NumeroFile = (LoopContaLinkPagine * RecordsPerPagina) - RecordsPerPagina Then Response.Write vbCrLf & " " & LoopContaLinkPagine Else Response.Write vbCrLf & "  " & LoopContaLinkPagine & "  " End If Next End If If TotaleFileTrovati > FileVisualizzati Then Response.Write vbCrLf & "  Successiva >>" End If Response.Write vbCrLf & "
" Response.Write vbCrLf & "
" End If %>
La ricerca è stata effettuata in <% = TotaleFileCercati %> documenti.
Sono riportate tutte le pagine contenenti la parola chiave ricercata, i risultati sono esposti in ordine alfabetico


<% Public Sub SearchFile(Cartella) Dim File 'File Dim StreamTesto Dim SottoCartella Dim ContenutoDelFile Dim TitoloDellaPagina Dim InizioTitoloDelFile Dim FineTitoloDelFile Dim DescrizioneDellaPagina Dim InizioDescrizioneDellaPagina Dim FineDescrizioneDellaPagina Dim ContaParoleDaCercare Dim TrovatoRisultati For Each File in Cartella.Files If InStr(1, TipiDiFileDoveCercare, FSO.GetExtensionName(File.Name), vbTextCompare) > 0 Then If NOT InStr(1, FileDaEscludere, File.Name, vbTextCompare) > 0 Then Set StreamTesto = File.OpenAsTextStream ContenutoDelFile = StreamTesto.ReadAll TrovatoRisultati = False If Request.QueryString("TipoDiRicerca") = "FraseIntera" Then If InStr(1, LCase(ContenutoDelFile), LCase(ParoleDaCercare), 1) Then TrovatoRisultati = True End If Else If Request.QueryString("TipoDiRicerca") = "TutteLeParole" Then TrovatoRisultati = True For ContaParoleDaCercare = 0 to UBound(ArrayParole) If InStr(1, LCase(ContenutoDelFile), LCase(ArrayParole(ContaParoleDaCercare)), 1) Then If Request.QueryString("TipoDiRicerca") = "AlmenoUnaParola" Then TrovatoRisultati = True Else If Request.QueryString("TipoDiRicerca") = "TutteLeParole" Then TrovatoRisultati = False End If Next End If TotaleFileCercati = TotaleFileCercati + 1 If TrovatoRisultati = True Then TotaleFileTrovati = TotaleFileTrovati + 1 If FileVisualizzati < (RecordsPerPagina + NumeroFile) and TotaleFileTrovati > FileVisualizzati Then FileVisualizzati = FileVisualizzati + 1 InizioTitoloDelFile = InStr(1, lcase(ContenutoDelFile), "", 1) + 7 If NOT InizioTitoloDelFile = 7 Then FineTitoloDelFile = InStr(InizioTitoloDelFile, ContenutoDelFile, "", 1) TitoloDellaPagina = Server.HTMLEncode(Trim(Mid(ContenutoDelFile, InizioTitoloDelFile, (FineTitoloDelFile - InizioTitoloDelFile)))) Else TitoloDellaPagina = "Nessun titolo" End If InizioDescrizioneDellaPagina = InStr(1, ContenutoDelFile, "", 1) DescrizioneDellaPagina = Server.HTMLEncode(Trim(Mid(ContenutoDelFile, InizioDescrizioneDellaPagina, (FineDescrizioneDellaPagina - InizioDescrizioneDellaPagina)))) Else DescrizioneDellaPagina = "Nessuna descrizione disponibile per questa pagina" End If ArrayPosizioneRisultati = ArrayPosizioneRisultati + 1 CorrispondenzaTrovata = True 'Controlla se il file è nella root If Root = True Then ArrayRisultatiRicerca(ArrayPosizioneRisultati) = "" & TitoloDellaPagina & "
" & vbCrLf & " " & DescrizioneDellaPagina & "" Else 'Mette il risultato della ricerca nell' Array dei risultati ArrayRisultatiRicerca(ArrayPosizioneRisultati) = "" & TitoloDellaPagina & "
" & vbCrLf & " " & DescrizioneDellaPagina End If End If End If 'Chiude il file per la ricerca StreamTesto.Close End If End If Next For Each SottoCartella In Cartella.SubFolders If NOT InStr(1, CartellaDaEscludere, SottoCartella.Name, vbTextCompare) > 0 Then Root = False FileURL = Cartella.Path & "\" FileURL = Replace(FileURL, ServerPath, "") FileURL = Replace(FileURL, "\", "/") FileURL = Replace(FileURL, " ", "%20") Call SearchFile(SottoCartella) End If Next Set File = Nothing Set StreamTesto = Nothing Set SottoCartella = Nothing End Sub %>