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
..
<% if len(Session("aperta")) > 0 then Dim idarticolo Dim DBString idarticolo = Request.QueryString("idarticolo") Session.LCID=1040 Set DatabaseWebStore = Server.CreateObject("ADODB.Connection") DBString ="" DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};" DBString = DBString + "Dbq=" & Server.MapPath(".") & "\mdb-database\webstore.mdb;" DBString = DBString + "Uid=Admin;" DBString = DBString + "Pwd=;" DatabaseWebStore.Open DBString If Len(idarticolo) <> 0 Then Dim sqlquery sqlquery = "select " sqlquery = sqlquery & "ID, " sqlquery = sqlquery & "Codice, " sqlquery = sqlquery & "Denominazione, " sqlquery = sqlquery & "Informazioni, " sqlquery = sqlquery & "InformazioniEstese, " sqlquery = sqlquery & "Confezione, " sqlquery = sqlquery & "Prezzo, " sqlquery = sqlquery & "RiferimentoDiIcona, " sqlquery = sqlquery & "RiferimentoDiFoto " sqlquery = sqlquery & "from " sqlquery = sqlquery & "[Catalogo, Articoli] " sqlquery = sqlquery & "where " sqlquery = sqlquery & "ID = " & idarticolo Dim RecordsetArticolo Set RecordsetArticolo = DatabaseWebStore.Execute(sqlquery) Dim ID Dim Codice Dim Denominazione Dim Informazioni Dim InformazioniEstese Dim Confezione Dim Prezzo Dim RiferimentoDiIcona Dim RiferimentoDiFoto If Not RecordsetArticolo.EOF Then ID = RecordsetArticolo("ID") Codice = RecordsetArticolo("Codice") Denominazione = RecordsetArticolo("Denominazione") Informazioni = RecordsetArticolo("Informazioni") InformazioniEstese = RecordsetArticolo("InformazioniEstese") Confezione = RecordsetArticolo("Confezione") Prezzo = RecordsetArticolo("Prezzo") RiferimentoDiIcona = RecordsetArticolo("RiferimentoDiIcona") RiferimentoDiFoto = RecordsetArticolo("RiferimentoDiFoto") %>

Home » Shop » Elenco articoli » Scheda articolo

Shop

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

<%=Denominazione%> - scheda articolo

<%If RiferimentoDiFoto <> "" Then%> <%End If%> <%End If%> <%End If%> <% RecordsetArticolo.Close Set RecordsetArticolo = Nothing DatabaseWebStore.Close Set DatabaseWebStore = Nothing else%>

La sessione è scaduta. Torna all'Home Page

<%end if%>

<%=Informazioni%>

<%=InformazioniEstese%>

Codice:

<%=Codice%>

 

Prezzo:

<%=FormatNumber(Prezzo, 2, -1, 0, -1)%> €

Inserisci nel carrello