<%@ Language = VBScript %> <% Response.Expires = -1500 %> Groupe Berger

:: Vente d'équipement neuf
:: Installation permanente sur mesure
:: Vente d'équipement usagé
:: Location d'équipement
:: Fabrication sur mesure


Liste des équipements demandés :

<% Dim prixTotalProduit, sousTotal sousTotal = 0 'Affichage des produits du panier Dim cptProduit cptProduit = Session("nbProduits") If (cptProduit > 0) Then Dim tabProduits, produitUnitaire tabProduits = Session("panier") For posProduit = 0 To cptProduit - 1 Step 1 If (Trim(tabProduits(4, posProduit)) <> "") Then 'Le produit à un prix produitUnitaire = "$" & tabProduits(4, posProduit) prixTotalProduit = CInt(tabProduits(3, posProduit)) * CDbl(tabProduits(4, posProduit)) sousTotal = sousTotal + prixTotalProduit prixTotalProduit = "$" & prixTotalProduit Else produitUnitaire = "N/D" prixTotalProduit = "N/D" End If %> <% Next End If %>
produit
qté
prix total supprimer

<%=tabProduits(1, posProduit)%> <%=tabProduits(2, posProduit)%>

<%=produitUnitaire%> <%=prixTotalProduit%>
Total budgétaire * $<%=sousTotal%>  
Escompte à venir de votre représentant -____%  

* Les prix sont montrés à titre indicatif seulement.
   Un responsable du Groupe Berger communiquera avec vous prochainement
   afin de discuter d'un prix final.

* Tous les prix sont en dollars canadien | Convertisseur de devises

 
<% Else %> <% End If %>
 

<% Dim urlProduits If (Session("type") = "") Then urlProduits = "../../fr/equipement.html" ElseIf (Session("type") = 3) Then urlProduits = "special.asp" Else urlProduits = "equipement.asp?type=" & Session("type") End If %>
<% If (CInt(Session("nbProduits")) > 0) Then %>