<%FRONT_END=1%> <% session("lingua")="ita" titolo="Contatti Maglificio Pini « maglieria artigianale | lavorazione del cashmere | maglieria lana | maglieria cotone | maglieria seta | maglieria lino | maglieria viscose | maglieria filati ecologici e biologici | maglificiopini.com" desrizione="Maglificio Pini: creatività e cura artigianale da più di trent'anni. Il Maglificio Pini fa della maglieria una vera e propria arte, realizzata con passione, attenzione e cura artigianale. " keyword="maglieria, maglieria artigianale, maglieria marchi prestigiosi, lavorazione del cashmere, maglieria lana, maglieria cotone, maglieria seta, maglieria lino, maglieria viscose, maglieria filati ecologici e biologici" tipo_pagina="contatti" dataOggi = datepart("yyyy",now()) &"-"& datepart("m",now()) &"-"& datepart("d",now()) %> <%=titolo%> <% 'response.write "ur_cod: "&session("ur_cod")&" - " 'response.write "ur_stato: "&session("ur_stato")&" - " 'response.write "ur_datascad: "&session("ur_datascad")&" - " 'response.write "ur_tipo: "&session("ur_tipo")&"
" %>
<% '--------------------------------------------------------------' ' LOGIN EFFETTUATO - MODULO RICERCA '--------------------------------------------------------------' if session("ur_cod")<>"" and (session("ur_stato")="verificato" or session("ur_stato")="completata") and session("ur_datascad")>date() then 'recupero info utente loggato ' sql="SELECT * FROM t_utenti_registrati WHERE ur_cod=" & session("ur_cod") call setrs(sql, rs_loggedUser) %> <% cercafinezza=request("cercafinezza") cercafamiglia=request("cercafamiglia") ricerca_per_tag=request("ricerca_per_tag") 'response.write "cercafinezza: "&cercafinezza&"
" 'response.write "cercafamiglia: "&cercafamiglia&"
" 'response.write "ricerca_per_tag: "&ricerca_per_tag&"
" elenco_tag_check="" elenco_check_desc="" 'recupero elenco categorie ' sql="select * from t_categorie" call setrs(sql, rs_cat) if rs_cat.recordcount>0 then rs_cat.movefirst while not rs_cat.eof tag_check=request("checkbox"&rs_cat("ID")) if tag_check<>"" then 'response.write "checkbox"&rs_cat("ID")&": "&tag_check&"
" if elenco_tag_check<>"" then elenco_tag_check=elenco_tag_check&", " elenco_check_desc=elenco_check_desc&", " end if rielabora_check=replace(tag_check, ", ", "/"&rs_cat("ID")&", ") rielabora_check=rielabora_check&"/"&rs_cat("ID") elenco_tag_check=elenco_tag_check&rielabora_check spilttag_check=split(tag_check, ", ") if ubound(spilttag_check)>0 then for i=0 to ubound(spilttag_check) sql="select * from t_tag"&lingua_query&" where tag_cod="&spilttag_check(i) call setrs(sql, rs_desctag) if i>0 then elenco_check_desc=elenco_check_desc&", " end if elenco_check_desc=elenco_check_desc&rs_desctag("tag_descrizione") next else sql="select * from t_tag"&lingua_query&" where tag_cod="&tag_check call setrs(sql, rs_desctag) elenco_check_desc=elenco_check_desc&rs_desctag("tag_descrizione") end if end if rs_cat.movenext wend 'response.write "elenco_check_desc: "&elenco_check_desc&"
" 'response.write "elenco_tag_check: "&elenco_tag_check&"
" end if 'recupero elenco tag in lingua ' elenco="" 'response.write ricerca_per_tag&"
" if ricerca_per_tag<>"" then 'controllo ed elimino eventualmente dalla lista passata i caratteri terminali ", " ultimi_caratteri=Right(ricerca_per_tag,2) if ultimi_caratteri=", " then lista_trim=Left(ricerca_per_tag,Len(ricerca_per_tag)-2) else lista_trim=ricerca_per_tag end if 'esamino la stringa di ricerca per verificare di quanti elementi sia composta elemento_ricerca_per_tag=split(lista_trim, ", ") 'definisco il numero di match che deve soddisfare ogni tag preso in esame matches=ubound(elemento_ricerca_per_tag)+1 elenco_prodotti_correlati="" 'se la stringa di ricerca è composta da più di un elemento effettuo il ciclo if ubound(elemento_ricerca_per_tag)>0 then for i=0 to ubound(elemento_ricerca_per_tag) 'verifico che esista un tag somigliante all'elemento della stringa di ricerca sql="select * from t_tag"&lingua_query&" where tag_descrizione like '%"&elemento_ricerca_per_tag(i)&"%'" 'response.write sql&"
" call setrs(sql, rs_codice) if rs_codice.recordcount>0 then elenco_codici_tag="" contatag=0 'esiste almeno un tag simile all'elemento ricercato. ciclo sui risultati e individuo tutti i codici tag rs_codice.movefirst while not rs_codice.eof contatag=contatag+1 if contatag>1 then elenco_codici_tag=elenco_codici_tag&", " end if elenco_codici_tag=elenco_codici_tag&rs_codice("tag_cod") rs_codice.movenext wend end if 'controllo quali prodotti sono abbinati ai tag presenti in elenco e scremo ulteriormente l'elenco di quelli già individuati in passaggi precedenti. sql="select distinct pt_pr_cod from t_correlazione_prodotto_tag where pt_tag_cod in ("&elenco_codici_tag&")" if elenco_prodotti_correlati<>"" then sql=sql&" and pt_pr_cod in ("&elenco_prodotti_correlati&")" end if call setrs(sql, rs_elenco_prodotti_correlati) if rs_elenco_prodotti_correlati.recordcount>0 then elenco_prodotti_correlati="" rs_elenco_prodotti_correlati.movefirst while not rs_elenco_prodotti_correlati.eof if elenco_prodotti_correlati<>"" then elenco_prodotti_correlati=elenco_prodotti_correlati&", " end if elenco_prodotti_correlati=elenco_prodotti_correlati&rs_elenco_prodotti_correlati("pt_pr_cod") rs_elenco_prodotti_correlati.movenext wend end if next else 'verifico che esista un tag somigliante all'elemento della stringa di ricerca sql="select * from t_tag"&lingua_query&" where tag_descrizione like '%"&lista_trim&"%'" 'response.write sql&"
" call setrs(sql, rs_codice) if rs_codice.recordcount>0 then elenco_codici_tag="" contatag=0 'esiste almeno un tag simile all'elemento ricercato. ciclo sui risultati e individuo tutti i codici tag rs_codice.movefirst while not rs_codice.eof contatag=contatag+1 if contatag>1 then elenco_codici_tag=elenco_codici_tag&", " end if elenco_codici_tag=elenco_codici_tag&rs_codice("tag_cod") rs_codice.movenext wend end if 'controllo quali prodotti sono abbinati ai tag presenti in elenco e scremo ulteriormente l'elenco di quelli già individuati in passaggi precedenti. sql="select distinct pt_pr_cod from t_correlazione_prodotto_tag where pt_tag_cod" if elenco_codici_tag&""<>"" then sql=sql&" in ("&elenco_codici_tag&")" else sql=sql&"=0" end if if elenco_prodotti_correlati<>"" then sql=sql&" and pt_pr_cod in ("&elenco_prodotti_correlati&")" end if 'response.write sql&"
" call setrs(sql, rs_elenco_prodotti_correlati) 'response.write rs_elenco_prodotti_correlati.recordcount&"
" if rs_elenco_prodotti_correlati.recordcount>0 then elenco_prodotti_correlati="" rs_elenco_prodotti_correlati.movefirst while not rs_elenco_prodotti_correlati.eof if elenco_prodotti_correlati<>"" then elenco_prodotti_correlati=elenco_prodotti_correlati&", " end if elenco_prodotti_correlati=elenco_prodotti_correlati&rs_elenco_prodotti_correlati("pt_pr_cod") rs_elenco_prodotti_correlati.movenext wend else if elenco_prodotti_correlati&""="" then elenco_prodotti_correlati="nessun prodotto correlato" end if end if end if end if 'scrematura dell'elenco prodotti finale prendendo in considerazione soltanto quelli con data di pubblicazione antecedente a oggi se l'utente connesso è un esterno if elenco_prodotti_correlati&""<>"" and elenco_prodotti_correlati<>"nessun prodotto correlato" then if rs_loggedUser("ur_tipo")="esterno" then sql="select * from t_prodotto where pr_cod in ("&elenco_prodotti_correlati&") and pr_datapub<="&dataOggi call setrs(sql, rs_prodotti_visualizzabili) if rs_prodotti_visualizzabili.recordcount>0 then elenco_prodotti_correlati="" rs_prodotti_visualizzabili.movefirst while not rs_prodotti_visualizzabili.eof if elenco_prodotti_correlati<>"" then elenco_prodotti_correlati=elenco_prodotti_correlati&", " end if elenco_prodotti_correlati=elenco_prodotti_correlati&rs_prodotti_visualizzabili("pr_cod") rs_prodotti_visualizzabili.movenext wend end if end if end if 'response.write elenco_prodotti_correlati 'response.write "matches: "&matches&"
" replace_elenco=replace(elenco_tag_check, "/", "") %>
<%=rs_loggedUser("ur_nome")%> <%=rs_loggedUser("ur_cognome")%> [<%=rs_loggedUser("ur_email")%>] | LOGOUT »

