<%
Dim CONN_STRING
Dim CONN_STRING2
Dim CONN_USER
Dim CONN_PASS
CONN_STRING = "DBQ=" & Server.MapPath("../fpdb/saldarini-italy.mdb") & ";"
CONN_STRING = CONN_STRING & "Driver={Microsoft Access Driver (*.mdb)};"
CONN_STRING2 = "DBQ=" & Server.MapPath("../fpdb/parametri.mdb") & ";"
CONN_STRING2 = CONN_STRING2 & "Driver={Microsoft Access Driver (*.mdb)};"
CONN_USER = ""
CONN_PASS = ""
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open CONN_STRING, CONN_USER, CONN_PASS
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open CONN_STRING2, CONN_USER, CONN_PASS
%>
<%
'*************************************************************************
'**** Sistema di commercio elettronico (C)1998-2000 Fabrizio Cavadini ****
'*************************************************************************
'Nome file : SHOP.ASP
'Descrizione : Catalogo articoli selezionati per la categoria scelta
'Versione : 1.0.0.0
'Data di creazione:
'Ultima revisione : 16/03/00
'*************************************************************************
'* L'utilizzo del codice sottostante o dell'idea che lo rappresenta senza*
'* l'autorizzazione dell'autore puo' essere perseguita penalmente. *
'*************************************************************************
const MaxShoppingCartItems = 15
const ShoppingCartAttributes = 12
ReDim ARYShoppingCart(ShoppingCartAttributes,MaxShoppingCartItems)
Session("MyBag") = ARYShoppingCart
Session("ItemCount") = 0
%>
shop now
<%
sqlstr = "SELECT * FROM categorie"
set rsCategorie=Conn.Execute(sqlstr)
sqlstr = "SELECT * FROM parametri"
set rsParametri=Conn2.Execute(sqlstr)
%>
