storia
shop
personaggi
link
contatti
home page
Attività
esposizioni
Congressi
Servizi
-
GLOBO divulgazione scientifica

AREA
Science Park, Padriciano 99
34012 Trieste
Tel:
040.3755565
040.3755567
Fax:
040.398987
..

Home » Shop » Elenco articoli

Shop

1.Scelta articoli » 2.Inserimento dati » 3.Conferma dell'ordine

Elenco articoli

<%if len(Session("aperta")) > 0 then Dim Cerca, record, page, recordperpagina, DbPath, Conn, idlineadicatalogo, macrocategoria macrocategoria = Replace(Request("macrocategoria"), "'", "") idlineadicatalogo = Replace(Request("idlineadicatalogo"), "'", "") recordperpagina = 5 page = Request("page") if page="" then page=1 DbPath="mdb-database/webstore.mdb" Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath) Dim strSQL if macrocategoria <>"" then strSQL = "Select * from [Catalogo, Articoli] where IDmacrocategoria like '%" ¯ocategoria& "%' order by ID asc" else strSQL = "Select * from [Catalogo, Articoli] where IDlinea like '%" &idlineadicatalogo& "%' order by ID asc" end if Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open strSQL, Conn, 3, 3 if Rs.EOF then Response.write "

Nessun risultato trovato per il termine " & idlineadicatalogo & ".

"%>
 
<%Response.end Rs.close Set Rs = Nothing Conn.close Set Conn = Nothing end if Rs.PageSize = recordperpagina record = rs.RecordCount Rs.AbsolutePage = page Response.Write "
" Dim norecord, numerorecord, numerazioneperpagina norecord=0 numerorecord=(page*recordperpagina)-(recordperpagina-1) if Rs.AbsolutePage <> Rs.PageCount then numerazioneperpagina=(numerorecord+recordperpagina)-1 else numerazioneperpagina=record end if if idlineadicatalogo = "" and macrocategoria = "" then norecord = 1 Response.write "E' neccessario inserire almeno un termine per effettuare una ricerca." else Response.Write "

Di seguito trovi l'elenco degli articoli trovati.
Clicca il carrellino per aggiungere un articolo al carrello della spesa virtuale e per procedere quindi al suo acquisto.

" Response.Write "
" Response.write "

Trovati " & record & " risultati » Pagina " & page & " di " & Rs.PageCount&" » Risultati " & numerorecord & " - " & numerazioneperpagina & "

" For i=1 to recordperpagina numerorecord=numerorecord+1 if NOT Rs.EOF then Response.write "
" Response.write "


" & numerorecord-1 & ". " & Rs("Denominazione") & "

Guarda la scheda dettagliata." & Rs("Informazioni") & "

aggiungi al carrello.  Prezzo: " &FormatNumber(Rs("Prezzo"), 2, -1, 0, -1) & " €

" Response.write "
" Rs.MoveNext end if Next End if 'numerazione pagina If rs.RecordCount > 5 and norecord <> 1 then Response.Write "
" Response.write "

Pagine: " 'precedenti If CInt(page) > 1 then Response.Write"« " Response.write " precedenti - " else Response.Write "" end if For p=1 to Rs.PageCount 'link altre pagine If p <> CInt(page) then Response.write "" else 'pagina attuale End if Response.Write p& " - " if p <> CInt(page) then Response.Write "" else end if 'successive Next If CInt(page) < Rs.AbsolutePage then Response.Write" " Response.write " successive »" Response.Write "

" else Response.Write "

" end if End if Rs.close Set Rs = Nothing Conn.close Set Conn = Nothing else%>

La sessione è scaduta. Torna al catalogo

<%End if%>