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

:: New equipment sales
:: Custom permanent installations
:: Used equipment sales
:: Rental gear
:: Custom manufacturing


Requested Equipement:

<% 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/A" prixTotalProduit = "N/A" End If %> <% Next End If %>
Equipment
Qty
Price Total Remove

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

<%=produitUnitaire%> <%=prixTotalProduit%>
Budgeted Total * $<%=sousTotal%>  
Discount that will be applied by your representative -____%  

* Prices are shown for estimation only.
   A responsible from Berger Group will contact you shortly for price
   confirmation.

* All prices are in canadian dollars | Currency converter

 
<% Else %> <% End If %>
 

<% Dim urlProduits If (Session("type") = "") Then urlProduits = "../../en/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 %>