<% ModelDeCettePage = "1401Q/41AMLSBR" Dim objFS, objTS Const nomfichier = "../buyonline/form-cost.txt" set objFS = CreateObject("Scripting.FileSystemObject") set objTS = objFS.OpenTextFile(Server.MapPath(nomfichier),1) Ligne = objTS.ReadLine For compteur = 1 to 200 UnitCostCHF = Replace(MID(Ligne,21,10),"-","") 'TotalCostCHF = UnitCostCHF * qty UnitCostUSD = Replace(MID(Ligne,31,10),"-","") 'TotalCostUSD = UnitCostUSD * qty UnitCostE = Replace(MID(Ligne,41,10),"-","") 'TotalCostE = UnitCostE * qty Model = Replace(MID(Ligne,1,20),"-","") If Model = ModelDeCettePage then Compteur = 200 End If Ligne = objTS.ReadLine Next %> Swiss Trek Watch, Catalog, models 1400 - 1401
 

Model 

Qty :

<%=Model%>

CHF 
US$ 
Euro(€) 		  <%=UnitCostCHF%>
 <%=UnitCostUSD%>
 <%=UnitCostE%>

 

1401Q/41A M LS BR

 

>> Dry Compass W.
>> Compass watches
>> Solar watches
>> Automatic chrono
>> Sport watches
>> Classic watches
> Catalogue
> Private Label  
> Become an agent
> Address
> Profile
> Homepage

 

Swiss Trek Watch Sàrl | C.P. 1418 - Av. Léopold Robert 114 | 2301 La Chaux-de-Fonds | Switzerland
Phone +41 32 926 13 58 | Fax. +41 32 926 13 60 | E.mail : swisstrekwatch@horoswiss.com

Homepage
DCW | Compass | Solar | Automatic | Automatic chrono | Sport | Classic

Réalisation : Surface.ch avril 2000
 Dernière mise à jour 30 septembre 2011