Ricerca in archivio

<% 'recupero elenco FINEZZA ' sql="select *" sql=sql&" from t_finezza" call setrs(sql, rs_finezza)%> <% 'recupero elenco FAMIGLIA ' sql="select *" sql=sql&" from t_famiglia" call setrs(sql, rs_famiglia)%>
<% 'recupero elenco dei TAG divisi per CATEGORIA ' sql="select * from t_categorie" if session("ur_tipo")="esterno" then sql=sql&" where ID<>26" end if sql=sql&" order by cat_ord" call setrs(sql, rs_categorie) if rs_categorie.recordcount>0 then %>
  • Mostra elenco completo TAG »
    <% rs_categorie.movefirst while not rs_categorie.eof sql="select * from t_tag"&lingua_query& " where tag_cod in (select distinct pt_tag_cod from t_correlazione_prodotto_tag where pt_cat_cod="&rs_categorie("ID")&") order by tag_descrizione" call setrs(sql, rs_tagcat) if rs_tagcat.recordcount>0 then%>

    <%=rs_categorie("cat_desc_"&session("lingua"))%>

    <% end if rs_categorie.movenext wend %>
<%end if%>

<% 'eseguo ricerca solo se ho ricevuto un post' if lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" then '-------------------------------------------- ' ' ELENCO PRODOTTI TROVATI ' '-------------------------------------------- ' sql="select * from t_prodotto, t_immagini " sql_parametri= " where" if cercafinezza&""<>"" then if sql_parametri&""<>" where" then sql_parametri=sql_parametri&" and" end if sql_parametri=sql_parametri&" pr_finezza='"&cercafinezza&"'" end if if cercafamiglia&""<>"" then if sql_parametri&""<>" where" then sql_parametri=sql_parametri&" and" end if sql_parametri=sql_parametri&" pr_famiglia='"&cercafamiglia&"'" end if if elenco_prodotti_correlati&""<>"" then if sql_parametri&""<>" where" then sql_parametri=sql_parametri&" and" end if if elenco_prodotti_correlati="nessun prodotto correlato" then elenco_prodotti_correlati=0 end if sql_parametri=sql_parametri&" pr_cod in ("&elenco_prodotti_correlati&")" end if if sql_parametri&""<>" where" then sql=sql&sql_parametri sql=sql& " AND t_immagini.im_padre=t_prodotto.pr_cod " else sql=sql& " WHERE t_immagini.im_padre=t_prodotto.pr_cod " sql=sql&" order by pr_finezza, pr_famiglia, pr_seriale" end if 'response.write sql call setrs(sql, rs_elencoprodotti) %>
<% ris="" prodotti_trovati = 0 if ricerca_per_tag&""<>"" then if ris<>"" then ris=ris&", " end if ris=ris&ricerca_per_tag end if if cercafinezza&""<>"" then if ris<>"" and Right(ris,2)<>", " then ris=ris&", " end if ris=ris&cercafinezza end if if cercafamiglia&""<>"" then if ris<>"" and Right(ris,2)<>", " then ris=ris&", " end if ris=ris&cercafamiglia end if if elenco_check_desc&""<>"" then if ris<>"" and Right(ris,2)<>", " then ris=ris&", " end if ris=ris&elenco_check_desc end if%>

