%
if session("item")=0 then
response.redirect "caddievide.asp"
end if
Temp=Session("Caddy")
select case request("Action")
case "Vider le Caddy"
session("pays")=request("livraison_pays")
session("Item")=0
response.redirect "caddievide.asp"
case "Commander"
session("pays")=request("livraison_pays")
direc="client.asp?paiement="&request.querystring("paiement")
response.redirect direc
case "Recalculer"
session("pays")=request("livraison_pays")
If IsObject(Session("boutique_conn")) Then
Set conn = Session("boutique_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
' chaine de connexion
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath("/databases") & "/villard.mdb"
conn.Open connstring
Set Session("boutique_conn") = conn
End If
for i=0 to session("item")-1
Qte="quantite"&i
if isNumeric(request(Qte)) then
if int(request(Qte))>0 then
Temp(2,i)=int(request(Qte))
end if
end if
Session("Caddy")=Temp
next
response.redirect "caddie.asp"
end select
If IsObject(Session("boutique_conn")) Then
Set conn = Session("boutique_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
' chaine de connexion
connstring="Data Source=Villard;"
conn.Open connstring
Set Session("boutique_conn") = conn
End If
' calcul des totaux
total=0
Port=0
Qte=0
Max=0
inter=0
a = 0
for i=0 to session("Item")-1
TotalHt=TotalHt+temp(3,i)*temp(2,i)
TotalPort=TotalPort+temp(4,i)*temp(2,i)
Qte=Qte+temp(2,i)
next
strtotal=replace(cstr(totalport),",",".")
%>
Actualits : vente lit d'eau, oreiller ergonomique, matelas à eau et sommier
Vous
pouvez également nous contacter par téléphone au
04.78.32.13.01 du Mardi au Samedi de 9H00 à 19H00.
VILLARD
Literie, 1 rue Centrale, 38230 PONT DE CHERUY, Tel: +33-(0)4-78-32-13-01 Siège Social: 2 rue Aimé
Pinel 38230 Pont de Cheruy - SIRENE 30259091400024- APE 524J - RC Vienne B 302590914
- RM Vienne 13286538/2 - N° CEE 00302590914 - CCP Grenoble 1046 20A