|
Vendita imbarcazioni da diporto, assistenza, accessori |
|
 |
|
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<% ' Il codice ASP generato dal componente di FrontPage è un prodotto software ed è pertanto ' protetto dalle leggi e dai trattati internazionali sul copyright, oltre che da altre leggi ' e trattati sulla proprietà intellettuale. Tale prodotto software è di proprietà della Fulltrading S.p.A.' E' concesso in licenza e non venduto all'utilizzatore finale.' Sono vietate la copia anche parziale o la manomissione del codice asp generato dal componente' nonchè la manomissione o l'eliminazione delle presenti informazioni di copyright.' ' BaggyBot Free v. 1.1.11%><%
If Len(Session("aperta")) > 0 Then
Else
Session("aperta") = "ok"
Session.LCID = 1040
Dim QuantiArticoliInScontrino
Dim ScontrinoInScontrino()
Dim ScontrinoIDArticolo()
Dim ScontrinoCodiceArticolo()
Dim ScontrinoDenominazioneArticolo()
Dim ScontrinoConfezioneArticolo()
Dim ScontrinoQuantitativoArticolo()
Dim ScontrinoPrezzoArticolo()
Dim NOITEMSINSHOPPINGBASKET
Dim TOOMANYITEMSINSHOPPINGBASKET
Dim INFO_NOITEMSINSHOPPINGBASKET
Dim INFO_TOOMANYITEMSINSHOPPINGBASKET
QuantiArticoliInScontrino = 0
NOITEMSINSHOPPINGBASKET = True
TOOMANYITEMSINSHOPPINGBASKET = False
INFO_NOITEMSINSHOPPINGBASKET = "Il tuo modulo non contiene dati."
INFO_TOOMANYITEMSINSHOPPINGBASKET = "Il modulo contiene troppi articoli..."
Session("QuantiArticoliInScontrino") = QuantiArticoliInScontrino
Session("ScontrinoInScontrino") = ScontrinoInScontrino
Session("ScontrinoIDArticolo") = ScontrinoIDArticolo
Session("ScontrinoCodiceArticolo") = ScontrinoCodiceArticolo
Session("ScontrinoDenominazioneArticolo") = ScontrinoDenominazioneArticolo
Session("ScontrinoQuantitativoArticolo") = ScontrinoQuantitativoArticolo
Session("ScontrinoConfezioneArticolo") = ScontrinoConfezioneArticolo
Session("ScontrinoPrezzoArticolo") = ScontrinoPrezzoArticolo
Session("NOITEMSINSHOPPINGBASKET") = NOITEMSINSHOPPINGBASKET
Session("TOOMANYITEMSINSHOPPINGBASKET") = TOOMANYITEMSINSHOPPINGBASKET
Session("INFO_NOITEMSINSHOPPINGBASKET") = INFO_NOITEMSINSHOPPINGBASKET
Session("INFO_TOOMANYITEMSINSHOPPINGBASKET") = INFO_TOOMANYITEMSINSHOPPINGBASKET
Dim IDUtente
Dim SchedaClienteNome
Dim SchedaClienteCognome
Dim SchedaClienteIndirizzo
Dim SchedaClienteCodicePostale
Dim SchedaClienteComune
Dim SchedaClienteProvincia
Dim SchedaClienteTelefono
Dim SchedaClienteFax
Dim SchedaClienteEmail
Dim EMPTYFIELDS
Dim INFO_EMPTYFIELDS
EMPTYFIELDS = False
INFO_EDEMPTYFIELDS = "Compila tutte le informazioni richieste!"
Session("IDUtente") = IDUtente
Session("SchedaClienteNome") = SchedaClienteNome
Session("SchedaClienteCognome") = SchedaClienteCognome
Session("SchedaClienteIndirizzo") = SchedaClienteIndirizzo
Session("SchedaClienteCodicePostale") = SchedaClienteCodicePostale
Session("SchedaClienteComune") = SchedaClienteComune
Session("SchedaClienteProvincia") = SchedaClienteProvincia
Session("SchedaClienteTelefono") = SchedaClienteTelefono
Session("SchedaClienteFax") = SchedaClienteFax
Session("SchedaClienteEmail") = SchedaClienteEmail
Session("EMPTYFIELDS") = EMPTYFIELDS
Session("INFO_EMPTYFIELDS") = INFO_EMPTYFIELDS
Dim IDOrdine
Dim OrdineData
Dim OrdineImporto
Dim OrdineSpeseDiSpedizione
Session("IDOrdine") = IDOrdine
Session("OrdineData") = OrdineData
Session("OrdineImporto") = OrdineImporto
Session("OrdineSpeseDiSpedizione") = OrdineSpeseDiSpedizione
Session("AcquistoOK") = ""
End If
%>
<%
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath(".") & "\_private\webstore.mdb;"
DBString = DBString + "Uid=Admin;"
DBString = DBString + "Pwd=;"
DatabaseWebStore.Open DBString
Dim RecordsetLineeDiCatalogo
Dim sqlquery
sqlquery = "select "
sqlquery = sqlquery & "ID, "
sqlquery = sqlquery & "Denominazione, "
sqlquery = sqlquery & "Informazioni, "
sqlquery = sqlquery & "NumeroArticoli "
sqlquery = sqlquery & "from "
sqlquery = sqlquery & "qryLinee"
Set RecordsetLineeDiCatalogo = DatabaseWebStore.Execute(sqlquery)
Dim ID
Dim Denominazione
Dim Informazioni
%>
<%if err=0 then
While Not RecordsetLineeDiCatalogo.EOF
ID = RecordsetLineeDiCatalogo("ID")
Denominazione = RecordsetLineeDiCatalogo("Denominazione")
Informazioni = RecordsetLineeDiCatalogo("Informazioni")
NumeroArticoli = RecordsetLineeDiCatalogo("NumeroArticoli")
%>
<%
RecordsetLineeDiCatalogo.MoveNext
Wend
end if
%>
<%
RecordsetLineeDiCatalogo.Close
Set RecordsetLineeDiCatalogo = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
%>
|
| |
|
|
|
|
|
 |
|
Prince 34 | |
|
|
 |
|
Categoria B, 2 cabine | |
|
|
|
Concessionario per la Liguria - con consegne in
tutta Italia: Piemonte, Lombardia, Lazio,
Toscana, Sardegna, Genova, Milano, Torino, Roma |
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
Avalon Marine
- Molo Ponte Morosini Nord, 52 -16126 Genova
(Marina Porto Antico Genova)
vendita imbarcazioni diporto, vendita Yachts, accessori, assistenza.
Tel.
+39 010.2723934
- Cel. +39 347.76.24107 P.IVA 01503840991 -
CCIAA. 414855
©2008 Avalonmarine |
|