Risultati ricerca per: <%=ris%>

<% if rs_elencoprodotti.recordcount>0 then rs_elencoprodotti.movefirst while not rs_elencoprodotti.eof if elenco_tag_check<>"" then spezza_check=split(elenco_tag_check, ", ") if ubound(spezza_check)>0 then matches=ubound(spezza_check)+1 presente=0 for i=0 to ubound(spezza_check) verifica_check=split(spezza_check(i), "/") codice_tag=verifica_check(0) codice_cat=verifica_check(1) sql="select * from t_correlazione_prodotto_tag where pt_pr_cod="&rs_elencoprodotti("pr_cod")&" and pt_tag_cod="&codice_tag&" and pt_cat_cod="&codice_cat&"" 'response.write sql&"
" call setrs(sql, rs_presenzatag) if rs_presenzatag.recordcount>0 then presente=presente+1 end if next if presente=matches then visualizza="si" else visualizza="no" end if else verifica_check=split(elenco_tag_check, "/") codice_tag=verifica_check(0) codice_cat=verifica_check(1) sql="select * from t_correlazione_prodotto_tag where pt_pr_cod="&rs_elencoprodotti("pr_cod")&" and pt_tag_cod="&codice_tag&" and pt_cat_cod="&codice_cat&"" 'response.write sql&"
" call setrs(sql, rs_presenzatag) if rs_presenzatag.recordcount>0 then visualizza="si" else visualizza="no" end if end if else visualizza="si" end if if visualizza="si" then prodotti_trovati = prodotti_trovati + 1 %>

