<% if request("bic")<>"" then %> Home <% totbic=len(request("bic")) startbic=1 DO WHILE not startbic = totbic SQL="SELECT categoria FROM struttura_bic where bic = '" & left(request("bic"),startbic) & "'" set RS=conn.execute(SQL) cat=rs("categoria") %> > "><%=cat%> <% startbic = startbic + 1 %> <% loop %> <% SQL="SELECT categoria FROM struttura_bic where bic = '" & request("bic") & "'" set RS=conn.execute(SQL) cat=rs("categoria") %> > <%=cat%> <% end if %>

RICERCA LIBRI

<% if ( ShowResults = 0) then %>
<% else %> Per ordinare la lista di libri, cliccare su un campo: <% end if %>

<% if ( ShowResults = 0) then %>

Titolo:
Autore:
Editore:
ISBN:
Soggetto:	... <% SQL="SELECT bic, categoria FROM struttura_bic where bic like '_' AND bic like '[^Y]%' order by categoria" set RS=conn.execute(SQL) do while not RS.eof bic = RS("bic") %> <%=Replace(RS("categoria"),"/"," / ")%> <% SQL2="SELECT bic, categoria FROM struttura_bic where bic like '" & bic & "%' AND LEN(bic)=2 order by categoria" set RS2=conn.execute(SQL2) do while not RS2.eof bic2 = RS2("bic") %> – <%=Replace(lcase(RS2("categoria")),"/"," / ")%> <% RS2.Movenext loop RS.Movenext loop %>

Suggerimenti per ottimizzare la ricerca

- Campo Titolo: Cercare la/e prima/e parola/e del titolo o una sola parola contenuta, inserendo due parole contenute non consecutive la ricerca non darą esito
- Campo Autore: cercare solo il cognome
- Campo Editore: Cercare la/e prima/e parola/e del nome dell'editore o una sola parola contenuta, inserendo due parole contenute non consecutive la ricerca non darà esito
- Campo ISBN: per libri pubblicati fino al 2006 cercare per ISBN10, per libri pubblicati nel 2007 cercare per ISBN13

<% else %>

&editore_cerca=<%=Request("editore_cerca")%>&autore_cerca=<%=Request("autore_cerca")%>&isbn_cerca=<%=Request("isbn_cerca")%>&soggeto_cerca=<%=Request("soggeto_cerca")%>&order=anno desc" > Pił recente

&editore_cerca=<%=Request("editore_cerca")%>&autore_cerca=<%=Request("autore_cerca")%>&isbn_cerca=<%=Request("isbn_cerca")%>&soggeto_cerca=<%=Request("soggeto_cerca")%>&order=anno asc" > Meno recente

&editore_cerca=<%=Request("editore_cerca")%>&autore_cerca=<%=Request("autore_cerca")%>&isbn_cerca=<%=Request("isbn_cerca")%>&soggeto_cerca=<%=Request("soggeto_cerca")%>&order=editore" > Editore

&editore_cerca=<%=Request("editore_cerca")%>&autore_cerca=<%=Request("autore_cerca")%>&isbn_cerca=<%=Request("isbn_cerca")%>&soggeto_cerca=<%=Request("soggeto_cerca")%>&order=autori" > Autori

<% end if %>

<% if (ShowResults=1) then %>

Ricerca: <%=Request("edit_cerca")%>

<% NumItems = 8 Error = false 'RS Pageing RSPage = TRIM(Request.QueryString("page")) IF Len(RSPage)=0 THEN RSPage = 1 'Collect form bic = Request("bic") editore = Request("editore") Max = TRIM(Request.Form("max")) ELSE bic = Request("bic") editore = Request("editore") Max = TRIM(Request.QueryString("max")) END IF 'Check IF Len(bic)<1 THEN Error = true IF Len(editore)<4 THEN editore = items IF Len(Max)<2 OR NOT IsNumeric(max) THEN Max = NumItems %> <% OpenConn SQL="SELECT LIBRI.IDLibro, LIBRI.Bic, LIBRI.Titolo, LIBRI.Autori, LIBRI.Editore, isnull(LIBRI.Prezzo_euro/100,0) as prezzo_euro, prezzo_sterlina as prezzo_sterlina, prezzo_dollaro as prezzo_dollaro, isnull(LIBRI.Immagine,'') as immagine FROM LIBRI where attivo = 1" if request("edit_cerca") <> "" then sql = sql & " and titolo like '%" & replace(request("edit_cerca"),"'","''") & "%'" end if if request("editore_cerca") <> "" then sql = sql & " and editore like '%" & replace(request("editore_cerca"),"'","''") & "%'" end if if request("autore_cerca") <> "" then sql = sql & " and autori like '%" & replace(request("autore_cerca"),"'","''") & "%'" end if if request("isbn_cerca") <> "" then sql = sql & " and isbn like '%" & replace(request("isbn_cerca"),"'","''") & "%'" end if if request("soggeto_cerca") <> "#" then if request("soggeto_cerca") <> "" then sql = sql & " and bic like '" & request("soggeto_cerca") & "%'" end if end if if(request("order")<>"" and request("order")<>"titolo") then sql = sql & "order by " & request("order")& ",titolo" else sql = sql & "order by titolo" end if Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql, Conn, 3 %> <% if rs.eof then %>

Nessun titolo sembra disponibile, ma... Prova ad effettuare un'altra RICERCA. Se hai inserito pił termini, prova con uno solo! Oppure richiedi una ricerca personalizzata per il titolo che non si trova nel ns catalogo. Risponderemo con un preventivo comprendente disponibilitą e prezzo in 24/48 ore In alternativa puoi ricercare sul catalogo di Abebooks, che raccoglie pił di 100 milioni di titoli! Autore: Titolo: Parola Chiave: SE TROVI UN TITOLO DI TUO INTERESSE E VUOI ORDINARLO TRAMITE LA LIBRERIA LEDI CONTATTACI O SCRIVICI LA TUA RICHIESTA QUI E PROVVEDEREMO!

<% else %> <% RS.PageSize = NumItems TotalPages = RS.PageCount RS.AbsolutePage = RSPage i=0 j=1 pari=0 DO WHILE not rs.eof AND NOT i > CInt(Max)-1 i=i+1 'titolo = rs("titolo") %> <% if pari mod 2=0 then %>