<%=rs_elencoprodotti("pr_nome")%>

<% 'immagine ' if len(rs_elencoprodotti("im_small")&"" ) >0 then %> <% end if 'tag' %>
<% sql = "SELECT * FROM t_correlazione_prodotto_tag, t_categorie, t_tag_"&session("lingua_gest") sql = sql & " WHERE pt_pr_cod="&rs_elencoprodotti("pr_cod") sql = sql & " AND pt_tag_cod=tag_cod" sql = sql & " AND pt_cat_cod=t_categorie.ID" if rs_loggedUser("ur_tipo") = "esterno" then sql = sql & " AND t_categorie.ID <> 7" end if sql = sql & " ORDER BY t_categorie.cat_ord" call setrs(sql, rs_elenco_tag) nome_cat="" o_lista_tag = "" if rs_elenco_tag.recordcount > 0 then rs_elenco_tag.movefirst while not rs_elenco_tag.eof if nome_cat <> rs_elenco_tag("cat_desc_"&session("lingua")) then 'inserisco nome categoria tag se diversa dalla precedente' if nome_cat = "" then o_lista_tag = o_lista_tag & "

" & rs_elenco_tag("cat_desc_"&session("lingua")) & "

" else o_lista_tag = o_lista_tag & "

" & rs_elenco_tag("cat_desc_"&session("lingua")) & "

" end if nome_cat = rs_elenco_tag("cat_desc_"&session("lingua")) o_lista_tag = o_lista_tag & "

" & rs_elenco_tag("tag_descrizione") & ", " else o_lista_tag = o_lista_tag & rs_elenco_tag("tag_descrizione") & ", " end if rs_elenco_tag.movenext wend end if response.write Replace(o_lista_tag , ",

" , "

" ) %>
<% end if rs_elencoprodotti.movenext wend end if 'chiusura recordcount prodotti ' if prodotti_trovati = 0 then response.write "

Nessun risultato trovato per la ricerca effettuata

" end if %>
<% end if 'chiusura if - verifica POST ' %>
<% elseif request("reg")="com" then response.write lng_fe.Item("fe_registrazione_completa") elseif request("reg")="con" then response.write lng_fe.Item("fe_r_completata") else '--------------------------------------------------------------' ' NO LOGIN - FORM ACCESSO / REGISTRAZIONE '--------------------------------------------------------------' %> <%end if%>
<% Response.Write "
" & Cstr(GetTime() - StartTime) & " msec
" %>