<%optionOnglet = "Suppliers"%> access supplier guide welcome
 
") if Upper then response.write("") else response.write("") if Upper then response.write("") end if end sub sub popupOption(Libelle, Upper, Adresse, Parametres, toolbar, location, directories, menubar, scrollbars, resizable, status, width, height) response.write("") if Upper then response.write("") end sub %> <% idContact = getSID() idSociete = getIdSociete(idContact) Query = "SELECT COUNT(*) AS Nb FROM Fournisseur WHERE Acheteur = '" & idContact & "'" nbFournisseurs = 0 Set Resultat = getResultSet(Query) if Resultat.RecordCount > 0 then nbFournisseurs = CInt(Resultat.Fields.Item("Nb").Value) end if Query = "SELECT COUNT(*) AS Nb FROM EasySourcing WHERE Contact='" & idContact & "' AND Statut IN ('B', 'O')" nbNewRFQ = 0 Set Resultat = getResultSet(Query) if Resultat.RecordCount > 0 then nbNewRFQ = getNumField(Resultat.Fields.Item("Nb").Value) end if Query = "SELECT COUNT(*) AS Nb FROM EasySourcing WHERE Contact='" & idContact & "' AND Statut IN ('P', 'S')" nbPendingRFQ = 0 Set Resultat = getResultSet(Query) if Resultat.RecordCount > 0 then nbPendingRFQ = getNumField(Resultat.Fields.Item("Nb").Value) end if Query = "SELECT COUNT(*) AS Nb FROM EasySourcing WHERE Contact='" & idContact & "' AND Statut IN ('F', 'C')" nbClosedRFQ = 0 Set Resultat = getResultSet(Query) if Resultat.RecordCount > 0 then nbClosedRFQ = getNumField(Resultat.Fields.Item("Nb").Value) end if Query = "SELECT COUNT(*) AS Nb FROM MsgSourcing WHERE Contact='" & idContact & "' AND Statut IN ('P', 'O')" nbPendingMsg = 0 Set Resultat = getResultSet(Query) if Resultat.RecordCount > 0 then nbPendingMsg = getNumField(Resultat.Fields.Item("Nb").Value) end if Query = "SELECT COUNT(*) AS Nb FROM MsgSourcing WHERE Contact='" & idContact & "' AND Statut IN ('F', 'C')" nbClosedMsg = 0 Set Resultat = getResultSet(Query) if Resultat.RecordCount > 0 then nbClosedMsg = getNumField(Resultat.Fields.Item("Nb").Value) end if lg = Langue() %>
 
<% function LangueURL() Dim URL, pos URL = Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING") LangueURL = "en" if InStr(URL, "/en/") > 0 then LangueURL = "en" end if if InStr(URL, "/de/") > 0 then LangueURL = "de" end if if InStr(URL, "/fr/") > 0 then LangueURL = "fr" end if pos = Instr(URL, "lg=") if (pos > 0) then LangueURL = LCase(Mid(URL, pos + 3, 2)) if LangueURL <> "en" AND LangueURL <> "de" AND LangueURL <>"fr" then LangueURL = "en" end if end if end function select case LCase(LangueURL()) case "en" lg = "en" %><% set Rubrique=Server.CreateObject("Scripting.Dictionary") Rubrique.add "suppliers", "supplier" Rubrique.add "supplier guide presentation", "supplier guide presentation" Rubrique.add "listing options", "listing options" Rubrique.add "registration", "registration" Rubrique.add "supplier search", "supplier search" Rubrique.add "access supplier guide", "access supplier guide" Rubrique.add "supplier guide", "supplier guide" Rubrique.add "foundry & forge database", "foundry & forge database" Rubrique.add "subcontract solutions", "subcontract solutions" Rubrique.add "our vision", "our vision" Rubrique.add "contact us", "contact us" Rubrique.add "newsletter", "newsletter" Rubrique.add "company", "company" Rubrique.add "products", "products" Rubrique.add "terms and payment", "Terms and Conditions" Rubrique.add "My company", "My company" Rubrique.add "My products", "My products" Rubrique.add "overview", "overview" Rubrique.add "Smart tools...", "Smart tools..." Rubrique.add "SupplierPass", "SupplierPass" Rubrique.add "SupplierMatch", "SupplierMatch" Rubrique.add "Subcontract Organiser", "Subcontract Organiser" Rubrique.add "services", "services" Rubrique.add "ProSolutions", "ProSolutions" Rubrique.add "e-ProSolutions", "e-ProSolutions" Rubrique.add "strategic sourcing", "strategic sourcing" Rubrique.add "order follow up", "order follow up" Rubrique.add "expert services", "expert services" Rubrique.add "prices", "prices" Rubrique.add "consult prices", "consult prices" Rubrique.add "register here", "register here" Rubrique.add "faq", "faq" Rubrique.add "frequently asked questions", "frequently asked questions" Rubrique.add "view & quote new RFQs", "view & quote new RFQs" Rubrique.add "Home", "Home" Rubrique.add "My Profile", "My user data" Rubrique.add "My Registration", "My Registration" Rubrique.add "MY RFQ FILES", "MY REQUEST FOR QUOTATION (RFQ)" Rubrique.add "New RFQs alerts", "New RFQs alerts" Rubrique.add "Pending RFQs", "Pending RFQs" Rubrique.add "Closed RFQs", "Closed RFQs" Rubrique.add "Declined RFQs", "Declined RFQs" Rubrique.add "Create RFQ", "Create RFQ" Rubrique.add "New RFQs", "New RFQs" Rubrique.add "My Buyers", "My Buyers" Rubrique.add "My Suppliers", "My Suppliers" Rubrique.add "My Contacts", "My Contacts" Rubrique.add "FOUNDRY", "MY FOUNDRY DATA" Rubrique.add "Material", "Material" Rubrique.add "Moulding", "Moulding" Rubrique.add "Facilities", "Facilities" Rubrique.add "ISO", "ISO" Rubrique.add "Certification", "Certification" Rubrique.add "Market", "Market" Rubrique.add "FORGE", "MY FORGE DATA" Rubrique.add "Dimensions", "Dimensions" Rubrique.add "Logout", "Logout" Rubrique.add "Management", "Management" Rubrique.add "MY SUPPLIER SEARCH", "MY SUPPLIER SEARCH" Rubrique.add "New file alerts", "New file alerts" Rubrique.add "Pending searchs", "Pending searchs" Rubrique.add "Closed searchs", "Closed searchs" Rubrique.add "Declined searchs", "Declined searchs" Rubrique.add "Create search", "Create search" Rubrique.add "New searchs", "New searchs" Rubrique.add "MY BUYER LEADS", "MY BUYER LEADS" Rubrique.add "Pending leads", "Pending leads" Rubrique.add "Closed leads", "Closed leads" Rubrique.add "Send Message", "Send Message" Rubrique.add "Online help", "Online Help" set Bouton=Server.CreateObject("Scripting.Dictionary") Bouton.add "boutons/cancelBlank.gif", "boutons/cancelBlank.gif" Bouton.add "boutons/nextBlank.gif", "boutons/nextBlank.gif" Bouton.add "boutons/backBlank.gif", "boutons/backBlank.gif" Bouton.add "boutons/registerBlank.gif", "boutons/registerBlank.gif" Bouton.add "boutons/print.gif", "boutons/print.gif" Bouton.add "boutons/confirmBlank.gif", "boutons/confirmBlank.gif" Bouton.add "boutons/sendBlank.gif", "boutons/sendBlank.gif" Bouton.add "boutons/notInterested.gif", "boutons/notInterested.gif" Bouton.add "boutons/interested.gif", "boutons/interested.gif" set Titre=Server.CreateObject("Scripting.Dictionary") Titre.add "WF/Activities/Buyers/demande.asp", "Request for Price" Titre.add "WF/Activities/inscriptionFF/inscription.asp", "Registration : company information" Titre.add "WF/Activities/inscriptionFF/produits.asp", "Registration : products" Titre.add "WF/Activities/inscriptionFF/confirmation.asp", "Registration : confirmation" set Champ=Server.CreateObject("Scripting.Dictionary") Champ.add "View your company profile", "View your company profile" Champ.add "Company information", "Company information" Champ.add "Company name", "Company name" Champ.add "Bronze listing", "Bronze listing" Champ.add "Silver listing", "Silver listing" Champ.add "Gold listing", "Gold listing" Champ.add "Address", "Address" Champ.add "Postal code", "Postal code" Champ.add "City", "City" Champ.add "Country", "Country" Champ.add "Phone", "Phone" Champ.add "Fax", "Fax" Champ.add "URL", "Web site" Champ.add "Supplier to Foundries", "Supplier to Foundries" Champ.add "Supplier to Forges", "Supplier to Forges" Champ.add "Title", "Title" Champ.add "First name", "First name" Champ.add "Last name", "Last name" Champ.add "Function", "Function" Champ.add "E-mail", "E-mail" Champ.add "Preferred business language", "Preferred business language" Champ.add "Other languages", "Other languages" Champ.add "Login", "Login" Champ.add "Username", "Username" Champ.add "Password", "Password" Champ.add "Confirm password", "Confirm password" Champ.add "I register my company with", "I register my company with" Champ.add "Your company profile", "Your company profile" Champ.add "Contact data", "Contact data" Champ.add "required fields", "required fields" Champ.add "min. 4 characters", "min. 4 characters" Champ.add "VAT excluded / year", "VAT excluded / year" Champ.add "VAT excluded", "VAT excl." Champ.add "Setup fee", "Setup fee" Champ.add "The following fields are required", "The following fields are required" Champ.add "Invalid E-mail", "Invalid E-mail" Champ.add "You have not confirmed the same password", "You have not confirmed the same password" Champ.add "The password must be 4 characters length", "The password must be 4 characters length" Champ.add "You must accept the Terms and conditions to register", "You must accept the Terms and conditions to register" Champ.add "Blank are not allowed in the login", "Blank are not allowed in the login" Champ.add "Supplier's products", "Supplier's products" Champ.add "Tick below your products to be referenced", "Tick below the products you wish to reference" Champ.add "Products", "Products" Champ.add "Product", "Product" Champ.add "Choice", "Choice" Champ.add "Type of registration", "Type of registration" Champ.add "Listing option", "Listing option" Champ.add "Bronze", "Bronze" Champ.add "Silver", "Silver" Champ.add "Gold", "Gold" Champ.add "Company", "Company" Champ.add "Supplier for", "Supplier for" Champ.add "Founderies", "Foundries" Champ.add "Forges", "Forges" Champ.add "Foundry", "Foundry" Champ.add "Forge", "Forge" Champ.add "Contact name", "Contact name" Champ.add "Before registering your company, you must accept the Terms & Conditions.", "Before registering your company, you must accept the Terms & Conditions." Champ.add "I accept the terms & conditions", "I accept the terms & conditions" Champ.add "Payable by bank transfer to", "Payable by bank transfer to" Champ.add "Order information", "Order information" Champ.add "Products supplied", "Products referenced" Champ.add "Terms & Conditions", "Terms & Conditions" Champ.add "Payment", "Payment (applicable to paying subscription)" Champ.add "Registering", "Registration" Champ.add "SWIFT address", "SWIFT address" Champ.add "Account number", "Account number" Champ.add "Code banque", "Bank code" Champ.add "Code guichet", "Branch code" Champ.add "Clé RIB", "Key number" Champ.add "Domiciliation", "Denomination" Champ.add "Branch", "Branch" Champ.add "An invoice will be issued as soon as you are registered", "If applicable, an invoice will be issued as soon as you are registered" Champ.add "Invoice", "Invoice" Champ.add "Date", "Date" Champ.add "Invoice number", "Invoice number" Champ.add "Recipient", "Recipient" Champ.add "Account manager", "Account manager" Champ.add "Before V.A.T. €", "Price excl. V.A.T. euros" Champ.add "Total V.A.T. €", "V.A.T. Amount euros" Champ.add "Net due €", "Total euros" Champ.add "V.A.T. number", "V.A.T. number" Champ.add "(V.A.T. : 19.6%)", "(V.A.T. : 19.6%)" Champ.add "Exemption VAT - EU delivery - art. 259 A 4° CGI", "Exemption VAT - EU delivery - art. 259 A 4° CGI" Champ.add "Exemption VAT - art 262 I 1° CGI", "Exemption VAT - art 262 I 1° CGI" Champ.add "Payable by bank transfer", "Payable by bank transfer" Champ.add "Emetteur", "Sender" Champ.add "Request for price", "Request for price" Champ.add "I am interested in the following service and would like to receive an offer for it", "I am interested in the following service and would like to receive an offer for it" Champ.add "Contact informations", "Contact informations" Champ.add "Annual purchasing potential", "Annual purchasing potential" Champ.add "Castings", "Castings" Champ.add "Forgings", "Forgings" Champ.add "Purchasing volume", "Purchasing volume" Champ.add "Number of RFQs", "Number of RFQs" Champ.add "Number of POs", "Number of POs" Champ.add "Number of active suppliers", "Number of active suppliers" Champ.add "Number of other suppliers known", "Number of other suppliers inquired" Champ.add "Number of suppliers to register", "Number of suppliers to register" Champ.add "Number of buyers", "Number of buyers to register" Champ.add "Please type in your comments, if any", "Please type in your comments, if any" Champ.add "ProSolutions", "ProSolutions" Champ.add "e-ProSolutions", "e-ProSolutions" Champ.add "Subscription", "Subscription" Champ.add "Casting purchasing volume", "Casting purchasing volume" Champ.add "Forging purchasing volume", "Forging purchasing volume" Champ.add "Number of active casting suppliers", "Number of active casting suppliers" Champ.add "Number of other casting suppliers", "Number of other casting suppliers" Champ.add "Number of active forging suppliers", "Number of active forging suppliers" Champ.add "Number of other forging suppliers", "Number of other forging suppliers" Champ.add "Welcome to your organizer", "Welcome to your organizer" Champ.add "You have", "You have" Champ.add "new RFQs alerts", "New Request For Quotation (RFQ) alerts" Champ.add "RFQs pending", "Request For Quotation pending" Champ.add "RFQs declined", "Request For Quotation declined" Champ.add "You are registered with", "You are registered with" Champ.add "from", "from" Champ.add "to", "to" Champ.add "since", "since" Champ.add "Your RFQ Credit", "Your Request For Quotation Credit" Champ.add "You have unlimited Pay-per-view", "You have unlimited access to Request For Quotations" Champ.add "available", "available" Champ.add "Upgrade your registration or buy new Pay-per-view", "Upgrade your registration" Champ.add "click here", "click here" Champ.add "My Registration", "My Registration" Champ.add "Registration", "Registration" Champ.add "PPV Credit", "RFQ Credit" Champ.add "Valid until", "Valid until" Champ.add "unlimited", "unlimited" Champ.add "empty", "empty" Champ.add "expired", "expired" Champ.add "Closed", "Closed" Champ.add "Valid", "Valid" Champ.add "RFQ viewed", "RFQ viewed" Champ.add "Certification", "Certification" Champ.add "Facilities", "Facilities" Champ.add "Weight", "Weight" Champ.add "Internal", "Internal" Champ.add "External", "External" Champ.add "Rough", "Rough" Champ.add "Rough machined", "Rough machined" Champ.add "Finish machined", "Finish machined" Champ.add "Rough machining", "Rough machining" Champ.add "Finish machining", "Finish machining" Champ.add "Certified by", "Certified by" Champ.add "Market", "Market" Champ.add "Material", "Material" Champ.add "Weight Range", "Weight Range" Champ.add "Tonnage per year", "Tonnage per year" Champ.add "Moulding process", "Moulding process" Champ.add "Length", "Length" Champ.add "Width", "Width" Champ.add "Height", "Height" Champ.add "Qty", "Qty" Champ.add "Quantity", "Quantity" Champ.add "Process", "Process" Champ.add "Precision", "Precision" Champ.add "Coarse", "Coarse" Champ.add "Electrical", "Electrical" Champ.add "Methane", "Methane" Champ.add "On stock", "On stock" Champ.Add "Industry", "Industry" Champ.add "Number of items", "Number of items" Champ.add "Nbr of items", "Nbr of items" Champ.add "Customer country", "Country" Champ.add "Market of destination", "Market of destination" Champ.add "Closing date", "Closing date" Champ.add "Expected order date", "Order date" Champ.add "Buyer", "Buyer" Champ.add "Quality requirements", "Quality requirements" Champ.add "ISO required", "ISO" Champ.add "required", "required" Champ.add "not required", "not required" Champ.add "Material certification", "Material certification" Champ.add "Items", "Items" Champ.add "Part name", "Part name" Champ.add "Supply Status", "Supply Status" Champ.add "Size", "Size" Champ.add "Standard", "Standard" Champ.add "Item detail", "Item detail" Champ.add "Dimension", "Dimension" Champ.add "General comments", "General comments" Champ.add "Viewed", "Viewed" Champ.add "My Buyers", "My Buyers" Champ.add "Contact", "Contact" Champ.add "RFQ Description", "RFQ Description" Champ.add "ended", "ended" Champ.add "metric tons", "metric tons" Champ.add "Weight part", "Weight part" Champ.add "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area", "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area" Champ.add "RFQs on line", "Request For Quotations online" Champ.add "Request For Quotation", "Request For Quotation" Champ.add "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer.", "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer." Champ.add "You are not interested to quote this RFQ,
please enter below your username and password.", "You are not interested to quote this RFQ,
please enter below your username and password." Champ.add "If you are not registered and want to quote this RFQ go to the", "If you are not registered and want to quote this RFQ go to the" Champ.add "registration page", "registration page" Champ.add "This RFQ is now available in your RFQ list in your organizer
", "This RFQ is now available in your new RFQ alerts in your organizer
" Champ.add "Supplier searchs on line", "Supplier searchs on line" Champ.add "Supplier search", "Supplier search" Champ.add "Buyer lead", "Buyer lead" Champ.add "You are interested to quote this file,
please enter below your username and password to get it in your organizer.", "You are interested to quote this file,
please enter below your username and password to get it in your organizer." Champ.add "If you are not registered and want to quote this file go to the", "If you are not registered and want to quote this file go to the" Champ.add "This file is now available in your organizer
", "This file is now available in your organizer
" Champ.add "Your Pay-per-view credit is now : ", "Your RFQ credit is now : " Champ.add "Your Pay-per-view credit is empty !
", "You don't have RFQ access credit
" Champ.add "Please contact Subcontract Solutions to upgrade your credit", "Please contact Subcontract Solutions to upgrade your credit" Champ.add "Your Pay-per-view credit is unlimited", "Your RFQ credit is unlimited" Champ.add "Your registration has ended since ", "Your registration is expired since " Champ.add "This RFQ is still available in your RFQ list in your organizer
", "This RFQ is already available in your RFQ list in your organizer
" Champ.add "Your Pay-per-view credit is still : ", "Your RFQ credit is still : " Champ.add "You are not interested by this RFQ
", "You are not interested by this RFQ
" Champ.add "Your Pay-per-view credit is unchanged", "Your RFQ credit is unchanged" Champ.add "Your username and password are valid, but you are not registred as foundry and/or a forge ", "Your username and password are valid, but you are not registred as foundry and/or a forge " Champ.add "Sorry, but your username and password are not valid ", "Sorry, but your username and password are not valid " Champ.add "To quote this RFQ you need to upgrade your subscription.", "To quote this RFQ you need to upgrade your subscription." Champ.add "You can do this directly from your organiser", "You can do this directly from your organiser" Champ.add "This Request For Quotation is not accessible for quote with a freee membership.", "This Request For Quotation is not accessible for quote with a free membership." Champ.add "This Request For Quotation is accessible to registered suppliers with a paying subscription only.", "Note :
This Request For Quotation is accessible to registered suppliers with a paying subscription only." Champ.add "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer.", "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer." Champ.add "You too can communicate directly with buyers in changing your registration from your organizer.", "You too can communicate directly with buyers in changing your registration from your organizer." Champ.add "You are registered :", "You are registered :" Champ.add "Please enter your username and password to get it in your organizer", "Please enter your username and password to get this RFQ in your organizer" Champ.add "You are not registered :", "You are not registered :" Champ.add "To have access to this Request For Quotation, please proceed first with your", "To be able to quote this Request For Quotation, please see conditions by clicking on " Champ.add "registration", "registration" Champ.add "Specify for machining only", "Specify for machining only" Champ.add "Your upgrade is now effective", "Your upgrade is now effective" Champ.add "Pending RFQs", "Pending RFQs" Champ.add "Description", "Description" Champ.add "Closed RFQs", "Closed RFQs" Champ.add "(Closed by buyer)", "(Closed by buyer)" Champ.add "Pending searchs", "Pending searchs" Champ.add "Closed searchs", "Closed searchs" Champ.add "Pending leads", "Pending leads" Champ.add "Closed leads", "Closed leads" Champ.add "Parts description", "Parts description" Champ.add "Geographical sourcing", "Geographical sourcing" Champ.add "Part(s) name", "Part(s) name" Champ.add "New Material", "New Material" Champ.add "New Certification", "New Certification" Champ.add "New Process", "New Process" Champ.add "New Facilities", "New Facilities" Champ.add "New ISO", "New ISO" Champ.add "New Market", "New Market" Champ.add "New Moulding", "New Moulding" Champ.add "ISO", "ISO" Champ.add "Can you supply parts elaborated with", "Can you supply parts elaborated with" Champ.add "Electro Slag Remelting Process (ESR)", "Electro Slag Remelting Process (ESR)" Champ.add "Vacuum Oxygen Decarburization Process (VOD)", "Vacuum Oxygen Decarburization Process (VOD)" Champ.add "Argon Oxygen Decarburization Process (AOD)", "Argon Oxygen Decarburization Process (AOD)" Champ.add "For the process of ring rolling, input :
- max outside diameter in the length max area,
- min inside diameter in the width max area,
- max thickness in the height max area", "For the process of ring rolling, input :
- max outside diameter in the length max area,
- min inside diameter in the width max area,
- max thickness in the height max area" Champ.add "Print", "Print" Champ.add "Help", "Help" Champ.add "Cancel", "Cancel" Champ.add "Ok", "Valid" Champ.add "Save", "Save" Champ.add "Put online", "Put online" Champ.add "Put offline", "Put offline" Champ.add "Add", "Add" Champ.add "Delete", "Delete" Champ.add "Upload", "Upload" Champ.add "Download", "Download" Champ.add "Files", "Drawings" Champ.add "File", "Drawing" Champ.add "Enter the file to upload :", "Enter the file to upload :" Champ.add "Are you sure you want to delete this item ?", "Are you sure you want to delete this item ?" Champ.add "winHelp", "Help.htm" Champ.add "Add to my buyers list", "Add to my buyers list" Champ.add "Close RFQ", "Close RFQ" Champ.add "Re open RFQ", "Re open RFQ" Champ.add "Click on the line when highlighted to see the detail of the RFQ", "Click on the line when highlighted to see the detail of the RFQ" Champ.add "Upgrade", "Upgrade" Champ.add "Upgrade pending", "Upgrade pending" Champ.add "Your ask for upgrade to", "Your request for upgrade to" Champ.add "is about to be validated by Subcontract Solutions", "is about to be validated by Subcontract Solutions" Champ.add "Your upgrade will be effective as soon as your paiement will be received", "Your upgrade will be effective as soon as your paiement will be received" Champ.add "Amount", "Amount" Champ.add "Date of validity", "Date of validity" Champ.add "I want to upgrade to", "I want to upgrade to" Champ.add "Business language", "Business language" Champ.add "To quote these RFQ(s), register", "To quote these RFQs, register" Champ.add "To quote this RFQ, register", "To quote this RFQ, register" Champ.add "CA", "Turnover" Champ.add "% Exp.", "% Export" Champ.add "Tel", "Tel" Champ.add "Web", "Web" Champ.add "Managing director", "Managing director" Champ.add "Sales manager", "Sales manager" Champ.add "Production manager", "Production manager" Champ.add "Quality manager", "Quality manager" Champ.add "Dimensions", "Dimensions" Champ.add "Other", "Contact" Champ.add "Photo", "Photo" Champ.add "Logo", "Logo" Champ.add "Voir la Fiche", "View your profile" Champ.add "only", "only" Champ.add "to2", "to" Champ.add "Criterias", "Criterias Search" Champ.add "manufacturing industry", "manufacturing industry" Champ.add "foundry process", "foundry process" Champ.add "forge process", "forge process" Champ.add "foundry material", "material" Champ.add "forge material", "material" Champ.add "ISO qualification", "ISO qualification" Champ.add "required certification", "required certification" Champ.add "doesn't matter", "doesn't matter" Champ.add "Qty per delivery", "Qty per delivery" Champ.add "Estimated qty per year", "Estimated qty / year" Champ.add "Unit weight", "Unit weight" Champ.add "File attachment", "File attachment" Champ.add "Files attachment", "Files attachment" Champ.add "Order requirements", "Order requirements" Champ.add "RFQ closing date", "Closing date" Champ.add "expected order date", "expected order date" Champ.add "Incoterms", "Incoterms" Champ.add "Delivery date", "Delivery date" Champ.add "Place of delivery", "Place of delivery" Champ.add "Item", "Item" Champ.add "please do not insert your coordinates", "please do not insert your contact details" Champ.add "Your RFQ reference", "Your RFQ reference" Champ.add "(city / country)", "(city / country)" Champ.add "Certificate", "Certificate" Champ.add "Status", "Status" Champ.add "Delivery requirements", "Delivery requirements" Champ.add "Place", "Place" Champ.add "Online since", "Online since" Champ.add "open until", "open until" Champ.add "yes", "Yes" Champ.add "complete the informations of the following items", "complete informations of following items" Champ.add "Your unlimited access to Request For Quotations has expired", "Your unlimited access to Request For Quotations has expired" Champ.add "New", "New" Champ.add "Pending", "Pending" Champ.add "navigation problems ?
get latest browser versions", "navigation problems ?
get latest browser versions" Champ.add "Not Disclosed", "Not Disclosed" Champ.add "Decline this RFQ", "Decline this RFQ" Champ.add "Make a new offer", "Make a (new) offer" Champ.add "Pending Offer", "Pending Offer" Champ.add "Offres", "Offers" Champ.add "Offre", "Offer" Champ.add "Liste des offres", "Offers list" Champ.add "Réalisation de l'offre", "Making of offer" Champ.add "Your offer", "Your offer" Champ.add "envoyée le", "sent the" Champ.add "Your offer number", "Your offer number" Champ.add "Your reference", "Your reference" Champ.add "Your name", "Your name" Champ.add "Your Email", "Your Email" Champ.add "Qty/year", "Qty/year" Champ.add "Unit Price", "Unit Price" Champ.add "Total", "Total" Champ.add "Tool cost", "Tool cost" Champ.add "To quote", "To quote" Champ.add "Item declined", "Item declined" Champ.add "Total Offer", "Total Offer" Champ.add "Offer valid until", "Offer valid until" Champ.add "Tool / pattern cost", "Tool / pattern cost" Champ.add "Payment conditions", "Payment conditions" Champ.add "Decline item", "Decline item" Champ.add "Offer conditions", "Offer conditions" Champ.add "D'abord", "First" Champ.add "or", "or" Champ.add "puis", "then" Champ.add "Save offer", "Save offer" Champ.add "Delete offer", "Delete offer" Champ.add "Send offer", "Send offer" Champ.add "View offer", "View before sending" Champ.add "(remplace l'offre précédente)", "(replaces previous offer)" Champ.add "To Company", "To Company" Champ.add "From Company", "From Company" Champ.add "Your contact", "Your contact" Champ.add "Offer reference", "Offer reference" Champ.add "Offer number", "Offer number" Champ.add "Our reference", "Our reference" Champ.add "All prices are in", "All prices are in" Champ.add "Qty/del.", "Qty/del." Champ.add "Supplier country", "Supplier country" Champ.add "Send mail", "Send Mail" Champ.add "RFQ", "RFQ" Champ.add "(buyer's name not disclosed)", "(buyer's name not disclosed)" Champ.add "not active", "not active" Champ.add "Access to price comparison list : ", "Access to price comparison list : " Champ.add "Offer Nb", "Offer Nb" Champ.add "Total Items", "Total Items" Champ.add "Total Tools", "Total Tools" Champ.add "Send", "Send" Champ.add "Offer from", "Offer from" Champ.add "Additional informations", "Additional informations" Champ.add "Prices of this offer are in", "Prices of this offer are in" Champ.add "Incoterms used is", "Incoterms used is" Champ.add "View drawing", "View
sample
drawing" Champ.add "To import into your organizer, click : ", "To import into your organizer, click : " Champ.add "Success stories", "Testimonials" Champ.add "Buyers", "Buyers" Champ.add "Suppliers", "Suppliers" Champ.add "References", "References" Champ.add "New Gold Pass members", "New Gold Pass members" Champ.add "new RFQ to finalise", "new RFQ to finalise" Champ.add "RFQ pending", "RFQ pending" Champ.add "RFQ that are expired or about to expire", "RFQ that are expired" Champ.add "new Search to finalise", "new Search to finalise" Champ.add "Search pending", "Search pending" Champ.add "Search that are expired or about to expire", "Search that are expired" Champ.add "Manufact.", "Manufact." Champ.add "Downloads", "Downloads" Champ.add "Quotes", "Quotes" Champ.add "Creation", "Creation" Champ.add "Validation", "Validation" Champ.add "Offline", "Stand-by" Champ.add "My Suppliers", "My Suppliers" Champ.add "My Contacts", "My Contacts" Champ.add "New RFQ list", "New RFQ list" Champ.add "RFQ under validation by Subcontract Solutions", "Under validation by Subcontract Solutions" Champ.add "New RFQs", "New RFQs" Champ.add "Countries selection", "Countries selection" Champ.add "Countries", "Countries" Champ.add "Not completed", "Not completed" Champ.add "all countries selected", "all countries selected" Champ.add "All countries" , "All countries" Champ.add "File download", "File download" Champ.add "displayed to suppliers", "displayed to suppliers" Champ.add "My internal notes (not displayed to suppliers)", "My internal notes (not displayed to suppliers)" Champ.add "Messages board", "Messages board" Champ.add "BIDDERS LIST", "BIDDERS LIST" Champ.add "DOWNLOADERS LIST", "DOWNLOADERS LIST" Champ.add "Downloads from Subcontract Solutions Gold Pass supplier network", "Downloads from Subcontract Solutions Gold Pass supplier network" Champ.add "Other downloads from Subcontract Solutions supplier network", "Other downloads from Subcontract Solutions supplier network" Champ.add "Offers from Subcontract Solutions Gold Pass supplier network", "Offers from Subcontract Solutions Gold Pass supplier network" Champ.add "Other offers from Subcontract Solutions supplier network", "Other offers from Subcontract Solutions supplier network" Champ.add "Supplier from", "Supplier from" Champ.add "Message type selection", "Message type selection" Champ.add "Selection", "Selection" Champ.add "View", "View" Champ.add "Free text message", "Free text message" Champ.add "Subject", "Subject" Champ.add "Price analysis area", "Price analysis area" Champ.add "To view supplier profile click on", "To view supplier profile click on" Champ.add "Display of offer n°", "Display of offer n°" Champ.add "dated", "dated" Champ.add "My comments", "My comments" Champ.add "Create a new Request For Quotation", "Create a new Request For Quotation" Champ.add "I allow price comparison for suppliers", "I allow price comparison for suppliers" Champ.add "Offers from Gold Pass suppliers", "Offers from Gold Pass suppliers" Champ.add "Offers from Quote Pass suppliers", "Offers from Quote Pass suppliers" Champ.add "My account manager", "My account manager" Champ.add "Manufacturing", "Manufacturing" Champ.add "Materials elaborated", "Materials elaborated" Champ.add "Moulding processes", "Moulding processes" Champ.add "Forging processes", "Forging processes" Champ.add "Qualifications", "Qualifications" Champ.add "View profile", "View profile" Champ.add "Request for quotation list" , "Request for quotation list" Champ.add "Supplier search message list" , "Buy leads" Champ.add "Prec" , "Previous" Champ.add "Next" , "Next" Champ.add "Page" , "Page" Champ.add "Geographical" , "Geographical selection" Champ.add "Search" , "Search" Champ.add "Supplier search messages online" , "Supplier search messages online" Champ.add "Send RFQ" , "send RFQ" Champ.add "Online Directory" , "Online directory" Champ.add "Send Buy Leads" , "send buy leads" Champ.add "View2" , "view" Champ.add "buyleads2" , " buy leads" Champ.add "RFQ2" , " RFQs" Champ.add "Subcontract Solutions", "Subcontract Solutions" Champ.add "FF", "Foundries & Forges area" Champ.add "Our vision" , "Our vision" Champ.add "Find new suppliers" , "Find new suppliers" Champ.add "Meet new buyers" , "meet new buyers" Champ.add "Suppliers to foundries & forges" , "Suppliers to Foundries & Forges" Champ.add "Smart tools" , "Smart tools" Champ.add "Buyers2" , "Buyers area" Champ.add "Suppliers2" , "Suppliers to Foundries & Forges area" Champ.add "FF2", "Foundries & Forges" Champ.add "VDMA" , "VDMA e-markets" Champ.add "buyleads3" , "Buy Leads online" Champ.add "Foundries and Forges" , "foundries & forges" Champ.add "Suppliers3" , "suppliers to foundries & forges" Champ.add "Marketplace" , "Market Place" set Mail=Server.CreateObject("Scripting.Dictionary") Mail.add "Registration in Subcontract Solutions'Supplier Guide", "Registration in Subcontract Solutions Supplier Guide" Mail.add "Registration in Subcontract Solutions'Database", "Registration in Subcontract Solutions" Mail.add "Dear", "Dear" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions'Database is complete.", "We are pleased to inform you that your registration in Subcontract Solutions'Database is complete." Mail.add "Thank you for your registration in Subcontract Solutions' Supplier guide.", "Thank you for your registration in Subcontract Solutions' Supplier guide." Mail.add "Your username and password will be active within 48 hours.", "Your username and password will be active within 48 hours." Mail.add "Once we have received your payment we will activate your listing in the Supplier Guide. You will receive a confirmation when payment has been received.", "Once we have received your payment we will activate your listing in the Supplier Guide. You will receive a confirmation when payment has been received." Mail.add "You have been registered with the following profile", "You have been registered with the following data" Mail.add "Best regards", "Best regards" Mail.add "Customer Service", "Customer Service" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions' Supplier Guide is complete.", "We are pleased to inform you that your registration in Subcontract Solutions' Supplier Guide is effective." Mail.add "Your company is listed with the following details", "Your company is listed with the following data" Mail.add "To change your profile you can go to our site : http://www.subcontractsolutions.com and login with your username and password", "To change your profile you can go to our site : http://www.subcontractsolutions.com and login with your username and password" Mail.add "However, it appears that your company has already been registered by one of your colleagues.", "However, it appears that your company has already been registered." Mail.add "To prevent unnecessary expenses or inconvenience for your firm, may we suggest you consult our contact in your companys", "To prevent unnecessary expenses or inconvenience for your firm, may we suggest you consult our contact in your company" Mail.add "If an error has occurred please accept our apologies.", "If our assumption is wrong please accept our apologies." Mail.add "We shall be awaiting your confirmation before proceeding with your registration.", "We shall be awaiting your confirmation before proceeding with your registration." Mail.add "Please contact us by e-mail at: sales@SubcontractSolutions.com, or call:+33 - (0)3 25 49 03 22", "Please contact us by e-mail at: customerservice@SubcontractSolutions.com, or call:+33 - (0)3 25 49 03 22" Mail.add "Your registration is effective. From now on, with your login and password, you can access your private organizer.", "Your registration is effective. From now on, with your login and password, you can access your private organizer." Mail.add "We highly recommend you to fill up your production capacities and your know-how in our supplier database. You can access it from your private organizer", "We highly recommend you to fill up your production capacities and your know-how in our supplier database. You can access it from your private organizer" Mail.add "Best regards and good sales !", "Best regards and good sales !" Mail.add "Thank you for your registration in Subcontract Solutions'Database.", "Thank you for your registration." Mail.add "Your will receive a confirmation that your account is active within 48 hours.", "You will receive a confirmation that your account is active within 48 hours." Mail.add "An invoice will be sent to you by e-mail within 48 hours", "An invoice will be sent to you by e-mail within 48 hours" Mail.add "You can at any time after that login, view and change your company's profile directly from from our site: http://www.subcontractsolutions.com", "You can at any time after that login, view and change your company's profile directly from from our site: http://www.subcontractsolutions.com" Mail.add "You will receive a confirmation that your account is active once payment has been received", "You will receive a confirmation that your account is active once payment has been received" Mail.add "Thank you for your registration, please find your invoice and registration details below. Your account will be actif once we receive your payment.", "Thank you for your registration, please find your invoice and registration details below. Your account will be activated once your payment has been received." set Jour=Server.CreateObject("Scripting.Dictionary") Jour.add "1", "Sunday" Jour.add "2", "Monday" Jour.add "3", "Tuesday" Jour.add "4", "Wenesday" Jour.add "5", "Thursday" Jour.add "6", "Friday" Jour.add "7", "Saturday" set Mois=Server.CreateObject("Scripting.Dictionary") Mois.add "1", "January" Mois.add "2", "February" Mois.add "3", "March" Mois.add "4", "April" Mois.add "5", "May" Mois.add "6", "June" Mois.add "7", "July" Mois.add "8", "August" Mois.add "9", "September" Mois.add "10", "October" Mois.add "11", "November" Mois.add "12", "December" set State=Server.CreateObject("Scripting.Dictionary") State.add "1", "Crée" State.add "3", "Offert" State.add "4", "En cours" State.add "5", "Suspendue" State.add "7", "En attente" State.add "501", "Fait" State.add "502", "Annulé" State.add "506", "Ré-assigné" %><% case "fr" lg = "fr" %><% set Rubrique=Server.CreateObject("Scripting.Dictionary") Rubrique.add "suppliers", "fournisseurs" Rubrique.add "supplier guide presentation", "presentation du guide fournisseur" Rubrique.add "listing options", "options de referencement" Rubrique.add "registration", "enregistrement" Rubrique.add "supplier search", "recherche fournisseur" Rubrique.add "access supplier guide", "acces guide fournisseur" Rubrique.add "supplier guide", "guide fournisseur" Rubrique.add "foundry & forge database", "base de donnees fonderies et forges" Rubrique.add "subcontract solutions", "subcontract solutions" Rubrique.add "our vision", "notre vision" Rubrique.add "contact us", "contactez nous" Rubrique.add "newsletter", "lettre d'information" Rubrique.add "company", "société" Rubrique.add "products", "produits" Rubrique.add "terms and payment", "Termes et Conditions" Rubrique.add "My company", "Ma société" Rubrique.add "My products", "Mes produits" Rubrique.add "overview", "présentation" Rubrique.add "Smart tools...", "Utilisez les bons outils..." Rubrique.add "SupplierPass", "SupplierPass" Rubrique.add "SupplierMatch", "SupplierMatch" Rubrique.add "Subcontract Organiser", "Subcontract Organiser" Rubrique.add "services", "services" Rubrique.add "ProSolutions", "ProSolutions" Rubrique.add "e-ProSolutions", "e-ProSolutions" Rubrique.add "strategic sourcing", "sourcing stratégique" Rubrique.add "order follow up", "suivi de commande" Rubrique.add "expert services", "services experts" Rubrique.add "prices", "prix" Rubrique.add "consult prices", "consultez nos prix" Rubrique.add "register here", "enregistrez-vous" Rubrique.add "faq", "faq" Rubrique.add "frequently asked questions", "foire aux questions" Rubrique.add "view & quote new RFQs", "les appels d'offre" Rubrique.add "Home", "Accueil" Rubrique.add "My Profile", "Mes données utilisateur" Rubrique.add "My Registration", "Mon abonnement" Rubrique.add "MY RFQ FILES", "MES APPELS D'OFFRE (AOF)" Rubrique.add "New RFQs alerts", "Alertes nouveaux AOF" Rubrique.add "Pending RFQs", "AOF en cours" Rubrique.add "Closed RFQs", "AOF fermés" Rubrique.add "Declined RFQs", "AOF déclinés" Rubrique.add "Create RFQ", "Creation AOF" Rubrique.add "New RFQs", "Nouveaux AOF" Rubrique.add "My Buyers", "Mes acheteurs" Rubrique.add "My Suppliers", "Mes fournisseurs" Rubrique.add "My Contacts", "Mes contacts" Rubrique.add "FOUNDRY", "MES DONNEES FONDERIE" Rubrique.add "Material", "Matière" Rubrique.add "Moulding", "Moulage" Rubrique.add "Facilities", "Installation" Rubrique.add "ISO", "ISO" Rubrique.add "Certification", "Certification" Rubrique.add "Market", "Marché" Rubrique.add "FORGE", "MES DONNEES FORGE" Rubrique.add "Dimensions", "Dimensions" Rubrique.add "Logout", "Déconnexion" Rubrique.add "Management", "Direction" Rubrique.add "MY SUPPLIER SEARCH", "MES RECHERCHES FOURNISSEURS" Rubrique.add "New file alerts", "Alertes nouveaux fichiers" Rubrique.add "Pending searchs", "Recherches en cours" Rubrique.add "Closed searchs", "Recherches fermées" Rubrique.add "Declined searchs", "Recherches déclinées" Rubrique.add "Create search", "Creation recherche" Rubrique.add "New searchs", "Nouvelles recherches" Rubrique.add "MY BUYER LEADS", "MES ANNONCES ACHETEUR" Rubrique.add "Pending leads", "Annonces en cours" Rubrique.add "Closed leads", "Annonces fermées" Rubrique.add "Send Message", "Envoi de Message" Rubrique.add "Online help", "Aide en ligne" set Bouton=Server.CreateObject("Scripting.Dictionary") Bouton.add "boutons/cancelBlank.gif", "boutons_fr/annuler.gif" Bouton.add "boutons/nextBlank.gif", "boutons_fr/suivant.gif" Bouton.add "boutons/backBlank.gif", "boutons_fr/precedent.gif" Bouton.add "boutons/registerBlank.gif", "boutons_fr/enregistrer.gif" Bouton.add "boutons/print.gif", "boutons_fr/imprimer.gif" Bouton.add "boutons/confirmBlank.gif", "boutons_fr/confirmer.gif" Bouton.add "boutons/sendBlank.gif", "boutons/sendBlank.gif" Bouton.add "boutons/notInterested.gif", "boutons_fr/pasInteresse.gif" Bouton.add "boutons/interested.gif", "boutons_fr/interesse.gif" set Titre=Server.CreateObject("Scripting.Dictionary") Titre.add "WF/Activities/Buyers/demande.asp", "Request for Price" Titre.add "WF/Activities/inscriptionFF/inscription.asp", "Registration : company information" Titre.add "WF/Activities/inscriptionFF/produits.asp", "Registration : products" Titre.add "WF/Activities/inscriptionFF/confirmation.asp", "Registration : confirmation" set Champ=Server.CreateObject("Scripting.Dictionary") Champ.add "View your company profile", "Voir votre profil société" Champ.add "Company information", "Informations société" Champ.add "Company name", "Nom société" Champ.add "Bronze listing", "Abonnement Bronze" Champ.add "Silver listing", "Abonnement Argent" Champ.add "Gold listing", "Abonnement Or" Champ.add "Address", "Adresse" Champ.add "Postal code", "Code postal" Champ.add "City", "Ville" Champ.add "Country", "Pays" Champ.add "Phone", "Telephone" Champ.add "Fax", "Fax" Champ.add "URL", "Site Internet" Champ.add "Supplier to Foundries", "Fournisseur aux fonderies" Champ.add "Supplier to Forges", "Fournisseur aux forges" Champ.add "Title", "Civilité" Champ.add "First name", "Prénom" Champ.add "Last name", "Nom" Champ.add "Function", "Fonction" Champ.add "E-mail", "E-mail" Champ.add "Preferred business language", "Langue de travail preferrée" Champ.add "Other languages", "Autres langues" Champ.add "Login", "Identification" Champ.add "Username", "Identifiant" Champ.add "Password", "Mot de passe" Champ.add "Confirm password", "Confirmation mot de passe" Champ.add "I register my company with", "Ma société s'enregistre avec" Champ.add "Your company profile", "Coordonnées société" Champ.add "Contact data", "Coordonnées du contact" Champ.add "required fields", "champs obligatoires" Champ.add "min. 4 characters", "4 caractères mini." Champ.add "VAT excluded / year", "HT / an" Champ.add "VAT excluded", "HT" Champ.add "Setup fee", "Frais d'installation" Champ.add "The following fields are required", "Vous devez remplir les champs suivants" Champ.add "Invalid E-mail", "Adresse e-mail invalide" Champ.add "You have not confirmed the same password", "Vous n avez pas confirmé le même mot de passe" Champ.add "The password must be 4 characters length", "Le mot de passe doit avoir au moins 4 caractères" Champ.add "You must accept the Terms and conditions to register", "Vous devez accepter les Conditions Générales pour pouvoir souscrire" Champ.add "Blank are not allowed in the login", "Les espaces ne sont pas autorisés dans le login" Champ.add "Supplier's products", "Produits référencés" Champ.add "Tick below your products to be referenced", "Cochez ci-dessous la liste des produits à référencer" Champ.add "Products", "Produits" Champ.add "Product", "Produit" Champ.add "Choice", "Choix" Champ.add "Type of registration", "Choix d'abonnement" Champ.add "Listing option", "Abonnement" Champ.add "Bronze", "Bronze" Champ.add "Silver", "Argent" Champ.add "Gold", "Or" Champ.add "Company", "Société" Champ.add "Supplier for", "Fournisseur pour" Champ.add "Founderies", "Fonderies" Champ.add "Forges", "Forges" Champ.add "Foundry", "Fonderie" Champ.add "Forge", "Forge" Champ.add "Contact name", "Nom du contact" Champ.add "Before registering your company, you must accept the Terms & Conditions.", "Avant d'enregistrer votre société, vous devez accepter les Conditions Générales d'Utilisation." Champ.add "I accept the terms & conditions", "J'accepte les Conditions Générales d'Utilisation" Champ.add "Payable by bank transfer to", "Paiement par transfert bancaire à" Champ.add "Order information", "Résumé de votre enregistrement" Champ.add "Products supplied", "Produits référencés" Champ.add "Terms & Conditions", "Conditions Générales" Champ.add "Registering", "Enregistrement" Champ.add "SWIFT address", "Adresse SWIFT" Champ.add "Account number", "n° de compte" Champ.add "Code banque", "Code banque" Champ.add "Code guichet", "Code guichet" Champ.add "Clé RIB", "Clé RIB" Champ.add "Domiciliation", "Domiciliation" Champ.add "Branch", "Succursale" Champ.add "An invoice will be issued as soon as you are registered", "Le cas échéant une facture vous sera envoyée dés votre enregistrement" Champ.add "Invoice", "Facture" Champ.add "Date", "Date" Champ.add "Invoice number", "Facture n°" Champ.add "Recipient", "Destinataire" Champ.add "Account manager", "Administrateur de compte" Champ.add "Before V.A.T. €", "Hors taxes en euros" Champ.add "Total V.A.T. €", "Total T.V.A. en euros" Champ.add "Net due €", "Net à Payer en euros" Champ.add "V.A.T. number", "Numéro de T.V.A." Champ.add "(V.A.T. : 19.6%)", "(Taux T.V.A. : 19,6%)" Champ.add "Exemption VAT - EU delivery - art. 259 A 4° CGI", "Exoneration de la TVA - livraison CEE - art. 259 A 4° CGI" Champ.add "Exemption VAT - art 262 I 1° CGI", "Exoneration de la TVA - art 262 I 1° CGI" Champ.add "Payable by bank transfer", "Payable par virement bancaire" Champ.add "Emetteur", "Emetteur" Champ.add "Request for price", "Demande de prix" Champ.add "I am interested in the following service and would like to receive an offer for it", "Veuillez me faire une offre pour un abonnement à :" Champ.add "Contact informations", "Informations" Champ.add "Annual purchasing potential", "Volume d'achat annuel:" Champ.add "Castings", "Pièces moulées" Champ.add "Forgings", "Pièces forgées" Champ.add "Purchasing volume", "Volume d'achat" Champ.add "Number of RFQs", "Nombre d'appel d'offre" Champ.add "Number of POs", "Nombre de commandes" Champ.add "Number of active suppliers", "Nombre de fournisseurs actifs" Champ.add "Number of other suppliers known", "Nombre de fournisseurs consultés" Champ.add "Number of suppliers to register", "Nombre de fournisseurs à enregistrer" Champ.add "Number of buyers", "Nombre d'acheteurs à enregister" Champ.add "Please type in your comments, if any", "Commentaires" Champ.add "ProSolutions", "ProSolutions" Champ.add "e-ProSolutions", "e-ProSolutions" Champ.add "Subscription", "Abonnement" Champ.add "Casting purchasing volume", "Casting purchasing volume" Champ.add "Forging purchasing volume", "Forging purchasing volume" Champ.add "Number of active casting suppliers", "Number of active casting suppliers" Champ.add "Number of other casting suppliers", "Number of other casting suppliers" Champ.add "Number of active forging suppliers", "Number of active forging suppliers" Champ.add "Number of other forging suppliers", "Number of other forging suppliers" Champ.add "Welcome to your organizer", "Bienvenue dans votre espace de travail" Champ.add "You have", "Vous avez" Champ.add "new RFQs alerts", "Alertes de nouveaux Appels d'Offre" Champ.add "RFQs pending", "Appels d'Offre en cours" Champ.add "RFQs declined", "Appels d'Offre déclinés" Champ.add "You are registered with", "Vous êtes abonné à" Champ.add "from", "du" Champ.add "to", "au" Champ.add "since", "depuis" Champ.add "Your RFQ Credit", "Votre crédit d'Appel d'Offre" Champ.add "You have unlimited Pay-per-view", "Vous avez un accès illimité aux Appels d'Offre" Champ.add "available", "disponible" Champ.add "Upgrade your registration or buy new Pay-per-view", "Modifiez votre enregistrement" Champ.add "click here", "cliquez ici" Champ.add "My Registration", "Mon Abonnement" Champ.add "Registration", "Abonnement" Champ.add "PPV Credit", "Credit AO" Champ.add "Valid until", "Valable jusqu'au" Champ.add "unlimited", "illimité" Champ.add "empty", "épuisé" Champ.add "expired", "expiré" Champ.add "Closed", "Fermé" Champ.add "Payment", "Paiement (uniquement en cas d'inscription payante)" Champ.add "Valid", "Valide" Champ.add "RFQ viewed", "AO vus" Champ.add "Certification", "Certification" Champ.add "Facilities", "Installation" Champ.add "Weight", "Poids" Champ.add "Internal", "Interne" Champ.add "External", "Externe" Champ.add "Rough", "Brut" Champ.add "Rough machined", "Ebauché" Champ.add "Finish machined", "Fini d'usinage" Champ.add "Rough machining", "Usinage d'ébauche" Champ.add "Finish machining", "Usinage de finition" Champ.add "Certified by", "Certifié par" Champ.add "Market", "Marché" Champ.add "Material", "Matière" Champ.add "Weight Range", "Gamme de poids" Champ.add "Tonnage per year", "Tonnage annuel" Champ.add "Moulding process", "Procédé de moulage" Champ.add "Length", "Longueur" Champ.add "Width", "Largeur" Champ.add "Height", "Hauteur" Champ.add "Qty", "Qté" Champ.add "Quantity", "Quantité" Champ.add "Process", "Procédé" Champ.add "Precision", "Precision" Champ.add "Coarse", "Brut" Champ.add "Electrical", "Electrique" Champ.add "Methane", "Methane" Champ.add "On stock", "Sur stock" Champ.Add "Industry", "Industrie" Champ.add "Number of items", "Nombre d'items" Champ.add "Nbr of items", "Nb items" Champ.add "Customer country", "Pays" Champ.add "Market of destination", "Marché de destination" Champ.add "Closing date", "Clôture" Champ.add "Expected order date", "Commande" Champ.add "Buyer", "Acheteur" Champ.add "Quality requirements", "Critères qualité" Champ.add "ISO required", "ISO" Champ.add "required", "requise" Champ.add "not required", "non requise" Champ.add "Material certification", "Certification matière" Champ.add "Items", "Items" Champ.add "Part name", "Nom de la pièce" Champ.add "Supply Status", "Etat de livraison" Champ.add "Size", "Taille" Champ.add "Standard", "Standard" Champ.add "Item detail", "Détail de la pièce" Champ.add "Dimension", "Dimension" Champ.add "General comments", "Commentaires" Champ.add "Viewed", "Vue" Champ.add "My Buyers", "Mes Acheteurs" Champ.add "Contact", "Contact" Champ.add "RFQ Description", "Description AOF" Champ.add "ended", "terminé" Champ.add "metric tons", "Tonnes" Champ.add "Weight part", "Poids pièce" Champ.add "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area", "Pour le procédé de centrifugation renseignez :
- Le diametre max dans la zone de la longueur max,
- l'épaisseur de paroi max dans la zone de largeur max,
- la longueur max dans la zone de la hauteur max" Champ.add "RFQs on line", "Appels d'Offre en ligne" Champ.add "Request For Quotation", "Appel d'Offre" Champ.add "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer.", "Vous êtes intéressé par cet Appel d'Offre,
veuillez entrer votre login et mot de passe pour le récupérer dans votre espace de travail." Champ.add "You are not interested to quote this RFQ,
please enter below your username and password.", "Vous n'êtes pas intéressé par cet Appel d'Offre,
Veuillez entre votre login et mot de passe." Champ.add "If you are not registered and want to quote this RFQ go to the", "Si vous n'êtes pas enregistré et souhaitez consulter cet Appel d'Offre, allez à la " Champ.add "registration page", "page d'enregistrement" Champ.add "This RFQ is now available in your RFQ list in your organizer
", "Cet Appel d'Offre est maintenant disponible dans vos nouvelles alertes
" Champ.add "Supplier searchs on line", "Recherche de fournisseurs en ligne" Champ.add "Supplier search", "Recherche de fournisseurs" Champ.add "Buyer lead", "Annonce acheteur" Champ.add "You are interested to quote this file,
please enter below your username and password to get it in your organizer.", "Vous êtes intéressé par ce fichier,
veuillez entrer votre login et mot de passe pour le récupérer dans votre espace de travail." Champ.add "If you are not registered and want to quote this file go to the", "Si vous n'êtes pas enregistré et souhaitez consulter ce fichier, allez à la " Champ.add "This file is now available in your organizer
", "Ce fichier est maintenant disponible dans votre espace de travail
" Champ.add "Parts description", "Description des pièces" Champ.add "Geographical sourcing", "Sélection géographique" Champ.add "Part(s) name", "Noms des pièces" Champ.add "Your Pay-per-view credit is now : ", "Votre crédit d'appel d'offre est maintenant : " Champ.add "Your Pay-per-view credit is empty !
", "Vous n'avez pas de crédit d'accés aux appels d'offres
" Champ.add "Please contact Subcontract Solutions to upgrade your credit", "Veuillez contacter Subcontract Solutions pour augmenter votre crédit" Champ.add "Your Pay-per-view credit is unlimited", "Votre crédit d'Appel d'Offre est illimité" Champ.add "Your registration has ended since ", "Votre abonnement a pris fin le " Champ.add "This RFQ is still available in your RFQ list in your organizer
", "Cet Appel d'Offre est déjà disponible dans votre espace de travail
" Champ.add "Your Pay-per-view credit is still : ", "Votre crédit d'appel d'offre est toujours : " Champ.add "You are not interested by this RFQ
", "Vous n'êtes pas intéressé par cet appel d'offre
" Champ.add "Your Pay-per-view credit is unchanged", "Votre crédit d'appel d'offre n'a pas changé" Champ.add "Your username and password are valid, but you are not registred as foundry and/or a forge ", "Votre login et mot de passe sont valides, mais vous n'êtes pas enregistré en tant que fonderie et/ou forge " Champ.add "Sorry, but your username and password are not valid ", "Désolé, mais votre login et mot de passe sont invalides " Champ.add "To quote this RFQ you need to upgrade your subscription.", "Pour visualiser cet Appel d'offre, vous devez vous réabonner." Champ.add "You can do this directly from your organiser", "Vous pouvez le faire directement depuis votre espace de travail" Champ.add "This Request For Quotation is not accessible for quote with a freee membership.", "Cet appel d'offre ne peut être chiffré avec un enregistrement gratuit." Champ.add "This Request For Quotation is accessible to registered suppliers with a paying subscription only.", "Note :
Cet appel d'offre n'est accessible qu'aux fournisseurs enregistrés avec un abonnement payant." Champ.add "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer.", "L'accés à cet appel d'offre est réservé aux fournisseurs qui peuvent communiquer directement avec l'acheteur." Champ.add "You too can communicate directly with buyers in changing your registration from your organizer.", "Vous pouvez vous aussi être en prise directe avec les donneurs d'ordre en modifiant votre abonnement depuis votre espace de travail." Champ.add "You are registered :", "Vous êtes abonné :" Champ.add "Please enter your username and password to get it in your organizer", "Veuillez entrer votre login et mot de passe pour récupérer cet Appel d'Offre dans votre espace de travail" Champ.add "You are not registered :", "Vous n'êtes pas abonné :" Champ.add "To have access to this Request For Quotation, please proceed first with your", "Pour chiffrer cet Appel d'Offre, veuillez voir les conditions en cliquant sur " Champ.add "registration", "enregistrement" Champ.add "Specify for machining only", "Ne spécifier que pour l'usinage" Champ.add "Your upgrade is now effective", "Votre réabonnement est maintenant effectif" Champ.add "Pending RFQs", "AO en cours" Champ.add "Description", "Description" Champ.add "Closed RFQs", "AO fermés" Champ.add "(Closed by buyer)", "(Fermé par l'acheteur)" Champ.add "Pending searchs", "Recherches en cours" Champ.add "Closed searchs", "Recherches fermées" Champ.add "Pending leads", "Annonces en cours" Champ.add "Closed leads", "Annonces fermées" Champ.add "New Material", "Nouvelle matière" Champ.add "New Certification", "Nouvelle certification" Champ.add "New Process", "Nouveau procédé" Champ.add "New Facilities", "Nouvelle installation" Champ.add "New ISO", "Nouvelle ISO" Champ.add "New Market", "Nouveau marché" Champ.add "New Moulding", "Nouveau moulage" Champ.add "ISO", "ISO" Champ.add "Can you supply parts elaborated with", "Pouvez vous livrer des pièces élaborées par" Champ.add "Electro Slag Remelting Process (ESR)", "Affinage sous laitier électro fondu (ESR)" Champ.add "Vacuum Oxygen Decarburization Process (VOD)", "Décarburation à l'oxygène sous vide (VOD)" Champ.add "Argon Oxygen Decarburization Process (AOD)", "Décarburation à l'Argon-Oxygène (AOD)" Champ.add "For the process of ring rolling, input :
- max outside diameter in the length max area,
- min inside diameter in the width max area,
- max thickness in the height max area", "Pour le laminage circulaire, renseignez :
- diametre extérieur max dans la zone de la longueur max,
- diametre intérieur min dans la zone de la largeur max,
- épaisseur max dans la zone de la hauteur max" Champ.add "Print", "Imprimer" Champ.add "Help", "Aide" Champ.add "Cancel", "Annuler" Champ.add "Ok", "Valider" Champ.add "Save", "Enregistrer" Champ.add "Put online", "Mettre en ligne" Champ.add "Put offline", "Mettre hors ligne" Champ.add "Add", "Ajouter" Champ.add "Delete", "Supprimer" Champ.add "Upload", "Déposer" Champ.add "Download", "Récupérer" Champ.add "Files", "Plans" Champ.add "File", "Plan" Champ.add "Enter the file to upload :", "Choisissez le fichier à déposer :" Champ.add "Are you sure you want to delete this item ?", "Êtes vous sûr de vouloir supprimer cet item ?" Champ.add "winHelp", "Help_fr.htm" Champ.add "Add to my buyers list", "Ajouter à ma liste d'acheteurs" Champ.add "Close RFQ", "Fermer l'AO" Champ.add "Re open RFQ", "Réouvrir l'AO" Champ.add "Click on the line when highlighted to see the detail of the RFQ", "Cliquez sur la ligne surlignée pour voir les détails de l'Appel d'Offre" Champ.add "Upgrade", "Réabonnement" Champ.add "Upgrade pending", "Réabonnement en cours" Champ.add "Your ask for upgrade to", "Votre demande de réabonnement à" Champ.add "is about to be validated by Subcontract Solutions", "est en cours de traitement par Subcontract Solutions" Champ.add "Your upgrade will be effective as soon as your paiement will be received", "Votre réabonnement sera effectif dés réception de votre paiement" Champ.add "Amount", "Montant" Champ.add "Date of validity", "Dates de validité" Champ.add "I want to upgrade to", "Je veux me réabonner à" Champ.add "Business language", "Langue de travail" Champ.add "To quote these RFQ(s), register", "Pour chiffrer ces Appels d'Offres, enregistrez vous" Champ.add "To quote this RFQ, register", "Pour chiffrer cet Appel d'Offre, enregistrez vous" Champ.add "CA", "CA" Champ.add "% Exp.", "% Export" Champ.add "Tel", "Tel" Champ.add "Web", "Web" Champ.add "Managing director", "Directeur général" Champ.add "Sales manager", "Responsable des ventes" Champ.add "Production manager", "Responsable de production" Champ.add "Quality manager", "Responsable qualité" Champ.add "Dimensions", "Dimensions" Champ.add "Other", "Contact" Champ.add "Photo", "Photo" Champ.add "Logo", "Logo" Champ.add "Voir la Fiche", "Voir votre profil" Champ.add "only", "seulement" Champ.add "to2", "à" Champ.add "Criterias", "Critères de recherche" Champ.add "manufacturing industry", "manufacture" Champ.add "foundry process", "process fonderie" Champ.add "forge process", "process forge" Champ.add "foundry material", "matière" Champ.add "forge material", "matière" Champ.add "ISO qualification", "qualification ISO" Champ.add "required certification", "certificat demandé" Champ.add "doesn't matter", "non requis" Champ.add "Qty per delivery", "Qté par livraison" Champ.add "Estimated qty per year", "Qté estimée / an" Champ.add "Unit weight", "Poids unitaire" Champ.add "File attachment", "Fichier joint" Champ.add "Files attachment", "Fichiers joints" Champ.add "Order requirements", "Conditions de commande" Champ.add "RFQ closing date", "Date de clôture" Champ.add "expected order date", "date probable de commande" Champ.add "Incoterms", "Incoterms" Champ.add "Delivery date", "Date de livraison" Champ.add "Place of delivery", "Lieu de livraison" Champ.add "Item", "Poste" Champ.add "please do not insert your coordinates", "Merci de ne pas mentionner vos coordonnées" Champ.add "Your RFQ reference", "Votre reference d' AOF" Champ.add "(city / country)", "(ville / pays)" Champ.add "Certificate", "Certificat" Champ.add "Status", "Statut" Champ.add "Delivery requirements", "Livraison" Champ.add "Place", "Lieu" Champ.add "Online since", "en ligne depuis" Champ.add "open until", "ouvert jusqu'à" Champ.add "yes", "Oui" Champ.add "complete the informations of the following items", "completez les informations des items suivants" Champ.add "Your unlimited access to Request For Quotations has expired", "Votre accès illimité aux Appels d'Offre a expiré" Champ.add "New", "Nouveau" Champ.add "Pending", "Ouvert" Champ.add "navigation problems ?
get latest browser versions", "problème de navigation ?
téléchargez la dernière version" Champ.add "Not Disclosed", "Non Divulgué" Champ.add "Decline this RFQ", "Décliner l'AO" Champ.add "Make a new offer", "Faire une (nouvelle) offre" Champ.add "Pending Offer", "Offre en cours" Champ.add "Offres", "Offres" Champ.add "Offre", "Offre" Champ.add "Liste des offres", "Liste des offres" Champ.add "Réalisation de l'offre", "Réalisation de l'offre" Champ.add "Your offer", "Votre offre" Champ.add "envoyée le", "envoyée le" Champ.add "Your offer number", "Votre numéro d'offre" Champ.add "Your reference", "Votre référence" Champ.add "Your name", "Votre nom" Champ.add "Your Email", "Votre email" Champ.add "Qty/year", "Qté/an" Champ.add "Unit Price", "Prix Unitaire" Champ.add "Total", "Total" Champ.add "Tool cost", "Cout outillage" Champ.add "To quote", "A chiffrer" Champ.add "Item declined", "Item décliné" Champ.add "Total Offer", "Total Offre" Champ.add "Offer valid until", "Offre valide jusqu'au" Champ.add "Tool / pattern cost", "Cout outillage" Champ.add "Payment conditions", "Conditions de paiement" Champ.add "Decline item", "Decliner le chiffrage" Champ.add "Offer conditions", "Conditions de l'offre" Champ.add "D'abord", "D'abord" Champ.add "or", "ou" Champ.add "puis", "puis" Champ.add "Save offer", "Sauvegarder l'offre" Champ.add "Delete offer", "Supprimer l'offre" Champ.add "Send offer", "Envoyer l'offre" Champ.add "View offer", "Voir avant envoi" Champ.add "(remplace l'offre précédente)", "(remplace l'offre précédente)" Champ.add "To Company", "A la société" Champ.add "From Company", "De la société" Champ.add "Your contact", "Votre contact" Champ.add "Offer reference", "Référence de l'offre" Champ.add "Offer number", "Numéro de l'offre" Champ.add "Our reference", "Notre référence" Champ.add "All prices are in", "Tous les prix sont en" Champ.add "Qty/del.", "Qté/Liv." Champ.add "Supplier country", "Pays du fournisseur" Champ.add "Send mail", "Envoyer le courrier" Champ.add "RFQ", "Appel d'Offre" Champ.add "(buyer's name not disclosed)", "(nom de l'acheteur non divulgué)" Champ.add "not active", "non actif" Champ.add "Access to price comparison list : ", "Accès à la liste de comparaison de prix : " Champ.add "Offer Nb", "N° Offre" Champ.add "Total Items", "Total Items" Champ.add "Total Tools", "Total Outils" Champ.add "Send", "Envoyé" Champ.add "Offer from", "Offre de" Champ.add "Additional informations", "Informations supplémentaires" Champ.add "Prices of this offer are in", "Cette offre est libellée en" Champ.add "Incoterms used is", "L'Incoterm chiffré est" Champ.add "View drawing", "Voir
un extrait
de plan" Champ.add "To import into your organizer, click : ", "Pour l'importer dans votre espace de travail, cliquez : " Champ.add "Success stories", "Témoignages" Champ.add "Buyers", "Acheteurs" Champ.add "Suppliers", "Fournisseurs" Champ.add "References", "References" Champ.add "New Gold Pass members", "Nouveaux membres Gold Pass" Champ.add "new RFQ to finalise", "nouveau(x) AOF à finaliser" Champ.add "RFQ pending", "AOF en cours" Champ.add "RFQ that are expired or about to expire", "AOF expirés" Champ.add "new Search to finalise", "nouvelles recherches à finaliser" Champ.add "Search pending", "Recherche en cours" Champ.add "Search that are expired or about to expire", "Recherche expirés" Champ.add "Manufact.", "Manufact." Champ.add "Downloads", "Téléchargements" Champ.add "Quotes", "Offres" Champ.add "Creation", "Creation" Champ.add "Validation", "Validation" Champ.add "Offline", "Stand-by" Champ.add "My Suppliers", "Mes fournisseurs" Champ.add "My Contacts", "Mes contacts" Champ.add "New RFQ list", "Liste des nouveaux AOF" Champ.add "RFQ under validation by Subcontract Solutions", "En cours de validation par Subcontract Solutions" Champ.add "New RFQs", "Nouveaux AOF" Champ.add "Countries selection", "Sélection Pays" Champ.add "Countries", "Pays" Champ.add "Not completed", "Non saisi" Champ.add "all countries selected", "Tous pays sélectionnés" Champ.add "All countries" , "Tous pays" Champ.add "File download", "Téléchargement" Champ.add "displayed to suppliers", "transmis aux fournisseurs" Champ.add "My internal notes (not displayed to suppliers)", "Notes personnelles (non transmises aux fournisseurs)" Champ.add "Messages board", "Messagerie" Champ.add "BIDDERS LIST", "LISTE DES FOURNISSEURS AYANT FAIT OFFRE" Champ.add "DOWNLOADERS LIST", "LISTE DES FOURNISSEURS QUI ONT ACCEDE A L'APPEL D'OFFRE" Champ.add "Downloads from Subcontract Solutions Gold Pass supplier network", "Fournisseurs appartenant au réseau Gold Pass Subcontract Solutions" Champ.add "Other downloads from Subcontract Solutions supplier network", "Autres fournisseurs du réseau de Subcontract Solutions" Champ.add "Offers from Subcontract Solutions Gold Pass supplier network", "Offres des fournisseurs appartenant au réseau Gold Pass Subcontract Solutions" Champ.add "Other offers from Subcontract Solutions supplier network", "Offres des autres fournisseurs du réseau de Subcontract Solutions" Champ.add "Supplier from", "Fournisseur de" Champ.add "Message type selection", "Selection du type de message" Champ.add "Selection", "Selection" Champ.add "View", "Voir" Champ.add "Free text message", "Message texte libre" Champ.add "Subject", "Objet" Champ.add "Price analysis area", "Espace de comparaison des offres" Champ.add "To view supplier profile click on", "Pour voir le profiil fournisseur cliquer sur" Champ.add "Display of offer n°", "Affichage de l'offre n°" Champ.add "dated", "daté" Champ.add "My comments", "Mes commentaires" Champ.add "Create a new Request For Quotation", "Creation d'un nouvel Appel d'Offre" Champ.add "I allow price comparison for suppliers", "J'autorise la comparaison des offres pour les fournisseurs" Champ.add "Offers from Gold Pass suppliers", "Offres des fournisseurs Gold Pass" Champ.add "Offers from Quote Pass suppliers", "Autres offres des fournisseurs Quote Pass" Champ.add "My account manager", "Mon chargé d'affaire" Champ.add "Manufacturing", "Métier" Champ.add "Materials elaborated", "Matières" Champ.add "Moulding processes", "Procédés de moulage" Champ.add "Forging processes", "Procédés de forge" Champ.add "Qualifications", "Qualifications" Champ.add "View profile", "Voir le profil" Champ.add "Request for quotation list" , "Appels d'Offres à chiffrer" Champ.add "Supplier search message list" , "Annonces acheteurs" Champ.add "Prec" , "Précédent" Champ.add "Next" , "Suivant" Champ.add "Page" , "Page" Champ.add "Geographical" , "Geographie" Champ.add "Search" , "Recherche" Champ.add "Supplier search messages online" , "Recherche d'annonces fournisseurs en ligne" Champ.add "Send RFQ" , "créer un AOF" Champ.add "Online Directory" , "Annuaire en ligne" Champ.add "Send Buy Leads" , "créer annonce acheteur" Champ.add "View2" , "voir" Champ.add "buyleads2" , " annonces acheteurs" Champ.add "RFQ2" , " AOFs" Champ.add "Subcontract Solutions", "Subcontract Solutions" Champ.add "FF", "Espace Fonderies & Forges" Champ.add "Our vision" , "Notre vision" Champ.add "Find new suppliers" , "Trouvez de nouveaux fournisseurs" Champ.add "Meet new buyers" , "Rencontrez de nouveaux acheteurs" Champ.add "Suppliers to foundries & forges" , "Fournisseurs aux Fonderies et Forges" Champ.add "Smart tools" , "Les bons outils" Champ.add "Buyers2" , "Espace Acheteurs" Champ.add "Suppliers2" , "Espace Fournisseurs aux Fonderies & Forges" Champ.add "FF2", "Fonderies & Forges" Champ.add "VDMA" , "VDMA e-markets" Champ.add "buyleads3" , "Annonces acheteurs en ligne" Champ.add "Foundries and Forges" , "fonderies & forges" Champ.add "Suppliers3" , "fournisseurs aux fonderies & forges" Champ.add "Marketplace" , "Place de Marché" set Mail=Server.CreateObject("Scripting.Dictionary") Mail.add "Registration in Subcontract Solutions'Supplier Guide", "Enregistrement dans le guide Fournisseur" Mail.add "Registration in Subcontract Solutions'Database", "Enregistrement à Subcontract Solutions" Mail.add "Dear", "Cher" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions'Database is complete.", "Votre enregistrement dans la base de données de Subcontract Solutions est complète" Mail.add "Thank you for your registration in Subcontract Solutions' Supplier guide.", "Merci de votre enregistrement dans le guide fournisseur" Mail.add "Your username and password will be active within 48 hours.", "Votre identifiant et mot de passe seront actifs sous 48 heures" Mail.add "You can at any time after that login, view and change your company's profile directly from from our site: http://www.subcontractsolutions.com", "Vous pourrez alors accéder et modifier les données de votre enregistrement en ligne en utilisant vos identifiants sur notre site : http://www.subcontractsolutions.com" Mail.add "Once we have received your payment we will activate your listing in the Supplier Guide. You will receive a confirmation when payment has been received.", "Dès réception de votre paiement, votre abonnement sera effectif et votre société apparaîtra dans le guide" Mail.add "You have been registered with the following profile", "Vous êtes enregistré avec les informations suivantes" Mail.add "Best regards", "Sincères salutations" Mail.add "Customer Service", "Service Clients" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions' Supplier Guide is complete.", "Nous vous informons que votre enregistrement est effectif" Mail.add "Your company is listed with the following details", "Votre société est enregistrée avec les informations suivantes" Mail.add "To change your profile you can go to our site : http://www.subcontractsolutions.com and login with your username and password", "Vous pouvez acceder et modifier les données de votre enregistrement en ligne en utilisant vos identifiants sur notre site : http://www.subcontractsolutions.com" Mail.add "However, it appears that your company has already been registered by one of your colleagues.", "Il apparaît que votre société est déjà enregistrée" Mail.add "To prevent unnecessary expenses or inconvenience for your firm, may we suggest you consult our contact in your companys", "Afin d'éviter tout malentendu, veuillez contacter" Mail.add "If an error has occurred please accept our apologies.", "Si ce message est erroné, veuillez nous excuser" Mail.add "We shall be awaiting your confirmation before proceeding with your registration.", "Nous attendons votre confirmation avant de procéder à votre enregistrement" Mail.add "Please contact us by e-mail at: sales@SubcontractSolutions.com, or call:+33 - (0)3 25 49 03 22", "Si nécessaire, n'hésitez pas à nous contacter : customerservice@SubcontractSolutions.com, ou appeler au : +33 - (0)3 25 49 03 22" Mail.add "Your registration is effective. From now on, with your login and password, you can access your private organizer.", "Votre enregistrement est effectif, vous avez désormais accès à votre espace de travail en utilisant vos identifiant et mot de passe." Mail.add "We highly recommend you to fill up your production capacities and your know-how in our supplier database. You can access it from your private organizer", "Nous vous recommandons vivement de remplir avec soins vos capacités de production et vos savoirs-faire dans notre base de données. Vous y accèderez à partir de votre espace de travail" Mail.add "Best regards and good sales !", "Sincères salutations, et bonnes ventes !" Mail.add "Thank you for your registration in Subcontract Solutions'Database.", "Merci de vous être enregistré." Mail.add "Your will receive a confirmation that your account is active within 48 hours.", "Une confirmation de l'ouverture de votre compte vous sera envoyé sous 48 heures" Mail.add "An invoice will be sent to you by e-mail within 48 hours", "Une facture vous sera envoyé par e-mail sous 48 heures" Mail.add "You will receive a confirmation that your account is active once payment has been received", "Dés réception de votre paiement, vous recevrez une confirmation de l'ouverture de votre compte" Mail.add "Please find your invoice and registration details below.", "Veuillez trouver votre facture avec les details de votre abonnement ci-dessous." Mail.add "Your account will be actif once we receive your payment.", "Votre compte sera actif dés reception de votre paiement." Mail.add "Thank you for your registration, please find your invoice and registration details below. Your account will be actif once we receive your payment.", "Merci de vous être enregistré, veuillez trouver votre facture avec les détails de votre abonnement ci-dessous. Votre enregistrement sera actif dés réception de votre paiement." set Jour=Server.CreateObject("Scripting.Dictionary") Jour.add "1", "Dimanche" Jour.add "2", "Lundi" Jour.add "3", "Mardi" Jour.add "4", "Mercredi" Jour.add "5", "Jeudi" Jour.add "6", "Vendredi" Jour.add "7", "Samedi" set Mois=Server.CreateObject("Scripting.Dictionary") Mois.add "1", "Janvier" Mois.add "2", "Février" Mois.add "3", "Mars" Mois.add "4", "Avril" Mois.add "5", "Mai" Mois.add "6", "Juin" Mois.add "7", "Juillet" Mois.add "8", "Août" Mois.add "9", "Septembre" Mois.add "10", "Octobre" Mois.add "11", "Novembre" Mois.add "12", "Decembre" set State=Server.CreateObject("Scripting.Dictionary") State.add "1", "Crée" State.add "3", "Offert" State.add "4", "En cours" State.add "5", "Suspendue" State.add "7", "En attente" State.add "501", "Fait" State.add "502", "Annulé" State.add "506", "Ré-assigné" %><% case "de" lg = "de" %><% set Rubrique=Server.CreateObject("Scripting.Dictionary") Rubrique.add "suppliers", "Lieferant" Rubrique.add "supplier guide presentation", "Lieferanten Führer Präsentation" Rubrique.add "listing options", "Eintrag-Optionen" Rubrique.add "registration", "Eintragen" Rubrique.add "supplier search", "Lieferanten Suche" Rubrique.add "access supplier guide", "Zugang zum Lieferanten Führer" Rubrique.add "supplier guide", "Lieferanten Führer" Rubrique.add "foundry & forge database", "Giesserei & Schmiede Datenbank" Rubrique.add "subcontract solutions", "subcontract solutions" Rubrique.add "our vision", "Unsere Vision" Rubrique.add "contact us", "Kontakt" Rubrique.add "newsletter", "Info-Brief" Rubrique.add "company", "Firma" Rubrique.add "products", "Produkte" Rubrique.add "terms and payment", "G-Bedingungen" Rubrique.add "My company", "Meine Firma" Rubrique.add "My products", "Meine Produkte" Rubrique.add "overview", "Übersicht" Rubrique.add "Smart tools...", "Passende mittel..." Rubrique.add "SupplierPass", "SupplierPass" Rubrique.add "SupplierMatch", "SupplierMatch" Rubrique.add "Subcontract Organiser", "Subcontract Organiser" Rubrique.add "services", "dienstleistungen" Rubrique.add "ProSolutions", "ProSolutions" Rubrique.add "e-ProSolutions", "e-ProSolutions" Rubrique.add "strategic sourcing", "strategisches Beschaffen" Rubrique.add "order follow up", "Auftragsverfolgung" Rubrique.add "expert services", "Fachberatung" Rubrique.add "prices", "Preise" Rubrique.add "consult prices", "Preise einsehen" Rubrique.add "register here", "Hier eintragen" Rubrique.add "faq", "Ogf" Rubrique.add "frequently asked questions", "Oft gestellte Fragen" Rubrique.add "view & quote new RFQs", "Anfragen auf einen Blick" Rubrique.add "Home", "Home" Rubrique.add "My Profile", "Mein Anwenderprofil" Rubrique.add "My Registration", "Meine Eintragung" Rubrique.add "MY RFQ FILES", "MEINE ANFRAGEN (RFQ)" Rubrique.add "New RFQs alerts", "Neue Anfragen Hinweise" Rubrique.add "Pending RFQs", "Offene Anfragen" Rubrique.add "Closed RFQs", "Erledigte Anfragen" Rubrique.add "Declined RFQs", "Abgelehnte Anfragen" Rubrique.add "Create RFQ", "Anfrage neu aufgeben" Rubrique.add "New RFQs", "Neue Anfrage" Rubrique.add "My Buyers", "Meine Kunden" Rubrique.add "My Suppliers", "Meine Lieferanten" Rubrique.add "My Contacts", "Meine Kontakten" Rubrique.add "FOUNDRY", "MEIN FIRMENPROFIL-GIESSEREI" Rubrique.add "Material", "Werkstoffe" Rubrique.add "Moulding", "Formverfahren" Rubrique.add "Facilities", "Anlagen" Rubrique.add "ISO", "ISO" Rubrique.add "Certification", "Zertifizierung" Rubrique.add "Market", "Markt" Rubrique.add "FORGE", "MEIN FIRMENPROFIL-SCHMIEDE" Rubrique.add "Dimensions", "Abmessungen" Rubrique.add "Logout", "Logout" Rubrique.add "Management", "Verwaltung" Rubrique.add "MY SUPPLIER SEARCH", "MEINE LIEFERANTENSUCHEN" Rubrique.add "New file alerts", "Neue Suchen Hinweise" Rubrique.add "Pending searchs", "Offene Suchen" Rubrique.add "Closed searchs", "Erledigte Suchen" Rubrique.add "Declined searchs", "Abgelehnte Suchen" Rubrique.add "Create search", "Suche neu aufgeben" Rubrique.add "New searchs", "Neue Suchen" Rubrique.add "MY BUYER LEADS", "MEINE KAUF INSERAT" Rubrique.add "Pending leads", "Offene Inserate" Rubrique.add "Closed leads", "Erledigte Inserate" Rubrique.add "Send Message", "Nachricht senden" Rubrique.add "Online help", "Online Hilfe" set Bouton=Server.CreateObject("Scripting.Dictionary") Bouton.add "boutons/cancelBlank.gif", "boutons_de/annulieren.gif" Bouton.add "boutons/nextBlank.gif", "boutons_de/weiter.gif" Bouton.add "boutons/backBlank.gif", "boutons_de/zuruck.gif" Bouton.add "boutons/registerBlank.gif", "boutons_de/eintragen.gif" Bouton.add "boutons/print.gif", "boutons_de/drucken.gif" Bouton.add "boutons/confirmBlank.gif", "boutons_de/bestatigen.gif" Bouton.add "boutons/sendBlank.gif", "boutons/sendBlank.gif" Bouton.add "boutons/notInterested.gif", "boutons_de/nichtInteressiert.gif" Bouton.add "boutons/interested.gif", "boutons_de/interessiert.gif" set Titre=Server.CreateObject("Scripting.Dictionary") Titre.add "WF/Activities/Buyers/demande.asp", "Request for Price" Titre.add "WF/Activities/inscriptionFF/inscription.asp", "Registration : company information" Titre.add "WF/Activities/inscriptionFF/produits.asp", "Registration : products" Titre.add "WF/Activities/inscriptionFF/confirmation.asp", "Registration : confirmation" set Champ=Server.CreateObject("Scripting.Dictionary") Champ.add "View your company profile", "Siehe Firmenprofil" Champ.add "Company information", "Firmen Information" Champ.add "Company name", "Firmenname" Champ.add "Bronze listing", "Bronze Eintrag" Champ.add "Silver listing", "Silber Eintrag" Champ.add "Gold listing", "Gold Eintrag" Champ.add "Address", "Adresse" Champ.add "Postal code", "Postleitzahl" Champ.add "City", "Stadt" Champ.add "Country", "Land" Champ.add "Phone", "Telefon" Champ.add "Fax", "Fax" Champ.add "URL", "Website" Champ.add "Supplier to Foundries", "Gießerei Zulieferer" Champ.add "Supplier to Forges", "Schmiede Zulieferer" Champ.add "Title", "Anrede" Champ.add "First name", "Vorname" Champ.add "Last name", "Nachname" Champ.add "Function", "Position" Champ.add "E-mail", "E-mail" Champ.add "Preferred business language", "Bevorzugte Geschäftssprache" Champ.add "Other languages", "andere Sprachen" Champ.add "Login", "Ansprechpartner Identifikation" Champ.add "Username", "Anwendername" Champ.add "Password", "Passwort" Champ.add "Confirm password", "Passwort Bestätigung" Champ.add "I register my company with", "Ich registriere meine Firma mit" Champ.add "Your company profile", "Ihre Firmenkoordinaten" Champ.add "Contact data", "Firmen Kontaktkoordinaten" Champ.add "required fields", "vorgesehens Feld" Champ.add "min. 4 characters", "min. 4 zeichen" Champ.add "VAT excluded / year", "/ Jahr, ohne MWSt" Champ.add "VAT excluded", "ohne MWSt" Champ.add "Setup fee", "Einrichten" Champ.add "The following fields are required", "Zutreffende Felder ausfüllen" Champ.add "Invalid E-mail", "ungültige E-Mail Anschrift" Champ.add "You have not confirmed the same password", "Sie haben versäumt Ihr Passwort zu wiederholen" Champ.add "The password must be 4 characters length", "Ihr Passwort muß aus mindestens 4 Zeichen bestehen" Champ.add "You must accept the Terms and conditions to register", "Zum Eintragen müssen Sie die G & Z Bedingungen bestätigen" Champ.add "Blank are not allowed in the login", "Hier bitte login ohne Leertaste eingeben" Champ.add "Supplier's products", "Produkt-Referenzliste" Champ.add "Tick below your products to be referenced", "Klicken Sie auf Ihre jeweiligen Lieferprodukte" Champ.add "Products", "Produkte" Champ.add "Product", "Produkt" Champ.add "Choice", "Auswahl" Champ.add "Type of registration", "Eintrags-Art" Champ.add "Listing option", "Eintrags-Optionen" Champ.add "Bronze", "Bronze" Champ.add "Silver", "Silber" Champ.add "Gold", "Gold" Champ.add "Company", "Firma" Champ.add "Supplier for", "Zulieferer für" Champ.add "Founderies", "Gießereien" Champ.add "Forges", "Schmieden" Champ.add "Foundry", "Gießereien" Champ.add "Forge", "Schmieden" Champ.add "Contact name", "Ansprechpartner" Champ.add "Before registering your company, you must accept the Terms & Conditions.", "Vor dem Eintragen sind die Gerschäftsbedingungen zu bestätigen." Champ.add "I accept the terms & conditions", "Ich akzeptiere die Geschäftsbedingungen" Champ.add "Payable by bank transfer to", "Zahlbar per Banküberweisung an" Champ.add "Order information", "Eintrags-Resümee" Champ.add "Products supplied", "Referenz-Produkte" Champ.add "Terms & Conditions", "G & Z-Bedingungen" Champ.add "Payment", "Zahlungsmodalität (nur für zahlende Mietglieder zutreffend)" Champ.add "Registering", "Eintragen" Champ.add "SWIFT address", "SWIFT DRESS" Champ.add "Account number", "Konto-Nummer" Champ.add "Code banque", "Bankleitzahl" Champ.add "Code guichet", "Branchenkennziffer" Champ.add "Clé RIB", "Kennziffer" Champ.add "Domiciliation", "Domizil" Champ.add "Branch", "Branche" Champ.add "An invoice will be issued as soon as you are registered", "Wenn zuttrefend wird Ihnen eine Rechnung nach erfolgtem Eintragen zugesandt" Champ.add "Invoice", "Rechnung" Champ.add "Date", "Datum" Champ.add "Invoice number", "Rechnungs-Nummer" Champ.add "Recipient", "Empfänger" Champ.add "Account manager", "Buchhaltungs-Kontaktperson" Champ.add "Before V.A.T. €", "Preise auschl.MWST in euros" Champ.add "Total V.A.T. €", "MWST Betrag in euros" Champ.add "Net due €", "Netto-Betrag in euros" Champ.add "V.A.T. number", "MWSt-Nr" Champ.add "(V.A.T. : 19.6%)", "(MWST. : 19.6%)" Champ.add "Exemption VAT - EU delivery - art. 259 A 4° CGI", "MWSt-Befreiung-gemäß - EU Lieferung - art. 259 A 4° CGI" Champ.add "Exemption VAT - art 262 I 1° CGI", "MWSt-Befreiung-gemäß - art 262 I 1° CGI" Champ.add "Payable by bank transfer", "Zahlbar per Banküberweisung" Champ.add "Emetteur", "Absender" Champ.add "Request for price", "Preisanfrage" Champ.add "I am interested in the following service and would like to receive an offer for it", "Ich bin an nachstehendem Service interessiert und bitte um ein Angebot:" Champ.add "Contact informations", "Kontaktkoordinaten" Champ.add "Annual purchasing potential", "Jahresbedarf an:" Champ.add "Castings", "Gußteilen" Champ.add "Forgings", "Schmiedeteilen" Champ.add "Purchasing volume", "Einkaufsvolumen" Champ.add "Number of RFQs", "Anzahl an Anfragen" Champ.add "Number of POs", "Anzahl an Aufträge" Champ.add "Number of active suppliers", "Anzahl aktiver Lieferanten" Champ.add "Number of other suppliers known", "Anzahl bekannter Lieferanten" Champ.add "Number of suppliers to register", "Anzahl der einzutragenden Lieferanten" Champ.add "Number of buyers", "Anzahl der Einkäufer" Champ.add "Please type in your comments, if any", "Bitte geben Sie hier Bemerkungen ein soweit erforderlich" Champ.add "ProSolutions", "ProSolutions" Champ.add "e-ProSolutions", "e-ProSolutions" Champ.add "Subscription", "Eintragung" Champ.add "Casting purchasing volume", "Guss-Einkaufsvolumen" Champ.add "Forging purchasing volume", "Schmiede-Einkaufsvolumen" Champ.add "Number of active casting suppliers", "Anzahl aktiver Guss-Lieferanten" Champ.add "Number of other casting suppliers", "Anzahl bekannter Guss-Lieferanten" Champ.add "Number of active forging suppliers", "Anzahl aktiver Schmiede-Lieferanten" Champ.add "Number of other forging suppliers", "Anzahl bekannter Schmiede-Lieferanten" Champ.add "Welcome to your organizer", "Willkommen in Ihren Ordner-Seiten" Champ.add "You have", "Sie haben" Champ.add "new RFQs alerts", "Neue Anfragen (RFQ) Hinweise" Champ.add "RFQs pending", "Offene Anfragen" Champ.add "RFQs declined", "Abgelehnte Anfragen" Champ.add "You are registered with", "Sie sind eingetragen mit" Champ.add "from", "von" Champ.add "to", "zu" Champ.add "since", "seit" Champ.add "Your RFQ Credit", "Ihr Anfragen-Guthaben" Champ.add "You have unlimited Pay-per-view", "Sie haben unbegrenzt Zugang zu Anfragen" Champ.add "available", "verfügbar" Champ.add "Upgrade your registration or buy new Pay-per-view", "Aktualisieren Ihres Eintrags" Champ.add "click here", "hier klicken" Champ.add "My Registration", "Meine Registrierung" Champ.add "Registration", "Registrierung" Champ.add "PPV Credit", "Anfragen-Guthaben" Champ.add "Valid until", "Gültig bis" Champ.add "unlimited", "unbegrenzt" Champ.add "empty", "leer" Champ.add "expired", "abgelaufen" Champ.add "Closed", "Abgeschlossen" Champ.add "Valid", "Gültig" Champ.add "RFQ viewed", "eigesehene Anfragen" Champ.add "Certification", "Zeugniserteilung" Champ.add "Facilities", "Produktions-Anlagen" Champ.add "Weight", "Gewicht" Champ.add "Internal", "Intern" Champ.add "External", "Extern" Champ.add "Rough", "Roh" Champ.add "Rough machined", "vorbearbeitet" Champ.add "Finish machined", "fertigbearbeitet" Champ.add "Rough machining", "Vorbearbeitung" Champ.add "Finish machining", "Fertigbearbeitung" Champ.add "Certified by", "Geprüft durch" Champ.add "Market", "Markt" Champ.add "Material", "Werkstoff" Champ.add "Weight Range", "Gewichtsbereich" Champ.add "Tonnage per year", "Jahrestonnage" Champ.add "Moulding process", "Formverfahren" Champ.add "Length", "Länge" Champ.add "Width", "Breite" Champ.add "Height", "Höhe" Champ.add "Qty", "Menge" Champ.add "Quantity", "Menge" Champ.add "Process", "Verfahren" Champ.add "Precision", "Präzision" Champ.add "Coarse", "Grob" Champ.add "Electrical", "Elektro" Champ.add "Methane", "Methane" Champ.add "On stock", "Vorrätig" Champ.Add "Industry", "Industrie" Champ.add "Number of items", "Positionen#" Champ.add "Nbr of items", "Pos#" Champ.add "Customer country", "Käuferland" Champ.add "Market of destination", "Marktsegment" Champ.add "Closing date", "Fälligkeits" Champ.add "Expected order date", "Auftragstermin" Champ.add "Buyer", "Käufer" Champ.add "Quality requirements", "Qualitätsanforderungen" Champ.add "ISO required", "ISO Nachweis" Champ.add "required", "Erforderlich" Champ.add "not required", "nicht Erforderlich" Champ.add "Material certification", "Werkstoff-Zertifikat" Champ.add "Items", "Positionen" Champ.add "Part name", "Teilbezeichnung" Champ.add "Supply Status", "Lieferzustand" Champ.add "Size", "Größe" Champ.add "Standard", "Standard" Champ.add "Item detail", "Pos.-Detail" Champ.add "Dimension", "Abmessungen" Champ.add "General comments", "Bemerkungen" Champ.add "Viewed", "eingesehen" Champ.add "My Buyers", "Meine Kunden" Champ.add "Contact", "Kontakt" Champ.add "RFQ Description", "Anfrage Beschreibung" Champ.add "ended", "beendet" Champ.add "metric tons", "metrische Tonne" Champ.add "Weight part", "Stückgewicht" Champ.add "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area", "Für das Schleudergußverfahren bitte eingeben :
- den max Durchmesser ins Feld 'Lânge max',
- die max Wandstärke ins Feld 'Breite max',
- die max Lânge ins Feld 'Höhe max'" Champ.add "RFQs on line", "Anfragen online" Champ.add "Request For Quotation", "Anfragen" Champ.add "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer.", "Sie haben Interesse diese Anfrage anzubieten, dann geben Sie bitte in den nachstehenden Feldern Ihren Anwendernamen und das Passwort ein, um sie in Ihren Ordner aufzunehmen." Champ.add "You are not interested to quote this RFQ,
please enter below your username and password.", "Sie haben kein Interesse diese Anfrage anzubieten, dann geben Sie bitte in den nachstehenden Feldern Ihren Anwendernamen und das Passwort ein." Champ.add "If you are not registered and want to quote this RFQ go to the", "Wenn Sie noch nicht eingetragen sind, jedoch diese Anfrage bedienen möchten, gehen Sie bitte zur" Champ.add "registration page", "Seite Eintragen" Champ.add "This RFQ is now available in your RFQ list in your organizer
", "Diese Anfrage ist jetzt einsehbar als Hinwein in Ihrer Liste neuer Anfragenhinweise in Ihres Ordners
" Champ.add "Supplier searchs on line", "Lieferantensuchen online" Champ.add "Supplier search", "Lieferantensuche" Champ.add "Buyer lead", "Kauf Inserate" Champ.add "You are interested to quote this file,
please enter below your username and password to get it in your organizer.", "Sie haben Interesse diese Suche anzubieten, dann geben Sie bitte in den nachstehenden Feldern Ihren Anwendernamen und das Passwort ein, um sie in Ihren Ordner aufzunehmen." Champ.add "If you are not registered and want to quote this file go to the", "Wenn Sie noch nicht eingetragen sind, jedoch diese Suche bedienen möchten, gehen Sie bitte zur" Champ.add "This file is now available in your organizer
", "Diese Suche ist jetzt einsehbar in Ihres Ordners
" Champ.add "Your Pay-per-view credit is now : ", "Ihr RFQ-credit beträgt jetzt : " Champ.add "Your Pay-per-view credit is empty !
", "Sie haben kein RFQ-credit
" Champ.add "Please contact Subcontract Solutions to upgrade your credit", "Bitte nehmen sie mit Subcontract Solutions Kontakt auf um Ihren 'RFQ-credit' zu erneuern " Champ.add "Your Pay-per-view credit is unlimited", "Sie verfügen über unbegrenzten RFQ-credit" Champ.add "Your registration has ended since ", "Ihr Eintrag ist abgelaufen seit " Champ.add "This RFQ is still available in your RFQ list in your organizer
", "Diese Anfrage ist bereits in der Anfrageliste Ihres Ordners enthalten
" Champ.add "Your Pay-per-view credit is still : ", "Ihr RFQ-credit beträgt noch : " Champ.add "You are not interested by this RFQ
", "Sie sind nicht an dieser Anfrage interessiert
" Champ.add "Your Pay-per-view credit is unchanged", "Ihr RFQ-credit ist unverändert" Champ.add "Your username and password are valid, but you are not registred as foundry and/or a forge ", "Ihr Anwendername und Passwort sind gültig, aber Sie sind nicht als Gießerei und/oder Schmiede registriert " Champ.add "Sorry, but your username and password are not valid ", "Bedaure, aber Ihr Anwendername und Passwort sind ungültig " Champ.add "To quote this RFQ you need to upgrade your subscription.", "Um diese Anfrage bedienen zu können, bedarf es einer Erneuerung Ihres Eintrags." Champ.add "You can do this directly from your organiser", "Sie können dies direkt von Ihrem Ordner aus vornehmen" Champ.add "This Request For Quotation is not accessible for quote with a freee membership.", "Diese Anfrage ist nicht zugänglich im Gebührenfreien Eintrag." Champ.add "This Request For Quotation is accessible to registered suppliers with a paying subscription only.", "Bemerkung :
Diese Anfrage ist nur zahlenden Mitgliedern Zugänglich." Champ.add "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer.", "Diese Anfrage ist nur Mitgliedern zugänglich die direkt mit dem Kaüfer kommunizieren." Champ.add "You too can communicate directly with buyers in changing your registration from your organizer.", "Sie können ebenfalls direkt mit dem Kaüfer kommunizieren, sofern Sie Ihren Eintrag vom Ihren Ordnerseiten aus entsprechend erneuern." Champ.add "You are registered :", "Sie sind eingetragen :" Champ.add "Please enter your username and password to get it in your organizer", "Bitte Ihren Anwendername und das Passwort eingeben, um diese Anfrage in Ihren Ordner aufzuhnehmen" Champ.add "You are not registered :", "Sie sind nicht eingetragen :" Champ.add "To have access to this Request For Quotation, please proceed first with your", "Um diese Anfrage bedienen zu können, öffnen Sie bitte die Bedingungen durch klicken auf" Champ.add "registration", "Eintragen" Champ.add "Specify for machining only", "Nur für das mechanische Bearbeiten spezifizieren" Champ.add "Your upgrade is now effective", "Ihre Erneuerung ist freigeschaltet" Champ.add "Pending RFQs", "Offene Anfragen" Champ.add "Description", "Beschreibung" Champ.add "Closed RFQs", "Erledigte Anfragen" Champ.add "(Closed by buyer)", "(Erledigt durch den Käufer)" Champ.add "Pending searchs", "Offene Suchen" Champ.add "Closed searchs", "Erledigte Suchen" Champ.add "Pending leads", "Offene Inserate" Champ.add "Closed leads", "Erledigte Inserate" Champ.add "Parts description", "Teilbeschreibung" Champ.add "Geographical sourcing", "Geographische Suche" Champ.add "Part(s) name", "Teilbezeichnungen" Champ.add "New Material", "Neuer Werkstoff" Champ.add "New Certification", "Neue Zeugniserteilung" Champ.add "New Process", "Neues Verfahren" Champ.add "New Facilities", "Neue Produktionsanlagen" Champ.add "New ISO", "Neue ISO" Champ.add "New Market", "Neue Märkte" Champ.add "New Moulding", "Neue Formverfahren" Champ.add "ISO", "ISO" Champ.add "Can you supply parts elaborated with", "Können sie Teile liefern, hergestellt nach dem" Champ.add "Electro Slag Remelting Process (ESR)", "Elektro-Schlacke-Umschmelzverfahren (ESU)" Champ.add "Vacuum Oxygen Decarburization Process (VOD)", "Vacuum Oxygen Decarburization Verfahren (VOD)" Champ.add "Argon Oxygen Decarburization Process (AOD)", "Argon Oxygen Decarburization Verfahren (AOD)" Champ.add "For the process of ring rolling, input :
- max outside diameter in the length max area,
- min inside diameter in the width max area,
- max thickness in the height max area", "Für Ringwalzen bitte eingeben :
- den max Außen-Durchmesser ins Feld 'Lânge max',
- den min Innen-Durchmesser ins Feld 'Breite max',
- die max Breite ins Feld 'Höhe max'" Champ.add "Print", "Print" Champ.add "Help", "Hilfe" Champ.add "Cancel", "Annullieren" Champ.add "Ok", "Gültig" Champ.add "Save", "Sichern" Champ.add "Put online", "Online schalten" Champ.add "Put offline", "Offline nehmen" Champ.add "Add", "Hinzufügen" Champ.add "Delete", "Löschen" Champ.add "Upload", "Heraufladen" Champ.add "Download", "Herunterladen" Champ.add "Files", "Zeichnungen" Champ.add "File", "Zeichnung" Champ.add "Enter the file to upload :", "Die Akte eingeben zum heraufladen :" Champ.add "Are you sure you want to delete this item ?", "Sind Sie sicher diese Position zu löschen ?" Champ.add "winHelp", "Help_de.htm" Champ.add "Add to my buyers list", "Meiner Kundenliste hinzufügen" Champ.add "Close RFQ", "Anfrage erledigt" Champ.add "Re open RFQ", "Anfrage wieder öffnen" Champ.add "Click on the line when highlighted to see the detail of the RFQ", "Klicken Sie auf die jeweilige Zeile um die Anfragedetails einzusehen" Champ.add "Upgrade", "Erneuern" Champ.add "Upgrade pending", "Erneuerung läuft" Champ.add "Your ask for upgrade to", "Ihre Bitte der Erneurung zu" Champ.add "is about to be validated by Subcontract Solutions", "wird gegenwärtig von Subcontract Solutions freigeschaltet " Champ.add "Your upgrade will be effective as soon as your paiement will be received", "Ihr erneuter Eintrag wird unmittelbar nach Geldeingang freigeschaltet" Champ.add "Amount", "Betrag" Champ.add "Date of validity", "Gültigkeits-Datum" Champ.add "I want to upgrade to", "Ich bitte um erneuerten Eintrag zu" Champ.add "Business language", "Geschäftssprache" Champ.add "To quote these RFQ(s), register", "Um diese Anfragen anzubieten, hier bitte eintragen" Champ.add "To quote this RFQ, register", "Um diese Anfrage anzubieten, hier bitte eintragen" Champ.add "CA", "Umsatz" Champ.add "% Exp.", "% Export." Champ.add "Tel", "Tel" Champ.add "Web", "Web" Champ.add "Managing director", "GeschäftsFührer" Champ.add "Sales manager", "VerkaufsLeiter" Champ.add "Production manager", "ProduktionsLeiter" Champ.add "Quality manager", "Leiter QualitätsSicherung" Champ.add "Dimensions", "Abmessungen" Champ.add "Other", "Kontakt" Champ.add "Photo", "Foto" Champ.add "Logo", "Logo" Champ.add "Voir la Fiche", "Firmenprofil einsehen" Champ.add "only", "nur" Champ.add "to2", "zu" Champ.add "Criterias", "Kriterien" Champ.add "manufacturing industry", "Herstellungszweig" Champ.add "foundry process", "Gießverfahren" Champ.add "forge process", "Schmiedeverfahren" Champ.add "foundry material", "Werkstoff" Champ.add "forge material", "Werkstoff" Champ.add "ISO qualification", "ISO Qualifikation" Champ.add "required certification", "Zeugnisnachweis" Champ.add "doesn't matter", "nicht relevant" Champ.add "Qty per delivery", "Menge pro Lieferung" Champ.add "Estimated qty per year", "ca. Jahresbedarf" Champ.add "Unit weight", "Stückgewicht" Champ.add "File attachment", "Anlage" Champ.add "Files attachment", "Anlagen" Champ.add "Order requirements", "Auftragsspezifikation" Champ.add "RFQ closing date", "Angebotstermin" Champ.add "expected order date", "Auftragserteilung" Champ.add "Incoterms", "Incoterms" Champ.add "Delivery date", "Liefertermin" Champ.add "Place of delivery", "Lieferort" Champ.add "Item", "Position" Champ.add "please do not insert your coordinates", "Bitte nicht Ihre Koordinaten einsetzen" Champ.add "Your RFQ reference", "Ihr Anfrage Betreff" Champ.add "(city / country)", "(Stadt / Land)" Champ.add "Certificate", "Zeugnis" Champ.add "Status", "Status" Champ.add "Delivery requirements", "Lieferzustand" Champ.add "Place", "Ort" Champ.add "Online since", "Online seit" Champ.add "open until", "offen bis" Champ.add "yes", "Ja" Champ.add "New", "Neue" Champ.add "Pending", "Offene" Champ.add "complete the informations of the following items", "bitte ergänzen Sie nachstehende Infos der Pos." Champ.add "Your unlimited access to Request For Quotations has expired", "Ihr unbegrenzter Zugriff auf Anfragen ist abgelaufen" Champ.add "navigation problems ?
get latest browser versions", "Probleme mit Navigation ?
Neueste Browser Version laden" Champ.add "Not Disclosed", "Nicht Benannt" Champ.add "Decline this RFQ", "Anfrage ablehnen" Champ.add "Make a new offer", "(Neues) Angebot" Champ.add "Pending Offer", "Offene Angebote" Champ.add "Offres", "Angebote" Champ.add "Offre", "Angebot" Champ.add "Liste des offres", "Angebotsliste" Champ.add "Réalisation de l'offre", "Angebot" Champ.add "Your offer", "Ihr Angebot" Champ.add "envoyée le", "vom" Champ.add "Your offer number", "Ihr Angebot Nr." Champ.add "Your reference", "Ihre Ref." Champ.add "Your name", "Ihre Name" Champ.add "Your Email", "Ihre Email" Champ.add "Qty/year", "Menge/Jahr" Champ.add "Unit Price", "Stückpreis" Champ.add "Total", "Gesamt" Champ.add "Tool cost", "Werkzeugkosten" Champ.add "To quote", "Pos. noch anzubieten" Champ.add "Item declined", "Pos. abgelehnt" Champ.add "Total Offer", "Ges. Angeb. Wert" Champ.add "Offer valid until", "Angebotsgültigkeit" Champ.add "Tool / pattern cost", "Werkzeug/Model Kosten" Champ.add "Payment conditions", "Zahlung" Champ.add "Decline item", "Position ablehnen" Champ.add "Offer conditions", "Angebotsbedingungen" Champ.add "D'abord", "Erste" Champ.add "or", "oder" Champ.add "puis", "dann" Champ.add "Save offer", "Angebot speichern" Champ.add "Delete offer", "Angebot löschen" Champ.add "Send offer", "Angebot senden" Champ.add "View offer", "Lesen vor dem Senden" Champ.add "(remplace l'offre précédente)", "(Ersatz für vorheriges Angebot)" Champ.add "To Company", "An Firma" Champ.add "From Company", "Von Firma" Champ.add "Your contact", "Kontaktperson" Champ.add "Offer reference", "Angebotsreferenz" Champ.add "Offer number", "Angebots Nr." Champ.add "Our reference", "Unser Referenz" Champ.add "All prices are in", "Alle Preise sind in" Champ.add "Qty/del.", "Menge/Los" Champ.add "Supplier country", "LiefererLand" Champ.add "Send mail", "Email senden" Champ.add "RFQ", "Anfrage" Champ.add "(buyer's name not disclosed)", "(Kunde Name nicht bennant)" Champ.add "not active", "nicht aktiv" Champ.add "Access to price comparison list : ", "Zugriff auf Preisvergleichsliste : " Champ.add "Offer Nb", "Angebot Nr." Champ.add "Total Items", "Ges. Pos." Champ.add "Total Tools", "Ges. Werkzg." Champ.add "Send", "Senden" Champ.add "Offer from", "Angebot aus" Champ.add "Additional informations", "Zusätzliche Information" Champ.add "Prices of this offer are in", "Preise dieses Angebotes sind in" Champ.add "Incoterms used is", "angewandte Incoterms ist" Champ.add "View drawing", "Musterzeichnung
einsehen" Champ.add "To import into your organizer, click : ", "Um in ihren Ordner aufzunehmen, bitte klicken Sie hier : " Champ.add "Success stories", "Verlautbarungen" Champ.add "Buyers", "Kaüfer" Champ.add "Suppliers", "Lieferanten" Champ.add "References", "Referenzen" Champ.add "New Gold Pass members", "Neue Gold Pass Mitglieder" Champ.add "new RFQ to finalise", "neue Anfragen zu erledigen" Champ.add "RFQ pending", "Offene Anfragen" Champ.add "RFQ that are expired or about to expire", "fällige Anfragen" Champ.add "new Search to finalise", "neue Suchen zu erledigen" Champ.add "Search pending", "Offene Suchen" Champ.add "Search that are expired or about to expire", "fällige Suchen" Champ.add "Manufact.", "Herstellung" Champ.add "Downloads", "Herunterladende" Champ.add "Quotes", "Angebote" Champ.add "Creation", "Erstellung" Champ.add "Validation", "Bearbeitung" Champ.add "Offline", "Stand-by" Champ.add "My Suppliers", "Meine Lieferanten" Champ.add "My Contacts", "Meine Kontakten" Champ.add "New RFQ list", "Liste neuer Anfragen" Champ.add "RFQ under validation by Subcontract Solutions", "Zur bearbeitung durch Subcontract Solutions" Champ.add "New RFQs", "Neue Anfrage" Champ.add "Countries selection", "Länderauswahl" Champ.add "Countries", "Länder" Champ.add "Not completed", "Nicht vollständig" Champ.add "all countries selected", "Suchen in allen Ländern" Champ.add "All countries" , "Alle Länder" Champ.add "File download", "Anlage (herunterladen)" Champ.add "displayed to suppliers", "gerichtet an Lieferanten" Champ.add "My internal notes (not displayed to suppliers)", "Meine internen Bmerkungen (nicht einsehbar von Lieferanten)" Champ.add "Messages board", "Mitteilungs" Champ.add "BIDDERS LIST", "ANBIETER LISTE" Champ.add "DOWNLOADERS LIST", "DOWNLOADERS LISTE" Champ.add "Downloads from Subcontract Solutions Gold Pass supplier network", "Downloads von Subcontract Solutions Gold Pass-Lieferanten Netz" Champ.add "Other downloads from Subcontract Solutions supplier network", "Weitere Downloads von Subcontract Solutions Lieferanten Netz" Champ.add "Offers from Subcontract Solutions Gold Pass supplier network", "Offerten von Subcontract Solutions Gold Pass-Lieferanten Netz" Champ.add "Other offers from Subcontract Solutions supplier network", "Weitere Offerten von Subcontract Solutions Lieferanten Netz" Champ.add "Supplier from", "Lieferante von" Champ.add "Message type selection", "Nachricht Typen Auswahl" Champ.add "Selection", "Selektion" Champ.add "View", "Einsehen" Champ.add "Free text message", "Freie Text Nachricht" Champ.add "Subject", "Betr" Champ.add "Price analysis area", "Preisvergleiszone" Champ.add "To view supplier profile click on", "Lieferanten profil einsehen unter" Champ.add "Display of offer n°", "Anzeigen der Offerte #" Champ.add "dated", "Datum" Champ.add "My comments", "Meine Bemerkungen" Champ.add "Create a new Request For Quotation", "Neue Anfrage entwerfen" Champ.add "I allow price comparison for suppliers", "Ich gestatte Lieferanten den Preisvergleich" Champ.add "Offers from Gold Pass suppliers", "Offerten von Gold Pass Lieferanten" Champ.add "Offers from Quote Pass suppliers", "Offerten von Angebotspass Lieferanten" Champ.add "My account manager", "Mein Service-Manager" Champ.add "Manufacturing", "Erstellung" Champ.add "Materials elaborated", "Erstellte Werkstoffe" Champ.add "Moulding processes", "Formverfahren" Champ.add "Forging processes", "Schmiedeverfahren" Champ.add "Qualifications", "Qualifikationen" Champ.add "View profile", "Profil einsehen" Champ.add "Request for quotation list" , "Anfrageliste" Champ.add "Supplier search message list" , "Kauf Inserate" Champ.add "Prec" , "Zurück" Champ.add "Next" , "Nächste" Champ.add "Page" , "Seite" Champ.add "Geographical" , "Geographisch" Champ.add "Search" , "Suche Start" Champ.add "Supplier search messages online" , "Kauf Inserate Online" Champ.add "Send RFQ" , "Anfragen aufgeben" Champ.add "Online Directory" , "Verzeichnise" Champ.add "Send Buy Leads" , "Kauf Inserate aufgeben" Champ.add "View2" , "" Champ.add "buyleads2" , "Kauf Inseratliste" Champ.add "RFQ2" , "Anfrageliste" Champ.add "Subcontract Solutions", "Subcontract Solutions" Champ.add "FF", "Gießerei- & Schmiede Bereich" Champ.add "Our vision" , "Unsere Vision" Champ.add "Find new suppliers" , "Neue Lieferanten finden" Champ.add "Meet new buyers" , "Neue Kunelen gewinnen" Champ.add "Suppliers to foundries & forges" , "Gießerei- & Schmiede Zulieferer" Champ.add "Smart tools" , "Passende mittel" Champ.add "Buyers2" , "Kaufer Bereich" Champ.add "Suppliers2" , "Gießerei- & Schmiede Zulieferer Bereich" Champ.add "FF2", "Gießerei- & Schmiede" Champ.add "VDMA" , "VDMA e-Markt" Champ.add "buyleads3" , "Online kauf inseratliste" Champ.add "Foundries and Forges" , "Gießerei- & Schmiede" Champ.add "Suppliers3" , "Gießerei- & Schmiede Zulieferer" Champ.add "Marketplace" , "MarketPlatz" set Mail=Server.CreateObject("Scripting.Dictionary") Mail.add "Registration in Subcontract Solutions'Supplier Guide", "Ihr Eintrag in Subcontract Solutions Lieferanten Führer" Mail.add "Registration in Subcontract Solutions'Database", "Ihr Eintrag in Subcontract Solutions" Mail.add "Dear", "Sehr" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions'Database is complete.", "Wir freuen uns Ihnen mitzuteilen, das Ihr Eintragen in Subcontract Solutions'Datenbank vervollständigt worden ist." Mail.add "Thank you for your registration in Subcontract Solutions' Supplier guide.", "Wir danken für Ihr Eintragen in Subcontract Solutions'Lieferanten Führer." Mail.add "Your username and password will be active within 48 hours.", "Ihr Anwendername und Passwort werden innerhalb von 48 Std. freigeschaltet." Mail.add "Once we have received your payment we will activate your listing in the Supplier Guide. You will receive a confirmation when payment has been received.", "Sobald Ihr Zahlungseingang verzeichnet ist wird Ihr Eintrag im Lieferanten Führer aktiviert. Es wird Ihnen eine Bestätigung des Zahlungseingangs zugesandt" Mail.add "You have been registered with the following profile", "Sie sind mit folgendem Erscheinungsbild registriet" Mail.add "Best regards from Subcontract Solutions", "Mit freundlichen Grüssen von Subcontract Solutions" Mail.add "Customer Service", "Kundendienst" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions' Supplier Guide is complete.", "Wir freuen uns Ihnen mitzuteilen, dass Ihr Eintrag in Subcontract Solutions'Lieferanten Führer vervollständigt wurde." Mail.add "Your company is listed with the following details", "Ihr Unternehmen ist mit den nachstehenden Details eingetragen" Mail.add "To change your profile you can go to our site : http://www.subcontractsolutions.com and login with your username and password", "Um Ihr Erscheinungsbild zu ändern, klicken Sie in unsere Web-Site unter http://www.subcontractsolutions.com und verschaffen Sie sich Zugang mittels Anwendername und Passwort" Mail.add "However, it appears that your company has already been registered by one of your colleagues.", "Es scheint, dass einer Ihrer Kollegen Ihre Firma bereits eingetragen hat." Mail.add "To prevent unnecessary expenses or inconvenience for your firm, may we suggest you consult our contact in your companys", "Um Unstimmigkeiten und zusätzliche Kosten zu vermeiden, schlagen wir vor, dass Sie sich mit unserem Ansprechpartner in Ihrem Hause in Verbindung setzen" Mail.add "If an error has occurred please accept our apologies.", "Falls ein Irrtum vorliegt, bitten wir um Entschuldigung" Mail.add "We shall be awaiting your confirmation before proceeding with your registration.", "Bis zum Erhalt Ihrer Bestätigung werden wir mit Ihrem Eintrag warten" Mail.add "Please contact us by e-mail at: sales@SubcontractSolutions.com, or call:+33 - (0)3 25 49 03 22", "Bitte sprechen Sie uns per E-Mail an unter : customerservice@SubcontractSolutions.com, oder rufen Sie an : +33 - (0)3 25 49 03 22" Mail.add "Your registration is effective. From now on, with your login and password, you can access your private organizer.", "Ihre Registrierung ist erfolgt. Von jetzt an können Sie sich mit Ihrem Anwender-login und Passwort Zugang zu Ihrem privaten Ordner verschaffen." Mail.add "We highly recommend you to fill up your production capacities and your know-how in our supplier database. You can access it from your private organizer", "Wir empfehlen dringendst Ihre Datenblätter Ihrer Produktionskapazitäten und der technischen Produktionsverfahren im Lieferanten Datenblatt auszufüllen. Sie erreichen es von Ihrem persönlichen Ordner." Mail.add "Best regards and good sales !", "Mit freundlichen Grüßen!" Mail.add "Thank you for your registration in Subcontract Solutions'Database.", "Danke für Ihr Eintragen." Mail.add "Your will receive a confirmation that your account is active within 48 hours.", "Sie werden eine Bestätigung erhalten, daß Ihr Konto innerhalb von 48 Std. freigeschaltet wird." Mail.add "An invoice will be sent to you by e-mail within 48 hours", "Es wird Ihnen eine Rechnung per E-mail innerhalb 48 Std. zugesandt." Mail.add "You can at any time after that login, view and change your company's profile directly from from our site: http://www.subcontractsolutions.com", "Danach können Sie jederzeit Ihr Erscheinungsbild einsehen oder Änderungen vornehmen, in dem Sie sich direkt in unsere Web-Site einklicken unter : http://www.subcontractsolutions.com" Mail.add "You will receive a confirmation that your account is active once payment has been received", "Sie werden eine Bestätigung erhalten, daß Ihr Konto unmittelbar nach Geldeingang freigeschaltet worden ist" Mail.add "Thank you for your registration, please find your invoice and registration details below. Your account will be actif once we receive your payment.", "Danke für Ihr Eintragen, bitte begleichen Sie die nachstehende Rechnung und entnehmen ihr die Registrierungs-Details. Ihr Konto wird unmittelbar nach Geldeingang freigeschaltet." set Jour=Server.CreateObject("Scripting.Dictionary") Jour.add "1", "Sonntag" Jour.add "2", "Montag" Jour.add "3", "Dienstag" Jour.add "4", "Mittwoch" Jour.add "5", "Donnerstag" Jour.add "6", "Freitag" Jour.add "7", "Samstag" set Mois=Server.CreateObject("Scripting.Dictionary") Mois.add "1", "Januar" Mois.add "2", "Februar" Mois.add "3", "März" Mois.add "4", "April" Mois.add "5", "Mai" Mois.add "6", "Juni" Mois.add "7", "Juli" Mois.add "8", "August" Mois.add "9", "September" Mois.add "10", "Oktober" Mois.add "11", "November" Mois.add "12", "Dezember" set State=Server.CreateObject("Scripting.Dictionary") State.add "1", "Crée" State.add "3", "Offert" State.add "4", "En cours" State.add "5", "Suspendue" State.add "7", "En attente" State.add "501", "Fait" State.add "502", "Annulé" State.add "506", "Ré-assigné" %><% case "auto" lg = "en" ' Si langue = auto, alors on fera l'inclusion du dictionnaire dans la tâche automatique ' en fonction des variables de langues case else lg = "en" %><% set Rubrique=Server.CreateObject("Scripting.Dictionary") Rubrique.add "suppliers", "supplier" Rubrique.add "supplier guide presentation", "supplier guide presentation" Rubrique.add "listing options", "listing options" Rubrique.add "registration", "registration" Rubrique.add "supplier search", "supplier search" Rubrique.add "access supplier guide", "access supplier guide" Rubrique.add "supplier guide", "supplier guide" Rubrique.add "foundry & forge database", "foundry & forge database" Rubrique.add "subcontract solutions", "subcontract solutions" Rubrique.add "our vision", "our vision" Rubrique.add "contact us", "contact us" Rubrique.add "newsletter", "newsletter" Rubrique.add "company", "company" Rubrique.add "products", "products" Rubrique.add "terms and payment", "Terms and Conditions" Rubrique.add "My company", "My company" Rubrique.add "My products", "My products" Rubrique.add "overview", "overview" Rubrique.add "Smart tools...", "Smart tools..." Rubrique.add "SupplierPass", "SupplierPass" Rubrique.add "SupplierMatch", "SupplierMatch" Rubrique.add "Subcontract Organiser", "Subcontract Organiser" Rubrique.add "services", "services" Rubrique.add "ProSolutions", "ProSolutions" Rubrique.add "e-ProSolutions", "e-ProSolutions" Rubrique.add "strategic sourcing", "strategic sourcing" Rubrique.add "order follow up", "order follow up" Rubrique.add "expert services", "expert services" Rubrique.add "prices", "prices" Rubrique.add "consult prices", "consult prices" Rubrique.add "register here", "register here" Rubrique.add "faq", "faq" Rubrique.add "frequently asked questions", "frequently asked questions" Rubrique.add "view & quote new RFQs", "view & quote new RFQs" Rubrique.add "Home", "Home" Rubrique.add "My Profile", "My user data" Rubrique.add "My Registration", "My Registration" Rubrique.add "MY RFQ FILES", "MY REQUEST FOR QUOTATION (RFQ)" Rubrique.add "New RFQs alerts", "New RFQs alerts" Rubrique.add "Pending RFQs", "Pending RFQs" Rubrique.add "Closed RFQs", "Closed RFQs" Rubrique.add "Declined RFQs", "Declined RFQs" Rubrique.add "Create RFQ", "Create RFQ" Rubrique.add "New RFQs", "New RFQs" Rubrique.add "My Buyers", "My Buyers" Rubrique.add "My Suppliers", "My Suppliers" Rubrique.add "My Contacts", "My Contacts" Rubrique.add "FOUNDRY", "MY FOUNDRY DATA" Rubrique.add "Material", "Material" Rubrique.add "Moulding", "Moulding" Rubrique.add "Facilities", "Facilities" Rubrique.add "ISO", "ISO" Rubrique.add "Certification", "Certification" Rubrique.add "Market", "Market" Rubrique.add "FORGE", "MY FORGE DATA" Rubrique.add "Dimensions", "Dimensions" Rubrique.add "Logout", "Logout" Rubrique.add "Management", "Management" Rubrique.add "MY SUPPLIER SEARCH", "MY SUPPLIER SEARCH" Rubrique.add "New file alerts", "New file alerts" Rubrique.add "Pending searchs", "Pending searchs" Rubrique.add "Closed searchs", "Closed searchs" Rubrique.add "Declined searchs", "Declined searchs" Rubrique.add "Create search", "Create search" Rubrique.add "New searchs", "New searchs" Rubrique.add "MY BUYER LEADS", "MY BUYER LEADS" Rubrique.add "Pending leads", "Pending leads" Rubrique.add "Closed leads", "Closed leads" Rubrique.add "Send Message", "Send Message" Rubrique.add "Online help", "Online Help" set Bouton=Server.CreateObject("Scripting.Dictionary") Bouton.add "boutons/cancelBlank.gif", "boutons/cancelBlank.gif" Bouton.add "boutons/nextBlank.gif", "boutons/nextBlank.gif" Bouton.add "boutons/backBlank.gif", "boutons/backBlank.gif" Bouton.add "boutons/registerBlank.gif", "boutons/registerBlank.gif" Bouton.add "boutons/print.gif", "boutons/print.gif" Bouton.add "boutons/confirmBlank.gif", "boutons/confirmBlank.gif" Bouton.add "boutons/sendBlank.gif", "boutons/sendBlank.gif" Bouton.add "boutons/notInterested.gif", "boutons/notInterested.gif" Bouton.add "boutons/interested.gif", "boutons/interested.gif" set Titre=Server.CreateObject("Scripting.Dictionary") Titre.add "WF/Activities/Buyers/demande.asp", "Request for Price" Titre.add "WF/Activities/inscriptionFF/inscription.asp", "Registration : company information" Titre.add "WF/Activities/inscriptionFF/produits.asp", "Registration : products" Titre.add "WF/Activities/inscriptionFF/confirmation.asp", "Registration : confirmation" set Champ=Server.CreateObject("Scripting.Dictionary") Champ.add "View your company profile", "View your company profile" Champ.add "Company information", "Company information" Champ.add "Company name", "Company name" Champ.add "Bronze listing", "Bronze listing" Champ.add "Silver listing", "Silver listing" Champ.add "Gold listing", "Gold listing" Champ.add "Address", "Address" Champ.add "Postal code", "Postal code" Champ.add "City", "City" Champ.add "Country", "Country" Champ.add "Phone", "Phone" Champ.add "Fax", "Fax" Champ.add "URL", "Web site" Champ.add "Supplier to Foundries", "Supplier to Foundries" Champ.add "Supplier to Forges", "Supplier to Forges" Champ.add "Title", "Title" Champ.add "First name", "First name" Champ.add "Last name", "Last name" Champ.add "Function", "Function" Champ.add "E-mail", "E-mail" Champ.add "Preferred business language", "Preferred business language" Champ.add "Other languages", "Other languages" Champ.add "Login", "Login" Champ.add "Username", "Username" Champ.add "Password", "Password" Champ.add "Confirm password", "Confirm password" Champ.add "I register my company with", "I register my company with" Champ.add "Your company profile", "Your company profile" Champ.add "Contact data", "Contact data" Champ.add "required fields", "required fields" Champ.add "min. 4 characters", "min. 4 characters" Champ.add "VAT excluded / year", "VAT excluded / year" Champ.add "VAT excluded", "VAT excl." Champ.add "Setup fee", "Setup fee" Champ.add "The following fields are required", "The following fields are required" Champ.add "Invalid E-mail", "Invalid E-mail" Champ.add "You have not confirmed the same password", "You have not confirmed the same password" Champ.add "The password must be 4 characters length", "The password must be 4 characters length" Champ.add "You must accept the Terms and conditions to register", "You must accept the Terms and conditions to register" Champ.add "Blank are not allowed in the login", "Blank are not allowed in the login" Champ.add "Supplier's products", "Supplier's products" Champ.add "Tick below your products to be referenced", "Tick below the products you wish to reference" Champ.add "Products", "Products" Champ.add "Product", "Product" Champ.add "Choice", "Choice" Champ.add "Type of registration", "Type of registration" Champ.add "Listing option", "Listing option" Champ.add "Bronze", "Bronze" Champ.add "Silver", "Silver" Champ.add "Gold", "Gold" Champ.add "Company", "Company" Champ.add "Supplier for", "Supplier for" Champ.add "Founderies", "Foundries" Champ.add "Forges", "Forges" Champ.add "Foundry", "Foundry" Champ.add "Forge", "Forge" Champ.add "Contact name", "Contact name" Champ.add "Before registering your company, you must accept the Terms & Conditions.", "Before registering your company, you must accept the Terms & Conditions." Champ.add "I accept the terms & conditions", "I accept the terms & conditions" Champ.add "Payable by bank transfer to", "Payable by bank transfer to" Champ.add "Order information", "Order information" Champ.add "Products supplied", "Products referenced" Champ.add "Terms & Conditions", "Terms & Conditions" Champ.add "Payment", "Payment (applicable to paying subscription)" Champ.add "Registering", "Registration" Champ.add "SWIFT address", "SWIFT address" Champ.add "Account number", "Account number" Champ.add "Code banque", "Bank code" Champ.add "Code guichet", "Branch code" Champ.add "Clé RIB", "Key number" Champ.add "Domiciliation", "Denomination" Champ.add "Branch", "Branch" Champ.add "An invoice will be issued as soon as you are registered", "If applicable, an invoice will be issued as soon as you are registered" Champ.add "Invoice", "Invoice" Champ.add "Date", "Date" Champ.add "Invoice number", "Invoice number" Champ.add "Recipient", "Recipient" Champ.add "Account manager", "Account manager" Champ.add "Before V.A.T. €", "Price excl. V.A.T. euros" Champ.add "Total V.A.T. €", "V.A.T. Amount euros" Champ.add "Net due €", "Total euros" Champ.add "V.A.T. number", "V.A.T. number" Champ.add "(V.A.T. : 19.6%)", "(V.A.T. : 19.6%)" Champ.add "Exemption VAT - EU delivery - art. 259 A 4° CGI", "Exemption VAT - EU delivery - art. 259 A 4° CGI" Champ.add "Exemption VAT - art 262 I 1° CGI", "Exemption VAT - art 262 I 1° CGI" Champ.add "Payable by bank transfer", "Payable by bank transfer" Champ.add "Emetteur", "Sender" Champ.add "Request for price", "Request for price" Champ.add "I am interested in the following service and would like to receive an offer for it", "I am interested in the following service and would like to receive an offer for it" Champ.add "Contact informations", "Contact informations" Champ.add "Annual purchasing potential", "Annual purchasing potential" Champ.add "Castings", "Castings" Champ.add "Forgings", "Forgings" Champ.add "Purchasing volume", "Purchasing volume" Champ.add "Number of RFQs", "Number of RFQs" Champ.add "Number of POs", "Number of POs" Champ.add "Number of active suppliers", "Number of active suppliers" Champ.add "Number of other suppliers known", "Number of other suppliers inquired" Champ.add "Number of suppliers to register", "Number of suppliers to register" Champ.add "Number of buyers", "Number of buyers to register" Champ.add "Please type in your comments, if any", "Please type in your comments, if any" Champ.add "ProSolutions", "ProSolutions" Champ.add "e-ProSolutions", "e-ProSolutions" Champ.add "Subscription", "Subscription" Champ.add "Casting purchasing volume", "Casting purchasing volume" Champ.add "Forging purchasing volume", "Forging purchasing volume" Champ.add "Number of active casting suppliers", "Number of active casting suppliers" Champ.add "Number of other casting suppliers", "Number of other casting suppliers" Champ.add "Number of active forging suppliers", "Number of active forging suppliers" Champ.add "Number of other forging suppliers", "Number of other forging suppliers" Champ.add "Welcome to your organizer", "Welcome to your organizer" Champ.add "You have", "You have" Champ.add "new RFQs alerts", "New Request For Quotation (RFQ) alerts" Champ.add "RFQs pending", "Request For Quotation pending" Champ.add "RFQs declined", "Request For Quotation declined" Champ.add "You are registered with", "You are registered with" Champ.add "from", "from" Champ.add "to", "to" Champ.add "since", "since" Champ.add "Your RFQ Credit", "Your Request For Quotation Credit" Champ.add "You have unlimited Pay-per-view", "You have unlimited access to Request For Quotations" Champ.add "available", "available" Champ.add "Upgrade your registration or buy new Pay-per-view", "Upgrade your registration" Champ.add "click here", "click here" Champ.add "My Registration", "My Registration" Champ.add "Registration", "Registration" Champ.add "PPV Credit", "RFQ Credit" Champ.add "Valid until", "Valid until" Champ.add "unlimited", "unlimited" Champ.add "empty", "empty" Champ.add "expired", "expired" Champ.add "Closed", "Closed" Champ.add "Valid", "Valid" Champ.add "RFQ viewed", "RFQ viewed" Champ.add "Certification", "Certification" Champ.add "Facilities", "Facilities" Champ.add "Weight", "Weight" Champ.add "Internal", "Internal" Champ.add "External", "External" Champ.add "Rough", "Rough" Champ.add "Rough machined", "Rough machined" Champ.add "Finish machined", "Finish machined" Champ.add "Rough machining", "Rough machining" Champ.add "Finish machining", "Finish machining" Champ.add "Certified by", "Certified by" Champ.add "Market", "Market" Champ.add "Material", "Material" Champ.add "Weight Range", "Weight Range" Champ.add "Tonnage per year", "Tonnage per year" Champ.add "Moulding process", "Moulding process" Champ.add "Length", "Length" Champ.add "Width", "Width" Champ.add "Height", "Height" Champ.add "Qty", "Qty" Champ.add "Quantity", "Quantity" Champ.add "Process", "Process" Champ.add "Precision", "Precision" Champ.add "Coarse", "Coarse" Champ.add "Electrical", "Electrical" Champ.add "Methane", "Methane" Champ.add "On stock", "On stock" Champ.Add "Industry", "Industry" Champ.add "Number of items", "Number of items" Champ.add "Nbr of items", "Nbr of items" Champ.add "Customer country", "Country" Champ.add "Market of destination", "Market of destination" Champ.add "Closing date", "Closing date" Champ.add "Expected order date", "Order date" Champ.add "Buyer", "Buyer" Champ.add "Quality requirements", "Quality requirements" Champ.add "ISO required", "ISO" Champ.add "required", "required" Champ.add "not required", "not required" Champ.add "Material certification", "Material certification" Champ.add "Items", "Items" Champ.add "Part name", "Part name" Champ.add "Supply Status", "Supply Status" Champ.add "Size", "Size" Champ.add "Standard", "Standard" Champ.add "Item detail", "Item detail" Champ.add "Dimension", "Dimension" Champ.add "General comments", "General comments" Champ.add "Viewed", "Viewed" Champ.add "My Buyers", "My Buyers" Champ.add "Contact", "Contact" Champ.add "RFQ Description", "RFQ Description" Champ.add "ended", "ended" Champ.add "metric tons", "metric tons" Champ.add "Weight part", "Weight part" Champ.add "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area", "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area" Champ.add "RFQs on line", "Request For Quotations online" Champ.add "Request For Quotation", "Request For Quotation" Champ.add "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer.", "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer." Champ.add "You are not interested to quote this RFQ,
please enter below your username and password.", "You are not interested to quote this RFQ,
please enter below your username and password." Champ.add "If you are not registered and want to quote this RFQ go to the", "If you are not registered and want to quote this RFQ go to the" Champ.add "registration page", "registration page" Champ.add "This RFQ is now available in your RFQ list in your organizer
", "This RFQ is now available in your new RFQ alerts in your organizer
" Champ.add "Supplier searchs on line", "Supplier searchs on line" Champ.add "Supplier search", "Supplier search" Champ.add "Buyer lead", "Buyer lead" Champ.add "You are interested to quote this file,
please enter below your username and password to get it in your organizer.", "You are interested to quote this file,
please enter below your username and password to get it in your organizer." Champ.add "If you are not registered and want to quote this file go to the", "If you are not registered and want to quote this file go to the" Champ.add "This file is now available in your organizer
", "This file is now available in your organizer
" Champ.add "Your Pay-per-view credit is now : ", "Your RFQ credit is now : " Champ.add "Your Pay-per-view credit is empty !
", "You don't have RFQ access credit
" Champ.add "Please contact Subcontract Solutions to upgrade your credit", "Please contact Subcontract Solutions to upgrade your credit" Champ.add "Your Pay-per-view credit is unlimited", "Your RFQ credit is unlimited" Champ.add "Your registration has ended since ", "Your registration is expired since " Champ.add "This RFQ is still available in your RFQ list in your organizer
", "This RFQ is already available in your RFQ list in your organizer
" Champ.add "Your Pay-per-view credit is still : ", "Your RFQ credit is still : " Champ.add "You are not interested by this RFQ
", "You are not interested by this RFQ
" Champ.add "Your Pay-per-view credit is unchanged", "Your RFQ credit is unchanged" Champ.add "Your username and password are valid, but you are not registred as foundry and/or a forge ", "Your username and password are valid, but you are not registred as foundry and/or a forge " Champ.add "Sorry, but your username and password are not valid ", "Sorry, but your username and password are not valid " Champ.add "To quote this RFQ you need to upgrade your subscription.", "To quote this RFQ you need to upgrade your subscription." Champ.add "You can do this directly from your organiser", "You can do this directly from your organiser" Champ.add "This Request For Quotation is not accessible for quote with a freee membership.", "This Request For Quotation is not accessible for quote with a free membership." Champ.add "This Request For Quotation is accessible to registered suppliers with a paying subscription only.", "Note :
This Request For Quotation is accessible to registered suppliers with a paying subscription only." Champ.add "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer.", "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer." Champ.add "You too can communicate directly with buyers in changing your registration from your organizer.", "You too can communicate directly with buyers in changing your registration from your organizer." Champ.add "You are registered :", "You are registered :" Champ.add "Please enter your username and password to get it in your organizer", "Please enter your username and password to get this RFQ in your organizer" Champ.add "You are not registered :", "You are not registered :" Champ.add "To have access to this Request For Quotation, please proceed first with your", "To be able to quote this Request For Quotation, please see conditions by clicking on " Champ.add "registration", "registration" Champ.add "Specify for machining only", "Specify for machining only" Champ.add "Your upgrade is now effective", "Your upgrade is now effective" Champ.add "Pending RFQs", "Pending RFQs" Champ.add "Description", "Description" Champ.add "Closed RFQs", "Closed RFQs" Champ.add "(Closed by buyer)", "(Closed by buyer)" Champ.add "Pending searchs", "Pending searchs" Champ.add "Closed searchs", "Closed searchs" Champ.add "Pending leads", "Pending leads" Champ.add "Closed leads", "Closed leads" Champ.add "Parts description", "Parts description" Champ.add "Geographical sourcing", "Geographical sourcing" Champ.add "Part(s) name", "Part(s) name" Champ.add "New Material", "New Material" Champ.add "New Certification", "New Certification" Champ.add "New Process", "New Process" Champ.add "New Facilities", "New Facilities" Champ.add "New ISO", "New ISO" Champ.add "New Market", "New Market" Champ.add "New Moulding", "New Moulding" Champ.add "ISO", "ISO" Champ.add "Can you supply parts elaborated with", "Can you supply parts elaborated with" Champ.add "Electro Slag Remelting Process (ESR)", "Electro Slag Remelting Process (ESR)" Champ.add "Vacuum Oxygen Decarburization Process (VOD)", "Vacuum Oxygen Decarburization Process (VOD)" Champ.add "Argon Oxygen Decarburization Process (AOD)", "Argon Oxygen Decarburization Process (AOD)" Champ.add "For the process of ring rolling, input :
- max outside diameter in the length max area,
- min inside diameter in the width max area,
- max thickness in the height max area", "For the process of ring rolling, input :
- max outside diameter in the length max area,
- min inside diameter in the width max area,
- max thickness in the height max area" Champ.add "Print", "Print" Champ.add "Help", "Help" Champ.add "Cancel", "Cancel" Champ.add "Ok", "Valid" Champ.add "Save", "Save" Champ.add "Put online", "Put online" Champ.add "Put offline", "Put offline" Champ.add "Add", "Add" Champ.add "Delete", "Delete" Champ.add "Upload", "Upload" Champ.add "Download", "Download" Champ.add "Files", "Drawings" Champ.add "File", "Drawing" Champ.add "Enter the file to upload :", "Enter the file to upload :" Champ.add "Are you sure you want to delete this item ?", "Are you sure you want to delete this item ?" Champ.add "winHelp", "Help.htm" Champ.add "Add to my buyers list", "Add to my buyers list" Champ.add "Close RFQ", "Close RFQ" Champ.add "Re open RFQ", "Re open RFQ" Champ.add "Click on the line when highlighted to see the detail of the RFQ", "Click on the line when highlighted to see the detail of the RFQ" Champ.add "Upgrade", "Upgrade" Champ.add "Upgrade pending", "Upgrade pending" Champ.add "Your ask for upgrade to", "Your request for upgrade to" Champ.add "is about to be validated by Subcontract Solutions", "is about to be validated by Subcontract Solutions" Champ.add "Your upgrade will be effective as soon as your paiement will be received", "Your upgrade will be effective as soon as your paiement will be received" Champ.add "Amount", "Amount" Champ.add "Date of validity", "Date of validity" Champ.add "I want to upgrade to", "I want to upgrade to" Champ.add "Business language", "Business language" Champ.add "To quote these RFQ(s), register", "To quote these RFQs, register" Champ.add "To quote this RFQ, register", "To quote this RFQ, register" Champ.add "CA", "Turnover" Champ.add "% Exp.", "% Export" Champ.add "Tel", "Tel" Champ.add "Web", "Web" Champ.add "Managing director", "Managing director" Champ.add "Sales manager", "Sales manager" Champ.add "Production manager", "Production manager" Champ.add "Quality manager", "Quality manager" Champ.add "Dimensions", "Dimensions" Champ.add "Other", "Contact" Champ.add "Photo", "Photo" Champ.add "Logo", "Logo" Champ.add "Voir la Fiche", "View your profile" Champ.add "only", "only" Champ.add "to2", "to" Champ.add "Criterias", "Criterias Search" Champ.add "manufacturing industry", "manufacturing industry" Champ.add "foundry process", "foundry process" Champ.add "forge process", "forge process" Champ.add "foundry material", "material" Champ.add "forge material", "material" Champ.add "ISO qualification", "ISO qualification" Champ.add "required certification", "required certification" Champ.add "doesn't matter", "doesn't matter" Champ.add "Qty per delivery", "Qty per delivery" Champ.add "Estimated qty per year", "Estimated qty / year" Champ.add "Unit weight", "Unit weight" Champ.add "File attachment", "File attachment" Champ.add "Files attachment", "Files attachment" Champ.add "Order requirements", "Order requirements" Champ.add "RFQ closing date", "Closing date" Champ.add "expected order date", "expected order date" Champ.add "Incoterms", "Incoterms" Champ.add "Delivery date", "Delivery date" Champ.add "Place of delivery", "Place of delivery" Champ.add "Item", "Item" Champ.add "please do not insert your coordinates", "please do not insert your contact details" Champ.add "Your RFQ reference", "Your RFQ reference" Champ.add "(city / country)", "(city / country)" Champ.add "Certificate", "Certificate" Champ.add "Status", "Status" Champ.add "Delivery requirements", "Delivery requirements" Champ.add "Place", "Place" Champ.add "Online since", "Online since" Champ.add "open until", "open until" Champ.add "yes", "Yes" Champ.add "complete the informations of the following items", "complete informations of following items" Champ.add "Your unlimited access to Request For Quotations has expired", "Your unlimited access to Request For Quotations has expired" Champ.add "New", "New" Champ.add "Pending", "Pending" Champ.add "navigation problems ?
get latest browser versions", "navigation problems ?
get latest browser versions" Champ.add "Not Disclosed", "Not Disclosed" Champ.add "Decline this RFQ", "Decline this RFQ" Champ.add "Make a new offer", "Make a (new) offer" Champ.add "Pending Offer", "Pending Offer" Champ.add "Offres", "Offers" Champ.add "Offre", "Offer" Champ.add "Liste des offres", "Offers list" Champ.add "Réalisation de l'offre", "Making of offer" Champ.add "Your offer", "Your offer" Champ.add "envoyée le", "sent the" Champ.add "Your offer number", "Your offer number" Champ.add "Your reference", "Your reference" Champ.add "Your name", "Your name" Champ.add "Your Email", "Your Email" Champ.add "Qty/year", "Qty/year" Champ.add "Unit Price", "Unit Price" Champ.add "Total", "Total" Champ.add "Tool cost", "Tool cost" Champ.add "To quote", "To quote" Champ.add "Item declined", "Item declined" Champ.add "Total Offer", "Total Offer" Champ.add "Offer valid until", "Offer valid until" Champ.add "Tool / pattern cost", "Tool / pattern cost" Champ.add "Payment conditions", "Payment conditions" Champ.add "Decline item", "Decline item" Champ.add "Offer conditions", "Offer conditions" Champ.add "D'abord", "First" Champ.add "or", "or" Champ.add "puis", "then" Champ.add "Save offer", "Save offer" Champ.add "Delete offer", "Delete offer" Champ.add "Send offer", "Send offer" Champ.add "View offer", "View before sending" Champ.add "(remplace l'offre précédente)", "(replaces previous offer)" Champ.add "To Company", "To Company" Champ.add "From Company", "From Company" Champ.add "Your contact", "Your contact" Champ.add "Offer reference", "Offer reference" Champ.add "Offer number", "Offer number" Champ.add "Our reference", "Our reference" Champ.add "All prices are in", "All prices are in" Champ.add "Qty/del.", "Qty/del." Champ.add "Supplier country", "Supplier country" Champ.add "Send mail", "Send Mail" Champ.add "RFQ", "RFQ" Champ.add "(buyer's name not disclosed)", "(buyer's name not disclosed)" Champ.add "not active", "not active" Champ.add "Access to price comparison list : ", "Access to price comparison list : " Champ.add "Offer Nb", "Offer Nb" Champ.add "Total Items", "Total Items" Champ.add "Total Tools", "Total Tools" Champ.add "Send", "Send" Champ.add "Offer from", "Offer from" Champ.add "Additional informations", "Additional informations" Champ.add "Prices of this offer are in", "Prices of this offer are in" Champ.add "Incoterms used is", "Incoterms used is" Champ.add "View drawing", "View
sample
drawing" Champ.add "To import into your organizer, click : ", "To import into your organizer, click : " Champ.add "Success stories", "Testimonials" Champ.add "Buyers", "Buyers" Champ.add "Suppliers", "Suppliers" Champ.add "References", "References" Champ.add "New Gold Pass members", "New Gold Pass members" Champ.add "new RFQ to finalise", "new RFQ to finalise" Champ.add "RFQ pending", "RFQ pending" Champ.add "RFQ that are expired or about to expire", "RFQ that are expired" Champ.add "new Search to finalise", "new Search to finalise" Champ.add "Search pending", "Search pending" Champ.add "Search that are expired or about to expire", "Search that are expired" Champ.add "Manufact.", "Manufact." Champ.add "Downloads", "Downloads" Champ.add "Quotes", "Quotes" Champ.add "Creation", "Creation" Champ.add "Validation", "Validation" Champ.add "Offline", "Stand-by" Champ.add "My Suppliers", "My Suppliers" Champ.add "My Contacts", "My Contacts" Champ.add "New RFQ list", "New RFQ list" Champ.add "RFQ under validation by Subcontract Solutions", "Under validation by Subcontract Solutions" Champ.add "New RFQs", "New RFQs" Champ.add "Countries selection", "Countries selection" Champ.add "Countries", "Countries" Champ.add "Not completed", "Not completed" Champ.add "all countries selected", "all countries selected" Champ.add "All countries" , "All countries" Champ.add "File download", "File download" Champ.add "displayed to suppliers", "displayed to suppliers" Champ.add "My internal notes (not displayed to suppliers)", "My internal notes (not displayed to suppliers)" Champ.add "Messages board", "Messages board" Champ.add "BIDDERS LIST", "BIDDERS LIST" Champ.add "DOWNLOADERS LIST", "DOWNLOADERS LIST" Champ.add "Downloads from Subcontract Solutions Gold Pass supplier network", "Downloads from Subcontract Solutions Gold Pass supplier network" Champ.add "Other downloads from Subcontract Solutions supplier network", "Other downloads from Subcontract Solutions supplier network" Champ.add "Offers from Subcontract Solutions Gold Pass supplier network", "Offers from Subcontract Solutions Gold Pass supplier network" Champ.add "Other offers from Subcontract Solutions supplier network", "Other offers from Subcontract Solutions supplier network" Champ.add "Supplier from", "Supplier from" Champ.add "Message type selection", "Message type selection" Champ.add "Selection", "Selection" Champ.add "View", "View" Champ.add "Free text message", "Free text message" Champ.add "Subject", "Subject" Champ.add "Price analysis area", "Price analysis area" Champ.add "To view supplier profile click on", "To view supplier profile click on" Champ.add "Display of offer n°", "Display of offer n°" Champ.add "dated", "dated" Champ.add "My comments", "My comments" Champ.add "Create a new Request For Quotation", "Create a new Request For Quotation" Champ.add "I allow price comparison for suppliers", "I allow price comparison for suppliers" Champ.add "Offers from Gold Pass suppliers", "Offers from Gold Pass suppliers" Champ.add "Offers from Quote Pass suppliers", "Offers from Quote Pass suppliers" Champ.add "My account manager", "My account manager" Champ.add "Manufacturing", "Manufacturing" Champ.add "Materials elaborated", "Materials elaborated" Champ.add "Moulding processes", "Moulding processes" Champ.add "Forging processes", "Forging processes" Champ.add "Qualifications", "Qualifications" Champ.add "View profile", "View profile" Champ.add "Request for quotation list" , "Request for quotation list" Champ.add "Supplier search message list" , "Buy leads" Champ.add "Prec" , "Previous" Champ.add "Next" , "Next" Champ.add "Page" , "Page" Champ.add "Geographical" , "Geographical selection" Champ.add "Search" , "Search" Champ.add "Supplier search messages online" , "Supplier search messages online" Champ.add "Send RFQ" , "send RFQ" Champ.add "Online Directory" , "Online directory" Champ.add "Send Buy Leads" , "send buy leads" Champ.add "View2" , "view" Champ.add "buyleads2" , " buy leads" Champ.add "RFQ2" , " RFQs" Champ.add "Subcontract Solutions", "Subcontract Solutions" Champ.add "FF", "Foundries & Forges area" Champ.add "Our vision" , "Our vision" Champ.add "Find new suppliers" , "Find new suppliers" Champ.add "Meet new buyers" , "meet new buyers" Champ.add "Suppliers to foundries & forges" , "Suppliers to Foundries & Forges" Champ.add "Smart tools" , "Smart tools" Champ.add "Buyers2" , "Buyers area" Champ.add "Suppliers2" , "Suppliers to Foundries & Forges area" Champ.add "FF2", "Foundries & Forges" Champ.add "VDMA" , "VDMA e-markets" Champ.add "buyleads3" , "Buy Leads online" Champ.add "Foundries and Forges" , "foundries & forges" Champ.add "Suppliers3" , "suppliers to foundries & forges" Champ.add "Marketplace" , "Market Place" set Mail=Server.CreateObject("Scripting.Dictionary") Mail.add "Registration in Subcontract Solutions'Supplier Guide", "Registration in Subcontract Solutions Supplier Guide" Mail.add "Registration in Subcontract Solutions'Database", "Registration in Subcontract Solutions" Mail.add "Dear", "Dear" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions'Database is complete.", "We are pleased to inform you that your registration in Subcontract Solutions'Database is complete." Mail.add "Thank you for your registration in Subcontract Solutions' Supplier guide.", "Thank you for your registration in Subcontract Solutions' Supplier guide." Mail.add "Your username and password will be active within 48 hours.", "Your username and password will be active within 48 hours." Mail.add "Once we have received your payment we will activate your listing in the Supplier Guide. You will receive a confirmation when payment has been received.", "Once we have received your payment we will activate your listing in the Supplier Guide. You will receive a confirmation when payment has been received." Mail.add "You have been registered with the following profile", "You have been registered with the following data" Mail.add "Best regards", "Best regards" Mail.add "Customer Service", "Customer Service" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions' Supplier Guide is complete.", "We are pleased to inform you that your registration in Subcontract Solutions' Supplier Guide is effective." Mail.add "Your company is listed with the following details", "Your company is listed with the following data" Mail.add "To change your profile you can go to our site : http://www.subcontractsolutions.com and login with your username and password", "To change your profile you can go to our site : http://www.subcontractsolutions.com and login with your username and password" Mail.add "However, it appears that your company has already been registered by one of your colleagues.", "However, it appears that your company has already been registered." Mail.add "To prevent unnecessary expenses or inconvenience for your firm, may we suggest you consult our contact in your companys", "To prevent unnecessary expenses or inconvenience for your firm, may we suggest you consult our contact in your company" Mail.add "If an error has occurred please accept our apologies.", "If our assumption is wrong please accept our apologies." Mail.add "We shall be awaiting your confirmation before proceeding with your registration.", "We shall be awaiting your confirmation before proceeding with your registration." Mail.add "Please contact us by e-mail at: sales@SubcontractSolutions.com, or call:+33 - (0)3 25 49 03 22", "Please contact us by e-mail at: customerservice@SubcontractSolutions.com, or call:+33 - (0)3 25 49 03 22" Mail.add "Your registration is effective. From now on, with your login and password, you can access your private organizer.", "Your registration is effective. From now on, with your login and password, you can access your private organizer." Mail.add "We highly recommend you to fill up your production capacities and your know-how in our supplier database. You can access it from your private organizer", "We highly recommend you to fill up your production capacities and your know-how in our supplier database. You can access it from your private organizer" Mail.add "Best regards and good sales !", "Best regards and good sales !" Mail.add "Thank you for your registration in Subcontract Solutions'Database.", "Thank you for your registration." Mail.add "Your will receive a confirmation that your account is active within 48 hours.", "You will receive a confirmation that your account is active within 48 hours." Mail.add "An invoice will be sent to you by e-mail within 48 hours", "An invoice will be sent to you by e-mail within 48 hours" Mail.add "You can at any time after that login, view and change your company's profile directly from from our site: http://www.subcontractsolutions.com", "You can at any time after that login, view and change your company's profile directly from from our site: http://www.subcontractsolutions.com" Mail.add "You will receive a confirmation that your account is active once payment has been received", "You will receive a confirmation that your account is active once payment has been received" Mail.add "Thank you for your registration, please find your invoice and registration details below. Your account will be actif once we receive your payment.", "Thank you for your registration, please find your invoice and registration details below. Your account will be activated once your payment has been received." set Jour=Server.CreateObject("Scripting.Dictionary") Jour.add "1", "Sunday" Jour.add "2", "Monday" Jour.add "3", "Tuesday" Jour.add "4", "Wenesday" Jour.add "5", "Thursday" Jour.add "6", "Friday" Jour.add "7", "Saturday" set Mois=Server.CreateObject("Scripting.Dictionary") Mois.add "1", "January" Mois.add "2", "February" Mois.add "3", "March" Mois.add "4", "April" Mois.add "5", "May" Mois.add "6", "June" Mois.add "7", "July" Mois.add "8", "August" Mois.add "9", "September" Mois.add "10", "October" Mois.add "11", "November" Mois.add "12", "December" set State=Server.CreateObject("Scripting.Dictionary") State.add "1", "Crée" State.add "3", "Offert" State.add "4", "En cours" State.add "5", "Suspendue" State.add "7", "En attente" State.add "501", "Fait" State.add "502", "Annulé" State.add "506", "Ré-assigné" %><% end select %> <% set Couleur=Server.CreateObject("Scripting.Dictionary") Couleur.add "Highlight","#FFCF00" set DataType=Server.CreateObject("Scripting.Dictionary") DataType.add "1","Integer" DataType.add "2","Date" DataType.add "3","String" DataType.add "4","Document" set Properties=Server.CreateObject("Scripting.Dictionary") Properties.add "ServerHost", "" Properties.add "HttpRoot", "http://www.subcontractsolutions.com/" Properties.add "UploadRoot", "C:/Inetpub/vhosts/subcontractsolutions.com/httpdocs/Upload/" Properties.add "HttpUploadRoot", "http://www.subcontractsolutions.com/Upload/" Properties.add "Root", "/SSMP/" Properties.add "GuestLogin", "guest" Properties.add "GuestPassword", "star" Properties.add "WFS", "w4adm" Properties.add "WebSitePath", "http://www.subcontractsolutions.com/" Properties.add "AppPath", "/SSMP/WF/" Properties.add "LgPath", "/SSMP/" & lg & "/" Properties.add "ProcedureName", "SSMP" Properties.add "AppTitle" , "Subcontract Solution Market Place" Properties.add "Version", "1.0" Properties.add "Auteur", "Marc HERVIER" Properties.add "DateCreation", "8 mars 2002" Properties.add "DateRevision", "8 mars 2002" Properties.add "MailFrom", "customerservice@subcontractsolutions.com" Properties.add "MailSS_Expert", "michel.portal@subcontractsolutions.com" Properties.add "TVA", "0.196" set MailAddress=Server.CreateObject("Scripting.Dictionary") MailAddress.add "Newsletter", "Newsletter@subcontractsolutions.com" MailAddress.add "Expert", "Expert@subcontractsolutions.com" MailAddress.add "TestSourcing", "TestSourcing@subcontractsolutions.com" MailAddress.add "Sales", "Sales@subcontractsolutions.com" MailAddress.add "CustomerService", "customerservice@subcontractsolutions.com" %> <% on error resume next 'dim id, lid, lg, wfs, serverHost 'dim id, lg function getStrField(Champ) on error resume next Err.number = 0 valeur = Trim(CStr(Champ)) if Err.Number <> 0 then valeur = "" end if getStrField = valeur end function function getNumField(Champ) on error resume next Champ = CStr(Champ) Err.number = 0 Champ = Replace(Champ, ".", ",") valeur = CDbl(Champ) if Err.number <> 0 then valeur = 0 end if getNumField = valeur end function function getParameter(myparameter) dim myresponse myresponse = null if not isEmpty(request.queryString(myparameter)) then myresponse = request.queryString(myparameter) else if not isEmpty(request.Form(myparameter)) then myresponse = request.Form(myparameter) end if end if getParameter = myresponse end function function getSID() if sid = "" OR id <> "" then getSID = id else getSID = sid end if end function function getRealSID() getRealSID = sid end function '*** This function return the W4 Ctx function Ctx() 'Ctx = "id=" & id & "&lid=" & lid & "&lg="& lg & "&wfs="& wfs & "&serverHost=" & serverHost Ctx = "id=" & id & "&lg=" & lg end function sub setCtx(anId,anLid,anLg,anWfs,anserverHost) anLg = LCase(anLg) if anLg = "" OR Instr("en,fr,de", anLg) = 0 then anLg = "en" end if id = anId lid = anLid lg = anLg wfs = anWfs serverHost = anserverHost end sub ' id = getNumField(getParameter("id")) ' lid = getNumField(getParameter("lid")) ' wfs = getStrField(getParameter("wfs")) ' serverHost = getStrField(getParameter("serverHost")) sid = getStrField(getParameter("sid")) id = getStrField(getParameter("id")) lg = getStrField(getParameter("lg")) if lg = "" OR Instr("en,fr,de", lg) = 0 then lg = "en" end if 'Recuperation du contexte W4 'set mysession = Server.CreateObject("w4com.TWFsession") 'mysession.Context.Modify id, lid, 50, lg, "ASPClient", ServerHost, wfs %> <% sub boutonMaj(procCancel, procUpdate, procNew, procDelete) response.write("") response.write("") response.write(" ") response.write(" ") response.write(" ") response.write(" ") response.write("
") response.write("
") response.write(" ") response.write("
") response.write("
") response.write("
") response.write("  ") response.write("  ") response.write("  ") response.write(" ") response.write("
") response.write("
") end sub function isEmail(chaine) Set regEx = New RegExp regEx.Pattern = "[a-zA-Z0-9._-]+@[a-zA-Z0-9.-]{2,}[.][a-zA-Z]{2,4}" isEmail = regEx.test(chaine) end function function ZeroNum(Nombre, Longueur) Pow = 10 ^ Longueur ZeroNum = MID(TRIM(CStr(Pow + Nombre)), 2, Longueur) end function function IIf(Condition, ValIfTrue, ValIfFalse) if Condition then IIf = ValIfTrue else IIf = ValIfFalse end if end function function isSelected(NomVariable, Code) isSelected = "" Variable = VarOfCurrentTask.Item("" & NomVariable).Value(1).Value if Trim(Code) = Trim(Variable) then isSelected = "selected" end if end function function isChecked(NomVariable, Code) isChecked = "" Variable = VarOfCurrentTask.Item("" & NomVariable).Value(1).Value if Trim(Code) = Trim(Variable) then isChecked = "checked" end if end function function Afficher(Chaine) Afficher = getStrField(Chaine) if Trim(Afficher) = "" then Afficher = " " else Afficher = UCase(Mid(Afficher, 1, 1)) & LCase(Trim(Mid(Afficher, 2))) end if end function function AfficherNormal(Chaine) AfficherNormal = getStrField(Chaine) if Trim(AfficherNormal) = "" then AfficherNormal = " " end if end function function AfficherUpper(Chaine) AfficherUpper = getStrField(Chaine) if Trim(AfficherUpper) = "" then AfficherUpper = " " else AfficherUpper = UCase(AfficherUpper) end if end function function AfficherNum(Nombre, Sep) AfficherNum = getNumField(Nombre) virgule = InStr(AfficherNum, ",") + InStr(AfficherNum, ".") if virgule > 0 then partieVirgule = Mid(AfficherNum, virgule) partieEntiere = Mid(AfficherNum, 1, virgule - 1) else partieVirgule = "" partieEntiere = AfficherNum end if partieSeparee = "" While Len(partieEntiere) > 3 lgEnt = Len(partieEntiere) partieSeparee = Sep & Mid(partieEntiere, lgEnt - 2, 3) & partieSeparee partieEntiere = Mid(partieEntiere, 1, lgEnt - 3) Wend partieSeparee = partieEntiere & partieSeparee AfficherNum = partieSeparee & partieVirgule end function function AfficherImage(Directory, Fichier, Width, Height) if Trim(Width) <> "" then Width = " width='" & Width & "' " end if if Trim(Height) <> "" then Height = " height='" & Height & "' " end if Set FSO = Server.CreateObject("Scripting.FileSystemObject") if Trim(Fichier) = "" then AfficherImage = " " else AfficherImage = "" end if end function function AfficherLimite(Chaine, NbCar) AfficherLimite = getStrField(Chaine) if Trim(AfficherLimite) = "" then AfficherLimite = " " else AfficherLimite = Left(AfficherLimite, NbCar) & IIf(Len(AfficherLimite) > NbCar, " ...", "") end if end function function Duree(datedeb,datefin) dim datedebtmp, datefintmp dim years,months,days, hours,minutes,secondes dim aDuree datedebtmp = Cdate(datedeb) datefintmp = Cdate(datefin) 'response.write("datedeb:" & datedeb & "deb:" & datedebtmp & "
") 'response.write("datefin:" & datefin & "Fin:" & datefintmp & "
") aDuree = "" if datefin <> "00:00:00" then years = datediff("yyyy",datedebtmp,datefintmp) months = datediff("m",datedebtmp,datefintmp) - (12*years) days = datediff("d",datedebtmp,datefintmp) - (365*years) - (30*months) if days=0 and months=0 and years=0 then hours = datediff("h",datedebtmp,datefintmp) minutes = datediff("n",datedebtmp,datefintmp) - (hours*60) secondes = datediff("s",datedebtmp,datefintmp) - (hours*3600) - (minutes*60) end if if years > 0 then aDuree = aDuree & years & " année(s)" if months > 0 then aDuree = aDuree & " " & Months & " mois" if days > 0 then aDuree = aDuree & " " & days & " Jour(s)" if hours > 0 then aDuree = aDuree & " " & hours & " h" if minutes > 0 then aDuree = aDuree & " " & minutes & " mn" if secondes > 0 then aDuree = aDuree & " " & secondes & " s" else aDuree = "En cours" end if Duree= aDuree end function function show_date(aDate) 'intDate = Date() intDay = Day(aDate) intMonth = Month(aDate) intYear = Year(aDate) 'Get the day : parse method if Len(intDay)=1 Then intDay = "0" & intDay 'Get the month : parse method if Len(intMonth)=1 Then intMonth = "0" & intMonth 'get the year : parse method if Len(intYear)=4 Then intYear = Right(intYear, 2) 'generate the current Date (in this exemple in french format : jj/mm/aa) 'just modify the order For your country show_date = IntDay & "/" & IntMonth & "/" & IntYear End function function getNewId() getNewId = "" query = "SELECT newid() AS Id" Set Result = getResultSet(query) if Result.RecordCount > 0 then Result.MoveFirst getNewId = Result.Fields.Item("Id").Value end if end function function getNewNum(Table, ChampNumero, ClauseWhere) getNewNum = 0 Query = "SELECT MAX(" & ChampNumero & ") FROM " & Table if ClauseWhere <> "" then Query = Query & " WHERE " & ClauseWhere end if Set Result = getResultSet(Query) if Result.RecordCount > 0 then Result.MoveFirst getNewNum = getNumField(Result.Fields.Item(0).Value) end if getNewNum = getNewNum + 1 end function function getNewNumPrefixed(Prefixe, Table, ChampNumero, ClauseWhere) getNewNumPrefixed = Prefixe Query = "SELECT MAX(" & ChampNumero & ") FROM " & Table if ClauseWhere <> "" then Query = Query & " WHERE " & ClauseWhere end if Set Result = getResultSet(Query) if Result.RecordCount > 0 then Result.MoveFirst NewNum = getNumField(Result.Fields.Item(0).Value) getNewNumPrefixed = IIf(NewNum >= Prefixe, NewNum, Prefixe) end if getNewNumPrefixed = getNewNumPrefixed + 1 end function function javaStr2(Chaine) javaStr2 = Replace(getStrField(Chaine), """", "'") javaStr2 = Replace(javaStr2, "'", """ + ""'"" + """) javaStr2 = Replace(javaStr2, Chr(13) & Chr(10), "\n") javaStr2 = Replace(javaStr2, Chr(10) & Chr(13), "\n") end function function javaStr(Chaine) javaStr = Replace(getStrField(Chaine), """", "'") javaStr = Replace(javaStr, "'", "' + ""'"" + '") javaStr = Replace(javaStr, Chr(13) & Chr(10), "\n") javaStr = Replace(javaStr, Chr(10) & Chr(13), "\n") end function function javaStr3(Chaine) javaStr3 = Replace(getStrField(Chaine), """", "'") javaStr3 = Replace(getStrField(Chaine), "'", "\'") javaStr3 = Replace(javaStr3, Chr(13) & Chr(10), "\n") javaStr3 = Replace(javaStr3, Chr(10) & Chr(13), "\n") end function function HTMLStr(Chaine) HTMLStr = Replace(getStrField(Chaine), Chr(13) & Chr(10), "
") HTMLStr = Replace(HTMLStr, Chr(10) & Chr(13), "
") HTMLStr = Replace(HTMLStr, """", "'") end function function BDDDate(chaine) BDDDate = BDDNull(chaine) end function function BDDId(chaine) BDDId = BDDNull(chaine) end function function BDDStr(chaine) BDDStr = Replace(getStrField(Chaine), "'", "''") end function function BDDNum(valeur) BDDNum = Replace(CStr(getNumField(Valeur)), ",", ".") end function function BDDNull(Champ) valeur = getStrField(Champ) if valeur = "" then valeur = "NULL" else valeur = "'" & valeur & "'" end if BDDNull = valeur end function function BDDisNull(Champ) valeur = getStrField(Champ) if valeur = "" then valeur = " IS NULL" else valeur = " = '" & valeur & "'" end if BDDisNull = valeur end function function getStrField(Champ) on error resume next Err.number = 0 valeur = Trim(CStr(Champ)) if Err.Number <> 0 then valeur = "" end if getStrField = valeur end function function getNumField(Champ) on error resume next Champ = CStr(Champ) Err.number = 0 Champ = Replace(Champ, ".", ",") valeur = CDbl(Champ) if Err.number <> 0 then valeur = 0 end if getNumField = valeur end function function getDateField(Champ) on error resume next Err.number = 0 valeur = CDate(Champ) if Err.number <> 0 OR Year(valeur) < 2000 then valeur = Date end if getDateField = valeur end function function AfficheCompteur(Nombre, Taille) Chaine = ZeroNum(Nombre, Taille) Compteur = "" for i = 1 to Len(Chaine) Compteur = Compteur & "" next AfficheCompteur = Compteur end function %> <% function LangueURL() Dim URL, pos URL = Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING") LangueURL = "en" if InStr(URL, "/en/") > 0 then LangueURL = "en" end if if InStr(URL, "/de/") > 0 then LangueURL = "de" end if if InStr(URL, "/fr/") > 0 then LangueURL = "fr" end if pos = Instr(URL, "lg=") if (pos > 0) then LangueURL = LCase(Mid(URL, pos + 3, 2)) if LangueURL <> "en" AND LangueURL <> "de" AND LangueURL <>"fr" then LangueURL = "en" end if end if end function select case LCase(LangueURL()) case "en" lg = "en" %><% set Rubrique=Server.CreateObject("Scripting.Dictionary") Rubrique.add "suppliers", "supplier" Rubrique.add "supplier guide presentation", "supplier guide presentation" Rubrique.add "listing options", "listing options" Rubrique.add "registration", "registration" Rubrique.add "supplier search", "supplier search" Rubrique.add "access supplier guide", "access supplier guide" Rubrique.add "supplier guide", "supplier guide" Rubrique.add "foundry & forge database", "foundry & forge database" Rubrique.add "subcontract solutions", "subcontract solutions" Rubrique.add "our vision", "our vision" Rubrique.add "contact us", "contact us" Rubrique.add "newsletter", "newsletter" Rubrique.add "company", "company" Rubrique.add "products", "products" Rubrique.add "terms and payment", "Terms and Conditions" Rubrique.add "My company", "My company" Rubrique.add "My products", "My products" Rubrique.add "overview", "overview" Rubrique.add "Smart tools...", "Smart tools..." Rubrique.add "SupplierPass", "SupplierPass" Rubrique.add "SupplierMatch", "SupplierMatch" Rubrique.add "Subcontract Organiser", "Subcontract Organiser" Rubrique.add "services", "services" Rubrique.add "ProSolutions", "ProSolutions" Rubrique.add "e-ProSolutions", "e-ProSolutions" Rubrique.add "strategic sourcing", "strategic sourcing" Rubrique.add "order follow up", "order follow up" Rubrique.add "expert services", "expert services" Rubrique.add "prices", "prices" Rubrique.add "consult prices", "consult prices" Rubrique.add "register here", "register here" Rubrique.add "faq", "faq" Rubrique.add "frequently asked questions", "frequently asked questions" Rubrique.add "view & quote new RFQs", "view & quote new RFQs" Rubrique.add "Home", "Home" Rubrique.add "My Profile", "My user data" Rubrique.add "My Registration", "My Registration" Rubrique.add "MY RFQ FILES", "MY REQUEST FOR QUOTATION (RFQ)" Rubrique.add "New RFQs alerts", "New RFQs alerts" Rubrique.add "Pending RFQs", "Pending RFQs" Rubrique.add "Closed RFQs", "Closed RFQs" Rubrique.add "Declined RFQs", "Declined RFQs" Rubrique.add "Create RFQ", "Create RFQ" Rubrique.add "New RFQs", "New RFQs" Rubrique.add "My Buyers", "My Buyers" Rubrique.add "My Suppliers", "My Suppliers" Rubrique.add "My Contacts", "My Contacts" Rubrique.add "FOUNDRY", "MY FOUNDRY DATA" Rubrique.add "Material", "Material" Rubrique.add "Moulding", "Moulding" Rubrique.add "Facilities", "Facilities" Rubrique.add "ISO", "ISO" Rubrique.add "Certification", "Certification" Rubrique.add "Market", "Market" Rubrique.add "FORGE", "MY FORGE DATA" Rubrique.add "Dimensions", "Dimensions" Rubrique.add "Logout", "Logout" Rubrique.add "Management", "Management" Rubrique.add "MY SUPPLIER SEARCH", "MY SUPPLIER SEARCH" Rubrique.add "New file alerts", "New file alerts" Rubrique.add "Pending searchs", "Pending searchs" Rubrique.add "Closed searchs", "Closed searchs" Rubrique.add "Declined searchs", "Declined searchs" Rubrique.add "Create search", "Create search" Rubrique.add "New searchs", "New searchs" Rubrique.add "MY BUYER LEADS", "MY BUYER LEADS" Rubrique.add "Pending leads", "Pending leads" Rubrique.add "Closed leads", "Closed leads" Rubrique.add "Send Message", "Send Message" Rubrique.add "Online help", "Online Help" set Bouton=Server.CreateObject("Scripting.Dictionary") Bouton.add "boutons/cancelBlank.gif", "boutons/cancelBlank.gif" Bouton.add "boutons/nextBlank.gif", "boutons/nextBlank.gif" Bouton.add "boutons/backBlank.gif", "boutons/backBlank.gif" Bouton.add "boutons/registerBlank.gif", "boutons/registerBlank.gif" Bouton.add "boutons/print.gif", "boutons/print.gif" Bouton.add "boutons/confirmBlank.gif", "boutons/confirmBlank.gif" Bouton.add "boutons/sendBlank.gif", "boutons/sendBlank.gif" Bouton.add "boutons/notInterested.gif", "boutons/notInterested.gif" Bouton.add "boutons/interested.gif", "boutons/interested.gif" set Titre=Server.CreateObject("Scripting.Dictionary") Titre.add "WF/Activities/Buyers/demande.asp", "Request for Price" Titre.add "WF/Activities/inscriptionFF/inscription.asp", "Registration : company information" Titre.add "WF/Activities/inscriptionFF/produits.asp", "Registration : products" Titre.add "WF/Activities/inscriptionFF/confirmation.asp", "Registration : confirmation" set Champ=Server.CreateObject("Scripting.Dictionary") Champ.add "View your company profile", "View your company profile" Champ.add "Company information", "Company information" Champ.add "Company name", "Company name" Champ.add "Bronze listing", "Bronze listing" Champ.add "Silver listing", "Silver listing" Champ.add "Gold listing", "Gold listing" Champ.add "Address", "Address" Champ.add "Postal code", "Postal code" Champ.add "City", "City" Champ.add "Country", "Country" Champ.add "Phone", "Phone" Champ.add "Fax", "Fax" Champ.add "URL", "Web site" Champ.add "Supplier to Foundries", "Supplier to Foundries" Champ.add "Supplier to Forges", "Supplier to Forges" Champ.add "Title", "Title" Champ.add "First name", "First name" Champ.add "Last name", "Last name" Champ.add "Function", "Function" Champ.add "E-mail", "E-mail" Champ.add "Preferred business language", "Preferred business language" Champ.add "Other languages", "Other languages" Champ.add "Login", "Login" Champ.add "Username", "Username" Champ.add "Password", "Password" Champ.add "Confirm password", "Confirm password" Champ.add "I register my company with", "I register my company with" Champ.add "Your company profile", "Your company profile" Champ.add "Contact data", "Contact data" Champ.add "required fields", "required fields" Champ.add "min. 4 characters", "min. 4 characters" Champ.add "VAT excluded / year", "VAT excluded / year" Champ.add "VAT excluded", "VAT excl." Champ.add "Setup fee", "Setup fee" Champ.add "The following fields are required", "The following fields are required" Champ.add "Invalid E-mail", "Invalid E-mail" Champ.add "You have not confirmed the same password", "You have not confirmed the same password" Champ.add "The password must be 4 characters length", "The password must be 4 characters length" Champ.add "You must accept the Terms and conditions to register", "You must accept the Terms and conditions to register" Champ.add "Blank are not allowed in the login", "Blank are not allowed in the login" Champ.add "Supplier's products", "Supplier's products" Champ.add "Tick below your products to be referenced", "Tick below the products you wish to reference" Champ.add "Products", "Products" Champ.add "Product", "Product" Champ.add "Choice", "Choice" Champ.add "Type of registration", "Type of registration" Champ.add "Listing option", "Listing option" Champ.add "Bronze", "Bronze" Champ.add "Silver", "Silver" Champ.add "Gold", "Gold" Champ.add "Company", "Company" Champ.add "Supplier for", "Supplier for" Champ.add "Founderies", "Foundries" Champ.add "Forges", "Forges" Champ.add "Foundry", "Foundry" Champ.add "Forge", "Forge" Champ.add "Contact name", "Contact name" Champ.add "Before registering your company, you must accept the Terms & Conditions.", "Before registering your company, you must accept the Terms & Conditions." Champ.add "I accept the terms & conditions", "I accept the terms & conditions" Champ.add "Payable by bank transfer to", "Payable by bank transfer to" Champ.add "Order information", "Order information" Champ.add "Products supplied", "Products referenced" Champ.add "Terms & Conditions", "Terms & Conditions" Champ.add "Payment", "Payment (applicable to paying subscription)" Champ.add "Registering", "Registration" Champ.add "SWIFT address", "SWIFT address" Champ.add "Account number", "Account number" Champ.add "Code banque", "Bank code" Champ.add "Code guichet", "Branch code" Champ.add "Clé RIB", "Key number" Champ.add "Domiciliation", "Denomination" Champ.add "Branch", "Branch" Champ.add "An invoice will be issued as soon as you are registered", "If applicable, an invoice will be issued as soon as you are registered" Champ.add "Invoice", "Invoice" Champ.add "Date", "Date" Champ.add "Invoice number", "Invoice number" Champ.add "Recipient", "Recipient" Champ.add "Account manager", "Account manager" Champ.add "Before V.A.T. €", "Price excl. V.A.T. euros" Champ.add "Total V.A.T. €", "V.A.T. Amount euros" Champ.add "Net due €", "Total euros" Champ.add "V.A.T. number", "V.A.T. number" Champ.add "(V.A.T. : 19.6%)", "(V.A.T. : 19.6%)" Champ.add "Exemption VAT - EU delivery - art. 259 A 4° CGI", "Exemption VAT - EU delivery - art. 259 A 4° CGI" Champ.add "Exemption VAT - art 262 I 1° CGI", "Exemption VAT - art 262 I 1° CGI" Champ.add "Payable by bank transfer", "Payable by bank transfer" Champ.add "Emetteur", "Sender" Champ.add "Request for price", "Request for price" Champ.add "I am interested in the following service and would like to receive an offer for it", "I am interested in the following service and would like to receive an offer for it" Champ.add "Contact informations", "Contact informations" Champ.add "Annual purchasing potential", "Annual purchasing potential" Champ.add "Castings", "Castings" Champ.add "Forgings", "Forgings" Champ.add "Purchasing volume", "Purchasing volume" Champ.add "Number of RFQs", "Number of RFQs" Champ.add "Number of POs", "Number of POs" Champ.add "Number of active suppliers", "Number of active suppliers" Champ.add "Number of other suppliers known", "Number of other suppliers inquired" Champ.add "Number of suppliers to register", "Number of suppliers to register" Champ.add "Number of buyers", "Number of buyers to register" Champ.add "Please type in your comments, if any", "Please type in your comments, if any" Champ.add "ProSolutions", "ProSolutions" Champ.add "e-ProSolutions", "e-ProSolutions" Champ.add "Subscription", "Subscription" Champ.add "Casting purchasing volume", "Casting purchasing volume" Champ.add "Forging purchasing volume", "Forging purchasing volume" Champ.add "Number of active casting suppliers", "Number of active casting suppliers" Champ.add "Number of other casting suppliers", "Number of other casting suppliers" Champ.add "Number of active forging suppliers", "Number of active forging suppliers" Champ.add "Number of other forging suppliers", "Number of other forging suppliers" Champ.add "Welcome to your organizer", "Welcome to your organizer" Champ.add "You have", "You have" Champ.add "new RFQs alerts", "New Request For Quotation (RFQ) alerts" Champ.add "RFQs pending", "Request For Quotation pending" Champ.add "RFQs declined", "Request For Quotation declined" Champ.add "You are registered with", "You are registered with" Champ.add "from", "from" Champ.add "to", "to" Champ.add "since", "since" Champ.add "Your RFQ Credit", "Your Request For Quotation Credit" Champ.add "You have unlimited Pay-per-view", "You have unlimited access to Request For Quotations" Champ.add "available", "available" Champ.add "Upgrade your registration or buy new Pay-per-view", "Upgrade your registration" Champ.add "click here", "click here" Champ.add "My Registration", "My Registration" Champ.add "Registration", "Registration" Champ.add "PPV Credit", "RFQ Credit" Champ.add "Valid until", "Valid until" Champ.add "unlimited", "unlimited" Champ.add "empty", "empty" Champ.add "expired", "expired" Champ.add "Closed", "Closed" Champ.add "Valid", "Valid" Champ.add "RFQ viewed", "RFQ viewed" Champ.add "Certification", "Certification" Champ.add "Facilities", "Facilities" Champ.add "Weight", "Weight" Champ.add "Internal", "Internal" Champ.add "External", "External" Champ.add "Rough", "Rough" Champ.add "Rough machined", "Rough machined" Champ.add "Finish machined", "Finish machined" Champ.add "Rough machining", "Rough machining" Champ.add "Finish machining", "Finish machining" Champ.add "Certified by", "Certified by" Champ.add "Market", "Market" Champ.add "Material", "Material" Champ.add "Weight Range", "Weight Range" Champ.add "Tonnage per year", "Tonnage per year" Champ.add "Moulding process", "Moulding process" Champ.add "Length", "Length" Champ.add "Width", "Width" Champ.add "Height", "Height" Champ.add "Qty", "Qty" Champ.add "Quantity", "Quantity" Champ.add "Process", "Process" Champ.add "Precision", "Precision" Champ.add "Coarse", "Coarse" Champ.add "Electrical", "Electrical" Champ.add "Methane", "Methane" Champ.add "On stock", "On stock" Champ.Add "Industry", "Industry" Champ.add "Number of items", "Number of items" Champ.add "Nbr of items", "Nbr of items" Champ.add "Customer country", "Country" Champ.add "Market of destination", "Market of destination" Champ.add "Closing date", "Closing date" Champ.add "Expected order date", "Order date" Champ.add "Buyer", "Buyer" Champ.add "Quality requirements", "Quality requirements" Champ.add "ISO required", "ISO" Champ.add "required", "required" Champ.add "not required", "not required" Champ.add "Material certification", "Material certification" Champ.add "Items", "Items" Champ.add "Part name", "Part name" Champ.add "Supply Status", "Supply Status" Champ.add "Size", "Size" Champ.add "Standard", "Standard" Champ.add "Item detail", "Item detail" Champ.add "Dimension", "Dimension" Champ.add "General comments", "General comments" Champ.add "Viewed", "Viewed" Champ.add "My Buyers", "My Buyers" Champ.add "Contact", "Contact" Champ.add "RFQ Description", "RFQ Description" Champ.add "ended", "ended" Champ.add "metric tons", "metric tons" Champ.add "Weight part", "Weight part" Champ.add "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area", "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area" Champ.add "RFQs on line", "Request For Quotations online" Champ.add "Request For Quotation", "Request For Quotation" Champ.add "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer.", "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer." Champ.add "You are not interested to quote this RFQ,
please enter below your username and password.", "You are not interested to quote this RFQ,
please enter below your username and password." Champ.add "If you are not registered and want to quote this RFQ go to the", "If you are not registered and want to quote this RFQ go to the" Champ.add "registration page", "registration page" Champ.add "This RFQ is now available in your RFQ list in your organizer
", "This RFQ is now available in your new RFQ alerts in your organizer
" Champ.add "Supplier searchs on line", "Supplier searchs on line" Champ.add "Supplier search", "Supplier search" Champ.add "Buyer lead", "Buyer lead" Champ.add "You are interested to quote this file,
please enter below your username and password to get it in your organizer.", "You are interested to quote this file,
please enter below your username and password to get it in your organizer." Champ.add "If you are not registered and want to quote this file go to the", "If you are not registered and want to quote this file go to the" Champ.add "This file is now available in your organizer
", "This file is now available in your organizer
" Champ.add "Your Pay-per-view credit is now : ", "Your RFQ credit is now : " Champ.add "Your Pay-per-view credit is empty !
", "You don't have RFQ access credit
" Champ.add "Please contact Subcontract Solutions to upgrade your credit", "Please contact Subcontract Solutions to upgrade your credit" Champ.add "Your Pay-per-view credit is unlimited", "Your RFQ credit is unlimited" Champ.add "Your registration has ended since ", "Your registration is expired since " Champ.add "This RFQ is still available in your RFQ list in your organizer
", "This RFQ is already available in your RFQ list in your organizer
" Champ.add "Your Pay-per-view credit is still : ", "Your RFQ credit is still : " Champ.add "You are not interested by this RFQ
", "You are not interested by this RFQ
" Champ.add "Your Pay-per-view credit is unchanged", "Your RFQ credit is unchanged" Champ.add "Your username and password are valid, but you are not registred as foundry and/or a forge ", "Your username and password are valid, but you are not registred as foundry and/or a forge " Champ.add "Sorry, but your username and password are not valid ", "Sorry, but your username and password are not valid " Champ.add "To quote this RFQ you need to upgrade your subscription.", "To quote this RFQ you need to upgrade your subscription." Champ.add "You can do this directly from your organiser", "You can do this directly from your organiser" Champ.add "This Request For Quotation is not accessible for quote with a freee membership.", "This Request For Quotation is not accessible for quote with a free membership." Champ.add "This Request For Quotation is accessible to registered suppliers with a paying subscription only.", "Note :
This Request For Quotation is accessible to registered suppliers with a paying subscription only." Champ.add "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer.", "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer." Champ.add "You too can communicate directly with buyers in changing your registration from your organizer.", "You too can communicate directly with buyers in changing your registration from your organizer." Champ.add "You are registered :", "You are registered :" Champ.add "Please enter your username and password to get it in your organizer", "Please enter your username and password to get this RFQ in your organizer" Champ.add "You are not registered :", "You are not registered :" Champ.add "To have access to this Request For Quotation, please proceed first with your", "To be able to quote this Request For Quotation, please see conditions by clicking on " Champ.add "registration", "registration" Champ.add "Specify for machining only", "Specify for machining only" Champ.add "Your upgrade is now effective", "Your upgrade is now effective" Champ.add "Pending RFQs", "Pending RFQs" Champ.add "Description", "Description" Champ.add "Closed RFQs", "Closed RFQs" Champ.add "(Closed by buyer)", "(Closed by buyer)" Champ.add "Pending searchs", "Pending searchs" Champ.add "Closed searchs", "Closed searchs" Champ.add "Pending leads", "Pending leads" Champ.add "Closed leads", "Closed leads" Champ.add "Parts description", "Parts description" Champ.add "Geographical sourcing", "Geographical sourcing" Champ.add "Part(s) name", "Part(s) name" Champ.add "New Material", "New Material" Champ.add "New Certification", "New Certification" Champ.add "New Process", "New Process" Champ.add "New Facilities", "New Facilities" Champ.add "New ISO", "New ISO" Champ.add "New Market", "New Market" Champ.add "New Moulding", "New Moulding" Champ.add "ISO", "ISO" Champ.add "Can you supply parts elaborated with", "Can you supply parts elaborated with" Champ.add "Electro Slag Remelting Process (ESR)", "Electro Slag Remelting Process (ESR)" Champ.add "Vacuum Oxygen Decarburization Process (VOD)", "Vacuum Oxygen Decarburization Process (VOD)" Champ.add "Argon Oxygen Decarburization Process (AOD)", "Argon Oxygen Decarburization Process (AOD)" Champ.add "For the process of ring rolling, input :
- max outside diameter in the length max area,
- min inside diameter in the width max area,
- max thickness in the height max area", "For the process of ring rolling, input :
- max outside diameter in the length max area,
- min inside diameter in the width max area,
- max thickness in the height max area" Champ.add "Print", "Print" Champ.add "Help", "Help" Champ.add "Cancel", "Cancel" Champ.add "Ok", "Valid" Champ.add "Save", "Save" Champ.add "Put online", "Put online" Champ.add "Put offline", "Put offline" Champ.add "Add", "Add" Champ.add "Delete", "Delete" Champ.add "Upload", "Upload" Champ.add "Download", "Download" Champ.add "Files", "Drawings" Champ.add "File", "Drawing" Champ.add "Enter the file to upload :", "Enter the file to upload :" Champ.add "Are you sure you want to delete this item ?", "Are you sure you want to delete this item ?" Champ.add "winHelp", "Help.htm" Champ.add "Add to my buyers list", "Add to my buyers list" Champ.add "Close RFQ", "Close RFQ" Champ.add "Re open RFQ", "Re open RFQ" Champ.add "Click on the line when highlighted to see the detail of the RFQ", "Click on the line when highlighted to see the detail of the RFQ" Champ.add "Upgrade", "Upgrade" Champ.add "Upgrade pending", "Upgrade pending" Champ.add "Your ask for upgrade to", "Your request for upgrade to" Champ.add "is about to be validated by Subcontract Solutions", "is about to be validated by Subcontract Solutions" Champ.add "Your upgrade will be effective as soon as your paiement will be received", "Your upgrade will be effective as soon as your paiement will be received" Champ.add "Amount", "Amount" Champ.add "Date of validity", "Date of validity" Champ.add "I want to upgrade to", "I want to upgrade to" Champ.add "Business language", "Business language" Champ.add "To quote these RFQ(s), register", "To quote these RFQs, register" Champ.add "To quote this RFQ, register", "To quote this RFQ, register" Champ.add "CA", "Turnover" Champ.add "% Exp.", "% Export" Champ.add "Tel", "Tel" Champ.add "Web", "Web" Champ.add "Managing director", "Managing director" Champ.add "Sales manager", "Sales manager" Champ.add "Production manager", "Production manager" Champ.add "Quality manager", "Quality manager" Champ.add "Dimensions", "Dimensions" Champ.add "Other", "Contact" Champ.add "Photo", "Photo" Champ.add "Logo", "Logo" Champ.add "Voir la Fiche", "View your profile" Champ.add "only", "only" Champ.add "to2", "to" Champ.add "Criterias", "Criterias Search" Champ.add "manufacturing industry", "manufacturing industry" Champ.add "foundry process", "foundry process" Champ.add "forge process", "forge process" Champ.add "foundry material", "material" Champ.add "forge material", "material" Champ.add "ISO qualification", "ISO qualification" Champ.add "required certification", "required certification" Champ.add "doesn't matter", "doesn't matter" Champ.add "Qty per delivery", "Qty per delivery" Champ.add "Estimated qty per year", "Estimated qty / year" Champ.add "Unit weight", "Unit weight" Champ.add "File attachment", "File attachment" Champ.add "Files attachment", "Files attachment" Champ.add "Order requirements", "Order requirements" Champ.add "RFQ closing date", "Closing date" Champ.add "expected order date", "expected order date" Champ.add "Incoterms", "Incoterms" Champ.add "Delivery date", "Delivery date" Champ.add "Place of delivery", "Place of delivery" Champ.add "Item", "Item" Champ.add "please do not insert your coordinates", "please do not insert your contact details" Champ.add "Your RFQ reference", "Your RFQ reference" Champ.add "(city / country)", "(city / country)" Champ.add "Certificate", "Certificate" Champ.add "Status", "Status" Champ.add "Delivery requirements", "Delivery requirements" Champ.add "Place", "Place" Champ.add "Online since", "Online since" Champ.add "open until", "open until" Champ.add "yes", "Yes" Champ.add "complete the informations of the following items", "complete informations of following items" Champ.add "Your unlimited access to Request For Quotations has expired", "Your unlimited access to Request For Quotations has expired" Champ.add "New", "New" Champ.add "Pending", "Pending" Champ.add "navigation problems ?
get latest browser versions", "navigation problems ?
get latest browser versions" Champ.add "Not Disclosed", "Not Disclosed" Champ.add "Decline this RFQ", "Decline this RFQ" Champ.add "Make a new offer", "Make a (new) offer" Champ.add "Pending Offer", "Pending Offer" Champ.add "Offres", "Offers" Champ.add "Offre", "Offer" Champ.add "Liste des offres", "Offers list" Champ.add "Réalisation de l'offre", "Making of offer" Champ.add "Your offer", "Your offer" Champ.add "envoyée le", "sent the" Champ.add "Your offer number", "Your offer number" Champ.add "Your reference", "Your reference" Champ.add "Your name", "Your name" Champ.add "Your Email", "Your Email" Champ.add "Qty/year", "Qty/year" Champ.add "Unit Price", "Unit Price" Champ.add "Total", "Total" Champ.add "Tool cost", "Tool cost" Champ.add "To quote", "To quote" Champ.add "Item declined", "Item declined" Champ.add "Total Offer", "Total Offer" Champ.add "Offer valid until", "Offer valid until" Champ.add "Tool / pattern cost", "Tool / pattern cost" Champ.add "Payment conditions", "Payment conditions" Champ.add "Decline item", "Decline item" Champ.add "Offer conditions", "Offer conditions" Champ.add "D'abord", "First" Champ.add "or", "or" Champ.add "puis", "then" Champ.add "Save offer", "Save offer" Champ.add "Delete offer", "Delete offer" Champ.add "Send offer", "Send offer" Champ.add "View offer", "View before sending" Champ.add "(remplace l'offre précédente)", "(replaces previous offer)" Champ.add "To Company", "To Company" Champ.add "From Company", "From Company" Champ.add "Your contact", "Your contact" Champ.add "Offer reference", "Offer reference" Champ.add "Offer number", "Offer number" Champ.add "Our reference", "Our reference" Champ.add "All prices are in", "All prices are in" Champ.add "Qty/del.", "Qty/del." Champ.add "Supplier country", "Supplier country" Champ.add "Send mail", "Send Mail" Champ.add "RFQ", "RFQ" Champ.add "(buyer's name not disclosed)", "(buyer's name not disclosed)" Champ.add "not active", "not active" Champ.add "Access to price comparison list : ", "Access to price comparison list : " Champ.add "Offer Nb", "Offer Nb" Champ.add "Total Items", "Total Items" Champ.add "Total Tools", "Total Tools" Champ.add "Send", "Send" Champ.add "Offer from", "Offer from" Champ.add "Additional informations", "Additional informations" Champ.add "Prices of this offer are in", "Prices of this offer are in" Champ.add "Incoterms used is", "Incoterms used is" Champ.add "View drawing", "View
sample
drawing" Champ.add "To import into your organizer, click : ", "To import into your organizer, click : " Champ.add "Success stories", "Testimonials" Champ.add "Buyers", "Buyers" Champ.add "Suppliers", "Suppliers" Champ.add "References", "References" Champ.add "New Gold Pass members", "New Gold Pass members" Champ.add "new RFQ to finalise", "new RFQ to finalise" Champ.add "RFQ pending", "RFQ pending" Champ.add "RFQ that are expired or about to expire", "RFQ that are expired" Champ.add "new Search to finalise", "new Search to finalise" Champ.add "Search pending", "Search pending" Champ.add "Search that are expired or about to expire", "Search that are expired" Champ.add "Manufact.", "Manufact." Champ.add "Downloads", "Downloads" Champ.add "Quotes", "Quotes" Champ.add "Creation", "Creation" Champ.add "Validation", "Validation" Champ.add "Offline", "Stand-by" Champ.add "My Suppliers", "My Suppliers" Champ.add "My Contacts", "My Contacts" Champ.add "New RFQ list", "New RFQ list" Champ.add "RFQ under validation by Subcontract Solutions", "Under validation by Subcontract Solutions" Champ.add "New RFQs", "New RFQs" Champ.add "Countries selection", "Countries selection" Champ.add "Countries", "Countries" Champ.add "Not completed", "Not completed" Champ.add "all countries selected", "all countries selected" Champ.add "All countries" , "All countries" Champ.add "File download", "File download" Champ.add "displayed to suppliers", "displayed to suppliers" Champ.add "My internal notes (not displayed to suppliers)", "My internal notes (not displayed to suppliers)" Champ.add "Messages board", "Messages board" Champ.add "BIDDERS LIST", "BIDDERS LIST" Champ.add "DOWNLOADERS LIST", "DOWNLOADERS LIST" Champ.add "Downloads from Subcontract Solutions Gold Pass supplier network", "Downloads from Subcontract Solutions Gold Pass supplier network" Champ.add "Other downloads from Subcontract Solutions supplier network", "Other downloads from Subcontract Solutions supplier network" Champ.add "Offers from Subcontract Solutions Gold Pass supplier network", "Offers from Subcontract Solutions Gold Pass supplier network" Champ.add "Other offers from Subcontract Solutions supplier network", "Other offers from Subcontract Solutions supplier network" Champ.add "Supplier from", "Supplier from" Champ.add "Message type selection", "Message type selection" Champ.add "Selection", "Selection" Champ.add "View", "View" Champ.add "Free text message", "Free text message" Champ.add "Subject", "Subject" Champ.add "Price analysis area", "Price analysis area" Champ.add "To view supplier profile click on", "To view supplier profile click on" Champ.add "Display of offer n°", "Display of offer n°" Champ.add "dated", "dated" Champ.add "My comments", "My comments" Champ.add "Create a new Request For Quotation", "Create a new Request For Quotation" Champ.add "I allow price comparison for suppliers", "I allow price comparison for suppliers" Champ.add "Offers from Gold Pass suppliers", "Offers from Gold Pass suppliers" Champ.add "Offers from Quote Pass suppliers", "Offers from Quote Pass suppliers" Champ.add "My account manager", "My account manager" Champ.add "Manufacturing", "Manufacturing" Champ.add "Materials elaborated", "Materials elaborated" Champ.add "Moulding processes", "Moulding processes" Champ.add "Forging processes", "Forging processes" Champ.add "Qualifications", "Qualifications" Champ.add "View profile", "View profile" Champ.add "Request for quotation list" , "Request for quotation list" Champ.add "Supplier search message list" , "Buy leads" Champ.add "Prec" , "Previous" Champ.add "Next" , "Next" Champ.add "Page" , "Page" Champ.add "Geographical" , "Geographical selection" Champ.add "Search" , "Search" Champ.add "Supplier search messages online" , "Supplier search messages online" Champ.add "Send RFQ" , "send RFQ" Champ.add "Online Directory" , "Online directory" Champ.add "Send Buy Leads" , "send buy leads" Champ.add "View2" , "view" Champ.add "buyleads2" , " buy leads" Champ.add "RFQ2" , " RFQs" Champ.add "Subcontract Solutions", "Subcontract Solutions" Champ.add "FF", "Foundries & Forges area" Champ.add "Our vision" , "Our vision" Champ.add "Find new suppliers" , "Find new suppliers" Champ.add "Meet new buyers" , "meet new buyers" Champ.add "Suppliers to foundries & forges" , "Suppliers to Foundries & Forges" Champ.add "Smart tools" , "Smart tools" Champ.add "Buyers2" , "Buyers area" Champ.add "Suppliers2" , "Suppliers to Foundries & Forges area" Champ.add "FF2", "Foundries & Forges" Champ.add "VDMA" , "VDMA e-markets" Champ.add "buyleads3" , "Buy Leads online" Champ.add "Foundries and Forges" , "foundries & forges" Champ.add "Suppliers3" , "suppliers to foundries & forges" Champ.add "Marketplace" , "Market Place" set Mail=Server.CreateObject("Scripting.Dictionary") Mail.add "Registration in Subcontract Solutions'Supplier Guide", "Registration in Subcontract Solutions Supplier Guide" Mail.add "Registration in Subcontract Solutions'Database", "Registration in Subcontract Solutions" Mail.add "Dear", "Dear" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions'Database is complete.", "We are pleased to inform you that your registration in Subcontract Solutions'Database is complete." Mail.add "Thank you for your registration in Subcontract Solutions' Supplier guide.", "Thank you for your registration in Subcontract Solutions' Supplier guide." Mail.add "Your username and password will be active within 48 hours.", "Your username and password will be active within 48 hours." Mail.add "Once we have received your payment we will activate your listing in the Supplier Guide. You will receive a confirmation when payment has been received.", "Once we have received your payment we will activate your listing in the Supplier Guide. You will receive a confirmation when payment has been received." Mail.add "You have been registered with the following profile", "You have been registered with the following data" Mail.add "Best regards", "Best regards" Mail.add "Customer Service", "Customer Service" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions' Supplier Guide is complete.", "We are pleased to inform you that your registration in Subcontract Solutions' Supplier Guide is effective." Mail.add "Your company is listed with the following details", "Your company is listed with the following data" Mail.add "To change your profile you can go to our site : http://www.subcontractsolutions.com and login with your username and password", "To change your profile you can go to our site : http://www.subcontractsolutions.com and login with your username and password" Mail.add "However, it appears that your company has already been registered by one of your colleagues.", "However, it appears that your company has already been registered." Mail.add "To prevent unnecessary expenses or inconvenience for your firm, may we suggest you consult our contact in your companys", "To prevent unnecessary expenses or inconvenience for your firm, may we suggest you consult our contact in your company" Mail.add "If an error has occurred please accept our apologies.", "If our assumption is wrong please accept our apologies." Mail.add "We shall be awaiting your confirmation before proceeding with your registration.", "We shall be awaiting your confirmation before proceeding with your registration." Mail.add "Please contact us by e-mail at: sales@SubcontractSolutions.com, or call:+33 - (0)3 25 49 03 22", "Please contact us by e-mail at: customerservice@SubcontractSolutions.com, or call:+33 - (0)3 25 49 03 22" Mail.add "Your registration is effective. From now on, with your login and password, you can access your private organizer.", "Your registration is effective. From now on, with your login and password, you can access your private organizer." Mail.add "We highly recommend you to fill up your production capacities and your know-how in our supplier database. You can access it from your private organizer", "We highly recommend you to fill up your production capacities and your know-how in our supplier database. You can access it from your private organizer" Mail.add "Best regards and good sales !", "Best regards and good sales !" Mail.add "Thank you for your registration in Subcontract Solutions'Database.", "Thank you for your registration." Mail.add "Your will receive a confirmation that your account is active within 48 hours.", "You will receive a confirmation that your account is active within 48 hours." Mail.add "An invoice will be sent to you by e-mail within 48 hours", "An invoice will be sent to you by e-mail within 48 hours" Mail.add "You can at any time after that login, view and change your company's profile directly from from our site: http://www.subcontractsolutions.com", "You can at any time after that login, view and change your company's profile directly from from our site: http://www.subcontractsolutions.com" Mail.add "You will receive a confirmation that your account is active once payment has been received", "You will receive a confirmation that your account is active once payment has been received" Mail.add "Thank you for your registration, please find your invoice and registration details below. Your account will be actif once we receive your payment.", "Thank you for your registration, please find your invoice and registration details below. Your account will be activated once your payment has been received." set Jour=Server.CreateObject("Scripting.Dictionary") Jour.add "1", "Sunday" Jour.add "2", "Monday" Jour.add "3", "Tuesday" Jour.add "4", "Wenesday" Jour.add "5", "Thursday" Jour.add "6", "Friday" Jour.add "7", "Saturday" set Mois=Server.CreateObject("Scripting.Dictionary") Mois.add "1", "January" Mois.add "2", "February" Mois.add "3", "March" Mois.add "4", "April" Mois.add "5", "May" Mois.add "6", "June" Mois.add "7", "July" Mois.add "8", "August" Mois.add "9", "September" Mois.add "10", "October" Mois.add "11", "November" Mois.add "12", "December" set State=Server.CreateObject("Scripting.Dictionary") State.add "1", "Crée" State.add "3", "Offert" State.add "4", "En cours" State.add "5", "Suspendue" State.add "7", "En attente" State.add "501", "Fait" State.add "502", "Annulé" State.add "506", "Ré-assigné" %><% case "fr" lg = "fr" %><% set Rubrique=Server.CreateObject("Scripting.Dictionary") Rubrique.add "suppliers", "fournisseurs" Rubrique.add "supplier guide presentation", "presentation du guide fournisseur" Rubrique.add "listing options", "options de referencement" Rubrique.add "registration", "enregistrement" Rubrique.add "supplier search", "recherche fournisseur" Rubrique.add "access supplier guide", "acces guide fournisseur" Rubrique.add "supplier guide", "guide fournisseur" Rubrique.add "foundry & forge database", "base de donnees fonderies et forges" Rubrique.add "subcontract solutions", "subcontract solutions" Rubrique.add "our vision", "notre vision" Rubrique.add "contact us", "contactez nous" Rubrique.add "newsletter", "lettre d'information" Rubrique.add "company", "société" Rubrique.add "products", "produits" Rubrique.add "terms and payment", "Termes et Conditions" Rubrique.add "My company", "Ma société" Rubrique.add "My products", "Mes produits" Rubrique.add "overview", "présentation" Rubrique.add "Smart tools...", "Utilisez les bons outils..." Rubrique.add "SupplierPass", "SupplierPass" Rubrique.add "SupplierMatch", "SupplierMatch" Rubrique.add "Subcontract Organiser", "Subcontract Organiser" Rubrique.add "services", "services" Rubrique.add "ProSolutions", "ProSolutions" Rubrique.add "e-ProSolutions", "e-ProSolutions" Rubrique.add "strategic sourcing", "sourcing stratégique" Rubrique.add "order follow up", "suivi de commande" Rubrique.add "expert services", "services experts" Rubrique.add "prices", "prix" Rubrique.add "consult prices", "consultez nos prix" Rubrique.add "register here", "enregistrez-vous" Rubrique.add "faq", "faq" Rubrique.add "frequently asked questions", "foire aux questions" Rubrique.add "view & quote new RFQs", "les appels d'offre" Rubrique.add "Home", "Accueil" Rubrique.add "My Profile", "Mes données utilisateur" Rubrique.add "My Registration", "Mon abonnement" Rubrique.add "MY RFQ FILES", "MES APPELS D'OFFRE (AOF)" Rubrique.add "New RFQs alerts", "Alertes nouveaux AOF" Rubrique.add "Pending RFQs", "AOF en cours" Rubrique.add "Closed RFQs", "AOF fermés" Rubrique.add "Declined RFQs", "AOF déclinés" Rubrique.add "Create RFQ", "Creation AOF" Rubrique.add "New RFQs", "Nouveaux AOF" Rubrique.add "My Buyers", "Mes acheteurs" Rubrique.add "My Suppliers", "Mes fournisseurs" Rubrique.add "My Contacts", "Mes contacts" Rubrique.add "FOUNDRY", "MES DONNEES FONDERIE" Rubrique.add "Material", "Matière" Rubrique.add "Moulding", "Moulage" Rubrique.add "Facilities", "Installation" Rubrique.add "ISO", "ISO" Rubrique.add "Certification", "Certification" Rubrique.add "Market", "Marché" Rubrique.add "FORGE", "MES DONNEES FORGE" Rubrique.add "Dimensions", "Dimensions" Rubrique.add "Logout", "Déconnexion" Rubrique.add "Management", "Direction" Rubrique.add "MY SUPPLIER SEARCH", "MES RECHERCHES FOURNISSEURS" Rubrique.add "New file alerts", "Alertes nouveaux fichiers" Rubrique.add "Pending searchs", "Recherches en cours" Rubrique.add "Closed searchs", "Recherches fermées" Rubrique.add "Declined searchs", "Recherches déclinées" Rubrique.add "Create search", "Creation recherche" Rubrique.add "New searchs", "Nouvelles recherches" Rubrique.add "MY BUYER LEADS", "MES ANNONCES ACHETEUR" Rubrique.add "Pending leads", "Annonces en cours" Rubrique.add "Closed leads", "Annonces fermées" Rubrique.add "Send Message", "Envoi de Message" Rubrique.add "Online help", "Aide en ligne" set Bouton=Server.CreateObject("Scripting.Dictionary") Bouton.add "boutons/cancelBlank.gif", "boutons_fr/annuler.gif" Bouton.add "boutons/nextBlank.gif", "boutons_fr/suivant.gif" Bouton.add "boutons/backBlank.gif", "boutons_fr/precedent.gif" Bouton.add "boutons/registerBlank.gif", "boutons_fr/enregistrer.gif" Bouton.add "boutons/print.gif", "boutons_fr/imprimer.gif" Bouton.add "boutons/confirmBlank.gif", "boutons_fr/confirmer.gif" Bouton.add "boutons/sendBlank.gif", "boutons/sendBlank.gif" Bouton.add "boutons/notInterested.gif", "boutons_fr/pasInteresse.gif" Bouton.add "boutons/interested.gif", "boutons_fr/interesse.gif" set Titre=Server.CreateObject("Scripting.Dictionary") Titre.add "WF/Activities/Buyers/demande.asp", "Request for Price" Titre.add "WF/Activities/inscriptionFF/inscription.asp", "Registration : company information" Titre.add "WF/Activities/inscriptionFF/produits.asp", "Registration : products" Titre.add "WF/Activities/inscriptionFF/confirmation.asp", "Registration : confirmation" set Champ=Server.CreateObject("Scripting.Dictionary") Champ.add "View your company profile", "Voir votre profil société" Champ.add "Company information", "Informations société" Champ.add "Company name", "Nom société" Champ.add "Bronze listing", "Abonnement Bronze" Champ.add "Silver listing", "Abonnement Argent" Champ.add "Gold listing", "Abonnement Or" Champ.add "Address", "Adresse" Champ.add "Postal code", "Code postal" Champ.add "City", "Ville" Champ.add "Country", "Pays" Champ.add "Phone", "Telephone" Champ.add "Fax", "Fax" Champ.add "URL", "Site Internet" Champ.add "Supplier to Foundries", "Fournisseur aux fonderies" Champ.add "Supplier to Forges", "Fournisseur aux forges" Champ.add "Title", "Civilité" Champ.add "First name", "Prénom" Champ.add "Last name", "Nom" Champ.add "Function", "Fonction" Champ.add "E-mail", "E-mail" Champ.add "Preferred business language", "Langue de travail preferrée" Champ.add "Other languages", "Autres langues" Champ.add "Login", "Identification" Champ.add "Username", "Identifiant" Champ.add "Password", "Mot de passe" Champ.add "Confirm password", "Confirmation mot de passe" Champ.add "I register my company with", "Ma société s'enregistre avec" Champ.add "Your company profile", "Coordonnées société" Champ.add "Contact data", "Coordonnées du contact" Champ.add "required fields", "champs obligatoires" Champ.add "min. 4 characters", "4 caractères mini." Champ.add "VAT excluded / year", "HT / an" Champ.add "VAT excluded", "HT" Champ.add "Setup fee", "Frais d'installation" Champ.add "The following fields are required", "Vous devez remplir les champs suivants" Champ.add "Invalid E-mail", "Adresse e-mail invalide" Champ.add "You have not confirmed the same password", "Vous n avez pas confirmé le même mot de passe" Champ.add "The password must be 4 characters length", "Le mot de passe doit avoir au moins 4 caractères" Champ.add "You must accept the Terms and conditions to register", "Vous devez accepter les Conditions Générales pour pouvoir souscrire" Champ.add "Blank are not allowed in the login", "Les espaces ne sont pas autorisés dans le login" Champ.add "Supplier's products", "Produits référencés" Champ.add "Tick below your products to be referenced", "Cochez ci-dessous la liste des produits à référencer" Champ.add "Products", "Produits" Champ.add "Product", "Produit" Champ.add "Choice", "Choix" Champ.add "Type of registration", "Choix d'abonnement" Champ.add "Listing option", "Abonnement" Champ.add "Bronze", "Bronze" Champ.add "Silver", "Argent" Champ.add "Gold", "Or" Champ.add "Company", "Société" Champ.add "Supplier for", "Fournisseur pour" Champ.add "Founderies", "Fonderies" Champ.add "Forges", "Forges" Champ.add "Foundry", "Fonderie" Champ.add "Forge", "Forge" Champ.add "Contact name", "Nom du contact" Champ.add "Before registering your company, you must accept the Terms & Conditions.", "Avant d'enregistrer votre société, vous devez accepter les Conditions Générales d'Utilisation." Champ.add "I accept the terms & conditions", "J'accepte les Conditions Générales d'Utilisation" Champ.add "Payable by bank transfer to", "Paiement par transfert bancaire à" Champ.add "Order information", "Résumé de votre enregistrement" Champ.add "Products supplied", "Produits référencés" Champ.add "Terms & Conditions", "Conditions Générales" Champ.add "Registering", "Enregistrement" Champ.add "SWIFT address", "Adresse SWIFT" Champ.add "Account number", "n° de compte" Champ.add "Code banque", "Code banque" Champ.add "Code guichet", "Code guichet" Champ.add "Clé RIB", "Clé RIB" Champ.add "Domiciliation", "Domiciliation" Champ.add "Branch", "Succursale" Champ.add "An invoice will be issued as soon as you are registered", "Le cas échéant une facture vous sera envoyée dés votre enregistrement" Champ.add "Invoice", "Facture" Champ.add "Date", "Date" Champ.add "Invoice number", "Facture n°" Champ.add "Recipient", "Destinataire" Champ.add "Account manager", "Administrateur de compte" Champ.add "Before V.A.T. €", "Hors taxes en euros" Champ.add "Total V.A.T. €", "Total T.V.A. en euros" Champ.add "Net due €", "Net à Payer en euros" Champ.add "V.A.T. number", "Numéro de T.V.A." Champ.add "(V.A.T. : 19.6%)", "(Taux T.V.A. : 19,6%)" Champ.add "Exemption VAT - EU delivery - art. 259 A 4° CGI", "Exoneration de la TVA - livraison CEE - art. 259 A 4° CGI" Champ.add "Exemption VAT - art 262 I 1° CGI", "Exoneration de la TVA - art 262 I 1° CGI" Champ.add "Payable by bank transfer", "Payable par virement bancaire" Champ.add "Emetteur", "Emetteur" Champ.add "Request for price", "Demande de prix" Champ.add "I am interested in the following service and would like to receive an offer for it", "Veuillez me faire une offre pour un abonnement à :" Champ.add "Contact informations", "Informations" Champ.add "Annual purchasing potential", "Volume d'achat annuel:" Champ.add "Castings", "Pièces moulées" Champ.add "Forgings", "Pièces forgées" Champ.add "Purchasing volume", "Volume d'achat" Champ.add "Number of RFQs", "Nombre d'appel d'offre" Champ.add "Number of POs", "Nombre de commandes" Champ.add "Number of active suppliers", "Nombre de fournisseurs actifs" Champ.add "Number of other suppliers known", "Nombre de fournisseurs consultés" Champ.add "Number of suppliers to register", "Nombre de fournisseurs à enregistrer" Champ.add "Number of buyers", "Nombre d'acheteurs à enregister" Champ.add "Please type in your comments, if any", "Commentaires" Champ.add "ProSolutions", "ProSolutions" Champ.add "e-ProSolutions", "e-ProSolutions" Champ.add "Subscription", "Abonnement" Champ.add "Casting purchasing volume", "Casting purchasing volume" Champ.add "Forging purchasing volume", "Forging purchasing volume" Champ.add "Number of active casting suppliers", "Number of active casting suppliers" Champ.add "Number of other casting suppliers", "Number of other casting suppliers" Champ.add "Number of active forging suppliers", "Number of active forging suppliers" Champ.add "Number of other forging suppliers", "Number of other forging suppliers" Champ.add "Welcome to your organizer", "Bienvenue dans votre espace de travail" Champ.add "You have", "Vous avez" Champ.add "new RFQs alerts", "Alertes de nouveaux Appels d'Offre" Champ.add "RFQs pending", "Appels d'Offre en cours" Champ.add "RFQs declined", "Appels d'Offre déclinés" Champ.add "You are registered with", "Vous êtes abonné à" Champ.add "from", "du" Champ.add "to", "au" Champ.add "since", "depuis" Champ.add "Your RFQ Credit", "Votre crédit d'Appel d'Offre" Champ.add "You have unlimited Pay-per-view", "Vous avez un accès illimité aux Appels d'Offre" Champ.add "available", "disponible" Champ.add "Upgrade your registration or buy new Pay-per-view", "Modifiez votre enregistrement" Champ.add "click here", "cliquez ici" Champ.add "My Registration", "Mon Abonnement" Champ.add "Registration", "Abonnement" Champ.add "PPV Credit", "Credit AO" Champ.add "Valid until", "Valable jusqu'au" Champ.add "unlimited", "illimité" Champ.add "empty", "épuisé" Champ.add "expired", "expiré" Champ.add "Closed", "Fermé" Champ.add "Payment", "Paiement (uniquement en cas d'inscription payante)" Champ.add "Valid", "Valide" Champ.add "RFQ viewed", "AO vus" Champ.add "Certification", "Certification" Champ.add "Facilities", "Installation" Champ.add "Weight", "Poids" Champ.add "Internal", "Interne" Champ.add "External", "Externe" Champ.add "Rough", "Brut" Champ.add "Rough machined", "Ebauché" Champ.add "Finish machined", "Fini d'usinage" Champ.add "Rough machining", "Usinage d'ébauche" Champ.add "Finish machining", "Usinage de finition" Champ.add "Certified by", "Certifié par" Champ.add "Market", "Marché" Champ.add "Material", "Matière" Champ.add "Weight Range", "Gamme de poids" Champ.add "Tonnage per year", "Tonnage annuel" Champ.add "Moulding process", "Procédé de moulage" Champ.add "Length", "Longueur" Champ.add "Width", "Largeur" Champ.add "Height", "Hauteur" Champ.add "Qty", "Qté" Champ.add "Quantity", "Quantité" Champ.add "Process", "Procédé" Champ.add "Precision", "Precision" Champ.add "Coarse", "Brut" Champ.add "Electrical", "Electrique" Champ.add "Methane", "Methane" Champ.add "On stock", "Sur stock" Champ.Add "Industry", "Industrie" Champ.add "Number of items", "Nombre d'items" Champ.add "Nbr of items", "Nb items" Champ.add "Customer country", "Pays" Champ.add "Market of destination", "Marché de destination" Champ.add "Closing date", "Clôture" Champ.add "Expected order date", "Commande" Champ.add "Buyer", "Acheteur" Champ.add "Quality requirements", "Critères qualité" Champ.add "ISO required", "ISO" Champ.add "required", "requise" Champ.add "not required", "non requise" Champ.add "Material certification", "Certification matière" Champ.add "Items", "Items" Champ.add "Part name", "Nom de la pièce" Champ.add "Supply Status", "Etat de livraison" Champ.add "Size", "Taille" Champ.add "Standard", "Standard" Champ.add "Item detail", "Détail de la pièce" Champ.add "Dimension", "Dimension" Champ.add "General comments", "Commentaires" Champ.add "Viewed", "Vue" Champ.add "My Buyers", "Mes Acheteurs" Champ.add "Contact", "Contact" Champ.add "RFQ Description", "Description AOF" Champ.add "ended", "terminé" Champ.add "metric tons", "Tonnes" Champ.add "Weight part", "Poids pièce" Champ.add "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area", "Pour le procédé de centrifugation renseignez :
- Le diametre max dans la zone de la longueur max,
- l'épaisseur de paroi max dans la zone de largeur max,
- la longueur max dans la zone de la hauteur max" Champ.add "RFQs on line", "Appels d'Offre en ligne" Champ.add "Request For Quotation", "Appel d'Offre" Champ.add "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer.", "Vous êtes intéressé par cet Appel d'Offre,
veuillez entrer votre login et mot de passe pour le récupérer dans votre espace de travail." Champ.add "You are not interested to quote this RFQ,
please enter below your username and password.", "Vous n'êtes pas intéressé par cet Appel d'Offre,
Veuillez entre votre login et mot de passe." Champ.add "If you are not registered and want to quote this RFQ go to the", "Si vous n'êtes pas enregistré et souhaitez consulter cet Appel d'Offre, allez à la " Champ.add "registration page", "page d'enregistrement" Champ.add "This RFQ is now available in your RFQ list in your organizer
", "Cet Appel d'Offre est maintenant disponible dans vos nouvelles alertes
" Champ.add "Supplier searchs on line", "Recherche de fournisseurs en ligne" Champ.add "Supplier search", "Recherche de fournisseurs" Champ.add "Buyer lead", "Annonce acheteur" Champ.add "You are interested to quote this file,
please enter below your username and password to get it in your organizer.", "Vous êtes intéressé par ce fichier,
veuillez entrer votre login et mot de passe pour le récupérer dans votre espace de travail." Champ.add "If you are not registered and want to quote this file go to the", "Si vous n'êtes pas enregistré et souhaitez consulter ce fichier, allez à la " Champ.add "This file is now available in your organizer
", "Ce fichier est maintenant disponible dans votre espace de travail
" Champ.add "Parts description", "Description des pièces" Champ.add "Geographical sourcing", "Sélection géographique" Champ.add "Part(s) name", "Noms des pièces" Champ.add "Your Pay-per-view credit is now : ", "Votre crédit d'appel d'offre est maintenant : " Champ.add "Your Pay-per-view credit is empty !
", "Vous n'avez pas de crédit d'accés aux appels d'offres
" Champ.add "Please contact Subcontract Solutions to upgrade your credit", "Veuillez contacter Subcontract Solutions pour augmenter votre crédit" Champ.add "Your Pay-per-view credit is unlimited", "Votre crédit d'Appel d'Offre est illimité" Champ.add "Your registration has ended since ", "Votre abonnement a pris fin le " Champ.add "This RFQ is still available in your RFQ list in your organizer
", "Cet Appel d'Offre est déjà disponible dans votre espace de travail
" Champ.add "Your Pay-per-view credit is still : ", "Votre crédit d'appel d'offre est toujours : " Champ.add "You are not interested by this RFQ
", "Vous n'êtes pas intéressé par cet appel d'offre
" Champ.add "Your Pay-per-view credit is unchanged", "Votre crédit d'appel d'offre n'a pas changé" Champ.add "Your username and password are valid, but you are not registred as foundry and/or a forge ", "Votre login et mot de passe sont valides, mais vous n'êtes pas enregistré en tant que fonderie et/ou forge " Champ.add "Sorry, but your username and password are not valid ", "Désolé, mais votre login et mot de passe sont invalides " Champ.add "To quote this RFQ you need to upgrade your subscription.", "Pour visualiser cet Appel d'offre, vous devez vous réabonner." Champ.add "You can do this directly from your organiser", "Vous pouvez le faire directement depuis votre espace de travail" Champ.add "This Request For Quotation is not accessible for quote with a freee membership.", "Cet appel d'offre ne peut être chiffré avec un enregistrement gratuit." Champ.add "This Request For Quotation is accessible to registered suppliers with a paying subscription only.", "Note :
Cet appel d'offre n'est accessible qu'aux fournisseurs enregistrés avec un abonnement payant." Champ.add "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer.", "L'accés à cet appel d'offre est réservé aux fournisseurs qui peuvent communiquer directement avec l'acheteur." Champ.add "You too can communicate directly with buyers in changing your registration from your organizer.", "Vous pouvez vous aussi être en prise directe avec les donneurs d'ordre en modifiant votre abonnement depuis votre espace de travail." Champ.add "You are registered :", "Vous êtes abonné :" Champ.add "Please enter your username and password to get it in your organizer", "Veuillez entrer votre login et mot de passe pour récupérer cet Appel d'Offre dans votre espace de travail" Champ.add "You are not registered :", "Vous n'êtes pas abonné :" Champ.add "To have access to this Request For Quotation, please proceed first with your", "Pour chiffrer cet Appel d'Offre, veuillez voir les conditions en cliquant sur " Champ.add "registration", "enregistrement" Champ.add "Specify for machining only", "Ne spécifier que pour l'usinage" Champ.add "Your upgrade is now effective", "Votre réabonnement est maintenant effectif" Champ.add "Pending RFQs", "AO en cours" Champ.add "Description", "Description" Champ.add "Closed RFQs", "AO fermés" Champ.add "(Closed by buyer)", "(Fermé par l'acheteur)" Champ.add "Pending searchs", "Recherches en cours" Champ.add "Closed searchs", "Recherches fermées" Champ.add "Pending leads", "Annonces en cours" Champ.add "Closed leads", "Annonces fermées" Champ.add "New Material", "Nouvelle matière" Champ.add "New Certification", "Nouvelle certification" Champ.add "New Process", "Nouveau procédé" Champ.add "New Facilities", "Nouvelle installation" Champ.add "New ISO", "Nouvelle ISO" Champ.add "New Market", "Nouveau marché" Champ.add "New Moulding", "Nouveau moulage" Champ.add "ISO", "ISO" Champ.add "Can you supply parts elaborated with", "Pouvez vous livrer des pièces élaborées par" Champ.add "Electro Slag Remelting Process (ESR)", "Affinage sous laitier électro fondu (ESR)" Champ.add "Vacuum Oxygen Decarburization Process (VOD)", "Décarburation à l'oxygène sous vide (VOD)" Champ.add "Argon Oxygen Decarburization Process (AOD)", "Décarburation à l'Argon-Oxygène (AOD)" Champ.add "For the process of ring rolling, input :
- max outside diameter in the length max area,
- min inside diameter in the width max area,
- max thickness in the height max area", "Pour le laminage circulaire, renseignez :
- diametre extérieur max dans la zone de la longueur max,
- diametre intérieur min dans la zone de la largeur max,
- épaisseur max dans la zone de la hauteur max" Champ.add "Print", "Imprimer" Champ.add "Help", "Aide" Champ.add "Cancel", "Annuler" Champ.add "Ok", "Valider" Champ.add "Save", "Enregistrer" Champ.add "Put online", "Mettre en ligne" Champ.add "Put offline", "Mettre hors ligne" Champ.add "Add", "Ajouter" Champ.add "Delete", "Supprimer" Champ.add "Upload", "Déposer" Champ.add "Download", "Récupérer" Champ.add "Files", "Plans" Champ.add "File", "Plan" Champ.add "Enter the file to upload :", "Choisissez le fichier à déposer :" Champ.add "Are you sure you want to delete this item ?", "Êtes vous sûr de vouloir supprimer cet item ?" Champ.add "winHelp", "Help_fr.htm" Champ.add "Add to my buyers list", "Ajouter à ma liste d'acheteurs" Champ.add "Close RFQ", "Fermer l'AO" Champ.add "Re open RFQ", "Réouvrir l'AO" Champ.add "Click on the line when highlighted to see the detail of the RFQ", "Cliquez sur la ligne surlignée pour voir les détails de l'Appel d'Offre" Champ.add "Upgrade", "Réabonnement" Champ.add "Upgrade pending", "Réabonnement en cours" Champ.add "Your ask for upgrade to", "Votre demande de réabonnement à" Champ.add "is about to be validated by Subcontract Solutions", "est en cours de traitement par Subcontract Solutions" Champ.add "Your upgrade will be effective as soon as your paiement will be received", "Votre réabonnement sera effectif dés réception de votre paiement" Champ.add "Amount", "Montant" Champ.add "Date of validity", "Dates de validité" Champ.add "I want to upgrade to", "Je veux me réabonner à" Champ.add "Business language", "Langue de travail" Champ.add "To quote these RFQ(s), register", "Pour chiffrer ces Appels d'Offres, enregistrez vous" Champ.add "To quote this RFQ, register", "Pour chiffrer cet Appel d'Offre, enregistrez vous" Champ.add "CA", "CA" Champ.add "% Exp.", "% Export" Champ.add "Tel", "Tel" Champ.add "Web", "Web" Champ.add "Managing director", "Directeur général" Champ.add "Sales manager", "Responsable des ventes" Champ.add "Production manager", "Responsable de production" Champ.add "Quality manager", "Responsable qualité" Champ.add "Dimensions", "Dimensions" Champ.add "Other", "Contact" Champ.add "Photo", "Photo" Champ.add "Logo", "Logo" Champ.add "Voir la Fiche", "Voir votre profil" Champ.add "only", "seulement" Champ.add "to2", "à" Champ.add "Criterias", "Critères de recherche" Champ.add "manufacturing industry", "manufacture" Champ.add "foundry process", "process fonderie" Champ.add "forge process", "process forge" Champ.add "foundry material", "matière" Champ.add "forge material", "matière" Champ.add "ISO qualification", "qualification ISO" Champ.add "required certification", "certificat demandé" Champ.add "doesn't matter", "non requis" Champ.add "Qty per delivery", "Qté par livraison" Champ.add "Estimated qty per year", "Qté estimée / an" Champ.add "Unit weight", "Poids unitaire" Champ.add "File attachment", "Fichier joint" Champ.add "Files attachment", "Fichiers joints" Champ.add "Order requirements", "Conditions de commande" Champ.add "RFQ closing date", "Date de clôture" Champ.add "expected order date", "date probable de commande" Champ.add "Incoterms", "Incoterms" Champ.add "Delivery date", "Date de livraison" Champ.add "Place of delivery", "Lieu de livraison" Champ.add "Item", "Poste" Champ.add "please do not insert your coordinates", "Merci de ne pas mentionner vos coordonnées" Champ.add "Your RFQ reference", "Votre reference d' AOF" Champ.add "(city / country)", "(ville / pays)" Champ.add "Certificate", "Certificat" Champ.add "Status", "Statut" Champ.add "Delivery requirements", "Livraison" Champ.add "Place", "Lieu" Champ.add "Online since", "en ligne depuis" Champ.add "open until", "ouvert jusqu'à" Champ.add "yes", "Oui" Champ.add "complete the informations of the following items", "completez les informations des items suivants" Champ.add "Your unlimited access to Request For Quotations has expired", "Votre accès illimité aux Appels d'Offre a expiré" Champ.add "New", "Nouveau" Champ.add "Pending", "Ouvert" Champ.add "navigation problems ?
get latest browser versions", "problème de navigation ?
téléchargez la dernière version" Champ.add "Not Disclosed", "Non Divulgué" Champ.add "Decline this RFQ", "Décliner l'AO" Champ.add "Make a new offer", "Faire une (nouvelle) offre" Champ.add "Pending Offer", "Offre en cours" Champ.add "Offres", "Offres" Champ.add "Offre", "Offre" Champ.add "Liste des offres", "Liste des offres" Champ.add "Réalisation de l'offre", "Réalisation de l'offre" Champ.add "Your offer", "Votre offre" Champ.add "envoyée le", "envoyée le" Champ.add "Your offer number", "Votre numéro d'offre" Champ.add "Your reference", "Votre référence" Champ.add "Your name", "Votre nom" Champ.add "Your Email", "Votre email" Champ.add "Qty/year", "Qté/an" Champ.add "Unit Price", "Prix Unitaire" Champ.add "Total", "Total" Champ.add "Tool cost", "Cout outillage" Champ.add "To quote", "A chiffrer" Champ.add "Item declined", "Item décliné" Champ.add "Total Offer", "Total Offre" Champ.add "Offer valid until", "Offre valide jusqu'au" Champ.add "Tool / pattern cost", "Cout outillage" Champ.add "Payment conditions", "Conditions de paiement" Champ.add "Decline item", "Decliner le chiffrage" Champ.add "Offer conditions", "Conditions de l'offre" Champ.add "D'abord", "D'abord" Champ.add "or", "ou" Champ.add "puis", "puis" Champ.add "Save offer", "Sauvegarder l'offre" Champ.add "Delete offer", "Supprimer l'offre" Champ.add "Send offer", "Envoyer l'offre" Champ.add "View offer", "Voir avant envoi" Champ.add "(remplace l'offre précédente)", "(remplace l'offre précédente)" Champ.add "To Company", "A la société" Champ.add "From Company", "De la société" Champ.add "Your contact", "Votre contact" Champ.add "Offer reference", "Référence de l'offre" Champ.add "Offer number", "Numéro de l'offre" Champ.add "Our reference", "Notre référence" Champ.add "All prices are in", "Tous les prix sont en" Champ.add "Qty/del.", "Qté/Liv." Champ.add "Supplier country", "Pays du fournisseur" Champ.add "Send mail", "Envoyer le courrier" Champ.add "RFQ", "Appel d'Offre" Champ.add "(buyer's name not disclosed)", "(nom de l'acheteur non divulgué)" Champ.add "not active", "non actif" Champ.add "Access to price comparison list : ", "Accès à la liste de comparaison de prix : " Champ.add "Offer Nb", "N° Offre" Champ.add "Total Items", "Total Items" Champ.add "Total Tools", "Total Outils" Champ.add "Send", "Envoyé" Champ.add "Offer from", "Offre de" Champ.add "Additional informations", "Informations supplémentaires" Champ.add "Prices of this offer are in", "Cette offre est libellée en" Champ.add "Incoterms used is", "L'Incoterm chiffré est" Champ.add "View drawing", "Voir
un extrait
de plan" Champ.add "To import into your organizer, click : ", "Pour l'importer dans votre espace de travail, cliquez : " Champ.add "Success stories", "Témoignages" Champ.add "Buyers", "Acheteurs" Champ.add "Suppliers", "Fournisseurs" Champ.add "References", "References" Champ.add "New Gold Pass members", "Nouveaux membres Gold Pass" Champ.add "new RFQ to finalise", "nouveau(x) AOF à finaliser" Champ.add "RFQ pending", "AOF en cours" Champ.add "RFQ that are expired or about to expire", "AOF expirés" Champ.add "new Search to finalise", "nouvelles recherches à finaliser" Champ.add "Search pending", "Recherche en cours" Champ.add "Search that are expired or about to expire", "Recherche expirés" Champ.add "Manufact.", "Manufact." Champ.add "Downloads", "Téléchargements" Champ.add "Quotes", "Offres" Champ.add "Creation", "Creation" Champ.add "Validation", "Validation" Champ.add "Offline", "Stand-by" Champ.add "My Suppliers", "Mes fournisseurs" Champ.add "My Contacts", "Mes contacts" Champ.add "New RFQ list", "Liste des nouveaux AOF" Champ.add "RFQ under validation by Subcontract Solutions", "En cours de validation par Subcontract Solutions" Champ.add "New RFQs", "Nouveaux AOF" Champ.add "Countries selection", "Sélection Pays" Champ.add "Countries", "Pays" Champ.add "Not completed", "Non saisi" Champ.add "all countries selected", "Tous pays sélectionnés" Champ.add "All countries" , "Tous pays" Champ.add "File download", "Téléchargement" Champ.add "displayed to suppliers", "transmis aux fournisseurs" Champ.add "My internal notes (not displayed to suppliers)", "Notes personnelles (non transmises aux fournisseurs)" Champ.add "Messages board", "Messagerie" Champ.add "BIDDERS LIST", "LISTE DES FOURNISSEURS AYANT FAIT OFFRE" Champ.add "DOWNLOADERS LIST", "LISTE DES FOURNISSEURS QUI ONT ACCEDE A L'APPEL D'OFFRE" Champ.add "Downloads from Subcontract Solutions Gold Pass supplier network", "Fournisseurs appartenant au réseau Gold Pass Subcontract Solutions" Champ.add "Other downloads from Subcontract Solutions supplier network", "Autres fournisseurs du réseau de Subcontract Solutions" Champ.add "Offers from Subcontract Solutions Gold Pass supplier network", "Offres des fournisseurs appartenant au réseau Gold Pass Subcontract Solutions" Champ.add "Other offers from Subcontract Solutions supplier network", "Offres des autres fournisseurs du réseau de Subcontract Solutions" Champ.add "Supplier from", "Fournisseur de" Champ.add "Message type selection", "Selection du type de message" Champ.add "Selection", "Selection" Champ.add "View", "Voir" Champ.add "Free text message", "Message texte libre" Champ.add "Subject", "Objet" Champ.add "Price analysis area", "Espace de comparaison des offres" Champ.add "To view supplier profile click on", "Pour voir le profiil fournisseur cliquer sur" Champ.add "Display of offer n°", "Affichage de l'offre n°" Champ.add "dated", "daté" Champ.add "My comments", "Mes commentaires" Champ.add "Create a new Request For Quotation", "Creation d'un nouvel Appel d'Offre" Champ.add "I allow price comparison for suppliers", "J'autorise la comparaison des offres pour les fournisseurs" Champ.add "Offers from Gold Pass suppliers", "Offres des fournisseurs Gold Pass" Champ.add "Offers from Quote Pass suppliers", "Autres offres des fournisseurs Quote Pass" Champ.add "My account manager", "Mon chargé d'affaire" Champ.add "Manufacturing", "Métier" Champ.add "Materials elaborated", "Matières" Champ.add "Moulding processes", "Procédés de moulage" Champ.add "Forging processes", "Procédés de forge" Champ.add "Qualifications", "Qualifications" Champ.add "View profile", "Voir le profil" Champ.add "Request for quotation list" , "Appels d'Offres à chiffrer" Champ.add "Supplier search message list" , "Annonces acheteurs" Champ.add "Prec" , "Précédent" Champ.add "Next" , "Suivant" Champ.add "Page" , "Page" Champ.add "Geographical" , "Geographie" Champ.add "Search" , "Recherche" Champ.add "Supplier search messages online" , "Recherche d'annonces fournisseurs en ligne" Champ.add "Send RFQ" , "créer un AOF" Champ.add "Online Directory" , "Annuaire en ligne" Champ.add "Send Buy Leads" , "créer annonce acheteur" Champ.add "View2" , "voir" Champ.add "buyleads2" , " annonces acheteurs" Champ.add "RFQ2" , " AOFs" Champ.add "Subcontract Solutions", "Subcontract Solutions" Champ.add "FF", "Espace Fonderies & Forges" Champ.add "Our vision" , "Notre vision" Champ.add "Find new suppliers" , "Trouvez de nouveaux fournisseurs" Champ.add "Meet new buyers" , "Rencontrez de nouveaux acheteurs" Champ.add "Suppliers to foundries & forges" , "Fournisseurs aux Fonderies et Forges" Champ.add "Smart tools" , "Les bons outils" Champ.add "Buyers2" , "Espace Acheteurs" Champ.add "Suppliers2" , "Espace Fournisseurs aux Fonderies & Forges" Champ.add "FF2", "Fonderies & Forges" Champ.add "VDMA" , "VDMA e-markets" Champ.add "buyleads3" , "Annonces acheteurs en ligne" Champ.add "Foundries and Forges" , "fonderies & forges" Champ.add "Suppliers3" , "fournisseurs aux fonderies & forges" Champ.add "Marketplace" , "Place de Marché" set Mail=Server.CreateObject("Scripting.Dictionary") Mail.add "Registration in Subcontract Solutions'Supplier Guide", "Enregistrement dans le guide Fournisseur" Mail.add "Registration in Subcontract Solutions'Database", "Enregistrement à Subcontract Solutions" Mail.add "Dear", "Cher" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions'Database is complete.", "Votre enregistrement dans la base de données de Subcontract Solutions est complète" Mail.add "Thank you for your registration in Subcontract Solutions' Supplier guide.", "Merci de votre enregistrement dans le guide fournisseur" Mail.add "Your username and password will be active within 48 hours.", "Votre identifiant et mot de passe seront actifs sous 48 heures" Mail.add "You can at any time after that login, view and change your company's profile directly from from our site: http://www.subcontractsolutions.com", "Vous pourrez alors accéder et modifier les données de votre enregistrement en ligne en utilisant vos identifiants sur notre site : http://www.subcontractsolutions.com" Mail.add "Once we have received your payment we will activate your listing in the Supplier Guide. You will receive a confirmation when payment has been received.", "Dès réception de votre paiement, votre abonnement sera effectif et votre société apparaîtra dans le guide" Mail.add "You have been registered with the following profile", "Vous êtes enregistré avec les informations suivantes" Mail.add "Best regards", "Sincères salutations" Mail.add "Customer Service", "Service Clients" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions' Supplier Guide is complete.", "Nous vous informons que votre enregistrement est effectif" Mail.add "Your company is listed with the following details", "Votre société est enregistrée avec les informations suivantes" Mail.add "To change your profile you can go to our site : http://www.subcontractsolutions.com and login with your username and password", "Vous pouvez acceder et modifier les données de votre enregistrement en ligne en utilisant vos identifiants sur notre site : http://www.subcontractsolutions.com" Mail.add "However, it appears that your company has already been registered by one of your colleagues.", "Il apparaît que votre société est déjà enregistrée" Mail.add "To prevent unnecessary expenses or inconvenience for your firm, may we suggest you consult our contact in your companys", "Afin d'éviter tout malentendu, veuillez contacter" Mail.add "If an error has occurred please accept our apologies.", "Si ce message est erroné, veuillez nous excuser" Mail.add "We shall be awaiting your confirmation before proceeding with your registration.", "Nous attendons votre confirmation avant de procéder à votre enregistrement" Mail.add "Please contact us by e-mail at: sales@SubcontractSolutions.com, or call:+33 - (0)3 25 49 03 22", "Si nécessaire, n'hésitez pas à nous contacter : customerservice@SubcontractSolutions.com, ou appeler au : +33 - (0)3 25 49 03 22" Mail.add "Your registration is effective. From now on, with your login and password, you can access your private organizer.", "Votre enregistrement est effectif, vous avez désormais accès à votre espace de travail en utilisant vos identifiant et mot de passe." Mail.add "We highly recommend you to fill up your production capacities and your know-how in our supplier database. You can access it from your private organizer", "Nous vous recommandons vivement de remplir avec soins vos capacités de production et vos savoirs-faire dans notre base de données. Vous y accèderez à partir de votre espace de travail" Mail.add "Best regards and good sales !", "Sincères salutations, et bonnes ventes !" Mail.add "Thank you for your registration in Subcontract Solutions'Database.", "Merci de vous être enregistré." Mail.add "Your will receive a confirmation that your account is active within 48 hours.", "Une confirmation de l'ouverture de votre compte vous sera envoyé sous 48 heures" Mail.add "An invoice will be sent to you by e-mail within 48 hours", "Une facture vous sera envoyé par e-mail sous 48 heures" Mail.add "You will receive a confirmation that your account is active once payment has been received", "Dés réception de votre paiement, vous recevrez une confirmation de l'ouverture de votre compte" Mail.add "Please find your invoice and registration details below.", "Veuillez trouver votre facture avec les details de votre abonnement ci-dessous." Mail.add "Your account will be actif once we receive your payment.", "Votre compte sera actif dés reception de votre paiement." Mail.add "Thank you for your registration, please find your invoice and registration details below. Your account will be actif once we receive your payment.", "Merci de vous être enregistré, veuillez trouver votre facture avec les détails de votre abonnement ci-dessous. Votre enregistrement sera actif dés réception de votre paiement." set Jour=Server.CreateObject("Scripting.Dictionary") Jour.add "1", "Dimanche" Jour.add "2", "Lundi" Jour.add "3", "Mardi" Jour.add "4", "Mercredi" Jour.add "5", "Jeudi" Jour.add "6", "Vendredi" Jour.add "7", "Samedi" set Mois=Server.CreateObject("Scripting.Dictionary") Mois.add "1", "Janvier" Mois.add "2", "Février" Mois.add "3", "Mars" Mois.add "4", "Avril" Mois.add "5", "Mai" Mois.add "6", "Juin" Mois.add "7", "Juillet" Mois.add "8", "Août" Mois.add "9", "Septembre" Mois.add "10", "Octobre" Mois.add "11", "Novembre" Mois.add "12", "Decembre" set State=Server.CreateObject("Scripting.Dictionary") State.add "1", "Crée" State.add "3", "Offert" State.add "4", "En cours" State.add "5", "Suspendue" State.add "7", "En attente" State.add "501", "Fait" State.add "502", "Annulé" State.add "506", "Ré-assigné" %><% case "de" lg = "de" %><% set Rubrique=Server.CreateObject("Scripting.Dictionary") Rubrique.add "suppliers", "Lieferant" Rubrique.add "supplier guide presentation", "Lieferanten Führer Präsentation" Rubrique.add "listing options", "Eintrag-Optionen" Rubrique.add "registration", "Eintragen" Rubrique.add "supplier search", "Lieferanten Suche" Rubrique.add "access supplier guide", "Zugang zum Lieferanten Führer" Rubrique.add "supplier guide", "Lieferanten Führer" Rubrique.add "foundry & forge database", "Giesserei & Schmiede Datenbank" Rubrique.add "subcontract solutions", "subcontract solutions" Rubrique.add "our vision", "Unsere Vision" Rubrique.add "contact us", "Kontakt" Rubrique.add "newsletter", "Info-Brief" Rubrique.add "company", "Firma" Rubrique.add "products", "Produkte" Rubrique.add "terms and payment", "G-Bedingungen" Rubrique.add "My company", "Meine Firma" Rubrique.add "My products", "Meine Produkte" Rubrique.add "overview", "Übersicht" Rubrique.add "Smart tools...", "Passende mittel..." Rubrique.add "SupplierPass", "SupplierPass" Rubrique.add "SupplierMatch", "SupplierMatch" Rubrique.add "Subcontract Organiser", "Subcontract Organiser" Rubrique.add "services", "dienstleistungen" Rubrique.add "ProSolutions", "ProSolutions" Rubrique.add "e-ProSolutions", "e-ProSolutions" Rubrique.add "strategic sourcing", "strategisches Beschaffen" Rubrique.add "order follow up", "Auftragsverfolgung" Rubrique.add "expert services", "Fachberatung" Rubrique.add "prices", "Preise" Rubrique.add "consult prices", "Preise einsehen" Rubrique.add "register here", "Hier eintragen" Rubrique.add "faq", "Ogf" Rubrique.add "frequently asked questions", "Oft gestellte Fragen" Rubrique.add "view & quote new RFQs", "Anfragen auf einen Blick" Rubrique.add "Home", "Home" Rubrique.add "My Profile", "Mein Anwenderprofil" Rubrique.add "My Registration", "Meine Eintragung" Rubrique.add "MY RFQ FILES", "MEINE ANFRAGEN (RFQ)" Rubrique.add "New RFQs alerts", "Neue Anfragen Hinweise" Rubrique.add "Pending RFQs", "Offene Anfragen" Rubrique.add "Closed RFQs", "Erledigte Anfragen" Rubrique.add "Declined RFQs", "Abgelehnte Anfragen" Rubrique.add "Create RFQ", "Anfrage neu aufgeben" Rubrique.add "New RFQs", "Neue Anfrage" Rubrique.add "My Buyers", "Meine Kunden" Rubrique.add "My Suppliers", "Meine Lieferanten" Rubrique.add "My Contacts", "Meine Kontakten" Rubrique.add "FOUNDRY", "MEIN FIRMENPROFIL-GIESSEREI" Rubrique.add "Material", "Werkstoffe" Rubrique.add "Moulding", "Formverfahren" Rubrique.add "Facilities", "Anlagen" Rubrique.add "ISO", "ISO" Rubrique.add "Certification", "Zertifizierung" Rubrique.add "Market", "Markt" Rubrique.add "FORGE", "MEIN FIRMENPROFIL-SCHMIEDE" Rubrique.add "Dimensions", "Abmessungen" Rubrique.add "Logout", "Logout" Rubrique.add "Management", "Verwaltung" Rubrique.add "MY SUPPLIER SEARCH", "MEINE LIEFERANTENSUCHEN" Rubrique.add "New file alerts", "Neue Suchen Hinweise" Rubrique.add "Pending searchs", "Offene Suchen" Rubrique.add "Closed searchs", "Erledigte Suchen" Rubrique.add "Declined searchs", "Abgelehnte Suchen" Rubrique.add "Create search", "Suche neu aufgeben" Rubrique.add "New searchs", "Neue Suchen" Rubrique.add "MY BUYER LEADS", "MEINE KAUF INSERAT" Rubrique.add "Pending leads", "Offene Inserate" Rubrique.add "Closed leads", "Erledigte Inserate" Rubrique.add "Send Message", "Nachricht senden" Rubrique.add "Online help", "Online Hilfe" set Bouton=Server.CreateObject("Scripting.Dictionary") Bouton.add "boutons/cancelBlank.gif", "boutons_de/annulieren.gif" Bouton.add "boutons/nextBlank.gif", "boutons_de/weiter.gif" Bouton.add "boutons/backBlank.gif", "boutons_de/zuruck.gif" Bouton.add "boutons/registerBlank.gif", "boutons_de/eintragen.gif" Bouton.add "boutons/print.gif", "boutons_de/drucken.gif" Bouton.add "boutons/confirmBlank.gif", "boutons_de/bestatigen.gif" Bouton.add "boutons/sendBlank.gif", "boutons/sendBlank.gif" Bouton.add "boutons/notInterested.gif", "boutons_de/nichtInteressiert.gif" Bouton.add "boutons/interested.gif", "boutons_de/interessiert.gif" set Titre=Server.CreateObject("Scripting.Dictionary") Titre.add "WF/Activities/Buyers/demande.asp", "Request for Price" Titre.add "WF/Activities/inscriptionFF/inscription.asp", "Registration : company information" Titre.add "WF/Activities/inscriptionFF/produits.asp", "Registration : products" Titre.add "WF/Activities/inscriptionFF/confirmation.asp", "Registration : confirmation" set Champ=Server.CreateObject("Scripting.Dictionary") Champ.add "View your company profile", "Siehe Firmenprofil" Champ.add "Company information", "Firmen Information" Champ.add "Company name", "Firmenname" Champ.add "Bronze listing", "Bronze Eintrag" Champ.add "Silver listing", "Silber Eintrag" Champ.add "Gold listing", "Gold Eintrag" Champ.add "Address", "Adresse" Champ.add "Postal code", "Postleitzahl" Champ.add "City", "Stadt" Champ.add "Country", "Land" Champ.add "Phone", "Telefon" Champ.add "Fax", "Fax" Champ.add "URL", "Website" Champ.add "Supplier to Foundries", "Gießerei Zulieferer" Champ.add "Supplier to Forges", "Schmiede Zulieferer" Champ.add "Title", "Anrede" Champ.add "First name", "Vorname" Champ.add "Last name", "Nachname" Champ.add "Function", "Position" Champ.add "E-mail", "E-mail" Champ.add "Preferred business language", "Bevorzugte Geschäftssprache" Champ.add "Other languages", "andere Sprachen" Champ.add "Login", "Ansprechpartner Identifikation" Champ.add "Username", "Anwendername" Champ.add "Password", "Passwort" Champ.add "Confirm password", "Passwort Bestätigung" Champ.add "I register my company with", "Ich registriere meine Firma mit" Champ.add "Your company profile", "Ihre Firmenkoordinaten" Champ.add "Contact data", "Firmen Kontaktkoordinaten" Champ.add "required fields", "vorgesehens Feld" Champ.add "min. 4 characters", "min. 4 zeichen" Champ.add "VAT excluded / year", "/ Jahr, ohne MWSt" Champ.add "VAT excluded", "ohne MWSt" Champ.add "Setup fee", "Einrichten" Champ.add "The following fields are required", "Zutreffende Felder ausfüllen" Champ.add "Invalid E-mail", "ungültige E-Mail Anschrift" Champ.add "You have not confirmed the same password", "Sie haben versäumt Ihr Passwort zu wiederholen" Champ.add "The password must be 4 characters length", "Ihr Passwort muß aus mindestens 4 Zeichen bestehen" Champ.add "You must accept the Terms and conditions to register", "Zum Eintragen müssen Sie die G & Z Bedingungen bestätigen" Champ.add "Blank are not allowed in the login", "Hier bitte login ohne Leertaste eingeben" Champ.add "Supplier's products", "Produkt-Referenzliste" Champ.add "Tick below your products to be referenced", "Klicken Sie auf Ihre jeweiligen Lieferprodukte" Champ.add "Products", "Produkte" Champ.add "Product", "Produkt" Champ.add "Choice", "Auswahl" Champ.add "Type of registration", "Eintrags-Art" Champ.add "Listing option", "Eintrags-Optionen" Champ.add "Bronze", "Bronze" Champ.add "Silver", "Silber" Champ.add "Gold", "Gold" Champ.add "Company", "Firma" Champ.add "Supplier for", "Zulieferer für" Champ.add "Founderies", "Gießereien" Champ.add "Forges", "Schmieden" Champ.add "Foundry", "Gießereien" Champ.add "Forge", "Schmieden" Champ.add "Contact name", "Ansprechpartner" Champ.add "Before registering your company, you must accept the Terms & Conditions.", "Vor dem Eintragen sind die Gerschäftsbedingungen zu bestätigen." Champ.add "I accept the terms & conditions", "Ich akzeptiere die Geschäftsbedingungen" Champ.add "Payable by bank transfer to", "Zahlbar per Banküberweisung an" Champ.add "Order information", "Eintrags-Resümee" Champ.add "Products supplied", "Referenz-Produkte" Champ.add "Terms & Conditions", "G & Z-Bedingungen" Champ.add "Payment", "Zahlungsmodalität (nur für zahlende Mietglieder zutreffend)" Champ.add "Registering", "Eintragen" Champ.add "SWIFT address", "SWIFT DRESS" Champ.add "Account number", "Konto-Nummer" Champ.add "Code banque", "Bankleitzahl" Champ.add "Code guichet", "Branchenkennziffer" Champ.add "Clé RIB", "Kennziffer" Champ.add "Domiciliation", "Domizil" Champ.add "Branch", "Branche" Champ.add "An invoice will be issued as soon as you are registered", "Wenn zuttrefend wird Ihnen eine Rechnung nach erfolgtem Eintragen zugesandt" Champ.add "Invoice", "Rechnung" Champ.add "Date", "Datum" Champ.add "Invoice number", "Rechnungs-Nummer" Champ.add "Recipient", "Empfänger" Champ.add "Account manager", "Buchhaltungs-Kontaktperson" Champ.add "Before V.A.T. €", "Preise auschl.MWST in euros" Champ.add "Total V.A.T. €", "MWST Betrag in euros" Champ.add "Net due €", "Netto-Betrag in euros" Champ.add "V.A.T. number", "MWSt-Nr" Champ.add "(V.A.T. : 19.6%)", "(MWST. : 19.6%)" Champ.add "Exemption VAT - EU delivery - art. 259 A 4° CGI", "MWSt-Befreiung-gemäß - EU Lieferung - art. 259 A 4° CGI" Champ.add "Exemption VAT - art 262 I 1° CGI", "MWSt-Befreiung-gemäß - art 262 I 1° CGI" Champ.add "Payable by bank transfer", "Zahlbar per Banküberweisung" Champ.add "Emetteur", "Absender" Champ.add "Request for price", "Preisanfrage" Champ.add "I am interested in the following service and would like to receive an offer for it", "Ich bin an nachstehendem Service interessiert und bitte um ein Angebot:" Champ.add "Contact informations", "Kontaktkoordinaten" Champ.add "Annual purchasing potential", "Jahresbedarf an:" Champ.add "Castings", "Gußteilen" Champ.add "Forgings", "Schmiedeteilen" Champ.add "Purchasing volume", "Einkaufsvolumen" Champ.add "Number of RFQs", "Anzahl an Anfragen" Champ.add "Number of POs", "Anzahl an Aufträge" Champ.add "Number of active suppliers", "Anzahl aktiver Lieferanten" Champ.add "Number of other suppliers known", "Anzahl bekannter Lieferanten" Champ.add "Number of suppliers to register", "Anzahl der einzutragenden Lieferanten" Champ.add "Number of buyers", "Anzahl der Einkäufer" Champ.add "Please type in your comments, if any", "Bitte geben Sie hier Bemerkungen ein soweit erforderlich" Champ.add "ProSolutions", "ProSolutions" Champ.add "e-ProSolutions", "e-ProSolutions" Champ.add "Subscription", "Eintragung" Champ.add "Casting purchasing volume", "Guss-Einkaufsvolumen" Champ.add "Forging purchasing volume", "Schmiede-Einkaufsvolumen" Champ.add "Number of active casting suppliers", "Anzahl aktiver Guss-Lieferanten" Champ.add "Number of other casting suppliers", "Anzahl bekannter Guss-Lieferanten" Champ.add "Number of active forging suppliers", "Anzahl aktiver Schmiede-Lieferanten" Champ.add "Number of other forging suppliers", "Anzahl bekannter Schmiede-Lieferanten" Champ.add "Welcome to your organizer", "Willkommen in Ihren Ordner-Seiten" Champ.add "You have", "Sie haben" Champ.add "new RFQs alerts", "Neue Anfragen (RFQ) Hinweise" Champ.add "RFQs pending", "Offene Anfragen" Champ.add "RFQs declined", "Abgelehnte Anfragen" Champ.add "You are registered with", "Sie sind eingetragen mit" Champ.add "from", "von" Champ.add "to", "zu" Champ.add "since", "seit" Champ.add "Your RFQ Credit", "Ihr Anfragen-Guthaben" Champ.add "You have unlimited Pay-per-view", "Sie haben unbegrenzt Zugang zu Anfragen" Champ.add "available", "verfügbar" Champ.add "Upgrade your registration or buy new Pay-per-view", "Aktualisieren Ihres Eintrags" Champ.add "click here", "hier klicken" Champ.add "My Registration", "Meine Registrierung" Champ.add "Registration", "Registrierung" Champ.add "PPV Credit", "Anfragen-Guthaben" Champ.add "Valid until", "Gültig bis" Champ.add "unlimited", "unbegrenzt" Champ.add "empty", "leer" Champ.add "expired", "abgelaufen" Champ.add "Closed", "Abgeschlossen" Champ.add "Valid", "Gültig" Champ.add "RFQ viewed", "eigesehene Anfragen" Champ.add "Certification", "Zeugniserteilung" Champ.add "Facilities", "Produktions-Anlagen" Champ.add "Weight", "Gewicht" Champ.add "Internal", "Intern" Champ.add "External", "Extern" Champ.add "Rough", "Roh" Champ.add "Rough machined", "vorbearbeitet" Champ.add "Finish machined", "fertigbearbeitet" Champ.add "Rough machining", "Vorbearbeitung" Champ.add "Finish machining", "Fertigbearbeitung" Champ.add "Certified by", "Geprüft durch" Champ.add "Market", "Markt" Champ.add "Material", "Werkstoff" Champ.add "Weight Range", "Gewichtsbereich" Champ.add "Tonnage per year", "Jahrestonnage" Champ.add "Moulding process", "Formverfahren" Champ.add "Length", "Länge" Champ.add "Width", "Breite" Champ.add "Height", "Höhe" Champ.add "Qty", "Menge" Champ.add "Quantity", "Menge" Champ.add "Process", "Verfahren" Champ.add "Precision", "Präzision" Champ.add "Coarse", "Grob" Champ.add "Electrical", "Elektro" Champ.add "Methane", "Methane" Champ.add "On stock", "Vorrätig" Champ.Add "Industry", "Industrie" Champ.add "Number of items", "Positionen#" Champ.add "Nbr of items", "Pos#" Champ.add "Customer country", "Käuferland" Champ.add "Market of destination", "Marktsegment" Champ.add "Closing date", "Fälligkeits" Champ.add "Expected order date", "Auftragstermin" Champ.add "Buyer", "Käufer" Champ.add "Quality requirements", "Qualitätsanforderungen" Champ.add "ISO required", "ISO Nachweis" Champ.add "required", "Erforderlich" Champ.add "not required", "nicht Erforderlich" Champ.add "Material certification", "Werkstoff-Zertifikat" Champ.add "Items", "Positionen" Champ.add "Part name", "Teilbezeichnung" Champ.add "Supply Status", "Lieferzustand" Champ.add "Size", "Größe" Champ.add "Standard", "Standard" Champ.add "Item detail", "Pos.-Detail" Champ.add "Dimension", "Abmessungen" Champ.add "General comments", "Bemerkungen" Champ.add "Viewed", "eingesehen" Champ.add "My Buyers", "Meine Kunden" Champ.add "Contact", "Kontakt" Champ.add "RFQ Description", "Anfrage Beschreibung" Champ.add "ended", "beendet" Champ.add "metric tons", "metrische Tonne" Champ.add "Weight part", "Stückgewicht" Champ.add "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area", "Für das Schleudergußverfahren bitte eingeben :
- den max Durchmesser ins Feld 'Lânge max',
- die max Wandstärke ins Feld 'Breite max',
- die max Lânge ins Feld 'Höhe max'" Champ.add "RFQs on line", "Anfragen online" Champ.add "Request For Quotation", "Anfragen" Champ.add "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer.", "Sie haben Interesse diese Anfrage anzubieten, dann geben Sie bitte in den nachstehenden Feldern Ihren Anwendernamen und das Passwort ein, um sie in Ihren Ordner aufzunehmen." Champ.add "You are not interested to quote this RFQ,
please enter below your username and password.", "Sie haben kein Interesse diese Anfrage anzubieten, dann geben Sie bitte in den nachstehenden Feldern Ihren Anwendernamen und das Passwort ein." Champ.add "If you are not registered and want to quote this RFQ go to the", "Wenn Sie noch nicht eingetragen sind, jedoch diese Anfrage bedienen möchten, gehen Sie bitte zur" Champ.add "registration page", "Seite Eintragen" Champ.add "This RFQ is now available in your RFQ list in your organizer
", "Diese Anfrage ist jetzt einsehbar als Hinwein in Ihrer Liste neuer Anfragenhinweise in Ihres Ordners
" Champ.add "Supplier searchs on line", "Lieferantensuchen online" Champ.add "Supplier search", "Lieferantensuche" Champ.add "Buyer lead", "Kauf Inserate" Champ.add "You are interested to quote this file,
please enter below your username and password to get it in your organizer.", "Sie haben Interesse diese Suche anzubieten, dann geben Sie bitte in den nachstehenden Feldern Ihren Anwendernamen und das Passwort ein, um sie in Ihren Ordner aufzunehmen." Champ.add "If you are not registered and want to quote this file go to the", "Wenn Sie noch nicht eingetragen sind, jedoch diese Suche bedienen möchten, gehen Sie bitte zur" Champ.add "This file is now available in your organizer
", "Diese Suche ist jetzt einsehbar in Ihres Ordners
" Champ.add "Your Pay-per-view credit is now : ", "Ihr RFQ-credit beträgt jetzt : " Champ.add "Your Pay-per-view credit is empty !
", "Sie haben kein RFQ-credit
" Champ.add "Please contact Subcontract Solutions to upgrade your credit", "Bitte nehmen sie mit Subcontract Solutions Kontakt auf um Ihren 'RFQ-credit' zu erneuern " Champ.add "Your Pay-per-view credit is unlimited", "Sie verfügen über unbegrenzten RFQ-credit" Champ.add "Your registration has ended since ", "Ihr Eintrag ist abgelaufen seit " Champ.add "This RFQ is still available in your RFQ list in your organizer
", "Diese Anfrage ist bereits in der Anfrageliste Ihres Ordners enthalten
" Champ.add "Your Pay-per-view credit is still : ", "Ihr RFQ-credit beträgt noch : " Champ.add "You are not interested by this RFQ
", "Sie sind nicht an dieser Anfrage interessiert
" Champ.add "Your Pay-per-view credit is unchanged", "Ihr RFQ-credit ist unverändert" Champ.add "Your username and password are valid, but you are not registred as foundry and/or a forge ", "Ihr Anwendername und Passwort sind gültig, aber Sie sind nicht als Gießerei und/oder Schmiede registriert " Champ.add "Sorry, but your username and password are not valid ", "Bedaure, aber Ihr Anwendername und Passwort sind ungültig " Champ.add "To quote this RFQ you need to upgrade your subscription.", "Um diese Anfrage bedienen zu können, bedarf es einer Erneuerung Ihres Eintrags." Champ.add "You can do this directly from your organiser", "Sie können dies direkt von Ihrem Ordner aus vornehmen" Champ.add "This Request For Quotation is not accessible for quote with a freee membership.", "Diese Anfrage ist nicht zugänglich im Gebührenfreien Eintrag." Champ.add "This Request For Quotation is accessible to registered suppliers with a paying subscription only.", "Bemerkung :
Diese Anfrage ist nur zahlenden Mitgliedern Zugänglich." Champ.add "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer.", "Diese Anfrage ist nur Mitgliedern zugänglich die direkt mit dem Kaüfer kommunizieren." Champ.add "You too can communicate directly with buyers in changing your registration from your organizer.", "Sie können ebenfalls direkt mit dem Kaüfer kommunizieren, sofern Sie Ihren Eintrag vom Ihren Ordnerseiten aus entsprechend erneuern." Champ.add "You are registered :", "Sie sind eingetragen :" Champ.add "Please enter your username and password to get it in your organizer", "Bitte Ihren Anwendername und das Passwort eingeben, um diese Anfrage in Ihren Ordner aufzuhnehmen" Champ.add "You are not registered :", "Sie sind nicht eingetragen :" Champ.add "To have access to this Request For Quotation, please proceed first with your", "Um diese Anfrage bedienen zu können, öffnen Sie bitte die Bedingungen durch klicken auf" Champ.add "registration", "Eintragen" Champ.add "Specify for machining only", "Nur für das mechanische Bearbeiten spezifizieren" Champ.add "Your upgrade is now effective", "Ihre Erneuerung ist freigeschaltet" Champ.add "Pending RFQs", "Offene Anfragen" Champ.add "Description", "Beschreibung" Champ.add "Closed RFQs", "Erledigte Anfragen" Champ.add "(Closed by buyer)", "(Erledigt durch den Käufer)" Champ.add "Pending searchs", "Offene Suchen" Champ.add "Closed searchs", "Erledigte Suchen" Champ.add "Pending leads", "Offene Inserate" Champ.add "Closed leads", "Erledigte Inserate" Champ.add "Parts description", "Teilbeschreibung" Champ.add "Geographical sourcing", "Geographische Suche" Champ.add "Part(s) name", "Teilbezeichnungen" Champ.add "New Material", "Neuer Werkstoff" Champ.add "New Certification", "Neue Zeugniserteilung" Champ.add "New Process", "Neues Verfahren" Champ.add "New Facilities", "Neue Produktionsanlagen" Champ.add "New ISO", "Neue ISO" Champ.add "New Market", "Neue Märkte" Champ.add "New Moulding", "Neue Formverfahren" Champ.add "ISO", "ISO" Champ.add "Can you supply parts elaborated with", "Können sie Teile liefern, hergestellt nach dem" Champ.add "Electro Slag Remelting Process (ESR)", "Elektro-Schlacke-Umschmelzverfahren (ESU)" Champ.add "Vacuum Oxygen Decarburization Process (VOD)", "Vacuum Oxygen Decarburization Verfahren (VOD)" Champ.add "Argon Oxygen Decarburization Process (AOD)", "Argon Oxygen Decarburization Verfahren (AOD)" Champ.add "For the process of ring rolling, input :
- max outside diameter in the length max area,
- min inside diameter in the width max area,
- max thickness in the height max area", "Für Ringwalzen bitte eingeben :
- den max Außen-Durchmesser ins Feld 'Lânge max',
- den min Innen-Durchmesser ins Feld 'Breite max',
- die max Breite ins Feld 'Höhe max'" Champ.add "Print", "Print" Champ.add "Help", "Hilfe" Champ.add "Cancel", "Annullieren" Champ.add "Ok", "Gültig" Champ.add "Save", "Sichern" Champ.add "Put online", "Online schalten" Champ.add "Put offline", "Offline nehmen" Champ.add "Add", "Hinzufügen" Champ.add "Delete", "Löschen" Champ.add "Upload", "Heraufladen" Champ.add "Download", "Herunterladen" Champ.add "Files", "Zeichnungen" Champ.add "File", "Zeichnung" Champ.add "Enter the file to upload :", "Die Akte eingeben zum heraufladen :" Champ.add "Are you sure you want to delete this item ?", "Sind Sie sicher diese Position zu löschen ?" Champ.add "winHelp", "Help_de.htm" Champ.add "Add to my buyers list", "Meiner Kundenliste hinzufügen" Champ.add "Close RFQ", "Anfrage erledigt" Champ.add "Re open RFQ", "Anfrage wieder öffnen" Champ.add "Click on the line when highlighted to see the detail of the RFQ", "Klicken Sie auf die jeweilige Zeile um die Anfragedetails einzusehen" Champ.add "Upgrade", "Erneuern" Champ.add "Upgrade pending", "Erneuerung läuft" Champ.add "Your ask for upgrade to", "Ihre Bitte der Erneurung zu" Champ.add "is about to be validated by Subcontract Solutions", "wird gegenwärtig von Subcontract Solutions freigeschaltet " Champ.add "Your upgrade will be effective as soon as your paiement will be received", "Ihr erneuter Eintrag wird unmittelbar nach Geldeingang freigeschaltet" Champ.add "Amount", "Betrag" Champ.add "Date of validity", "Gültigkeits-Datum" Champ.add "I want to upgrade to", "Ich bitte um erneuerten Eintrag zu" Champ.add "Business language", "Geschäftssprache" Champ.add "To quote these RFQ(s), register", "Um diese Anfragen anzubieten, hier bitte eintragen" Champ.add "To quote this RFQ, register", "Um diese Anfrage anzubieten, hier bitte eintragen" Champ.add "CA", "Umsatz" Champ.add "% Exp.", "% Export." Champ.add "Tel", "Tel" Champ.add "Web", "Web" Champ.add "Managing director", "GeschäftsFührer" Champ.add "Sales manager", "VerkaufsLeiter" Champ.add "Production manager", "ProduktionsLeiter" Champ.add "Quality manager", "Leiter QualitätsSicherung" Champ.add "Dimensions", "Abmessungen" Champ.add "Other", "Kontakt" Champ.add "Photo", "Foto" Champ.add "Logo", "Logo" Champ.add "Voir la Fiche", "Firmenprofil einsehen" Champ.add "only", "nur" Champ.add "to2", "zu" Champ.add "Criterias", "Kriterien" Champ.add "manufacturing industry", "Herstellungszweig" Champ.add "foundry process", "Gießverfahren" Champ.add "forge process", "Schmiedeverfahren" Champ.add "foundry material", "Werkstoff" Champ.add "forge material", "Werkstoff" Champ.add "ISO qualification", "ISO Qualifikation" Champ.add "required certification", "Zeugnisnachweis" Champ.add "doesn't matter", "nicht relevant" Champ.add "Qty per delivery", "Menge pro Lieferung" Champ.add "Estimated qty per year", "ca. Jahresbedarf" Champ.add "Unit weight", "Stückgewicht" Champ.add "File attachment", "Anlage" Champ.add "Files attachment", "Anlagen" Champ.add "Order requirements", "Auftragsspezifikation" Champ.add "RFQ closing date", "Angebotstermin" Champ.add "expected order date", "Auftragserteilung" Champ.add "Incoterms", "Incoterms" Champ.add "Delivery date", "Liefertermin" Champ.add "Place of delivery", "Lieferort" Champ.add "Item", "Position" Champ.add "please do not insert your coordinates", "Bitte nicht Ihre Koordinaten einsetzen" Champ.add "Your RFQ reference", "Ihr Anfrage Betreff" Champ.add "(city / country)", "(Stadt / Land)" Champ.add "Certificate", "Zeugnis" Champ.add "Status", "Status" Champ.add "Delivery requirements", "Lieferzustand" Champ.add "Place", "Ort" Champ.add "Online since", "Online seit" Champ.add "open until", "offen bis" Champ.add "yes", "Ja" Champ.add "New", "Neue" Champ.add "Pending", "Offene" Champ.add "complete the informations of the following items", "bitte ergänzen Sie nachstehende Infos der Pos." Champ.add "Your unlimited access to Request For Quotations has expired", "Ihr unbegrenzter Zugriff auf Anfragen ist abgelaufen" Champ.add "navigation problems ?
get latest browser versions", "Probleme mit Navigation ?
Neueste Browser Version laden" Champ.add "Not Disclosed", "Nicht Benannt" Champ.add "Decline this RFQ", "Anfrage ablehnen" Champ.add "Make a new offer", "(Neues) Angebot" Champ.add "Pending Offer", "Offene Angebote" Champ.add "Offres", "Angebote" Champ.add "Offre", "Angebot" Champ.add "Liste des offres", "Angebotsliste" Champ.add "Réalisation de l'offre", "Angebot" Champ.add "Your offer", "Ihr Angebot" Champ.add "envoyée le", "vom" Champ.add "Your offer number", "Ihr Angebot Nr." Champ.add "Your reference", "Ihre Ref." Champ.add "Your name", "Ihre Name" Champ.add "Your Email", "Ihre Email" Champ.add "Qty/year", "Menge/Jahr" Champ.add "Unit Price", "Stückpreis" Champ.add "Total", "Gesamt" Champ.add "Tool cost", "Werkzeugkosten" Champ.add "To quote", "Pos. noch anzubieten" Champ.add "Item declined", "Pos. abgelehnt" Champ.add "Total Offer", "Ges. Angeb. Wert" Champ.add "Offer valid until", "Angebotsgültigkeit" Champ.add "Tool / pattern cost", "Werkzeug/Model Kosten" Champ.add "Payment conditions", "Zahlung" Champ.add "Decline item", "Position ablehnen" Champ.add "Offer conditions", "Angebotsbedingungen" Champ.add "D'abord", "Erste" Champ.add "or", "oder" Champ.add "puis", "dann" Champ.add "Save offer", "Angebot speichern" Champ.add "Delete offer", "Angebot löschen" Champ.add "Send offer", "Angebot senden" Champ.add "View offer", "Lesen vor dem Senden" Champ.add "(remplace l'offre précédente)", "(Ersatz für vorheriges Angebot)" Champ.add "To Company", "An Firma" Champ.add "From Company", "Von Firma" Champ.add "Your contact", "Kontaktperson" Champ.add "Offer reference", "Angebotsreferenz" Champ.add "Offer number", "Angebots Nr." Champ.add "Our reference", "Unser Referenz" Champ.add "All prices are in", "Alle Preise sind in" Champ.add "Qty/del.", "Menge/Los" Champ.add "Supplier country", "LiefererLand" Champ.add "Send mail", "Email senden" Champ.add "RFQ", "Anfrage" Champ.add "(buyer's name not disclosed)", "(Kunde Name nicht bennant)" Champ.add "not active", "nicht aktiv" Champ.add "Access to price comparison list : ", "Zugriff auf Preisvergleichsliste : " Champ.add "Offer Nb", "Angebot Nr." Champ.add "Total Items", "Ges. Pos." Champ.add "Total Tools", "Ges. Werkzg." Champ.add "Send", "Senden" Champ.add "Offer from", "Angebot aus" Champ.add "Additional informations", "Zusätzliche Information" Champ.add "Prices of this offer are in", "Preise dieses Angebotes sind in" Champ.add "Incoterms used is", "angewandte Incoterms ist" Champ.add "View drawing", "Musterzeichnung
einsehen" Champ.add "To import into your organizer, click : ", "Um in ihren Ordner aufzunehmen, bitte klicken Sie hier : " Champ.add "Success stories", "Verlautbarungen" Champ.add "Buyers", "Kaüfer" Champ.add "Suppliers", "Lieferanten" Champ.add "References", "Referenzen" Champ.add "New Gold Pass members", "Neue Gold Pass Mitglieder" Champ.add "new RFQ to finalise", "neue Anfragen zu erledigen" Champ.add "RFQ pending", "Offene Anfragen" Champ.add "RFQ that are expired or about to expire", "fällige Anfragen" Champ.add "new Search to finalise", "neue Suchen zu erledigen" Champ.add "Search pending", "Offene Suchen" Champ.add "Search that are expired or about to expire", "fällige Suchen" Champ.add "Manufact.", "Herstellung" Champ.add "Downloads", "Herunterladende" Champ.add "Quotes", "Angebote" Champ.add "Creation", "Erstellung" Champ.add "Validation", "Bearbeitung" Champ.add "Offline", "Stand-by" Champ.add "My Suppliers", "Meine Lieferanten" Champ.add "My Contacts", "Meine Kontakten" Champ.add "New RFQ list", "Liste neuer Anfragen" Champ.add "RFQ under validation by Subcontract Solutions", "Zur bearbeitung durch Subcontract Solutions" Champ.add "New RFQs", "Neue Anfrage" Champ.add "Countries selection", "Länderauswahl" Champ.add "Countries", "Länder" Champ.add "Not completed", "Nicht vollständig" Champ.add "all countries selected", "Suchen in allen Ländern" Champ.add "All countries" , "Alle Länder" Champ.add "File download", "Anlage (herunterladen)" Champ.add "displayed to suppliers", "gerichtet an Lieferanten" Champ.add "My internal notes (not displayed to suppliers)", "Meine internen Bmerkungen (nicht einsehbar von Lieferanten)" Champ.add "Messages board", "Mitteilungs" Champ.add "BIDDERS LIST", "ANBIETER LISTE" Champ.add "DOWNLOADERS LIST", "DOWNLOADERS LISTE" Champ.add "Downloads from Subcontract Solutions Gold Pass supplier network", "Downloads von Subcontract Solutions Gold Pass-Lieferanten Netz" Champ.add "Other downloads from Subcontract Solutions supplier network", "Weitere Downloads von Subcontract Solutions Lieferanten Netz" Champ.add "Offers from Subcontract Solutions Gold Pass supplier network", "Offerten von Subcontract Solutions Gold Pass-Lieferanten Netz" Champ.add "Other offers from Subcontract Solutions supplier network", "Weitere Offerten von Subcontract Solutions Lieferanten Netz" Champ.add "Supplier from", "Lieferante von" Champ.add "Message type selection", "Nachricht Typen Auswahl" Champ.add "Selection", "Selektion" Champ.add "View", "Einsehen" Champ.add "Free text message", "Freie Text Nachricht" Champ.add "Subject", "Betr" Champ.add "Price analysis area", "Preisvergleiszone" Champ.add "To view supplier profile click on", "Lieferanten profil einsehen unter" Champ.add "Display of offer n°", "Anzeigen der Offerte #" Champ.add "dated", "Datum" Champ.add "My comments", "Meine Bemerkungen" Champ.add "Create a new Request For Quotation", "Neue Anfrage entwerfen" Champ.add "I allow price comparison for suppliers", "Ich gestatte Lieferanten den Preisvergleich" Champ.add "Offers from Gold Pass suppliers", "Offerten von Gold Pass Lieferanten" Champ.add "Offers from Quote Pass suppliers", "Offerten von Angebotspass Lieferanten" Champ.add "My account manager", "Mein Service-Manager" Champ.add "Manufacturing", "Erstellung" Champ.add "Materials elaborated", "Erstellte Werkstoffe" Champ.add "Moulding processes", "Formverfahren" Champ.add "Forging processes", "Schmiedeverfahren" Champ.add "Qualifications", "Qualifikationen" Champ.add "View profile", "Profil einsehen" Champ.add "Request for quotation list" , "Anfrageliste" Champ.add "Supplier search message list" , "Kauf Inserate" Champ.add "Prec" , "Zurück" Champ.add "Next" , "Nächste" Champ.add "Page" , "Seite" Champ.add "Geographical" , "Geographisch" Champ.add "Search" , "Suche Start" Champ.add "Supplier search messages online" , "Kauf Inserate Online" Champ.add "Send RFQ" , "Anfragen aufgeben" Champ.add "Online Directory" , "Verzeichnise" Champ.add "Send Buy Leads" , "Kauf Inserate aufgeben" Champ.add "View2" , "" Champ.add "buyleads2" , "Kauf Inseratliste" Champ.add "RFQ2" , "Anfrageliste" Champ.add "Subcontract Solutions", "Subcontract Solutions" Champ.add "FF", "Gießerei- & Schmiede Bereich" Champ.add "Our vision" , "Unsere Vision" Champ.add "Find new suppliers" , "Neue Lieferanten finden" Champ.add "Meet new buyers" , "Neue Kunelen gewinnen" Champ.add "Suppliers to foundries & forges" , "Gießerei- & Schmiede Zulieferer" Champ.add "Smart tools" , "Passende mittel" Champ.add "Buyers2" , "Kaufer Bereich" Champ.add "Suppliers2" , "Gießerei- & Schmiede Zulieferer Bereich" Champ.add "FF2", "Gießerei- & Schmiede" Champ.add "VDMA" , "VDMA e-Markt" Champ.add "buyleads3" , "Online kauf inseratliste" Champ.add "Foundries and Forges" , "Gießerei- & Schmiede" Champ.add "Suppliers3" , "Gießerei- & Schmiede Zulieferer" Champ.add "Marketplace" , "MarketPlatz" set Mail=Server.CreateObject("Scripting.Dictionary") Mail.add "Registration in Subcontract Solutions'Supplier Guide", "Ihr Eintrag in Subcontract Solutions Lieferanten Führer" Mail.add "Registration in Subcontract Solutions'Database", "Ihr Eintrag in Subcontract Solutions" Mail.add "Dear", "Sehr" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions'Database is complete.", "Wir freuen uns Ihnen mitzuteilen, das Ihr Eintragen in Subcontract Solutions'Datenbank vervollständigt worden ist." Mail.add "Thank you for your registration in Subcontract Solutions' Supplier guide.", "Wir danken für Ihr Eintragen in Subcontract Solutions'Lieferanten Führer." Mail.add "Your username and password will be active within 48 hours.", "Ihr Anwendername und Passwort werden innerhalb von 48 Std. freigeschaltet." Mail.add "Once we have received your payment we will activate your listing in the Supplier Guide. You will receive a confirmation when payment has been received.", "Sobald Ihr Zahlungseingang verzeichnet ist wird Ihr Eintrag im Lieferanten Führer aktiviert. Es wird Ihnen eine Bestätigung des Zahlungseingangs zugesandt" Mail.add "You have been registered with the following profile", "Sie sind mit folgendem Erscheinungsbild registriet" Mail.add "Best regards from Subcontract Solutions", "Mit freundlichen Grüssen von Subcontract Solutions" Mail.add "Customer Service", "Kundendienst" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions' Supplier Guide is complete.", "Wir freuen uns Ihnen mitzuteilen, dass Ihr Eintrag in Subcontract Solutions'Lieferanten Führer vervollständigt wurde." Mail.add "Your company is listed with the following details", "Ihr Unternehmen ist mit den nachstehenden Details eingetragen" Mail.add "To change your profile you can go to our site : http://www.subcontractsolutions.com and login with your username and password", "Um Ihr Erscheinungsbild zu ändern, klicken Sie in unsere Web-Site unter http://www.subcontractsolutions.com und verschaffen Sie sich Zugang mittels Anwendername und Passwort" Mail.add "However, it appears that your company has already been registered by one of your colleagues.", "Es scheint, dass einer Ihrer Kollegen Ihre Firma bereits eingetragen hat." Mail.add "To prevent unnecessary expenses or inconvenience for your firm, may we suggest you consult our contact in your companys", "Um Unstimmigkeiten und zusätzliche Kosten zu vermeiden, schlagen wir vor, dass Sie sich mit unserem Ansprechpartner in Ihrem Hause in Verbindung setzen" Mail.add "If an error has occurred please accept our apologies.", "Falls ein Irrtum vorliegt, bitten wir um Entschuldigung" Mail.add "We shall be awaiting your confirmation before proceeding with your registration.", "Bis zum Erhalt Ihrer Bestätigung werden wir mit Ihrem Eintrag warten" Mail.add "Please contact us by e-mail at: sales@SubcontractSolutions.com, or call:+33 - (0)3 25 49 03 22", "Bitte sprechen Sie uns per E-Mail an unter : customerservice@SubcontractSolutions.com, oder rufen Sie an : +33 - (0)3 25 49 03 22" Mail.add "Your registration is effective. From now on, with your login and password, you can access your private organizer.", "Ihre Registrierung ist erfolgt. Von jetzt an können Sie sich mit Ihrem Anwender-login und Passwort Zugang zu Ihrem privaten Ordner verschaffen." Mail.add "We highly recommend you to fill up your production capacities and your know-how in our supplier database. You can access it from your private organizer", "Wir empfehlen dringendst Ihre Datenblätter Ihrer Produktionskapazitäten und der technischen Produktionsverfahren im Lieferanten Datenblatt auszufüllen. Sie erreichen es von Ihrem persönlichen Ordner." Mail.add "Best regards and good sales !", "Mit freundlichen Grüßen!" Mail.add "Thank you for your registration in Subcontract Solutions'Database.", "Danke für Ihr Eintragen." Mail.add "Your will receive a confirmation that your account is active within 48 hours.", "Sie werden eine Bestätigung erhalten, daß Ihr Konto innerhalb von 48 Std. freigeschaltet wird." Mail.add "An invoice will be sent to you by e-mail within 48 hours", "Es wird Ihnen eine Rechnung per E-mail innerhalb 48 Std. zugesandt." Mail.add "You can at any time after that login, view and change your company's profile directly from from our site: http://www.subcontractsolutions.com", "Danach können Sie jederzeit Ihr Erscheinungsbild einsehen oder Änderungen vornehmen, in dem Sie sich direkt in unsere Web-Site einklicken unter : http://www.subcontractsolutions.com" Mail.add "You will receive a confirmation that your account is active once payment has been received", "Sie werden eine Bestätigung erhalten, daß Ihr Konto unmittelbar nach Geldeingang freigeschaltet worden ist" Mail.add "Thank you for your registration, please find your invoice and registration details below. Your account will be actif once we receive your payment.", "Danke für Ihr Eintragen, bitte begleichen Sie die nachstehende Rechnung und entnehmen ihr die Registrierungs-Details. Ihr Konto wird unmittelbar nach Geldeingang freigeschaltet." set Jour=Server.CreateObject("Scripting.Dictionary") Jour.add "1", "Sonntag" Jour.add "2", "Montag" Jour.add "3", "Dienstag" Jour.add "4", "Mittwoch" Jour.add "5", "Donnerstag" Jour.add "6", "Freitag" Jour.add "7", "Samstag" set Mois=Server.CreateObject("Scripting.Dictionary") Mois.add "1", "Januar" Mois.add "2", "Februar" Mois.add "3", "März" Mois.add "4", "April" Mois.add "5", "Mai" Mois.add "6", "Juni" Mois.add "7", "Juli" Mois.add "8", "August" Mois.add "9", "September" Mois.add "10", "Oktober" Mois.add "11", "November" Mois.add "12", "Dezember" set State=Server.CreateObject("Scripting.Dictionary") State.add "1", "Crée" State.add "3", "Offert" State.add "4", "En cours" State.add "5", "Suspendue" State.add "7", "En attente" State.add "501", "Fait" State.add "502", "Annulé" State.add "506", "Ré-assigné" %><% case "auto" lg = "en" ' Si langue = auto, alors on fera l'inclusion du dictionnaire dans la tâche automatique ' en fonction des variables de langues case else lg = "en" %><% set Rubrique=Server.CreateObject("Scripting.Dictionary") Rubrique.add "suppliers", "supplier" Rubrique.add "supplier guide presentation", "supplier guide presentation" Rubrique.add "listing options", "listing options" Rubrique.add "registration", "registration" Rubrique.add "supplier search", "supplier search" Rubrique.add "access supplier guide", "access supplier guide" Rubrique.add "supplier guide", "supplier guide" Rubrique.add "foundry & forge database", "foundry & forge database" Rubrique.add "subcontract solutions", "subcontract solutions" Rubrique.add "our vision", "our vision" Rubrique.add "contact us", "contact us" Rubrique.add "newsletter", "newsletter" Rubrique.add "company", "company" Rubrique.add "products", "products" Rubrique.add "terms and payment", "Terms and Conditions" Rubrique.add "My company", "My company" Rubrique.add "My products", "My products" Rubrique.add "overview", "overview" Rubrique.add "Smart tools...", "Smart tools..." Rubrique.add "SupplierPass", "SupplierPass" Rubrique.add "SupplierMatch", "SupplierMatch" Rubrique.add "Subcontract Organiser", "Subcontract Organiser" Rubrique.add "services", "services" Rubrique.add "ProSolutions", "ProSolutions" Rubrique.add "e-ProSolutions", "e-ProSolutions" Rubrique.add "strategic sourcing", "strategic sourcing" Rubrique.add "order follow up", "order follow up" Rubrique.add "expert services", "expert services" Rubrique.add "prices", "prices" Rubrique.add "consult prices", "consult prices" Rubrique.add "register here", "register here" Rubrique.add "faq", "faq" Rubrique.add "frequently asked questions", "frequently asked questions" Rubrique.add "view & quote new RFQs", "view & quote new RFQs" Rubrique.add "Home", "Home" Rubrique.add "My Profile", "My user data" Rubrique.add "My Registration", "My Registration" Rubrique.add "MY RFQ FILES", "MY REQUEST FOR QUOTATION (RFQ)" Rubrique.add "New RFQs alerts", "New RFQs alerts" Rubrique.add "Pending RFQs", "Pending RFQs" Rubrique.add "Closed RFQs", "Closed RFQs" Rubrique.add "Declined RFQs", "Declined RFQs" Rubrique.add "Create RFQ", "Create RFQ" Rubrique.add "New RFQs", "New RFQs" Rubrique.add "My Buyers", "My Buyers" Rubrique.add "My Suppliers", "My Suppliers" Rubrique.add "My Contacts", "My Contacts" Rubrique.add "FOUNDRY", "MY FOUNDRY DATA" Rubrique.add "Material", "Material" Rubrique.add "Moulding", "Moulding" Rubrique.add "Facilities", "Facilities" Rubrique.add "ISO", "ISO" Rubrique.add "Certification", "Certification" Rubrique.add "Market", "Market" Rubrique.add "FORGE", "MY FORGE DATA" Rubrique.add "Dimensions", "Dimensions" Rubrique.add "Logout", "Logout" Rubrique.add "Management", "Management" Rubrique.add "MY SUPPLIER SEARCH", "MY SUPPLIER SEARCH" Rubrique.add "New file alerts", "New file alerts" Rubrique.add "Pending searchs", "Pending searchs" Rubrique.add "Closed searchs", "Closed searchs" Rubrique.add "Declined searchs", "Declined searchs" Rubrique.add "Create search", "Create search" Rubrique.add "New searchs", "New searchs" Rubrique.add "MY BUYER LEADS", "MY BUYER LEADS" Rubrique.add "Pending leads", "Pending leads" Rubrique.add "Closed leads", "Closed leads" Rubrique.add "Send Message", "Send Message" Rubrique.add "Online help", "Online Help" set Bouton=Server.CreateObject("Scripting.Dictionary") Bouton.add "boutons/cancelBlank.gif", "boutons/cancelBlank.gif" Bouton.add "boutons/nextBlank.gif", "boutons/nextBlank.gif" Bouton.add "boutons/backBlank.gif", "boutons/backBlank.gif" Bouton.add "boutons/registerBlank.gif", "boutons/registerBlank.gif" Bouton.add "boutons/print.gif", "boutons/print.gif" Bouton.add "boutons/confirmBlank.gif", "boutons/confirmBlank.gif" Bouton.add "boutons/sendBlank.gif", "boutons/sendBlank.gif" Bouton.add "boutons/notInterested.gif", "boutons/notInterested.gif" Bouton.add "boutons/interested.gif", "boutons/interested.gif" set Titre=Server.CreateObject("Scripting.Dictionary") Titre.add "WF/Activities/Buyers/demande.asp", "Request for Price" Titre.add "WF/Activities/inscriptionFF/inscription.asp", "Registration : company information" Titre.add "WF/Activities/inscriptionFF/produits.asp", "Registration : products" Titre.add "WF/Activities/inscriptionFF/confirmation.asp", "Registration : confirmation" set Champ=Server.CreateObject("Scripting.Dictionary") Champ.add "View your company profile", "View your company profile" Champ.add "Company information", "Company information" Champ.add "Company name", "Company name" Champ.add "Bronze listing", "Bronze listing" Champ.add "Silver listing", "Silver listing" Champ.add "Gold listing", "Gold listing" Champ.add "Address", "Address" Champ.add "Postal code", "Postal code" Champ.add "City", "City" Champ.add "Country", "Country" Champ.add "Phone", "Phone" Champ.add "Fax", "Fax" Champ.add "URL", "Web site" Champ.add "Supplier to Foundries", "Supplier to Foundries" Champ.add "Supplier to Forges", "Supplier to Forges" Champ.add "Title", "Title" Champ.add "First name", "First name" Champ.add "Last name", "Last name" Champ.add "Function", "Function" Champ.add "E-mail", "E-mail" Champ.add "Preferred business language", "Preferred business language" Champ.add "Other languages", "Other languages" Champ.add "Login", "Login" Champ.add "Username", "Username" Champ.add "Password", "Password" Champ.add "Confirm password", "Confirm password" Champ.add "I register my company with", "I register my company with" Champ.add "Your company profile", "Your company profile" Champ.add "Contact data", "Contact data" Champ.add "required fields", "required fields" Champ.add "min. 4 characters", "min. 4 characters" Champ.add "VAT excluded / year", "VAT excluded / year" Champ.add "VAT excluded", "VAT excl." Champ.add "Setup fee", "Setup fee" Champ.add "The following fields are required", "The following fields are required" Champ.add "Invalid E-mail", "Invalid E-mail" Champ.add "You have not confirmed the same password", "You have not confirmed the same password" Champ.add "The password must be 4 characters length", "The password must be 4 characters length" Champ.add "You must accept the Terms and conditions to register", "You must accept the Terms and conditions to register" Champ.add "Blank are not allowed in the login", "Blank are not allowed in the login" Champ.add "Supplier's products", "Supplier's products" Champ.add "Tick below your products to be referenced", "Tick below the products you wish to reference" Champ.add "Products", "Products" Champ.add "Product", "Product" Champ.add "Choice", "Choice" Champ.add "Type of registration", "Type of registration" Champ.add "Listing option", "Listing option" Champ.add "Bronze", "Bronze" Champ.add "Silver", "Silver" Champ.add "Gold", "Gold" Champ.add "Company", "Company" Champ.add "Supplier for", "Supplier for" Champ.add "Founderies", "Foundries" Champ.add "Forges", "Forges" Champ.add "Foundry", "Foundry" Champ.add "Forge", "Forge" Champ.add "Contact name", "Contact name" Champ.add "Before registering your company, you must accept the Terms & Conditions.", "Before registering your company, you must accept the Terms & Conditions." Champ.add "I accept the terms & conditions", "I accept the terms & conditions" Champ.add "Payable by bank transfer to", "Payable by bank transfer to" Champ.add "Order information", "Order information" Champ.add "Products supplied", "Products referenced" Champ.add "Terms & Conditions", "Terms & Conditions" Champ.add "Payment", "Payment (applicable to paying subscription)" Champ.add "Registering", "Registration" Champ.add "SWIFT address", "SWIFT address" Champ.add "Account number", "Account number" Champ.add "Code banque", "Bank code" Champ.add "Code guichet", "Branch code" Champ.add "Clé RIB", "Key number" Champ.add "Domiciliation", "Denomination" Champ.add "Branch", "Branch" Champ.add "An invoice will be issued as soon as you are registered", "If applicable, an invoice will be issued as soon as you are registered" Champ.add "Invoice", "Invoice" Champ.add "Date", "Date" Champ.add "Invoice number", "Invoice number" Champ.add "Recipient", "Recipient" Champ.add "Account manager", "Account manager" Champ.add "Before V.A.T. €", "Price excl. V.A.T. euros" Champ.add "Total V.A.T. €", "V.A.T. Amount euros" Champ.add "Net due €", "Total euros" Champ.add "V.A.T. number", "V.A.T. number" Champ.add "(V.A.T. : 19.6%)", "(V.A.T. : 19.6%)" Champ.add "Exemption VAT - EU delivery - art. 259 A 4° CGI", "Exemption VAT - EU delivery - art. 259 A 4° CGI" Champ.add "Exemption VAT - art 262 I 1° CGI", "Exemption VAT - art 262 I 1° CGI" Champ.add "Payable by bank transfer", "Payable by bank transfer" Champ.add "Emetteur", "Sender" Champ.add "Request for price", "Request for price" Champ.add "I am interested in the following service and would like to receive an offer for it", "I am interested in the following service and would like to receive an offer for it" Champ.add "Contact informations", "Contact informations" Champ.add "Annual purchasing potential", "Annual purchasing potential" Champ.add "Castings", "Castings" Champ.add "Forgings", "Forgings" Champ.add "Purchasing volume", "Purchasing volume" Champ.add "Number of RFQs", "Number of RFQs" Champ.add "Number of POs", "Number of POs" Champ.add "Number of active suppliers", "Number of active suppliers" Champ.add "Number of other suppliers known", "Number of other suppliers inquired" Champ.add "Number of suppliers to register", "Number of suppliers to register" Champ.add "Number of buyers", "Number of buyers to register" Champ.add "Please type in your comments, if any", "Please type in your comments, if any" Champ.add "ProSolutions", "ProSolutions" Champ.add "e-ProSolutions", "e-ProSolutions" Champ.add "Subscription", "Subscription" Champ.add "Casting purchasing volume", "Casting purchasing volume" Champ.add "Forging purchasing volume", "Forging purchasing volume" Champ.add "Number of active casting suppliers", "Number of active casting suppliers" Champ.add "Number of other casting suppliers", "Number of other casting suppliers" Champ.add "Number of active forging suppliers", "Number of active forging suppliers" Champ.add "Number of other forging suppliers", "Number of other forging suppliers" Champ.add "Welcome to your organizer", "Welcome to your organizer" Champ.add "You have", "You have" Champ.add "new RFQs alerts", "New Request For Quotation (RFQ) alerts" Champ.add "RFQs pending", "Request For Quotation pending" Champ.add "RFQs declined", "Request For Quotation declined" Champ.add "You are registered with", "You are registered with" Champ.add "from", "from" Champ.add "to", "to" Champ.add "since", "since" Champ.add "Your RFQ Credit", "Your Request For Quotation Credit" Champ.add "You have unlimited Pay-per-view", "You have unlimited access to Request For Quotations" Champ.add "available", "available" Champ.add "Upgrade your registration or buy new Pay-per-view", "Upgrade your registration" Champ.add "click here", "click here" Champ.add "My Registration", "My Registration" Champ.add "Registration", "Registration" Champ.add "PPV Credit", "RFQ Credit" Champ.add "Valid until", "Valid until" Champ.add "unlimited", "unlimited" Champ.add "empty", "empty" Champ.add "expired", "expired" Champ.add "Closed", "Closed" Champ.add "Valid", "Valid" Champ.add "RFQ viewed", "RFQ viewed" Champ.add "Certification", "Certification" Champ.add "Facilities", "Facilities" Champ.add "Weight", "Weight" Champ.add "Internal", "Internal" Champ.add "External", "External" Champ.add "Rough", "Rough" Champ.add "Rough machined", "Rough machined" Champ.add "Finish machined", "Finish machined" Champ.add "Rough machining", "Rough machining" Champ.add "Finish machining", "Finish machining" Champ.add "Certified by", "Certified by" Champ.add "Market", "Market" Champ.add "Material", "Material" Champ.add "Weight Range", "Weight Range" Champ.add "Tonnage per year", "Tonnage per year" Champ.add "Moulding process", "Moulding process" Champ.add "Length", "Length" Champ.add "Width", "Width" Champ.add "Height", "Height" Champ.add "Qty", "Qty" Champ.add "Quantity", "Quantity" Champ.add "Process", "Process" Champ.add "Precision", "Precision" Champ.add "Coarse", "Coarse" Champ.add "Electrical", "Electrical" Champ.add "Methane", "Methane" Champ.add "On stock", "On stock" Champ.Add "Industry", "Industry" Champ.add "Number of items", "Number of items" Champ.add "Nbr of items", "Nbr of items" Champ.add "Customer country", "Country" Champ.add "Market of destination", "Market of destination" Champ.add "Closing date", "Closing date" Champ.add "Expected order date", "Order date" Champ.add "Buyer", "Buyer" Champ.add "Quality requirements", "Quality requirements" Champ.add "ISO required", "ISO" Champ.add "required", "required" Champ.add "not required", "not required" Champ.add "Material certification", "Material certification" Champ.add "Items", "Items" Champ.add "Part name", "Part name" Champ.add "Supply Status", "Supply Status" Champ.add "Size", "Size" Champ.add "Standard", "Standard" Champ.add "Item detail", "Item detail" Champ.add "Dimension", "Dimension" Champ.add "General comments", "General comments" Champ.add "Viewed", "Viewed" Champ.add "My Buyers", "My Buyers" Champ.add "Contact", "Contact" Champ.add "RFQ Description", "RFQ Description" Champ.add "ended", "ended" Champ.add "metric tons", "metric tons" Champ.add "Weight part", "Weight part" Champ.add "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area", "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area" Champ.add "RFQs on line", "Request For Quotations online" Champ.add "Request For Quotation", "Request For Quotation" Champ.add "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer.", "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer." Champ.add "You are not interested to quote this RFQ,
please enter below your username and password.", "You are not interested to quote this RFQ,
please enter below your username and password." Champ.add "If you are not registered and want to quote this RFQ go to the", "If you are not registered and want to quote this RFQ go to the" Champ.add "registration page", "registration page" Champ.add "This RFQ is now available in your RFQ list in your organizer
", "This RFQ is now available in your new RFQ alerts in your organizer
" Champ.add "Supplier searchs on line", "Supplier searchs on line" Champ.add "Supplier search", "Supplier search" Champ.add "Buyer lead", "Buyer lead" Champ.add "You are interested to quote this file,
please enter below your username and password to get it in your organizer.", "You are interested to quote this file,
please enter below your username and password to get it in your organizer." Champ.add "If you are not registered and want to quote this file go to the", "If you are not registered and want to quote this file go to the" Champ.add "This file is now available in your organizer
", "This file is now available in your organizer
" Champ.add "Your Pay-per-view credit is now : ", "Your RFQ credit is now : " Champ.add "Your Pay-per-view credit is empty !
", "You don't have RFQ access credit
" Champ.add "Please contact Subcontract Solutions to upgrade your credit", "Please contact Subcontract Solutions to upgrade your credit" Champ.add "Your Pay-per-view credit is unlimited", "Your RFQ credit is unlimited" Champ.add "Your registration has ended since ", "Your registration is expired since " Champ.add "This RFQ is still available in your RFQ list in your organizer
", "This RFQ is already available in your RFQ list in your organizer
" Champ.add "Your Pay-per-view credit is still : ", "Your RFQ credit is still : " Champ.add "You are not interested by this RFQ
", "You are not interested by this RFQ
" Champ.add "Your Pay-per-view credit is unchanged", "Your RFQ credit is unchanged" Champ.add "Your username and password are valid, but you are not registred as foundry and/or a forge ", "Your username and password are valid, but you are not registred as foundry and/or a forge " Champ.add "Sorry, but your username and password are not valid ", "Sorry, but your username and password are not valid " Champ.add "To quote this RFQ you need to upgrade your subscription.", "To quote this RFQ you need to upgrade your subscription." Champ.add "You can do this directly from your organiser", "You can do this directly from your organiser" Champ.add "This Request For Quotation is not accessible for quote with a freee membership.", "This Request For Quotation is not accessible for quote with a free membership." Champ.add "This Request For Quotation is accessible to registered suppliers with a paying subscription only.", "Note :
This Request For Quotation is accessible to registered suppliers with a paying subscription only." Champ.add "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer.", "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer." Champ.add "You too can communicate directly with buyers in changing your registration from your organizer.", "You too can communicate directly with buyers in changing your registration from your organizer." Champ.add "You are registered :", "You are registered :" Champ.add "Please enter your username and password to get it in your organizer", "Please enter your username and password to get this RFQ in your organizer" Champ.add "You are not registered :", "You are not registered :" Champ.add "To have access to this Request For Quotation, please proceed first with your", "To be able to quote this Request For Quotation, please see conditions by clicking on " Champ.add "registration", "registration" Champ.add "Specify for machining only", "Specify for machining only" Champ.add "Your upgrade is now effective", "Your upgrade is now effective" Champ.add "Pending RFQs", "Pending RFQs" Champ.add "Description", "Description" Champ.add "Closed RFQs", "Closed RFQs" Champ.add "(Closed by buyer)", "(Closed by buyer)" Champ.add "Pending searchs", "Pending searchs" Champ.add "Closed searchs", "Closed searchs" Champ.add "Pending leads", "Pending leads" Champ.add "Closed leads", "Closed leads" Champ.add "Parts description", "Parts description" Champ.add "Geographical sourcing", "Geographical sourcing" Champ.add "Part(s) name", "Part(s) name" Champ.add "New Material", "New Material" Champ.add "New Certification", "New Certification" Champ.add "New Process", "New Process" Champ.add "New Facilities", "New Facilities" Champ.add "New ISO", "New ISO" Champ.add "New Market", "New Market" Champ.add "New Moulding", "New Moulding" Champ.add "ISO", "ISO" Champ.add "Can you supply parts elaborated with", "Can you supply parts elaborated with" Champ.add "Electro Slag Remelting Process (ESR)", "Electro Slag Remelting Process (ESR)" Champ.add "Vacuum Oxygen Decarburization Process (VOD)", "Vacuum Oxygen Decarburization Process (VOD)" Champ.add "Argon Oxygen Decarburization Process (AOD)", "Argon Oxygen Decarburization Process (AOD)" Champ.add "For the process of ring rolling, input :
- max outside diameter in the length max area,
- min inside diameter in the width max area,
- max thickness in the height max area", "For the process of ring rolling, input :
- max outside diameter in the length max area,
- min inside diameter in the width max area,
- max thickness in the height max area" Champ.add "Print", "Print" Champ.add "Help", "Help" Champ.add "Cancel", "Cancel" Champ.add "Ok", "Valid" Champ.add "Save", "Save" Champ.add "Put online", "Put online" Champ.add "Put offline", "Put offline" Champ.add "Add", "Add" Champ.add "Delete", "Delete" Champ.add "Upload", "Upload" Champ.add "Download", "Download" Champ.add "Files", "Drawings" Champ.add "File", "Drawing" Champ.add "Enter the file to upload :", "Enter the file to upload :" Champ.add "Are you sure you want to delete this item ?", "Are you sure you want to delete this item ?" Champ.add "winHelp", "Help.htm" Champ.add "Add to my buyers list", "Add to my buyers list" Champ.add "Close RFQ", "Close RFQ" Champ.add "Re open RFQ", "Re open RFQ" Champ.add "Click on the line when highlighted to see the detail of the RFQ", "Click on the line when highlighted to see the detail of the RFQ" Champ.add "Upgrade", "Upgrade" Champ.add "Upgrade pending", "Upgrade pending" Champ.add "Your ask for upgrade to", "Your request for upgrade to" Champ.add "is about to be validated by Subcontract Solutions", "is about to be validated by Subcontract Solutions" Champ.add "Your upgrade will be effective as soon as your paiement will be received", "Your upgrade will be effective as soon as your paiement will be received" Champ.add "Amount", "Amount" Champ.add "Date of validity", "Date of validity" Champ.add "I want to upgrade to", "I want to upgrade to" Champ.add "Business language", "Business language" Champ.add "To quote these RFQ(s), register", "To quote these RFQs, register" Champ.add "To quote this RFQ, register", "To quote this RFQ, register" Champ.add "CA", "Turnover" Champ.add "% Exp.", "% Export" Champ.add "Tel", "Tel" Champ.add "Web", "Web" Champ.add "Managing director", "Managing director" Champ.add "Sales manager", "Sales manager" Champ.add "Production manager", "Production manager" Champ.add "Quality manager", "Quality manager" Champ.add "Dimensions", "Dimensions" Champ.add "Other", "Contact" Champ.add "Photo", "Photo" Champ.add "Logo", "Logo" Champ.add "Voir la Fiche", "View your profile" Champ.add "only", "only" Champ.add "to2", "to" Champ.add "Criterias", "Criterias Search" Champ.add "manufacturing industry", "manufacturing industry" Champ.add "foundry process", "foundry process" Champ.add "forge process", "forge process" Champ.add "foundry material", "material" Champ.add "forge material", "material" Champ.add "ISO qualification", "ISO qualification" Champ.add "required certification", "required certification" Champ.add "doesn't matter", "doesn't matter" Champ.add "Qty per delivery", "Qty per delivery" Champ.add "Estimated qty per year", "Estimated qty / year" Champ.add "Unit weight", "Unit weight" Champ.add "File attachment", "File attachment" Champ.add "Files attachment", "Files attachment" Champ.add "Order requirements", "Order requirements" Champ.add "RFQ closing date", "Closing date" Champ.add "expected order date", "expected order date" Champ.add "Incoterms", "Incoterms" Champ.add "Delivery date", "Delivery date" Champ.add "Place of delivery", "Place of delivery" Champ.add "Item", "Item" Champ.add "please do not insert your coordinates", "please do not insert your contact details" Champ.add "Your RFQ reference", "Your RFQ reference" Champ.add "(city / country)", "(city / country)" Champ.add "Certificate", "Certificate" Champ.add "Status", "Status" Champ.add "Delivery requirements", "Delivery requirements" Champ.add "Place", "Place" Champ.add "Online since", "Online since" Champ.add "open until", "open until" Champ.add "yes", "Yes" Champ.add "complete the informations of the following items", "complete informations of following items" Champ.add "Your unlimited access to Request For Quotations has expired", "Your unlimited access to Request For Quotations has expired" Champ.add "New", "New" Champ.add "Pending", "Pending" Champ.add "navigation problems ?
get latest browser versions", "navigation problems ?
get latest browser versions" Champ.add "Not Disclosed", "Not Disclosed" Champ.add "Decline this RFQ", "Decline this RFQ" Champ.add "Make a new offer", "Make a (new) offer" Champ.add "Pending Offer", "Pending Offer" Champ.add "Offres", "Offers" Champ.add "Offre", "Offer" Champ.add "Liste des offres", "Offers list" Champ.add "Réalisation de l'offre", "Making of offer" Champ.add "Your offer", "Your offer" Champ.add "envoyée le", "sent the" Champ.add "Your offer number", "Your offer number" Champ.add "Your reference", "Your reference" Champ.add "Your name", "Your name" Champ.add "Your Email", "Your Email" Champ.add "Qty/year", "Qty/year" Champ.add "Unit Price", "Unit Price" Champ.add "Total", "Total" Champ.add "Tool cost", "Tool cost" Champ.add "To quote", "To quote" Champ.add "Item declined", "Item declined" Champ.add "Total Offer", "Total Offer" Champ.add "Offer valid until", "Offer valid until" Champ.add "Tool / pattern cost", "Tool / pattern cost" Champ.add "Payment conditions", "Payment conditions" Champ.add "Decline item", "Decline item" Champ.add "Offer conditions", "Offer conditions" Champ.add "D'abord", "First" Champ.add "or", "or" Champ.add "puis", "then" Champ.add "Save offer", "Save offer" Champ.add "Delete offer", "Delete offer" Champ.add "Send offer", "Send offer" Champ.add "View offer", "View before sending" Champ.add "(remplace l'offre précédente)", "(replaces previous offer)" Champ.add "To Company", "To Company" Champ.add "From Company", "From Company" Champ.add "Your contact", "Your contact" Champ.add "Offer reference", "Offer reference" Champ.add "Offer number", "Offer number" Champ.add "Our reference", "Our reference" Champ.add "All prices are in", "All prices are in" Champ.add "Qty/del.", "Qty/del." Champ.add "Supplier country", "Supplier country" Champ.add "Send mail", "Send Mail" Champ.add "RFQ", "RFQ" Champ.add "(buyer's name not disclosed)", "(buyer's name not disclosed)" Champ.add "not active", "not active" Champ.add "Access to price comparison list : ", "Access to price comparison list : " Champ.add "Offer Nb", "Offer Nb" Champ.add "Total Items", "Total Items" Champ.add "Total Tools", "Total Tools" Champ.add "Send", "Send" Champ.add "Offer from", "Offer from" Champ.add "Additional informations", "Additional informations" Champ.add "Prices of this offer are in", "Prices of this offer are in" Champ.add "Incoterms used is", "Incoterms used is" Champ.add "View drawing", "View
sample
drawing" Champ.add "To import into your organizer, click : ", "To import into your organizer, click : " Champ.add "Success stories", "Testimonials" Champ.add "Buyers", "Buyers" Champ.add "Suppliers", "Suppliers" Champ.add "References", "References" Champ.add "New Gold Pass members", "New Gold Pass members" Champ.add "new RFQ to finalise", "new RFQ to finalise" Champ.add "RFQ pending", "RFQ pending" Champ.add "RFQ that are expired or about to expire", "RFQ that are expired" Champ.add "new Search to finalise", "new Search to finalise" Champ.add "Search pending", "Search pending" Champ.add "Search that are expired or about to expire", "Search that are expired" Champ.add "Manufact.", "Manufact." Champ.add "Downloads", "Downloads" Champ.add "Quotes", "Quotes" Champ.add "Creation", "Creation" Champ.add "Validation", "Validation" Champ.add "Offline", "Stand-by" Champ.add "My Suppliers", "My Suppliers" Champ.add "My Contacts", "My Contacts" Champ.add "New RFQ list", "New RFQ list" Champ.add "RFQ under validation by Subcontract Solutions", "Under validation by Subcontract Solutions" Champ.add "New RFQs", "New RFQs" Champ.add "Countries selection", "Countries selection" Champ.add "Countries", "Countries" Champ.add "Not completed", "Not completed" Champ.add "all countries selected", "all countries selected" Champ.add "All countries" , "All countries" Champ.add "File download", "File download" Champ.add "displayed to suppliers", "displayed to suppliers" Champ.add "My internal notes (not displayed to suppliers)", "My internal notes (not displayed to suppliers)" Champ.add "Messages board", "Messages board" Champ.add "BIDDERS LIST", "BIDDERS LIST" Champ.add "DOWNLOADERS LIST", "DOWNLOADERS LIST" Champ.add "Downloads from Subcontract Solutions Gold Pass supplier network", "Downloads from Subcontract Solutions Gold Pass supplier network" Champ.add "Other downloads from Subcontract Solutions supplier network", "Other downloads from Subcontract Solutions supplier network" Champ.add "Offers from Subcontract Solutions Gold Pass supplier network", "Offers from Subcontract Solutions Gold Pass supplier network" Champ.add "Other offers from Subcontract Solutions supplier network", "Other offers from Subcontract Solutions supplier network" Champ.add "Supplier from", "Supplier from" Champ.add "Message type selection", "Message type selection" Champ.add "Selection", "Selection" Champ.add "View", "View" Champ.add "Free text message", "Free text message" Champ.add "Subject", "Subject" Champ.add "Price analysis area", "Price analysis area" Champ.add "To view supplier profile click on", "To view supplier profile click on" Champ.add "Display of offer n°", "Display of offer n°" Champ.add "dated", "dated" Champ.add "My comments", "My comments" Champ.add "Create a new Request For Quotation", "Create a new Request For Quotation" Champ.add "I allow price comparison for suppliers", "I allow price comparison for suppliers" Champ.add "Offers from Gold Pass suppliers", "Offers from Gold Pass suppliers" Champ.add "Offers from Quote Pass suppliers", "Offers from Quote Pass suppliers" Champ.add "My account manager", "My account manager" Champ.add "Manufacturing", "Manufacturing" Champ.add "Materials elaborated", "Materials elaborated" Champ.add "Moulding processes", "Moulding processes" Champ.add "Forging processes", "Forging processes" Champ.add "Qualifications", "Qualifications" Champ.add "View profile", "View profile" Champ.add "Request for quotation list" , "Request for quotation list" Champ.add "Supplier search message list" , "Buy leads" Champ.add "Prec" , "Previous" Champ.add "Next" , "Next" Champ.add "Page" , "Page" Champ.add "Geographical" , "Geographical selection" Champ.add "Search" , "Search" Champ.add "Supplier search messages online" , "Supplier search messages online" Champ.add "Send RFQ" , "send RFQ" Champ.add "Online Directory" , "Online directory" Champ.add "Send Buy Leads" , "send buy leads" Champ.add "View2" , "view" Champ.add "buyleads2" , " buy leads" Champ.add "RFQ2" , " RFQs" Champ.add "Subcontract Solutions", "Subcontract Solutions" Champ.add "FF", "Foundries & Forges area" Champ.add "Our vision" , "Our vision" Champ.add "Find new suppliers" , "Find new suppliers" Champ.add "Meet new buyers" , "meet new buyers" Champ.add "Suppliers to foundries & forges" , "Suppliers to Foundries & Forges" Champ.add "Smart tools" , "Smart tools" Champ.add "Buyers2" , "Buyers area" Champ.add "Suppliers2" , "Suppliers to Foundries & Forges area" Champ.add "FF2", "Foundries & Forges" Champ.add "VDMA" , "VDMA e-markets" Champ.add "buyleads3" , "Buy Leads online" Champ.add "Foundries and Forges" , "foundries & forges" Champ.add "Suppliers3" , "suppliers to foundries & forges" Champ.add "Marketplace" , "Market Place" set Mail=Server.CreateObject("Scripting.Dictionary") Mail.add "Registration in Subcontract Solutions'Supplier Guide", "Registration in Subcontract Solutions Supplier Guide" Mail.add "Registration in Subcontract Solutions'Database", "Registration in Subcontract Solutions" Mail.add "Dear", "Dear" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions'Database is complete.", "We are pleased to inform you that your registration in Subcontract Solutions'Database is complete." Mail.add "Thank you for your registration in Subcontract Solutions' Supplier guide.", "Thank you for your registration in Subcontract Solutions' Supplier guide." Mail.add "Your username and password will be active within 48 hours.", "Your username and password will be active within 48 hours." Mail.add "Once we have received your payment we will activate your listing in the Supplier Guide. You will receive a confirmation when payment has been received.", "Once we have received your payment we will activate your listing in the Supplier Guide. You will receive a confirmation when payment has been received." Mail.add "You have been registered with the following profile", "You have been registered with the following data" Mail.add "Best regards", "Best regards" Mail.add "Customer Service", "Customer Service" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions' Supplier Guide is complete.", "We are pleased to inform you that your registration in Subcontract Solutions' Supplier Guide is effective." Mail.add "Your company is listed with the following details", "Your company is listed with the following data" Mail.add "To change your profile you can go to our site : http://www.subcontractsolutions.com and login with your username and password", "To change your profile you can go to our site : http://www.subcontractsolutions.com and login with your username and password" Mail.add "However, it appears that your company has already been registered by one of your colleagues.", "However, it appears that your company has already been registered." Mail.add "To prevent unnecessary expenses or inconvenience for your firm, may we suggest you consult our contact in your companys", "To prevent unnecessary expenses or inconvenience for your firm, may we suggest you consult our contact in your company" Mail.add "If an error has occurred please accept our apologies.", "If our assumption is wrong please accept our apologies." Mail.add "We shall be awaiting your confirmation before proceeding with your registration.", "We shall be awaiting your confirmation before proceeding with your registration." Mail.add "Please contact us by e-mail at: sales@SubcontractSolutions.com, or call:+33 - (0)3 25 49 03 22", "Please contact us by e-mail at: customerservice@SubcontractSolutions.com, or call:+33 - (0)3 25 49 03 22" Mail.add "Your registration is effective. From now on, with your login and password, you can access your private organizer.", "Your registration is effective. From now on, with your login and password, you can access your private organizer." Mail.add "We highly recommend you to fill up your production capacities and your know-how in our supplier database. You can access it from your private organizer", "We highly recommend you to fill up your production capacities and your know-how in our supplier database. You can access it from your private organizer" Mail.add "Best regards and good sales !", "Best regards and good sales !" Mail.add "Thank you for your registration in Subcontract Solutions'Database.", "Thank you for your registration." Mail.add "Your will receive a confirmation that your account is active within 48 hours.", "You will receive a confirmation that your account is active within 48 hours." Mail.add "An invoice will be sent to you by e-mail within 48 hours", "An invoice will be sent to you by e-mail within 48 hours" Mail.add "You can at any time after that login, view and change your company's profile directly from from our site: http://www.subcontractsolutions.com", "You can at any time after that login, view and change your company's profile directly from from our site: http://www.subcontractsolutions.com" Mail.add "You will receive a confirmation that your account is active once payment has been received", "You will receive a confirmation that your account is active once payment has been received" Mail.add "Thank you for your registration, please find your invoice and registration details below. Your account will be actif once we receive your payment.", "Thank you for your registration, please find your invoice and registration details below. Your account will be activated once your payment has been received." set Jour=Server.CreateObject("Scripting.Dictionary") Jour.add "1", "Sunday" Jour.add "2", "Monday" Jour.add "3", "Tuesday" Jour.add "4", "Wenesday" Jour.add "5", "Thursday" Jour.add "6", "Friday" Jour.add "7", "Saturday" set Mois=Server.CreateObject("Scripting.Dictionary") Mois.add "1", "January" Mois.add "2", "February" Mois.add "3", "March" Mois.add "4", "April" Mois.add "5", "May" Mois.add "6", "June" Mois.add "7", "July" Mois.add "8", "August" Mois.add "9", "September" Mois.add "10", "October" Mois.add "11", "November" Mois.add "12", "December" set State=Server.CreateObject("Scripting.Dictionary") State.add "1", "Crée" State.add "3", "Offert" State.add "4", "En cours" State.add "5", "Suspendue" State.add "7", "En attente" State.add "501", "Fait" State.add "502", "Annulé" State.add "506", "Ré-assigné" %><% end select %> <% set Couleur=Server.CreateObject("Scripting.Dictionary") Couleur.add "Highlight","#FFCF00" set DataType=Server.CreateObject("Scripting.Dictionary") DataType.add "1","Integer" DataType.add "2","Date" DataType.add "3","String" DataType.add "4","Document" set Properties=Server.CreateObject("Scripting.Dictionary") Properties.add "ServerHost", "" Properties.add "HttpRoot", "http://www.subcontractsolutions.com/" Properties.add "UploadRoot", "C:/Inetpub/vhosts/subcontractsolutions.com/httpdocs/Upload/" Properties.add "HttpUploadRoot", "http://www.subcontractsolutions.com/Upload/" Properties.add "Root", "/SSMP/" Properties.add "GuestLogin", "guest" Properties.add "GuestPassword", "star" Properties.add "WFS", "w4adm" Properties.add "WebSitePath", "http://www.subcontractsolutions.com/" Properties.add "AppPath", "/SSMP/WF/" Properties.add "LgPath", "/SSMP/" & lg & "/" Properties.add "ProcedureName", "SSMP" Properties.add "AppTitle" , "Subcontract Solution Market Place" Properties.add "Version", "1.0" Properties.add "Auteur", "Marc HERVIER" Properties.add "DateCreation", "8 mars 2002" Properties.add "DateRevision", "8 mars 2002" Properties.add "MailFrom", "customerservice@subcontractsolutions.com" Properties.add "MailSS_Expert", "michel.portal@subcontractsolutions.com" Properties.add "TVA", "0.196" set MailAddress=Server.CreateObject("Scripting.Dictionary") MailAddress.add "Newsletter", "Newsletter@subcontractsolutions.com" MailAddress.add "Expert", "Expert@subcontractsolutions.com" MailAddress.add "TestSourcing", "TestSourcing@subcontractsolutions.com" MailAddress.add "Sales", "Sales@subcontractsolutions.com" MailAddress.add "CustomerService", "customerservice@subcontractsolutions.com" %> <% sub boutonMaj(procCancel, procUpdate, procNew, procDelete) response.write("") response.write("") response.write(" ") response.write(" ") response.write(" ") response.write(" ") response.write("
") response.write("
") response.write(" ") response.write("
") response.write("
") response.write("
") response.write("  ") response.write("  ") response.write("  ") response.write(" ") response.write("
") response.write("
") end sub function isEmail(chaine) Set regEx = New RegExp regEx.Pattern = "[a-zA-Z0-9._-]+@[a-zA-Z0-9.-]{2,}[.][a-zA-Z]{2,4}" isEmail = regEx.test(chaine) end function function ZeroNum(Nombre, Longueur) Pow = 10 ^ Longueur ZeroNum = MID(TRIM(CStr(Pow + Nombre)), 2, Longueur) end function function IIf(Condition, ValIfTrue, ValIfFalse) if Condition then IIf = ValIfTrue else IIf = ValIfFalse end if end function function isSelected(NomVariable, Code) isSelected = "" Variable = VarOfCurrentTask.Item("" & NomVariable).Value(1).Value if Trim(Code) = Trim(Variable) then isSelected = "selected" end if end function function isChecked(NomVariable, Code) isChecked = "" Variable = VarOfCurrentTask.Item("" & NomVariable).Value(1).Value if Trim(Code) = Trim(Variable) then isChecked = "checked" end if end function function Afficher(Chaine) Afficher = getStrField(Chaine) if Trim(Afficher) = "" then Afficher = " " else Afficher = UCase(Mid(Afficher, 1, 1)) & LCase(Trim(Mid(Afficher, 2))) end if end function function AfficherNormal(Chaine) AfficherNormal = getStrField(Chaine) if Trim(AfficherNormal) = "" then AfficherNormal = " " end if end function function AfficherUpper(Chaine) AfficherUpper = getStrField(Chaine) if Trim(AfficherUpper) = "" then AfficherUpper = " " else AfficherUpper = UCase(AfficherUpper) end if end function function AfficherNum(Nombre, Sep) AfficherNum = getNumField(Nombre) virgule = InStr(AfficherNum, ",") + InStr(AfficherNum, ".") if virgule > 0 then partieVirgule = Mid(AfficherNum, virgule) partieEntiere = Mid(AfficherNum, 1, virgule - 1) else partieVirgule = "" partieEntiere = AfficherNum end if partieSeparee = "" While Len(partieEntiere) > 3 lgEnt = Len(partieEntiere) partieSeparee = Sep & Mid(partieEntiere, lgEnt - 2, 3) & partieSeparee partieEntiere = Mid(partieEntiere, 1, lgEnt - 3) Wend partieSeparee = partieEntiere & partieSeparee AfficherNum = partieSeparee & partieVirgule end function function AfficherImage(Directory, Fichier, Width, Height) if Trim(Width) <> "" then Width = " width='" & Width & "' " end if if Trim(Height) <> "" then Height = " height='" & Height & "' " end if Set FSO = Server.CreateObject("Scripting.FileSystemObject") if Trim(Fichier) = "" then AfficherImage = " " else AfficherImage = "" end if end function function AfficherLimite(Chaine, NbCar) AfficherLimite = getStrField(Chaine) if Trim(AfficherLimite) = "" then AfficherLimite = " " else AfficherLimite = Left(AfficherLimite, NbCar) & IIf(Len(AfficherLimite) > NbCar, " ...", "") end if end function function Duree(datedeb,datefin) dim datedebtmp, datefintmp dim years,months,days, hours,minutes,secondes dim aDuree datedebtmp = Cdate(datedeb) datefintmp = Cdate(datefin) 'response.write("datedeb:" & datedeb & "deb:" & datedebtmp & "
") 'response.write("datefin:" & datefin & "Fin:" & datefintmp & "
") aDuree = "" if datefin <> "00:00:00" then years = datediff("yyyy",datedebtmp,datefintmp) months = datediff("m",datedebtmp,datefintmp) - (12*years) days = datediff("d",datedebtmp,datefintmp) - (365*years) - (30*months) if days=0 and months=0 and years=0 then hours = datediff("h",datedebtmp,datefintmp) minutes = datediff("n",datedebtmp,datefintmp) - (hours*60) secondes = datediff("s",datedebtmp,datefintmp) - (hours*3600) - (minutes*60) end if if years > 0 then aDuree = aDuree & years & " année(s)" if months > 0 then aDuree = aDuree & " " & Months & " mois" if days > 0 then aDuree = aDuree & " " & days & " Jour(s)" if hours > 0 then aDuree = aDuree & " " & hours & " h" if minutes > 0 then aDuree = aDuree & " " & minutes & " mn" if secondes > 0 then aDuree = aDuree & " " & secondes & " s" else aDuree = "En cours" end if Duree= aDuree end function function show_date(aDate) 'intDate = Date() intDay = Day(aDate) intMonth = Month(aDate) intYear = Year(aDate) 'Get the day : parse method if Len(intDay)=1 Then intDay = "0" & intDay 'Get the month : parse method if Len(intMonth)=1 Then intMonth = "0" & intMonth 'get the year : parse method if Len(intYear)=4 Then intYear = Right(intYear, 2) 'generate the current Date (in this exemple in french format : jj/mm/aa) 'just modify the order For your country show_date = IntDay & "/" & IntMonth & "/" & IntYear End function function getNewId() getNewId = "" query = "SELECT newid() AS Id" Set Result = getResultSet(query) if Result.RecordCount > 0 then Result.MoveFirst getNewId = Result.Fields.Item("Id").Value end if end function function getNewNum(Table, ChampNumero, ClauseWhere) getNewNum = 0 Query = "SELECT MAX(" & ChampNumero & ") FROM " & Table if ClauseWhere <> "" then Query = Query & " WHERE " & ClauseWhere end if Set Result = getResultSet(Query) if Result.RecordCount > 0 then Result.MoveFirst getNewNum = getNumField(Result.Fields.Item(0).Value) end if getNewNum = getNewNum + 1 end function function getNewNumPrefixed(Prefixe, Table, ChampNumero, ClauseWhere) getNewNumPrefixed = Prefixe Query = "SELECT MAX(" & ChampNumero & ") FROM " & Table if ClauseWhere <> "" then Query = Query & " WHERE " & ClauseWhere end if Set Result = getResultSet(Query) if Result.RecordCount > 0 then Result.MoveFirst NewNum = getNumField(Result.Fields.Item(0).Value) getNewNumPrefixed = IIf(NewNum >= Prefixe, NewNum, Prefixe) end if getNewNumPrefixed = getNewNumPrefixed + 1 end function function javaStr2(Chaine) javaStr2 = Replace(getStrField(Chaine), """", "'") javaStr2 = Replace(javaStr2, "'", """ + ""'"" + """) javaStr2 = Replace(javaStr2, Chr(13) & Chr(10), "\n") javaStr2 = Replace(javaStr2, Chr(10) & Chr(13), "\n") end function function javaStr(Chaine) javaStr = Replace(getStrField(Chaine), """", "'") javaStr = Replace(javaStr, "'", "' + ""'"" + '") javaStr = Replace(javaStr, Chr(13) & Chr(10), "\n") javaStr = Replace(javaStr, Chr(10) & Chr(13), "\n") end function function javaStr3(Chaine) javaStr3 = Replace(getStrField(Chaine), """", "'") javaStr3 = Replace(getStrField(Chaine), "'", "\'") javaStr3 = Replace(javaStr3, Chr(13) & Chr(10), "\n") javaStr3 = Replace(javaStr3, Chr(10) & Chr(13), "\n") end function function HTMLStr(Chaine) HTMLStr = Replace(getStrField(Chaine), Chr(13) & Chr(10), "
") HTMLStr = Replace(HTMLStr, Chr(10) & Chr(13), "
") HTMLStr = Replace(HTMLStr, """", "'") end function function BDDDate(chaine) BDDDate = BDDNull(chaine) end function function BDDId(chaine) BDDId = BDDNull(chaine) end function function BDDStr(chaine) BDDStr = Replace(getStrField(Chaine), "'", "''") end function function BDDNum(valeur) BDDNum = Replace(CStr(getNumField(Valeur)), ",", ".") end function function BDDNull(Champ) valeur = getStrField(Champ) if valeur = "" then valeur = "NULL" else valeur = "'" & valeur & "'" end if BDDNull = valeur end function function BDDisNull(Champ) valeur = getStrField(Champ) if valeur = "" then valeur = " IS NULL" else valeur = " = '" & valeur & "'" end if BDDisNull = valeur end function function getStrField(Champ) on error resume next Err.number = 0 valeur = Trim(CStr(Champ)) if Err.Number <> 0 then valeur = "" end if getStrField = valeur end function function getNumField(Champ) on error resume next Champ = CStr(Champ) Err.number = 0 Champ = Replace(Champ, ".", ",") valeur = CDbl(Champ) if Err.number <> 0 then valeur = 0 end if getNumField = valeur end function function getDateField(Champ) on error resume next Err.number = 0 valeur = CDate(Champ) if Err.number <> 0 OR Year(valeur) < 2000 then valeur = Date end if getDateField = valeur end function function AfficheCompteur(Nombre, Taille) Chaine = ZeroNum(Nombre, Taille) Compteur = "" for i = 1 to Len(Chaine) Compteur = Compteur & "" next AfficheCompteur = Compteur end function %> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' HTTP="false" ' Catalog="" ' Schema="" MM_SSMP_STRING = "dsn=SSMP;uid=ssmp;pwd=marc/26862*;" function getResultSet(Query) Set Result = Server.CreateObject("ADODB.Recordset") Result.ActiveConnection = MM_SSMP_STRING Result.Source = Query Result.CursorType = 3 Result.CursorLocation = 2 Result.LockType = 3 Result.Open() Set getResultSet = Result end function function getRandomResult(Query) Set Result = getResultSet(Query) NbResultat = Result.RecordCount if NbResultat > 0 then Randomize NbRnd = Int((Rnd * NbResultat) + 1) i = 1 While i < NbRnd AND NOT Result.EOF Result.MoveNext i = i + 1 Wend end if Set getRandomResult = Result end function function execQuery(Query) Set Cmd = Server.CreateObject("ADODB.Command") Cmd.ActiveConnection = MM_SSMP_STRING Cmd.CommandText = Query Cmd.CommandType = 1 Cmd.Prepared = True Cmd.Execute execQuery = Err.number end function sub killResultSet(Result) Result.Close Set result = nothing end sub %> <% Set Abonnement = Server.CreateObject("Scripting.Dictionary") Abonnement.add "Bronze" , "BRNZE" Abonnement.add "Silver" , "SILVR" Abonnement.add "Gold" , "GOLD" Abonnement.add "ProSolution" , "P-SOL" Abonnement.add "EProSolution" , "E-SOL" Abonnement.add "Alerte" , "ALERT" Abonnement.add "20 PPV" , "20PPV" Abonnement.add "Unlimited" , "UNPPV" Abonnement.add "Setup" , "SETUP" Abonnement.add "Buyer" , "A" Abonnement.add "Foundry" , "F" Abonnement.add "Forge" , "F" Abonnement.add "Supplier" , "S" Abonnement.add "Divers" , "X" Abonnement.add "Alert" , "ALERT" Abonnement.add "View name" , "VIEW" Abonnement.add "Transparency" , "TRANS" Abonnement.add "Comparison" , "PRICE" Abonnement.add "First class" , "FIRST" Sub BannerMarketing() Randomize NumBanner = Int((Rnd * 2) + 1) if NumBanner = 1 then Select case langue() case "fr" %> <% case "en" %> <% case "de" %> <% end select else Select case langue() case "fr" %> /ssmp/fr/FoundryForge/Services/e_marketing.asp"> /Media/banemarktg_fr.gif"> <% case "en" %> /ssmp/en/FoundryForge/Services/e_marketing.asp"> /Media/banemarktg_en.gif"> <% case "de" %> /ssmp/de/FoundryForge/Services/e_marketing.asp"> /Media/banemarktg_de.gif"> <% end select end if end sub function getPromotion(idSociete, IdRFQ, LanguePromo) Dim Query, Promotion, Societe, Pays, isForge, isFonderie, ChpTexte, Texte, Matiere, Process Dim Fonderie, Forge, AbtExpire, AbtEncours, ExpirationAbt, resMatiere, resProcess, RFQ, IdAbt, NonAbonne Query = "SELECT Industry FROM EasySourcing WHERE Id = '" & IdRFQ & "'" Set RFQ = getResultSet(Query) if RFQ.RecordCount > 0 then Industry = getStrField(RFQ.Fields.Item("Industry").Value) end if Select Case LCase(LanguePromo) case "en" ChpTexte = "ENTexte" TexteCode = "Your promotion code" case "fr" ChpTexte = "FRTexte" TexteCode = "Votre code promotionel" case "de" ChpTexte = "DETexte" TexteCode = "Ihr Angebots Code" end select Query = "SELECT Pays, isFonderie, isForge, Abonnement.Id AS IdAbt, Abonnement.Type AS TypeAbt FROM Societe LEFT JOIN Abonnement ON Abonnement.Societe = Societe.Id AND Abonnement.Actif = 'O' WHERE Societe.Id = '" & idSociete & "'" ' Query = "SELECT Pays, isFonderie, isForge FROM Societe WHERE Id = '" & idSociete & "'" 'response.Write(Query & "
") Set Societe = getResultSet(Query) Pays = getStrField(Societe.Fields.Item("Pays").Value) isFonderie = getStrField(Societe.Fields.Item("isFonderie").Value) isForge = getStrField(Societe.Fields.Item("isForge").Value) IdAbt = getStrField(Societe.Fields.Item("IdAbt").Value) TypeAbt = getStrField(Societe.Fields.Item("TypeAbt").Value) if IdAbt <> "" then ExpirationAbt = CheckForUserExpiredAbonnement(idAbt, "") end if Query = "" Query = Query & "SELECT Id, Code, " & ChpTexte & " AS Texte, Matiere, Process, Fonderie, Forge, NonAbonne, AbtExpire, AbtEncours, " Query = Query & "(SELECT COUNT(*) FROM PromotionCritere WHERE Promotion=Promotion.Id AND Type = 'ABT') AS NbCritAbt " Query = Query & "FROM Promotion " Query = Query & "WHERE TypePromotion = 'F' AND Actif = 'O' AND Debut <= GETDATE() AND GETDATE() <= Fin " Query = Query & "AND '" & Pays & "' IN (SELECT Code FROM PromotionCritere WHERE Promotion = Promotion.Id AND Type = 'Pays') " if Industry = "FRG" then Query = Query & "AND Forge = 'O'" end if if Industry = "FND" then Query = Query & "AND Fonderie = 'O'" end if Query = Query & "ORDER BY Priorite" 'response.Write(Query & "
") Set Promotion = getResultSet(Query) if Promotion.RecordCount > 0 then Promotion.Movefirst Continue = true While NOT Promotion.EOF AND Continue IdPromotion = getStrField(Promotion.Fields.Item("Id").Value) Code = getStrField(Promotion.Fields.Item("Code").Value) Texte = getStrField(Promotion.Fields.Item("Texte").Value) Forge = getStrField(Promotion.Fields.Item("Forge").Value) Fonderie = getStrField(Promotion.Fields.Item("Fonderie").Value) NonAbonne = getStrField(Promotion.Fields.Item("NonAbonne").Value) AbtExpire = getStrField(Promotion.Fields.Item("AbtExpire").Value) AbtEncours = getStrField(Promotion.Fields.Item("AbtEncours").Value) Matiere = getStrField(Promotion.Fields.Item("Matiere").Value) Process = getStrField(Promotion.Fields.Item("Process").Value) NbCritAbt = getNumField(Promotion.Fields.Item("NbCritAbt").Value) Cadre = "" Cadre = Cadre & "" Cadre = Cadre & " " Cadre = Cadre & " " Cadre = Cadre & " " Cadre = Cadre & "
" if Code <> "" then Texte = Texte & "

" & TexteCode & " : " & Code & "

" end if Cadre = Cadre & Texte Cadre = Cadre & "
" Texte = Cadre if IdAbt = "" then if NonAbonne <> "O" AND NbCritAbt > 0 then Texte = "" end if else if NonAbonne = "O" AND NbCritAbt = 0 then Texte = "" end if if NbCritAbt > 0 then Query = "SELECT Code FROM PromotionCritere WHERE Promotion = '" & IdPromotion & "' AND Type = 'ABT' AND Code = '" & TypeAbt & "'" Set chkAbt = getResultSet(Query) if chkAbt.RecordCount = 0 then Texte = "" end if end if if ((AbtExpire = "O" AND NOT ExpirationAbt) OR (AbtEncours = "O" AND ExpirationAbt)) then Texte = "" end if end if if Matiere <> "" then Query = "" Query = Query & "SELECT Id FROM FonderieMaterial " Query = Query & "WHERE Societe = '" & idSociete & "' AND Rubrique IN (" Query = Query & " SELECT Code FROM Technique " Query = Query & " WHERE " Query = Query & " (SUBSTRING(Structure, 1, LEN((SELECT Structure FROM Technique WHERE Code='" & Matiere & "'))) = (SELECT Structure FROM Technique WHERE Code='" & Matiere & "')) " Query = Query & " ) " Query = Query & "UNION " Query = Query & "SELECT Id FROM ForgeMaterial " Query = Query & "WHERE Societe = '" & idSociete & "' AND Rubrique IN (" Query = Query & " SELECT Code FROM Technique " Query = Query & " WHERE " Query = Query & " (SUBSTRING(Structure, 1, LEN((SELECT Structure FROM Technique WHERE Code='" & Matiere & "'))) = (SELECT Structure FROM Technique WHERE Code='" & Matiere & "')) " Query = Query & " )" Set resMatiere = getResultSet(Query) if resMatiere.RecordCount = 0 then Texte = "" end if end if if Process <> "" then Query = "" Query = Query & "SELECT Id FROM FonderieMoulage " Query = Query & "WHERE Societe = '" & idSociete & "' AND Rubrique IN (" Query = Query & " SELECT Code FROM Technique " Query = Query & " WHERE " Query = Query & " (SUBSTRING(Structure, 1, LEN((SELECT Structure FROM Technique WHERE Code='" & Process & "'))) = (SELECT Structure FROM Technique WHERE Code='" & Process & "')) " Query = Query & " ) " Query = Query & "UNION " Query = Query & "SELECT Id FROM ForgeProcess " Query = Query & "WHERE Societe = '" & idSociete & "' AND Rubrique IN (" Query = Query & " SELECT Code FROM Technique " Query = Query & " WHERE " Query = Query & " (SUBSTRING(Structure, 1, LEN((SELECT Structure FROM Technique WHERE Code='" & Process & "'))) = (SELECT Structure FROM Technique WHERE Code='" & Process & "')) " Query = Query & " )" Set resProcess = getResultSet(Query) if resProcess.RecordCount = 0 then Texte = "" end if end if if Texte = "" then Promotion.MoveNext else Continue = false end if Wend end if getPromotion = Texte end function function BuyerClickToRegister(idSociete, Langage) Dim Body, URL, IMG URL = Properties.Item("HttpRoot") & "WF/Templates/Registration/InitInscription.asp?idSociete=" & idSociete & "&lg=" & Langage & "&TypeReg=A" IMG = "" Body = "" Select case LCase(Langage) case "de" Body = Body & "

Zugang zum Ihrem persönlichen Subcontract Ordner

" Body = Body & "

Subcontract Ordnerseiten verwalten das gesamte Anfrage-Prozedere, mit entsprechenden Bereichen für das Entwerfen, aktualiesieren und Überarbeitung neuer Anfragen." Body = Body & "Es gestattet nachzufassen als auch zu vergleichen unter den Offerten. " Body = Body & "Nicht zuletzt gibt es Ihnen Einblick ins jeweilige Lieferantenprofil.

" Body = Body & "

" & IMG & " Zwecks Eintragen bitte hier klicken

" case "en" Body = Body & "

Have a free access to Subcontract Organiser

" Body = Body & "

Subcontract Organiser addresses the entire RFQ process, providing tools for creation, " Body = Body & "update and review of Request For Quotations. It allows as well to track and to compare the offers. " Body = Body & "Last but not least, it gives you access to the suppliers profile.

" Body = Body & "

" & IMG & " Click here to register

" case "fr" Body = Body & "

Ayez accés gratuitement à Subcontract Organiser

" Body = Body & "

Subcontract Organiser vous permet de créer, de mettre à jour et de gérer l'ensemble de vos appels d'offres. " Body = Body & "Il vous permet également de classer et de comparer les offres. " Body = Body & "Enfin, il vous permet d'avoir accés aux profils des fournisseurs.

" Body = Body & "

" & IMG & " Cliquez ici pour vous enregistrer

" End select BuyerClickToRegister = Body end function function infosRegistration(idAbt, Langage) Dim Query, Registration, Login, Password, NomSociete, Civilite, Prenom, Nom, Debut, Fin, NbPPV, TimeLimited, NbLimited, AbtLibelle Dim URL, IMG, ChpLibelle, TXT, Titre set Libelle=Server.CreateObject("Scripting.Dictionary") Select case LCase(Langage) case "fr" Libelle.add "ChpLibelle", "FRLibelle" Libelle.add "Lien actif", "Cliquez ici pour accéder à votre espace de travail" Libelle.add "Titre", "Votre enregistrement : " Libelle.add "illimité", "illimité" Libelle.add "Nom", "Nom" Libelle.add "Société", "Société" Libelle.add "Abonnement", "Abonnement" Libelle.add "Validité", "Validité" Libelle.add "Identifiant", "Identifiant" Libelle.add "Mot de passe", "Mot de passe" case "en" Libelle.add "ChpLibelle", "ENLibelle" Libelle.add "Lien actif", "Click here to access your organiser" Libelle.add "Titre", "Your registration details : " Libelle.add "illimité", "illimited" Libelle.add "Nom", "Name" Libelle.add "Société", "Company" Libelle.add "Abonnement", "Registration" Libelle.add "Validité", "Valid" Libelle.add "Identifiant", "Username" Libelle.add "Mot de passe", "Password" case "de" Libelle.add "ChpLibelle", "DELibelle" Libelle.add "Lien actif", "Zugang zu Ihren Ordnerseiten : hier klicken" Libelle.add "Titre", "Ihre Eintrag-Details : " Libelle.add "illimité", "unbegrenzt" Libelle.add "Nom", "Name" Libelle.add "Société", "Firma" Libelle.add "Abonnement", "Eintragen" Libelle.add "Validité", "Gûltig" Libelle.add "Identifiant", "Anwendername" Libelle.add "Mot de passe", "Passwort" end select ChpLibelle = Libelle.Item("ChpLibelle") TXT = Libelle.Item("Lien actif") Titre = Libelle.Item("Titre") Query = "" Query = Query & "SELECT Role.Login, Role.Password, TypeAbonnement." & ChpLibelle & " AS Libelle, Societe.Nom AS NomSociete, Contact.Civilite, Contact.Prenom, Contact.Nom, " Query = Query & "convert(char, Abonnement.Debut, 103) AS Debut, convert(char, Abonnement.Fin, 103) AS Fin, Abonnement.NbPPV, Abonnement.NbLimited, Abonnement.TimeLimited " Query = Query & "FROM Abonnement, Societe, Role, Contact, TypeAbonnement " Query = Query & "WHERE Abonnement.Id = Role.Abonnement AND Abonnement.Societe = Societe.Id AND Role.Contact = Contact.Id AND Role.Role = 'A' " Query = Query & "AND Abonnement.Id = '" & IdAbt & "' AND Abonnement.Type = TypeAbonnement.Code" Registration = "" 'Query = "SELECT Id FROM Abonnement WHERE 1 = 2" Set resAbt = getResultSet(Query) if resAbt.RecordCount > 0 then resAbt.MoveFirst Login = getStrField(resAbt.Fields.Item("Login").Value) Password = getStrField(resAbt.Fields.Item("Password").Value) NomSociete = getStrField(resAbt.Fields.Item("NomSociete").Value) Civilite = getStrField(resAbt.Fields.Item("Civilite").Value) Prenom = getStrField(resAbt.Fields.Item("Prenom").Value) Nom = getStrField(resAbt.Fields.Item("Nom").Value) Debut = getStrField(resAbt.Fields.Item("Debut").Value) Fin = getStrField(resAbt.Fields.Item("Fin").Value) NbPPV = getNumField(resAbt.Fields.Item("NbPPV").Value) NbLimited = getStrField(resAbt.Fields.Item("NbLimited").Value) TimeLimited = getStrField(resAbt.Fields.Item("TimeLimited").Value) AbtLibelle = getStrField(resAbt.Fields.Item("Libelle").Value) Civilite = libTable("Parametre", "Code", ChpLibelle, "Type = 'Civilite'", Civilite) Nom = Civilite & " " & Prenom & " " & Nom Fin = IIf(TimeLimited <> "O", Libelle.Item("illimité"), Fin) HiddenPwd = "********" URL = Properties.Item("HttpRoot") & "WF/Actions/W4Logger.asp?cmd=Login&ActorName=" & Login & "&password=" & Password IMG = "" Registration = Registration & "" Registration = Registration & " " Registration = Registration & " " addRow = addRow & "" addRow = addRow & "" addRow = addRow & "" addRow = addRow & "" end function function getStatutRFQ(Statut) Select Case Statut Case "B" getStatutRFQ = Champ.Item("Creation") Case "O" getStatutRFQ = Champ.Item("New") Case "P" getStatutRFQ = Champ.Item("Pending") Case "S" getStatutRFQ = Champ.Item("Offline") Case "F" getStatutRFQ = Champ.Item("Closed") Case "C" getStatutRFQ = Champ.Item("Closed") Case else getStatutRFQ = "Unknown : " & Statut End Select end function function getStatutRFQFourn(Statut) Select Case Statut Case "A" getStatutRFQFourn = Champ.Item("New") Case "C" getStatutRFQFourn = Champ.Item("New") Case "I" getStatutRFQFourn = Champ.Item("Pending") Case "F" getStatutRFQFourn = Champ.Item("Closed") Case else getStatutRFQFourn = "Unknown : " & Statut End Select end function function infosRFQ(idRFQ, Transparent) Dim Query, Numero, Statut, Societe, Contact, idSociete, idContact, Civilite Query = "" Query = Query & "SELECT " Query = Query & "Numero, EasySourcing.Societe, EasySourcing.Contact, Statut, " Query = Query & "Societe.Nom AS NomSociete, Pays." & lgLibelle() & " AS Pays, " Query = Query & "Contact.Civilite, Contact.Prenom, Contact.Nom as NomContact, Contact.Titre, Contact.Telephone " Query = Query & "FROM EasySourcing " Query = Query & "LEFT JOIN (Societe LEFT JOIN Pays ON Societe.Pays = Pays.Code) ON Societe.Id = EasySourcing.Societe " if Transparent <> "N" then Query = Query & "LEFT JOIN Contact ON Contact.Id = EasySourcing.Contact " else Query = Query & "LEFT JOIN Contact ON Contact.Id = EasySourcing.ContactInterne " end if Query = Query & "WHERE EasySourcing.Id = '" & idRFQ & "'" Numero = 0 Statut = "" Societe = "" Contact = "" Set EasyRFQ = getResultSet(Query) if EasyRFQ.RecordCount > 0 then EasyRFQ.MoveFirst Numero = getNumField(EasyRFQ.Fields.Item("Numero").Value) Statut = getStrField(EasyRFQ.Fields.Item("Statut").Value) Select Case Statut Case "B" Statut = Champ.Item("Creation") Case "O" Statut = Champ.Item("New") Case "P" Statut = Champ.Item("Pending") Case "S" Statut = Champ.Item("Offline") Case "F" Statut = Champ.Item("Closed") Case "C" Statut = "Closing" Case else Statut = "Unknown : " & Statut End Select idSociete = getStrField(EasyRFQ.Fields.Item("Societe").Value) idContact = getStrField(EasyRFQ.Fields.Item("Contact").Value) if Transparent <> "N" then Societe = getStrField(EasyRFQ.Fields.Item("NomSociete").Value) else Societe = getStrField(EasyRFQ.Fields.Item("Pays").Value) end if Civilite = getStrField(EasyRFQ.Fields.Item("Civilite").Value) Civilite = libTable("Parametre", "Code", lgLibelle(), "Type = 'Civilite'", Civilite) Contact = "" Contact = Contact & Civilite & " " Contact = Contact & getStrField(EasyRFQ.Fields.Item("Prenom").Value) & " " Contact = Contact & getStrField(EasyRFQ.Fields.Item("NomContact").Value) & " " Contact = Contact & "(" + getStrField(EasyRFQ.Fields.Item("Titre").Value) & ")" Contact = Contact & " - Tel : " + getStrField(EasyRFQ.Fields.Item("Telephone").Value) end if infosRFQ = "" infosRFQ = infosRFQ & "Easy RFQ # " & Numero & "" infosRFQ = infosRFQ & "" infosRFQ = infosRFQ & " (" & Statut & ")
" infosRFQ = infosRFQ & Societe & "
" infosRFQ = infosRFQ & Contact & "
" infosRFQ = infosRFQ & "
" end function function infosRFQSupplier(idRFQ, Transparent, LienContact) Dim Query, Numero, Statut, Societe, Contact, idSociete, idContact, Civilite Query = "" Query = Query & "SELECT " Query = Query & "Numero, EasySourcing.Societe, EasySourcing.Contact, Statut, " Query = Query & "Societe.Nom AS NomSociete, Pays." & lgLibelle() & " AS Pays, " Query = Query & "Contact.Civilite, Contact.Prenom, Contact.Nom as NomContact, Contact.Titre, Contact.Telephone, " Query = Query & "Interne.Nom AS NomSocieteInterne, " Query = Query & "Manager.Civilite AS CiviliteManager, Manager.Prenom AS PrenomManager, Manager.Nom as NomManager, Manager.Titre AS TitreManager, Manager.Telephone AS TelManager " Query = Query & "FROM EasySourcing " Query = Query & "LEFT JOIN (Societe LEFT JOIN Pays ON Societe.Pays = Pays.Code) ON Societe.Id = EasySourcing.Societe " Query = Query & "LEFT JOIN Contact ON Contact.Id = EasySourcing.Contact " Query = Query & "LEFT JOIN Societe AS Interne ON Interne.Id = EasySourcing.SocieteInterne " Query = Query & "LEFT JOIN Contact AS Manager ON Manager.Id = EasySourcing.ContactInterne " Query = Query & "WHERE EasySourcing.Id = '" & idRFQ & "'" Numero = 0 Statut = "" Societe = "" Contact = "" Set EasyRFQ = getResultSet(Query) if EasyRFQ.RecordCount > 0 then EasyRFQ.MoveFirst Numero = getNumField(EasyRFQ.Fields.Item("Numero").Value) Statut = getStrField(EasyRFQ.Fields.Item("Statut").Value) Statut = getStatutRFQ(Statut) idSociete = getStrField(EasyRFQ.Fields.Item("Societe").Value) idContact = getStrField(EasyRFQ.Fields.Item("Contact").Value) Pays = getStrField(EasyRFQ.Fields.Item("Pays").Value) if Transparent <> "N" then Societe = getStrField(EasyRFQ.Fields.Item("NomSociete").Value) Civilite = getStrField(EasyRFQ.Fields.Item("Civilite").Value) Civilite = libTable("Parametre", "Code", lgLibelle(), "Type = 'Civilite'", Civilite) Contact = "" Contact = Contact & Civilite & " " Contact = Contact & getStrField(EasyRFQ.Fields.Item("Prenom").Value) & " " Contact = Contact & getStrField(EasyRFQ.Fields.Item("NomContact").Value) & " " Contact = Contact & "(" + getStrField(EasyRFQ.Fields.Item("Titre").Value) & ")" Contact = Contact & " - Tel : " + getStrField(EasyRFQ.Fields.Item("Telephone").Value) else Societe = getStrField(EasyRFQ.Fields.Item("NomSocieteInterne").Value) Civilite = getStrField(EasyRFQ.Fields.Item("CiviliteManager").Value) Civilite = libTable("Parametre", "Code", lgLibelle(), "Type = 'Civilite'", Civilite) Contact = "" Contact = Contact & Civilite & " " Contact = Contact & getStrField(EasyRFQ.Fields.Item("PrenomManager").Value) & " " Contact = Contact & getStrField(EasyRFQ.Fields.Item("NomManager").Value) & " " Contact = Contact & "(" + getStrField(EasyRFQ.Fields.Item("TitreManager").Value) & ")" Contact = Contact & " - Tel : " + getStrField(EasyRFQ.Fields.Item("TelManager").Value) end if end if infosRFQSupplier = "" infosRFQSupplier = infosRFQSupplier & "" & Champ.Item("RFQ") & " # " & Numero & "" infosRFQSupplier = infosRFQSupplier & "" infosRFQSupplier = infosRFQSupplier & " (" & Statut & ")

" infosRFQSupplier = infosRFQSupplier & "" if Transparent <> "N" then if LienContact <> "" then infosRFQSupplier = infosRFQSupplier & "" end if infosRFQSupplier = infosRFQSupplier & Societe & "
" infosRFQSupplier = infosRFQSupplier & Contact & "
" if LienContact <> "" then infosRFQSupplier = infosRFQSupplier & "
" end if else infosRFQSupplier = infosRFQSupplier & Champ.Item("Not Disclosed") & " (" & Pays & ")
" if LienContact <> "" then infosRFQSupplier = infosRFQSupplier & "" end if infosRFQSupplier = infosRFQSupplier & Contact & "
(" & Societe & ")" if LienContact <> "" then infosRFQSupplier = infosRFQSupplier & "
" end if end if infosRFQSupplier = infosRFQSupplier & "
" end function function infosBuyerRFQ(idRFQ, use) Dim Query, Numero, Statut, Societe, Contact, idSociete, idContact, Civilite Query = "" Query = Query & "SELECT " Query = Query & "Numero, EasySourcing.Societe, EasySourcing.Contact, Statut, " Query = Query & "Societe.Nom AS NomSociete, " Query = Query & "Contact.Civilite, Contact.Prenom, Contact.Nom as NomContact, Contact.Titre, Contact.Telephone " Query = Query & "FROM EasySourcing " Query = Query & "LEFT JOIN Societe ON Societe.Id = EasySourcing.Societe " Query = Query & "LEFT JOIN Contact ON Contact.Id = EasySourcing.Contact " Query = Query & "WHERE EasySourcing.Id = '" & idRFQ & "'" Numero = 0 Statut = "" Societe = "" Contact = "" Set EasyRFQ = getResultSet(Query) if EasyRFQ.RecordCount > 0 then EasyRFQ.MoveFirst Numero = getNumField(EasyRFQ.Fields.Item("Numero").Value) Statut = getStrField(EasyRFQ.Fields.Item("Statut").Value) Statut = getStatutRFQ(Statut) idSociete = getStrField(EasyRFQ.Fields.Item("Societe").Value) idContact = getStrField(EasyRFQ.Fields.Item("Contact").Value) Societe = getStrField(EasyRFQ.Fields.Item("NomSociete").Value) Civilite = getStrField(EasyRFQ.Fields.Item("Civilite").Value) Civilite = libTable("Parametre", "Code", lgLibelle(), "Type = 'Civilite'", Civilite) Contact = "" Contact = Contact & Civilite & " " Contact = Contact & getStrField(EasyRFQ.Fields.Item("Prenom").Value) & " " Contact = Contact & getStrField(EasyRFQ.Fields.Item("NomContact").Value) & " " Contact = Contact & "(" + getStrField(EasyRFQ.Fields.Item("Titre").Value) & ")" Contact = Contact & " - Tel : " + getStrField(EasyRFQ.Fields.Item("Telephone").Value) end if infosBuyerRFQ = "" infosBuyerRFQ = infosBuyerRFQ & "" & Champ.Item("RFQ") & " # " & Numero & "" infosBuyerRFQ = infosBuyerRFQ & "" infosBuyerRFQ = infosBuyerRFQ & " (" & Statut & ")
" infosBuyerRFQ = infosBuyerRFQ & "
" end function function infosRFQMsg(idRFQ, Transparent) Dim Query, Numero, Statut, Societe, Contact, idSociete, idContact, Civilite Query = "" Query = Query & "SELECT " Query = Query & "Numero, MsgSourcing.Societe, MsgSourcing.Contact, Statut, " Query = Query & "Societe.Nom AS NomSociete, Pays." & lgLibelle() & " AS Pays, " Query = Query & "Contact.Civilite, Contact.Prenom, Contact.Nom as NomContact, Contact.Titre, Contact.Telephone " Query = Query & "FROM MsgSourcing " Query = Query & "LEFT JOIN (Societe LEFT JOIN Pays ON Societe.Pays = Pays.Code) ON Societe.Id = MsgSourcing.Societe " if Transparent <> "N" then Query = Query & "LEFT JOIN Contact ON Contact.Id = MsgSourcing.Contact " else Query = Query & "LEFT JOIN Contact ON Contact.Id = MsgSourcing.ContactInterne " end if Query = Query & "WHERE MsgSourcing.Id = '" & idRFQ & "'" Numero = 0 Statut = "" Societe = "" Contact = "" Set MsgRFQ = getResultSet(Query) if MsgRFQ.RecordCount > 0 then MsgRFQ.MoveFirst Numero = getNumField(MsgRFQ.Fields.Item("Numero").Value) Statut = getStrField(MsgRFQ.Fields.Item("Statut").Value) Select Case Statut Case "B" Statut = Champ.Item("Creation") Case "O" Statut = Champ.Item("New") Case "P" Statut = Champ.Item("Pending") Case "S" Statut = Champ.Item("Offline") Case "F" Statut = Champ.Item("Closed") Case "C" Statut = "Closing" Case else Statut = "Unknown : " & Statut End Select idSociete = getStrField(MsgRFQ.Fields.Item("Societe").Value) idContact = getStrField(MsgRFQ.Fields.Item("Contact").Value) if Transparent <> "N" then Societe = getStrField(MsgRFQ.Fields.Item("NomSociete").Value) else Societe = getStrField(MsgRFQ.Fields.Item("Pays").Value) end if Civilite = getStrField(MsgRFQ.Fields.Item("Civilite").Value) Civilite = libTable("Parametre", "Code", lgLibelle(), "Type = 'Civilite'", Civilite) Contact = "" Contact = Contact & Civilite & " " Contact = Contact & getStrField(MsgRFQ.Fields.Item("Prenom").Value) & " " Contact = Contact & getStrField(MsgRFQ.Fields.Item("NomContact").Value) & " " Contact = Contact & "(" + getStrField(MsgRFQ.Fields.Item("Titre").Value) & ")" Contact = Contact & " - Tel : " + getStrField(MsgRFQ.Fields.Item("Telephone").Value) end if infosRFQMsg = "" infosRFQMsg = infosRFQMsg & "" & Champ.Item("Supplier search") & " # " & Numero & "" infosRFQMsg = infosRFQMsg & "" infosRFQMsg = infosRFQMsg & " (" & Statut & ")
" infosRFQMsg = infosRFQMsg & Societe & "
" infosRFQMsg = infosRFQMsg & Contact & "
" infosRFQMsg = infosRFQMsg & "
" end function function infosRFQMsgSupplier(idRFQ, Transparent, LienContact) Dim Query, Numero, Statut, Societe, Contact, idSociete, idContact, Civilite Query = "" Query = Query & "SELECT " Query = Query & "Numero, MsgSourcing.Societe, MsgSourcing.Contact, Statut, " Query = Query & "Societe.Nom AS NomSociete, Pays." & lgLibelle() & " AS Pays, Societe.Adresse1, Societe.Adresse2, Societe.CodePostal, Societe.Ville, " Query = Query & "Contact.Civilite, Contact.Prenom, Contact.Nom as NomContact, Contact.Titre, Contact.Telephone, Contact.Fax, Contact.Email, " Query = Query & "Interne.Nom AS NomSocieteInterne, " Query = Query & "Manager.Civilite AS CiviliteManager, Manager.Prenom AS PrenomManager, Manager.Nom as NomManager, Manager.Titre AS TitreManager, Manager.Telephone AS TelManager " Query = Query & "FROM MsgSourcing " Query = Query & "LEFT JOIN (Societe LEFT JOIN Pays ON Societe.Pays = Pays.Code) ON Societe.Id = MsgSourcing.Societe " Query = Query & "LEFT JOIN Contact ON Contact.Id = MsgSourcing.Contact " Query = Query & "LEFT JOIN Societe AS Interne ON Interne.Id = MsgSourcing.SocieteInterne " Query = Query & "LEFT JOIN Contact AS Manager ON Manager.Id = MsgSourcing.ContactInterne " Query = Query & "WHERE MsgSourcing.Id = '" & idRFQ & "'" Numero = 0 Statut = "" Societe = "" Contact = "" Set MsgRFQ = getResultSet(Query) if MsgRFQ.RecordCount > 0 then MsgRFQ.MoveFirst Numero = getNumField(MsgRFQ.Fields.Item("Numero").Value) Statut = getStrField(MsgRFQ.Fields.Item("Statut").Value) Statut = getStatutRFQ(Statut) idSociete = getStrField(MsgRFQ.Fields.Item("Societe").Value) Adresse1 = getStrField(MsgRFQ.Fields.Item("Adresse1").Value) Adresse2 = getStrField(MsgRFQ.Fields.Item("Adresse2").Value) CodePostal= getStrField(MsgRFQ.Fields.Item("CodePostal").Value) Ville = getStrField(MsgRFQ.Fields.Item("Ville").Value) idContact = getStrField(MsgRFQ.Fields.Item("Contact").Value) Email = getStrField(MsgRFQ.Fields.Item("Email").Value) Pays = getStrField(MsgRFQ.Fields.Item("Pays").Value) Pays = libTable("Pays", "Code", lgLibelle(), "", Pays) if Transparent <> "N" then Societe = getStrField(MsgRFQ.Fields.Item("NomSociete").Value) Societe = Societe & "
" & Adresse1 & "
" if Adresse2 <> "" then Societe = Societe & Adresse2 & "
" end if Societe = Societe & CodePostal & " - " & Ville & " - " & Pays & "
" Civilite = getStrField(MsgRFQ.Fields.Item("Civilite").Value) Civilite = libTable("Parametre", "Code", lgLibelle(), "Type = 'Civilite'", Civilite) Contact = "" Contact = Contact & Civilite & " " Contact = Contact & getStrField(MsgRFQ.Fields.Item("Prenom").Value) & " " Contact = Contact & getStrField(MsgRFQ.Fields.Item("NomContact").Value) & " " Contact = Contact & "(" + getStrField(MsgRFQ.Fields.Item("Titre").Value) & ")
" Contact = Contact & "Tel : " & getStrField(MsgRFQ.Fields.Item("Telephone").Value) & " - Fax : " + getStrField(MsgRFQ.Fields.Item("Telephone").Value) Contact = Contact & "
" & Email & "" else Societe = getStrField(MsgRFQ.Fields.Item("NomSocieteInterne").Value) Civilite = getStrField(MsgRFQ.Fields.Item("CiviliteManager").Value) Civilite = libTable("Parametre", "Code", lgLibelle(), "Type = 'Civilite'", Civilite) Contact = "" Contact = Contact & Civilite & " " Contact = Contact & getStrField(MsgRFQ.Fields.Item("PrenomManager").Value) & " " Contact = Contact & getStrField(MsgRFQ.Fields.Item("NomManager").Value) & " " Contact = Contact & "(" + getStrField(MsgRFQ.Fields.Item("TitreManager").Value) & ")" Contact = Contact & " - Tel : " + getStrField(MsgRFQ.Fields.Item("TelManager").Value) end if end if infosRFQMsgSupplier = "" infosRFQMsgSupplier = infosRFQMsgSupplier & "" & Champ.Item("Buyer lead") & " # " & Numero & "" infosRFQMsgSupplier = infosRFQMsgSupplier & "" infosRFQMsgSupplier = infosRFQMsgSupplier & " (" & Statut & ")

" infosRFQMsgSupplier = infosRFQMsgSupplier & "" if Transparent <> "N" then if LienContact <> "" then infosRFQMsgSupplier = infosRFQMsgSupplier & "" end if infosRFQMsgSupplier = infosRFQMsgSupplier & Societe & "
" infosRFQMsgSupplier = infosRFQMsgSupplier & Contact & "
" if LienContact <> "" then infosRFQMsgSupplier = infosRFQMsgSupplier & "
" end if else infosRFQMsgSupplier = infosRFQMsgSupplier & Champ.Item("Not Disclosed") & " (" & Pays & ")" end if infosRFQMsgSupplier = infosRFQMsgSupplier & "
" end function function infosBuyerRFQMsg(idRFQ, use) Dim Query, Numero, Statut, Societe, Contact, idSociete, idContact, Civilite Query = "" Query = Query & "SELECT " Query = Query & "Numero, MsgSourcing.Societe, MsgSourcing.Contact, Statut, " Query = Query & "Societe.Nom AS NomSociete, " Query = Query & "Contact.Civilite, Contact.Prenom, Contact.Nom as NomContact, Contact.Titre, Contact.Telephone " Query = Query & "FROM MsgSourcing " Query = Query & "LEFT JOIN Societe ON Societe.Id = MsgSourcing.Societe " Query = Query & "LEFT JOIN Contact ON Contact.Id = MsgSourcing.Contact " Query = Query & "WHERE MsgSourcing.Id = '" & idRFQ & "'" Numero = 0 Statut = "" Societe = "" Contact = "" Set MsgRFQ = getResultSet(Query) if MsgRFQ.RecordCount > 0 then MsgRFQ.MoveFirst Numero = getNumField(MsgRFQ.Fields.Item("Numero").Value) Statut = getStrField(MsgRFQ.Fields.Item("Statut").Value) Statut = getStatutRFQ(Statut) idSociete = getStrField(MsgRFQ.Fields.Item("Societe").Value) idContact = getStrField(MsgRFQ.Fields.Item("Contact").Value) Societe = getStrField(MsgRFQ.Fields.Item("NomSociete").Value) Civilite = getStrField(MsgRFQ.Fields.Item("Civilite").Value) Civilite = libTable("Parametre", "Code", lgLibelle(), "Type = 'Civilite'", Civilite) Contact = "" Contact = Contact & Civilite & " " Contact = Contact & getStrField(MsgRFQ.Fields.Item("Prenom").Value) & " " Contact = Contact & getStrField(MsgRFQ.Fields.Item("NomContact").Value) & " " Contact = Contact & "(" + getStrField(MsgRFQ.Fields.Item("Titre").Value) & ")" Contact = Contact & " - Tel : " + getStrField(MsgRFQ.Fields.Item("Telephone").Value) end if infosBuyerRFQMsg = "" infosBuyerRFQMsg = infosBuyerRFQMsg & "" & Champ.Item("Supplier search") & " # " & Numero & "" infosBuyerRFQMsg = infosBuyerRFQMsg & "" infosBuyerRFQMsg = infosBuyerRFQMsg & " (" & Statut & ")
" infosBuyerRFQMsg = infosBuyerRFQMsg & "
" end function sub WriteBR(Chaine) Response.Write(Chaine & "
") end sub sub WriteLn(Chaine) Response.Write(Chaine & vbCrLf) end sub function consommeNbLimitAbonnement(idAbt, idContact, NbConsomme) if idAbt <> "" then From = "FROM Abonnement " Condition = "WHERE Abonnement.Id = '" & idAbt & "' " else From = "FROM Abonnement, Role " Condition = "WHERE Role.Abonnement = Abonnement.Id AND Role.Contact = '" & idContact & "' AND Abonnement.Actif = 'O'" end if Query = "" Query = Query & "UPDATE Abonnement " Query = Query & "SET NbPPV = NbPPV - " & NbConsomme & " " Query = Query & From Query = Query & Condition Maj = execQuery(Query) consommeNbLimitAbonnement = Maj end function function getNbLimitAbonnement(idAbt, idContact, CodeAbt) Dim expiredNb, expiredTime, nbLimited, timeLimited, From, Condition, Query, QueryAbt Dim typeAbt, debutAbt, finAbt, nbPPV, montant nbPPV = 0 if idAbt <> "" then From = "FROM Abonnement " Condition = "WHERE Abonnement.Id = '" & idAbt & "' " else From = "FROM Abonnement, Role " Condition = "WHERE Role.Abonnement = Abonnement.Id AND Role.Contact = '" & idContact & "' AND Abonnement.Actif = 'O'" end if if CodeAbt <> "" then Condition = Condition & " AND Abonnement.Type LIKE '" & CodeAbt & "%'" end if Query = "" Query = Query & "SELECT Abonnement.Type, Abonnement.NbPPV, Abonnement.Montant, " Query = Query & "Abonnement.Debut, Abonnement.Fin, Abonnement.TimeLimited, Abonnement.NbLimited " Query = Query & From Query = Query & Condition QueryAbt = Query 'writeln("QueryAbt = " & QueryAbt & "
") Set Abt = getResultSet(Query) expiredAbt = (Abt.RecordCount > 0) 'writeln("expiredAbt = " & expiredAbt) if expiredAbt then nbPPV = getNumField(Abt.Fields.Item("NbPPV").Value) else nbPPV = 0 end if getNbLimitAbonnement = nbPPV end function function getTimeLimitAbonnement(idAbt, idContact) Dim expiredNb, expiredTime, nbLimited, timeLimited, From, Condition, Query, QueryAbt Dim typeAbt, debutAbt, finAbt, nbPPV, montant if idAbt <> "" then From = "FROM Abonnement " Condition = "WHERE Abonnement.Id = '" & idAbt & "' " else From = "FROM Abonnement, Role " Condition = "WHERE Role.Abonnement = Abonnement.Id AND Role.Contact = '" & idContact & "' AND Abonnement.Actif = 'O'" end if Query = "" Query = Query & "SELECT Abonnement.Type, Abonnement.NbPPV, Abonnement.Montant, " Query = Query & "Abonnement.Debut, Abonnement.Fin, Abonnement.TimeLimited, Abonnement.NbLimited " Query = Query & From Query = Query & Condition QueryAbt = Query 'writeln("QueryAbt = " & QueryAbt & "
") Set Abt = getResultSet(Query) expiredAbt = (Abt.RecordCount > 0) 'writeln("expiredAbt = " & expiredAbt) if expiredAbt then finAbt = getDateField(Abt.Fields.Item("Fin").Value) else finAbt = getDateField("1901-01-01") end if getTimeLimitAbonnement = finAbt end function function CheckForExpiredAbonnement(idAbt, idContact) Dim expiredNb, expiredTime, nbLimited, timeLimited, From, Condition, Query, QueryAbt Dim typeAbt, debutAbt, finAbt, nbPPV, montant if idAbt <> "" then From = "FROM Abonnement " Condition = "WHERE Abonnement.Id = '" & idAbt & "' " else From = "FROM Abonnement, Role " Condition = "WHERE Role.Abonnement = Abonnement.Id AND Role.Contact = '" & idContact & "' AND Abonnement.Actif = 'O'" end if Query = "" Query = Query & "SELECT Abonnement.Type, Abonnement.NbPPV, Abonnement.Montant, " Query = Query & "Abonnement.Debut, Abonnement.Fin, Abonnement.TimeLimited, Abonnement.NbLimited " Query = Query & From Query = Query & Condition QueryAbt = Query 'writeln("QueryAbt = " & QueryAbt & "
") Set Abt = getResultSet(Query) expiredAbt = (Abt.RecordCount > 0) 'writeln("expiredAbt = " & expiredAbt) if expiredAbt then typeAbt = getStrField(Abt.Fields.Item("Type").Value) debutAbt = getDateField(Abt.Fields.Item("Debut").Value) finAbt = getDateField(Abt.Fields.Item("Fin").Value) nbPPV = getNumField(Abt.Fields.Item("NbPPV").Value) montant = getNumField(Abt.Fields.Item("Montant").Value) timeLimited = getStrField(Abt.Fields.Item("TimeLimited").Value) nbLimited = getStrField(Abt.Fields.Item("NbLimited").Value) expiredNb = false if nbLimited = "O" AND nbPPV <= 0 then expiredNb = true end if 'writeln("expiredNb = " & expiredNb) expiredTime = false if timeLimited = "O" AND (DateDiff("d", finAbt, Date) > 0) then expiredTime = true end if 'writeln("expiredTime = " & expiredTime) expiredAbt = expiredNb OR expiredTime end if CheckForExpiredAbonnement = expiredAbt end function function CheckForUserExpiredAbonnement(idAbt, idContact) Dim expiredNb, expiredTime, nbLimited, timeLimited, From, Condition, Query, QueryAbt Dim typeAbt, debutAbt, finAbt, nbPPV, montant, Transparence, Alerte if idAbt <> "" then From = "FROM Abonnement " Condition = "WHERE Abonnement.Id = '" & idAbt & "' " else From = "FROM Abonnement, Role " Condition = "WHERE Role.Abonnement = Abonnement.Id AND Role.Contact = '" & idContact & "' AND Abonnement.Actif = 'O'" end if Query = "" Query = Query & "SELECT Abonnement.Id, Abonnement.Type, Abonnement.NbPPV, Abonnement.Montant, " Query = Query & "Abonnement.Debut, Abonnement.Fin, Abonnement.TimeLimited, Abonnement.NbLimited " Query = Query & From Query = Query & Condition QueryAbt = Query 'writeln("QueryAbt = " & QueryAbt & "
") Set Abt = getResultSet(Query) expiredAbt = (Abt.RecordCount > 0) 'writeln("expiredAbt = " & expiredAbt) if expiredAbt then IdAbt = getStrField(Abt.Fields.Item("Id").Value) typeAbt = getStrField(Abt.Fields.Item("Type").Value) debutAbt = getDateField(Abt.Fields.Item("Debut").Value) finAbt = getDateField(Abt.Fields.Item("Fin").Value) nbPPV = getNumField(Abt.Fields.Item("NbPPV").Value) montant = getNumField(Abt.Fields.Item("Montant").Value) timeLimited = getStrField(Abt.Fields.Item("TimeLimited").Value) nbLimited = getStrField(Abt.Fields.Item("NbLimited").Value) Transparence = CheckForServiceAbonnement(idAbt, "", "TRANS") Alerte = CheckForServiceAbonnement(idAbt, "", "ALERT") expiredNb = false if NOT (Transparence OR Alerte) then if nbLimited = "O" AND nbPPV <= 0 then expiredNb = true end if end if 'writeln("expiredNb = " & expiredNb) expiredTime = false if timeLimited = "O" AND (DateDiff("d", finAbt, Date) > 0) then expiredTime = true end if 'writeln("expiredTime = " & expiredTime) expiredAbt = expiredNb OR expiredTime end if CheckForUserExpiredAbonnement = expiredAbt end function function CheckForServiceAbonnement(idAbt, idContact, Service) if idAbt <> "" then From = "FROM Abonnement, ServiceTypeAbonnement " Condition = "AND Abonnement.Id = '" & idAbt & "' " else From = "FROM Abonnement, ServiceTypeAbonnement, Role " Condition = "AND Role.Abonnement = Abonnement.Id AND Role.Contact = '" & idContact & "' AND Abonnement.Actif = 'O'" end if Query = "" Query = Query & "SELECT Abonnement.Type, Abonnement.NbPPV, Abonnement.Montant, " Query = Query & "Abonnement.Debut, Abonnement.Fin, Abonnement.TimeLimited, Abonnement.NbLimited " Query = Query & From Query = Query & "WHERE Abonnement.Type = ServiceTypeAbonnement.TypeAbonnement AND TypeService = '" & Service & "' " Query = Query & Condition QueryAbt = Query 'writeln("QueryAbt = " & QueryAbt & "
") Set Abt = getResultSet(Query) ServiceExiste = (Abt.RecordCount > 0) CheckForServiceAbonnement = ServiceExiste end function function CheckForAlert(idAbt, idContact) isServiceAlert = CheckForServiceAbonnement(idAbt, idContact, "ALERT") CheckForAlert = isServiceAlert end function function TextWarningUpgradeForNonAlert(Langage, WithPopUp) Dim URLpopup, href, Text URLpopup1 = Properties.Item("HttpRoot") & "WF/Templates/FoundryForge/Popup/PopForClassical.asp?lg=" & Langage URLpopup2 = Properties.Item("HttpRoot") & "WF/Templates/FoundryForge/Popup/PopForProActive.asp?lg=" & Langage if WithPopUp = "O" then href1 = " href=" & """" & "javascript:popup('" & URLpopup1 & "', 0, 0, 0, 0, 0, 1, 0, 500, 400);" & """" href2 = " href=" & """" & "javascript:popup('" & URLpopup2 & "', 0, 0, 0, 0, 0, 1, 0, 500, 400);" & """" target = "" else href1 = " href=" & """" & URLpopup1 & """" href2 = " href=" & """" & URLpopup2 & """" target = " target=" & """" & "_blank" & """" end if a_href1 = "" a_href2 = "" Text = "" Select case Langage case "de" Text = Text & "
    " Text = Text & "
  • Zugriff auf Ihre persönlichen Ordnerseiten und aktualisieren Ihres Firmenprofil
  • " Text = Text & "
  • Gebührenfreie Hinweise auf Anfragen (RFQ) erhalten, die Ihren Fertigungsmöglichkeiten entsprechen
  • " Text = Text & "
  • Um anzubieten müssten Sie Ihren Eintrag erneuern
  • " Text = Text & "
" Text = Text & "

Wünschen Sie ein Angebot abzugeben ?" Text = Text & "
Subcontract Solutions bietet Ihnen zwei Stufen einer Mitgliedschaft an. " Text = Text & "Klicken Sie bitte hier um mehr über unsere " & a_href1 & "Klassiche Verkaufs-Solution zu erfaren oder " Text = Text & "klicken Sie bitte hier um mehr über unsere " & a_href2 & "Pro-Aktive Solution in Marketing und Vertrieb zu erfahren. " Text = Text & "

" case "en" Text = Text & "
    " Text = Text & "
  • Access your personal organiser and update your company profile
  • " Text = Text & "
  • Receive free alerts for RFQs matching your capabilities
  • " Text = Text & "
  • To make an offer you need to upgrade your registration
  • " Text = Text & "
" Text = Text & "

Would you like to make an offer ?" Text = Text & "
Subcontract Solutions offers two levels of registration. " Text = Text & "Click here to know more about our " & a_href1 & "Classic sales solution or " Text = Text & "click here to know more about our " & a_href2 & "Proactive solution in marketing and sales " Text = Text & "

" case "fr" Text = Text & "
    " Text = Text & "
  • Accédez à votre espace de travail et renseignez votre profil société
  • " Text = Text & "
  • Recevez gratuitement une alerte pour tout nouvel Appel d'Offre correspondant à vos capacités
  • " Text = Text & "
  • Pour faire une offre vous devez avoir un abonnement ayant
  • " Text = Text & "
" Text = Text & "

Voulez vous faire une offre ?" Text = Text & "
Subcontract Solutions vous propose deux possibilités d'enregistrement. " Text = Text & "Cliquez ici pour en savoir plus sur notre " & a_href1 & "Solution classique de développement commercial ou " Text = Text & "cliquez ici pour en savoir plus sur notre " & a_href2 & "Solution proactive en marketing et ventes " Text = Text & "

" end select TextWarningUpgradeForNonAlert = Text end function sub WarningUpgradeForNonAlert(idAbt, idContact) if CheckForAlert(idAbt, idContact) then Writeln(TextWarningUpgradeForNonAlert(Langue(), "O")) end if end sub function CheckForNonComparison(idAbt, idContact) isServiceComparison = CheckForServiceAbonnement(idAbt, idContact, Abonnement.Item("Comparison")) CheckForNonComparison = NOT isServiceComparison end function function BannerWarningUpgradeForComparison(Langage, WithPopUp) Dim URLpopup, href, Text URLpopup = Properties.Item("HttpRoot") & "WF/Templates/FoundryForge/Popup/PopForComparison.asp?lg=" & Langage if WithPopUp = "O" then href = " href=" & """" & "javascript:popup('" & URLpopup & "', 0, 0, 0, 0, 1, 1, 0, 600, 600);" & """" target = "" else href = " href=" & """" & URLpopup & """" target = " target=" & """" & "_blank" & """" end if a_href = "" Text = "" Select case Langage case "de" Text = Text & "

" Text = Text & a_href Text = Text & "" Text = Text & "" Text = Text & "

" case "en" Text = Text & "

" Text = Text & a_href Text = Text & "" Text = Text & "" Text = Text & "

" case "fr" Text = Text & "

" Text = Text & a_href Text = Text & "" Text = Text & "" Text = Text & "

" end select BannerWarningUpgradeForComparison = Text end function function TextWarningUpgradeForComparison(Langage, WithPopUp) Dim URLpopup, href, Text URLpopup = Properties.Item("HttpRoot") & "WF/Templates/FoundryForge/Popup/PopForComparison.asp?lg=" & Langage if WithPopUp = "O" then href = " href=" & """" & "javascript:popup('" & URLpopup & "', 0, 0, 0, 0, 1, 1, 0, 600, 600);" & """" target = "" else href = " href=" & """" & URLpopup & """" target = " target=" & """" & "_blank" & """" end if a_href = "" Text = "" Select case Langage case "de" Text = Text & "

Was denken Sie, wie wettbewerbsfähig Sie sind ?" Text = Text & "
Ergehen Sie sich nicht in Vermutungen, glauben Sie nicht länger was man Ihnen erzählt, checken und analysieren Sie Ihre Preis-Wettbewerbsfähigkeit selbst !" Text = Text & "
Hier bitte klicken um mehr zu erfahren " Text = Text & a_href Text = Text & "Preisanalyse-Seite" Text = Text & "" Text = Text & "

" case "en" Text = Text & "

How competitive do you think you are ?" Text = Text & "
Do not make assumptions, do no longer believe what you are told, check and analyse your price competitiveness by yourself !" Text = Text & "
Click here to know more about " Text = Text & a_href Text = Text & "Price analysis area" Text = Text & "" Text = Text & "

" case "fr" Text = Text & "

Comment évaluez vous votre compétitivité ?" Text = Text & "
Ne faites pas de suppositions, ne croyez plus ce que l'on vous dit, vérifiez et analysez vous même votre compétitivité !" Text = Text & "
Cliquez ici pour en savoir plus sur " Text = Text & a_href Text = Text & "Espace d’analyse des prix" Text = Text & "" Text = Text & "

" end select TextWarningUpgradeForComparison = Text end function sub WarningUpgradeForComparison(idAbt, idContact) if CheckForNonComparison(idAbt, idContact) then Writeln(BannerWarningUpgradeForComparison(Langue(), "O")) end if end sub function CheckForNonTransparency(idAbt, idContact) isServiceTransparency = CheckForServiceAbonnement(idAbt, idContact, Abonnement.Item("Transparency")) isAbonnementExpired = CheckForExpiredAbonnement(idAbt, idContact) CheckForNonTransparency = isServiceTransparency AND isAbonnementExpired end function function TextWarningUpgradeForTransparency(Langage, WithPopUp) Dim URLpopup, href, Text URLpopup = Properties.Item("HttpRoot") & "WF/Templates/FoundryForge/Popup/PopForTransparency.asp?lg=" & Langage if WithPopUp = "O" then href = " href=" & """" & "javascript:popup('" & URLpopup & "', 0, 0, 0, 0, 0, 1, 0, 500, 600);" & """" target = "" else href = " href=" & """" & URLpopup & """" target = " target=" & """" & "_blank" & """" end if a_href = "" Text = "" Select case Langage case "de" Text = Text & "
    " Text = Text & "
  • Angebote werden ohne Namensnennung an den Käufer gesandt
  • " Text = Text & "
  • Käufer Name und Kontaktkoordinaten werden den vom Käufer ausgewählten Lieferanten vor Endverhandlung mitgeteilt
  • " Text = Text & "
  • Zahlen einer Provision von 5% im Auftragsfall
  • " Text = Text & "
" Text = Text & "

Glauben Sie, das der direkte Kontakt zum Käufer der beste Weg zum Erfolg ist?" Text = Text & "
Keine Provision, kein Zwischenhandel, kommunizieren Sie von Beginn an direkt mit dem Käufer." Text = Text & "
Hier bitte klicken um mehr zu erfahren " Text = Text & a_href Text = Text & "Pro-aktive Marketing- und Verkaufs Solution" Text = Text & "" Text = Text & "

" case "en" Text = Text & "
    " Text = Text & "
  • Your offer will be submitted to buyer without your name appearing
  • " Text = Text & "
  • Buyer's name and contact will be revealed if you are the supplier selected by buyer for final negotiation
  • " Text = Text & "
  • Pay a 5% commission if you get the order
  • " Text = Text & "
" Text = Text & "

Isn’t direct contact with buyer the best way to success ?" Text = Text & "
No commission, no intermediarie, communicate direct with buyers from day one." Text = Text & "
Click here to know more about our " Text = Text & a_href Text = Text & "Proactive Solution in Marketing and Sales" Text = Text & "" Text = Text & "

" case "fr" Text = Text & "
    " Text = Text & "
  • Votre offre sera soumise à l'acheteur sans que votre nom apparaisse
  • " Text = Text & "
  • Les noms et coordonnées de l'acheteur vous seront communiqués si vous êtes selectionné par l'acheteur pour négociation finale
  • " Text = Text & "
  • Vous devrez vous acquitter d'une commission de 5% en cas de commande
  • " Text = Text & "
" Text = Text & "

Optimisez vos ventes, prenez le chemin le plus court !" Text = Text & "
Soyez en prise directe avec les acheteurs, pas de commission, pas d’ intermediaire" Text = Text & "
Cliquez ici pour en savoir plus sur " Text = Text & a_href Text = Text & "Solution Proactive en Marketing et Ventes" Text = Text & "" Text = Text & "

" end select TextWarningUpgradeForTransparency = Text end function sub WarningUpgradeForTransparency(idAbt, idContact) if CheckForNonTransparency(idAbt, idContact) then Writeln(TextWarningUpgradeForTransparency(Langue(), "O")) end if end sub function insertQuotesInValuesList(Variable, Sep) TValeurs = split(Variable, sep) ListeValeurs = "" Virgule = "" for i = LBound(TValeurs) to UBound(TValeurs) ListeValeurs = ListeValeurs & Virgule & "'" & getStrField(TValeurs(i)) & "'" Virgule = sep next insertQuotesInValuesList = ListeValeurs end function sub inputSelectTechnique(Famille, Technique, TypeSaisie, NomVariable, Variable, nbValeurs) ChampLibelle = lgLibelle() Query = "" Query = Query & "SELECT Code, " & ChampLibelle & ", Affichage FROM Technique " Query = Query & " WHERE Famille = '" & UCase(Famille) & "' AND Type = '" & UCase(Technique) & "' AND Affichage <> 'N' " Select case UCase(TypeSaisie) Case "SOURCING" Query = Query & "AND Sourcing = 'O' " Case "SAISIE" Query = Query & "AND Saisie = 'O' " Case else end select Query = Query & " ORDER BY Structure ASC" Set Result = getResultSet(Query) response.write "" end sub sub inputMultipleSelectTechnique(Famille, Technique, TypeSaisie, NomVariable, Taille, NbLimite, Variable, nbValeurs) if VarType(Variable) <> vbObject then TValeurs = split(Variable, ",") nbValeurs = UBound(TValeurs) + 1 end if ChampLibelle = lgLibelle() Query = "" Query = Query & "SELECT Code, " & ChampLibelle & ", Affichage FROM Technique " Query = Query & " WHERE Famille = '" & UCase(Famille) & "' AND Type = '" & UCase(Technique) & "' AND Affichage <> 'N' " Select case UCase(TypeSaisie) Case "SOURCING" Query = Query & "AND Sourcing = 'O' " Case "SAISIE" Query = Query & "AND Saisie = 'O' " Case else end select Query = Query & " ORDER BY Structure ASC" Set Result = getResultSet(Query) ValeursVariable = "Valeurs" & NomVariable response.write "" response.write "
" & AfficherNormal(ListeValeurs) & "
" end sub function highlight(onClick) highlight = "onmouseover=" & """" & "this.bgColor='#FFCF00'" & """" & " onmouseout=" & """" & "this.bgColor='#FFFFFF'" & """" if onClick <> "" then highlight = highlight & " onClick=" & """" & "javascript:" & onClick & ";" & """" end if end function function libAbonnement(TypeAbt) libAbonnement = TypeAbt LibelleLangue = "Libelle" DescriptionLangue = "Description" select case langue() case "de" LibelleLangue = "DELibelle" DescriptionLangue = "DEDescription" case "en" LibelleLangue = "ENLibelle" DescriptionLangue = "ENDescription" case "fr" LibelleLangue = "FRLibelle" DescriptionLangue = "FRDescription" end select Query = "" Query = Query & "SELECT " & LibelleLangue & " AS Libelle, " & DescriptionLangue & " AS Description " Query = Query & "FROM TypeAbonnement " Query = Query & "WHERE Code = '" & TypeAbt & "' " Set Abt = getResultSet(Query) if Abt.RecordCount > 0 then Abt.MoveFirst libAbonnement = Abt.Fields.Item("Libelle").Value & " :
" & Abt.Fields.Item("Description").Value end if end function sub listePrixAbonnement(TypeRole) LibelleLangue = "Libelle" DescriptionLangue = "Description" select case langue() case "de" LibelleLangue = "DELibelle" DescriptionLangue = "DEDescription" Gratuit = "Gebührenfrei" Consult = "Kontaktieren Sie uns" case "en" LibelleLangue = "ENLibelle" DescriptionLangue = "ENDescription" Gratuit = "Free" Consult = "Consult us" case "fr" LibelleLangue = "FRLibelle" DescriptionLangue = "FRDescription" Gratuit = "Gratuit" Consult = "Nous consulter" end select Query = "" Query = Query & "SELECT Titre, Code, " & LibelleLangue & " AS Libelle, Montant, " & DescriptionLangue & " AS Description, Nombre, TypeTemps, Temps, TimeLimited, NbLimited " Query = Query & "FROM TypeAbonnement " Query = Query & "WHERE TypeRole = '" & TypeRole & "' AND Actif = 'O'" Query = Query & "ORDER BY Tri " Set Abt = getResultSet(Query) if Abt.RecordCount > 0 then Abt.MoveFirst While NOT Abt.EOF Libelle = getStrField(Abt.Fields.Item("Libelle").Value) Titre = getStrField(Abt.Fields.Item("Titre").Value) Code = getStrField(Abt.Fields.Item("Code").Value) Desc = getStrField(Abt.Fields.Item("Description").Value) Montant = getNumField(Abt.Fields.Item("Montant").Value) Montant = IIf(Montant = 0, Gratuit, Montant & " €") Nombre = Abt.Fields.Item("Nombre").Value TypeTemps = getStrField(Abt.Fields.Item("TypeTemps").Value) Temps = Abt.Fields.Item("Temps").Value TimeLimit = getStrField(Abt.Fields.Item("TimeLimited").Value) NbLimit = getStrField(Abt.Fields.Item("NbLimited").Value) if Desc <> "" then Desc = "

" & Desc end if response.write "
" if Titre = "O" then response.write "" else response.write "" end if response.write " " Abt.MoveNext Wend end if end sub sub listeAbonnement(TypeRole, Variable, FctAbonnement) Dim LibelleLangue, DescriptionLangue, Gratuit, Query, Libelle, Titre, Code, Desc, Montant, LibMontant, Nombre, TypeTemps, Temps, TimeLimit, NbLimit LibelleLangue = "Libelle" DescriptionLangue = "Description" select case langue() case "de" LibelleLangue = "DELibelle" DescriptionLangue = "DEDescription" Gratuit = "Gebührenfrei" Consult = "Kontaktieren Sie uns" case "en" LibelleLangue = "ENLibelle" DescriptionLangue = "ENDescription" Gratuit = "Free" Consult = "Consult us" case "fr" LibelleLangue = "FRLibelle" DescriptionLangue = "FRDescription" Gratuit = "Gratuit" Consult = "Nous consulter" end select Query = "" Query = Query & "SELECT Titre, Code, " & LibelleLangue & " AS Libelle, Montant, " & DescriptionLangue & " AS Description, Nombre, TypeTemps, Temps, TimeLimited, NbLimited " Query = Query & "FROM TypeAbonnement " Query = Query & "WHERE TypeRole = '" & TypeRole & "' AND Actif = 'O' " Query = Query & "ORDER BY Tri " Set Abt = getResultSet(Query) if Abt.RecordCount > 0 then Abt.MoveFirst While NOT Abt.EOF Libelle = getStrField(Abt.Fields.Item("Libelle").Value) Titre = getStrField(Abt.Fields.Item("Titre").Value) Code = getStrField(Abt.Fields.Item("Code").Value) Desc = getStrField(Abt.Fields.Item("Description").Value) Montant = getNumField(Abt.Fields.Item("Montant").Value) LibMontant= IIf(Montant = 0, Gratuit, IIf(Montant < 0, Consult, Montant & " €")) Nombre = Abt.Fields.Item("Nombre").Value TypeTemps = getStrField(Abt.Fields.Item("TypeTemps").Value) Temps = Abt.Fields.Item("Temps").Value TimeLimit = getStrField(Abt.Fields.Item("TimeLimited").Value) NbLimit = getStrField(Abt.Fields.Item("NbLimited").Value) if Desc <> "" then Desc = "

" & Desc end if response.Write(vbCrLf) response.write " " & vbCrLf if Titre = "O" then response.write " " & vbCrLf response.write " " & vbCrLf else response.write " " & vbCrLf response.write " " & vbCrLf end if response.write " " Abt.MoveNext Wend end if end sub sub descriptionAbonnement(TypeRole) LibelleLangue = "Libelle" DescriptionLangue = "Description" select case langue() case "de" LibelleLangue = "DELibelle" DescriptionLangue = "DEDescription" Gratuit = "Gebührenfrei" Consult = "Kontaktieren Sie uns" case "en" LibelleLangue = "ENLibelle" DescriptionLangue = "ENDescription" Gratuit = "Free" Consult = "Consult us" case "fr" LibelleLangue = "FRLibelle" DescriptionLangue = "FRDescription" Gratuit = "Gratuit" Consult = "Nous consulter" end select Query = "" Query = Query & "SELECT Titre, Code, " & LibelleLangue & " AS Libelle, Montant, " & DescriptionLangue & " AS Description, Nombre, TypeTemps, Temps, TimeLimited, NbLimited " Query = Query & "FROM TypeAbonnement " Query = Query & "WHERE TypeRole = '" & TypeRole & "' AND Actif = 'O'" Query = Query & "ORDER BY Tri " Set Abt = getResultSet(Query) if Abt.RecordCount > 0 then Abt.MoveFirst While NOT Abt.EOF Libelle = getStrField(Abt.Fields.Item("Libelle").Value) Titre = getStrField(Abt.Fields.Item("Titre").Value) Code = getStrField(Abt.Fields.Item("Code").Value) Desc = getStrField(Abt.Fields.Item("Description").Value) Montant = getNumField(Abt.Fields.Item("Montant").Value) LibMontant= IIf(Montant = 0, Gratuit, IIf(Montant < 0, Consult, Montant & " €")) Nombre = Abt.Fields.Item("Nombre").Value TypeTemps = getStrField(Abt.Fields.Item("TypeTemps").Value) Temps = Abt.Fields.Item("Temps").Value TimeLimit = getStrField(Abt.Fields.Item("TimeLimited").Value) NbLimit = getStrField(Abt.Fields.Item("NbLimited").Value) if Desc <> "" then Desc = "

" & Desc end if response.Write(vbCrLf) response.write " " & vbCrLf if Titre = "O" then response.write " " & vbCrLf else response.write " " & vbCrLf end if response.write " " Abt.MoveNext Wend end if end sub %> <% sub listeAbonnementVar(TypeRole, Variable, Valeur, FctAbonnement) LibelleLangue = "Libelle" DescriptionLangue = "Description" select case langue() case "de" LibelleLangue = "DELibelle" DescriptionLangue = "DEDescription" Gratuit = "Gebührenfrei" Consult = "Kontaktieren Sie uns" case "en" LibelleLangue = "ENLibelle" DescriptionLangue = "ENDescription" Gratuit = "Free" Consult = "Consult us" case "fr" LibelleLangue = "FRLibelle" DescriptionLangue = "FRDescription" Gratuit = "Gratuit" Consult = "Nous consulter" end select Query = "" Query = Query & "SELECT Titre, Code, " & LibelleLangue & " AS Libelle, Montant, " & DescriptionLangue & " AS Description, Nombre, TypeTemps, Temps, TimeLimited, NbLimited " Query = Query & "FROM TypeAbonnement " Query = Query & "WHERE TypeRole = '" & TypeRole & "' AND Actif = 'O' " Query = Query & "ORDER BY Tri " Set Abt = getResultSet(Query) if Abt.RecordCount > 0 then Abt.MoveFirst While NOT Abt.EOF Libelle = getStrField(Abt.Fields.Item("Libelle").Value) Titre = getStrField(Abt.Fields.Item("Titre").Value) Code = getStrField(Abt.Fields.Item("Code").Value) Desc = getStrField(Abt.Fields.Item("Description").Value) Montant = getNumField(Abt.Fields.Item("Montant").Value) LibMontant= IIf(Montant = 0, Gratuit, IIf(Montant < 0, Consult, Montant & " €")) Nombre = Abt.Fields.Item("Nombre").Value TypeTemps = getStrField(Abt.Fields.Item("TypeTemps").Value) Temps = Abt.Fields.Item("Temps").Value TimeLimit = getStrField(Abt.Fields.Item("TimeLimited").Value) NbLimit = getStrField(Abt.Fields.Item("NbLimited").Value) if Desc <> "" then Desc = "

" & Desc end if response.Write(vbCrLf) response.write " " & vbCrLf if Titre = "O" then response.write " " & vbCrLf response.write " " & vbCrLf else response.write " " & vbCrLf response.write " " & vbCrLf end if response.write " " Abt.MoveNext Wend end if end sub sub listeUpgradeVar(TypeRole, Variable, FctAbonnement) LibelleLangue = "Libelle" DescriptionLangue = "Description" select case langue() case "de" LibelleLangue = "DELibelle" DescriptionLangue = "DEDescription" Gratuit = "Gebührenfrei" Consult = "Kontaktieren Sie uns" case "en" LibelleLangue = "ENLibelle" DescriptionLangue = "ENDescription" Gratuit = "Free" Consult = "Consult us" case "fr" LibelleLangue = "FRLibelle" DescriptionLangue = "FRDescription" Gratuit = "Gratuit" Consult = "Nous consulter" end select Query = "" Query = Query & "SELECT Titre, Code, " & LibelleLangue & " AS Libelle, Montant, " & DescriptionLangue & " AS Description, Nombre, TypeTemps, Temps, TimeLimited, NbLimited " Query = Query & "FROM TypeAbonnement " Query = Query & "WHERE TypeRole = '" & TypeRole & "' AND Upgrade = 'O' AND Actif = 'O' " Query = Query & "ORDER BY Tri " Set Abt = getResultSet(Query) if Abt.RecordCount > 0 then Abt.MoveFirst While NOT Abt.EOF Libelle = getStrField(Abt.Fields.Item("Libelle").Value) Titre = getStrField(Abt.Fields.Item("Titre").Value) Code = getStrField(Abt.Fields.Item("Code").Value) Desc = getStrField(Abt.Fields.Item("Description").Value) Montant = getNumField(Abt.Fields.Item("Montant").Value) LibMontant= IIf(Montant = 0, Gratuit, IIf(Montant < 0, Consult, Montant & " €")) Nombre = Abt.Fields.Item("Nombre").Value TypeTemps = getStrField(Abt.Fields.Item("TypeTemps").Value) Temps = Abt.Fields.Item("Temps").Value TimeLimit = getStrField(Abt.Fields.Item("TimeLimited").Value) NbLimit = getStrField(Abt.Fields.Item("NbLimited").Value) if Desc <> "" then Desc = "

" & Desc end if response.Write(vbCrLf) response.write " " & vbCrLf if Titre = "O" then response.write " " & vbCrLf response.write " " & vbCrLf else response.write " " & vbCrLf response.write " " & vbCrLf end if response.write " " & vbCrLf Abt.MoveNext Wend end if end sub function libProcess(code) select case code case "FND" libProcess = "Foundry" case "FRG" libProcess = "Forge" case else libProcess = " - " end select end function function codesAbonnement(TypeRole) codesAbonnement = "" Query = "SELECT Code FROM TypeAbonnement WHERE TypeRole = '" & TypeRole & "'" Set codes = getResultSet(Query) if codes.RecordCount > 0 then codes.MoveFirst i = 1 While not codes.EOF if i > 1 then codesAbonnement = codesAbonnement & "," end if codesAbonnement = codesAbonnement & "'" & codes.Fields.Item("Code") & "'" codes.MoveNext i = i + 1 wend end if end function function jjmmaaaa(VDate) jjmmaaaa = Day(VDate) & "/" & Month(VDate) & "/" & Year(VDate) end function function SSMPLogin(Username, Password) SSMPLogin = "" Query = "" Query = Query & "SELECT Contact FROM Role, Abonnement " Query = Query & "WHERE Login = '" & Trim(Username) & "' AND Password = '" & Trim(Password) & "' " Query = Query & "AND Abonnement.Id = Role.Abonnement AND Abonnement.Actif = 'O'" Set RsId = getResultSet(Query) RsId.MoveFirst if (NOT RsId.EOF) then SSMPLogin = RsId.Fields.Item("Contact").Value end if end function function getIdSociete(idContact) getIdSociete = "" Query = "SELECT Societe FROM Contact WHERE Id = '" & idContact & "'" Set Contact = getResultSet(Query) if Contact.RecordCount > 0 then getIdSociete = Trim(Contact.Fields.Item("Societe").Value) end if end function function libelleDate(ADate) Dim mois mois = Mid(CStr(100 + Month(ADate)), 2, 2) libelleDate = "" libelleDate = libelleDate & libTable("Parametre", "Code", lgLibelle(), "Type = 'Jour'", CStr(WeekDay(ADate))) & " " libelleDate = libelleDate & Day(ADate) & " " libelleDate = libelleDate & libTable("Parametre", "Code", lgLibelle(), "Type = 'Mois'", mois) & " " libelleDate = libelleDate & Year(ADate) end function function dbLangue(idContact, idSociete, codePays) Dim cherche, Query, Langage cherche = true dbLangue = langue() if cherche AND getStrField(idContact) <> "" then Query = "SELECT Langue, Societe FROM Contact WHERE Id = '" & idContact & "'" Set resLangue = getResultSet(Query) if resLangue.RecordCount > 0 then Langage = LCase(getStrField(resLangue.Fields.Item("Langue").Value)) idSociete = getStrField(resLangue.Fields.Item("Societe").Value) if Langage <> "" then dbLangue = Langage cherche = false end if end if end if if cherche AND getStrField(idSociete) <> "" then Query = "SELECT Pays.Langue FROM Societe, Pays WHERE Societe.Id = '" & idSociete & "' AND Societe.Pays = Pays.Code " Set resLangue = getResultSet(Query) if resLangue.RecordCount > 0 then Langage = LCase(getStrField(resLangue.Fields.Item("Langue").Value)) if Langage <> "" then dbLangue = Langage cherche = false end if end if end if if cherche AND getStrField(codePays) <> "" then Query = "SELECT Langue FROM Pays WHERE Code = '" & codePays & "'" Set resLangue = getResultSet(Query) if resLangue.RecordCount > 0 then Langage = LCase(getStrField(resLangue.Fields.Item("Langue").Value)) if Langage <> "" then dbLangue = Langage cherche = false end if end if end if end function function langue() Dim URL, pos URL = Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING") Langue = "en" if InStr(URL, "/en/") > 0 then Langue = "en" end if if InStr(URL, "/de/") > 0 then Langue = "de" end if if InStr(URL, "/fr/") > 0 then Langue = "fr" end if pos = Instr(URL, "lg=") if (pos > 0) then Langue = LCase(Mid(URL, pos + 3, 2)) if Langue <> "en" AND Langue <> "de" AND Langue <>"fr" then Langue = "en" end if end if end function function lgLibelle() lgLibelle = "ENLibelle" select case langue() case "de" lgLibelle = "DELibelle" case "en" lgLibelle = "ENLibelle" case "fr" lgLibelle = "FRLibelle" end select end function ' ' NOUVEAU SET DE FONCTIONS DE SELECTION ET D'AFFICHAGE ' sub inputFileFromList(formName, inputName, directory, variable) Set FSO = Server.CreateObject("Scripting.FileSystemObject") if NOT FSO.FolderExists(directory) then FSO.CreateFolder(directory) end if Set Rep = FSO.GetFolder(directory) Set Liste = Rep.Files response.write "" end sub sub inputDate(formName, inputName, Variable) if VarType(Variable) = vbObject then valeur = Variable(1) else valeur = Variable end if Titre = "" select case langue() case "de" Titre = "tt/mm/jjjj" case "en" Titre = "dd/mm/yyyy" case "fr" Titre = "jj/mm/aaaa" end select imageCalendrier = Properties.Item("AppPath") & "Tools/Calendar/calendar.gif" response.write("") 'response.write("") end sub sub inputSelect(NomTable, ChampCode, ChampLibelle, OrderBy, Where, NomVariable, Variable, nbValeurs) Dim Query, Code, Libelle Query = "" Query = Query & "SELECT " & ChampCode & ", " & ChampLibelle & " FROM " & NomTable if Where <> "" then Query = Query & " WHERE " & Where end if if OrderBy <> "" then Query = Query & " ORDER BY " & OrderBy & " ASC" end if ' WriteBR("Query = " & Query) ' Query = "SELECT Id FROM Societe WHERE 1=2" Set Result = getResultSet(Query) response.write "" end sub sub inputMultipleSelect(NomTable, ChampCode, ChampLibelle, OrderBy, Where, NomVariable, Taille, Variable, nbValeurs) Query = "" Query = Query & "SELECT " & ChampCode & ", " & ChampLibelle & " FROM " & NomTable if Where <> "" then Query = Query & " WHERE " & Where end if if OrderBy <> "" then Query = Query & " ORDER BY " & OrderBy & " ASC" end if Set Result = getResultSet(Query) response.write "" end sub sub inputSelectChange(NomTable, ChampCode, ChampLibelle, OrderBy, Where, NomVariable, Variable, nbValeurs, onChange) Dim Query, Code, Libelle Query = "" Query = Query & "SELECT " & ChampCode & ", " & ChampLibelle & " FROM " & NomTable if Where <> "" then Query = Query & " WHERE " & Where end if if OrderBy <> "" then Query = Query & " ORDER BY " & OrderBy & " ASC" end if ' WriteBR("Query = " & Query) ' Query = "SELECT Id FROM Societe WHERE 1=2" Set Result = getResultSet(Query) response.write "" end sub sub inputSelectMultiple(NomTable, ChampCode, ChampLibelle, OrderBy, Where, NomVariable, Taille, NbLimite, Variable, nbValeurs) if VarType(Variable) <> vbObject then TValeurs = split(Variable, ",") nbValeurs = UBound(TValeurs) + 1 end if Query = "" Query = Query & "SELECT " & ChampCode & ", " & ChampLibelle & " FROM " & NomTable if Where <> "" then Query = Query & " WHERE " & Where end if if OrderBy <> "" then Query = Query & " ORDER BY " & OrderBy end if 'response.Write(Query & "
") Set Result = getResultSet(Query) ValeursVariable = "Valeurs" & NomVariable response.write "" response.write "
" & AfficherNormal(ListeValeurs) & "
" end sub sub inputSelectByQuery(Query, ChampCode, ChampLibelle, NomVariable, Variable, nbValeurs) Dim Code, Libelle Set Result = getResultSet(Query) response.write "" end sub function libTable(NomTable, ChampCode, ChampLibelle, Where, Code) Dim Query libTable = Code Query = "SELECT " & ChampLibelle & " FROM " & NomTable & " WHERE " & ChampCode & " = '" & Trim(Code) & "'" if Where <> "" then Query = Query & " AND " & Where end if Set Result = getResultSet(Query) if Result.RecordCount > 0 then Result.MoveFirst libTable = getStrField(Result.Fields(0).Value) end if Result.Close Set Result = Nothing end function function inputSelected(NomTable, ChampCode, ChampLibelle, Where, Variable, nbValeurs) inputSelected = "" for i = 1 to nbValeurs Code = Variable(i) inputSelected = inputSelected & libTable(NomTable, ChampCode, ChampLibelle, Where, Code) if i < nbValeurs then inputSelected = inputSelected & ", 
" end if next end function ' ' ANCIENNES FONCTIONS DE SELECTION ET D'AFFICHAGE ' function isSelectedVar(Variable, Code) isSelectedVar = "" if Trim(Code) = Trim(Variable) then isSelectedVar = "selected" end if end function function isCheckedVar(Variable, Code) isCheckedVar = "" if Trim(Code) = Trim(Variable) then isCheckedVar = "checked" end if end function function isCheckedVarMult(ListeValeurs, Code) Dim i, nbValeurs, TValeurs isCheckedVarMult = "" TValeurs = split(ListeValeurs, ", ") nbValeurs = UBound(TValeurs) For i = 0 to nbValeurs if UCase(Trim(Code)) = UCase(Trim(TValeurs(i))) then isCheckedVarMult = "checked" end if Next end function function dummy(Param) dummy = "dummy !" end function function selectedLangue(NomVariable) selectedLangue = inputSelected("Parametre", "Code", lgLibelle(), "Type = 'Langue'", VarOfCurrentTask.Item("" & NomVariable), 1) end function function libelleTable(NomTable, ChampCode, ChampLibelle, Code) libelleTable = Code Query = "SELECT " & ChampLibelle & " FROM " & NomTable & " WHERE " & ChampCode & " = '" & Trim(Code) & "'" Set Result = getResultSet(Query) if Result.RecordCount > 0 then Result.MoveFirst libelleTable = Result.Fields(0).Value libelleTable = UCase(Mid(libelleTable, 1, 1)) & LCase(Trim(Mid(libelleTable, 2))) end if Result.Close Set Result = Nothing end function function selectedTable(NomTable, ChampCode, ChampLibelle, NomVariable) selectedTable = "" nbValeurs = VarOfCurrentTask.Item("" & NomVariable).Value.Count for i = 1 to nbValeurs Code = VarOfCurrentTask.Item("" & NomVariable).Value(i).Value selectedTable = selectedTable & libelleTable(NomTable, ChampCode, ChampLibelle, Code) if i < nbValeurs then selectedTable = selectedTable & ", 
" end if next end function sub listeProduitSociete(idSociete) QueryProduits = "SELECT Code, GBLibelle FROM ProduitSociete, Produits WHERE ProduitSociete.Societe = '" + idSociete + "'" QueryProduits = QueryProduits + " AND ProduitSociete.Produit = Produits.Code" QueryProduits = QueryProduits + " ORDER BY Code ASC" Set Produits = getResultSet(QueryProduits) response.write("
" Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & "
 " & Titre & "
  
 " Registration = Registration & " " Registration = Registration & addRow(Libelle.Item("Nom"), "
" & Nom & "" & NomSociete & "" & AbtLibelle & "" & Debut & " - " & Fin & "" & Login & "" & HiddenPwd & "" Registration = Registration & " " Registration = Registration & " " Registration = Registration & "
" Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & " " Registration = Registration & "
  
 " & IMG & " " & TXT & "
" Registration = Registration & "
" end if infosRegistration = Registration end function function addLigne(Texte) addLigne = "

" & Texte & "

" end function function addRow(Label, Texte) addRow = "
" & Label & " : " & Texte & "
" & AfficherNormal(Libelle) & "" & Desc & "" & Montant & " - " & Libelle & "" & Desc & "
 
" & AfficherNormal(Libelle) & "
" & Desc & "
" & vbCrLf response.write " "" then response.write " onClick=" & """" & "javascript:" & FctAbonnement & "(" & Montant &", " & Nombre & ", '" & TypeTemps & "', " & Temps & ", '" & TimeLimit & "', '" & NbLimit & "');" & """" & " " end if response.write ">" & vbCrLf response.write " " & LibMontant & " - " & Libelle & "" & Desc & "

" & AfficherNormal(Libelle) & "
" & Desc & "
" & LibMontant & " - " & Libelle & "" & Desc & "
 
" & AfficherNormal(Libelle) & "
" & Desc & "
" & vbCrLf response.write " "" then response.write " onClick=" & """" & "javascript:" & FctAbonnement & "(" & Montant &", " & Nombre & ", '" & TypeTemps & "', " & Temps & ", '" & TimeLimit & "', '" & NbLimit & "');" & """" & " " end if response.write ">" & vbCrLf response.write " " & LibMontant & " - " & Libelle & "" & Desc & "
 
" & AfficherNormal(Libelle) & "
" & Desc & "
" & vbCrLf response.write " "" then response.write " onClick=" & """" & "javascript:" & FctAbonnement & "(" & Montant &", " & Nombre & ", '" & TypeTemps & "', " & Temps & ", '" & TimeLimit & "', '" & NbLimit & "');" & """" & " " end if response.write ">" & vbCrLf response.write " " & LibMontant & " - " & Libelle & "" & Desc & "
") if Produits.RecordCount > 0 then Produits.MoveFirst() Precedent = "XXXXXXXXX" Premier = True While NOT Produits.EOF Code = (Produits.Fields.Item("Code").Value) Racine = "SELECT Code, GBLibelle FROM Produits WHERE Code = '" Rupture = 0 if Mid(Code, 1, 3) <> Mid(Precedent, 1, 3) then Rupture = 3 elseif Mid(Code, 1, 6) <> Mid(Precedent, 1, 6) then Rupture = 2 elseif Mid(Code, 1, 9) <> Mid(Precedent, 1, 9) then Rupture = 1 else Rupture = 0 end if if Len(Code) > 0 AND Rupture > 2 then Query = Racine + Mid(Code, 1, 3) + "'" Set Produit = getResultSet(Query) if Not Premier then response.write("") response.write("") response.write("") end if Premier = False response.write("") response.write("") response.write("") end if if Len(Code) > 3 AND Rupture > 1 then Query = Racine + Mid(Code, 1, 6) + "'" Set Produit = getResultSet(Query) response.write("") response.write("") response.write("") end if if Len(Code) > 6 AND Rupture > 0 then Query = Racine + Mid(Code, 1, 9) + "'" Set Produit = getResultSet(Query) response.write("") response.write("") response.write("") end if Precedent = Code Produits.MoveNext() Wend end if response.write("
 
" & UCase(Produit.Fields.Item("GBLibelle").Value) & "
" & Produit.Fields.Item("GBLibelle").Value & "
            ") response.write("" & Produit.Fields.Item("GBLibelle").Value & "
") end sub sub listeVarProduitSociete(nomVariable) nbProduitsChecked = VarOfCurrentTask.Item("" & nomVariable).Value.Count Precedent = "XXXXXXXXX" Premier = True response.write("") LanguePage = "GB" LanguePage = Request("lg") ChpLibelle = LanguePage & "Libelle" For i = 1 to nbProduitsChecked Code = Trim(VarOfCurrentTask.Item("" & nomVariable).Value(i).Value) Racine = "SELECT Code, " & ChpLibelle & " FROM Produits WHERE Code = '" Rupture = 0 if Mid(Code, 1, 3) <> Mid(Precedent, 1, 3) then Rupture = 3 elseif Mid(Code, 1, 6) <> Mid(Precedent, 1, 6) then Rupture = 2 elseif Mid(Code, 1, 9) <> Mid(Precedent, 1, 9) then Rupture = 1 else Rupture = 0 end if if Len(Code) > 0 AND Rupture > 2 then Query = Racine + Mid(Code, 1, 3) + "'" Set Produit = getResultSet(Query) if Not Premier then response.write("") response.write("") response.write("") end if Premier = False response.write("") response.write("") response.write("") end if if Len(Code) > 3 AND Rupture > 1 then Query = Racine + Mid(Code, 1, 6) + "'" Set Produit = getResultSet(Query) response.write("") response.write("") response.write("") end if if Len(Code) > 6 AND Rupture > 0 then Query = Racine + Mid(Code, 1, 9) + "'" Set Produit = getResultSet(Query) response.write("") response.write("") response.write("") end if Precedent = Code Next response.write("
 
" & UCase(Produit.Fields.Item(ChpLibelle).Value) & "
" & Produit.Fields.Item(ChpLibelle).Value & "
            ") response.write("" & Produit.Fields.Item(ChpLibelle).Value & "
") end sub %> <% On error resume next function UserAlreadyCreated(loginName) On error resume next 'vérification aupres des comptes existants dim result result = false set myactor = server.createObject("w4com.TWFactor") myactor.name.str = loginName myactor.attachSession mysession.context myactor.WFGetActor if myactor.Name.id<>0 then result=true end if set myactor = nothing UserAlreadyCreated = result end function function UserInProgress(loginName) On error resume next 'vérification auprés des dossiers en en cours dim result result = false set Tselection = server.CreateObject ("w4com.TWFTselection") set criterion = server.CreateObject ("w4com.TWFcriterion") set operator = server.CreateObject ("w4com.TWFoperator") set sortBy = server.CreateObject ("w4com.TWFsortBy") set sortMode = server.CreateObject ("w4com.TWFsortMode") Tselection.addStringSelection criterion.CRIT_VARIABLE_NAME, operator.EQUAL, "loginContact" Tselection.addStringSelection criterion.CRIT_VARIABLE_VALUE, operator.EQUAL, loginName dim maxelem maxelem = 1 set Tworkcase = mysession.WFSearchCase (sortBy.NOSORT,sortMode.NOSORT,Tselection,maxElem) if Tworkcase.count > 1 then result=true end if set Tselection = nothing set criterion = nothing set operator = nothing set sortBy = nothing set sortMode = nothing set Tworkcase = nothing UserInProgress = result ' UserInProgress = false end function function LoginAlreadyExist(loginName) if (UserAlreadyCreated(loginName)=false) and (UserInProgress(loginName)=false) then LoginAlreadyExist="FALSE" else LoginAlreadyExist="TRUE" end if end function function createActor(login, nom, prenom, langue, email, password) mysession.Context.Priority = 101 set newActor = server.CreateObject ("w4com.TWFactor") newActor.name.str = login newActor.LastName = nom newActor.FirstName = prenom newActor.Language = langue newActor.Email = email set newPassword = server.CreateObject ("w4com.TWFname") newPassword.str = password set newActorName = mysession.Factory.WFCreateActor(newActor, newPassword) Set createActor = newActorName end function function modifyActor(ActorId, login, nom, prenom, langue, email, telephone, fax) mysession.Context.Priority = 101 mysession.WFOpenConnection Set Acteur = getActor(ActorId) Acteur.Name.str = Trim(login) Acteur.LastName = Trim(nom) Acteur.FirstName = Trim(prenom) Acteur.Language = Trim(langue) Acteur.Email = Trim(email) Acteur.PhoneNumber = Trim(telephone) Acteur.FaxNumber = Trim(fax) Acteur.WFModifyActor modifyActor = Err.number mysession.WFCloseConnection end function function modifyPassword(ActorId, oldPassword, newPassword) mysession.WFOpenConnection Set Acteur = getActor(ActorId) set newPwd = getTWFname(newPassword) set oldPwd = getTWFname(oldPassword) if oldPwd.str <> newPwd.str then Call ChangePassword(Acteur, oldPwd, newPwd, 0) end if modifyPassword = W4ErrNumber mysession.WFCloseConnection end function sub assignRole(ActorName, RoleStr) set Actor = getActor(ActorName.id) set NewRole = server.createObject("w4com.TWFname") NewRole.Str = RoleStr Actor.WFAssignRoleToActor NewRole end sub sub deleteRole(ActorName, RoleStr) set Actor = getActor(ActorName.id) set NewRole = server.createObject("w4com.TWFname") NewRole.Str = RoleStr Actor.WFDeleteRoleofActor NewRole end sub sub assignRoleFromType(ActorName, TypeRole, AdminRole) select case TypeRole case "A" if AdminRole then assignRole ActorName, "SS_Acheteur" assignRole ActorName, "SS_A_Administrateur" assignRole ActorName, "declared" else assignRole ActorName, "SS_Acheteur" assignRole ActorName, "SS_A_Utilisateur" assignRole ActorName, "declared" end if case "F" assignRole ActorName, "SS_Fournisseur" assignRole ActorName, "SS_F_Administrateur" case "S" assignRole ActorName, "SS_FFournisseur" assignRole ActorName, "SS_FF_Administrateur" case "M" assignRole ActorName, "SS_Gestionnaire" assignRole ActorName, "declared" end select end sub sub deleteAllUserRole(ActorName) deleteRole ActorName, "SS_A_Administrateur" deleteRole ActorName, "SS_A_Utilisateur" deleteRole ActorName, "SS_Acheteur" deleteRole ActorName, "SS_A_Utilisateur" deleteRole ActorName, "SS_Fournisseur" deleteRole ActorName, "SS_F_Administrateur" deleteRole ActorName, "SS_FFournisseur" deleteRole ActorName, "SS_FF_Administrateur" deleteRole ActorName, "SS_Gestionnaire" deleteRole ActorName, "declared" end sub function createNewLogin(TypeRole, Nom, Prenom) Numero = RndNumber(3) createNewLogin = TypeRole & Mid(Nom, 1, 2) & Mid(Prenom, 1, 2) & Numero if LoginAlreadyExist(createNewLogin) = "TRUE" then createNewLogin = createNewLogin(TypeRole, Nom, Prenom) end if end function function getNewLogin(Login) NewLogin = Login While LoginAlreadyExist(NewLogin) = "TRUE" OR NewLogin = "" NewLogin = RndString(5) & "-" & RndNumber(3) Wend getNewLogin = NewLogin end function function RndString(longueur) Randomize Base = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" RndString = "" for i = 1 to longueur RndString = RndString & Mid(Base, ((Rnd * 62) + 1), 1) next end function function RndNumber(longueur) Randomize Root = 10 ^ longueur RndNumber = Mid(Cstr((Root * Rnd) + Root), 2, longueur) end function function LoginBySID(idcontact) Query = "Select Login, Password FROM Role WHERE Contact = '" & idContact & "'" Set Contact = getResultSet(Query) ActorName = "" Password = "" if Contact.RecordCount > 0 then Contact.MoveFirst ActorName = getStrField(Contact.Fields.Item("Login").Value) Password = getStrField(Contact.Fields.Item("Password").Value) end if LoginBySID = Login(ActorName, Password, "") end function sub choixActeur(Variable) mysession.WFOpenConnection Set TActeurs = getAllActors() mysession.WFCloseConnection response.write "" end sub sub choixRole(Variable) mysession.WFOpenConnection Set TRoles = getAllRoles() mysession.WFCloseConnection response.write "" end sub %> <% idContact = getSID() idSociete = getIdSociete(idContact) Query = "" Query = Query & "SELECT Societe.Manager, Pays.Manager AS MgrPays " Query = Query & "FROM Societe LEFT JOIN Pays ON Societe.Pays = Pays.Code " Query = Query & "WHERE Id = '" & IdSociete & "'" Set Mgr = getResultSet(Query) IdManager = getStrField(Mgr.Fields.Item("Manager").Value) if IdManager = "" then IdManager = getStrField(Mgr.Fields.Item("MgrPays").Value) end if Query = "" Query = Query & "SELECT Contact, " Query = Query & "Civilite." & lgLibelle() & " AS Civilite, Contact.Prenom AS PrenomContact, Contact.Nom AS NomContact, Contact.Telephone, Contact.Email, " Query = Query & "Societe.Id AS IdSociete, Societe.Nom AS NomSociete, " Query = Query & "Manager.Code, Initiales, Manager.Prenom, Manager.Nom " Query = Query & "FROM Manager " Query = Query & "LEFT JOIN (Contact " Query = Query & " LEFT JOIN Societe ON Societe.Id = Contact.Societe " Query = Query & " LEFT JOIN Parametre AS Civilite ON Contact.Civilite = Civilite.Code AND Civilite.Type = 'Civilite' " Query = Query & " ) ON Manager.Contact = Contact.Id " Query = Query & "WHERE Manager.Id = '" & IdManager & "'" Set Manager = getResultSet(Query) Contact = getStrField(Manager.Fields.Item("Contact").Value) if Contact = "" then PrenomManager = getStrField(Manager.Fields.Item("Prenom").Value) NomManager = getStrField(Manager.Fields.Item("Nom").Value) NomManager = PrenomManager & " " & NomManager Telephone = "" Email = "" else Civilite = getStrField(Manager.Fields.Item("Civilite").Value) PrenomManager = getStrField(Manager.Fields.Item("PrenomContact").Value) NomManager = getStrField(Manager.Fields.Item("NomContact").Value) NomManager = Civilite & " " & PrenomManager & " " & NomManager Telephone = getStrField(Manager.Fields.Item("Telephone").Value) Email = getStrField(Manager.Fields.Item("Email").Value) end if sub ligneOption(optionMenu, Code, Libelle, Upper, Adresse, Parametres) if optionMenu <> Code then response.write("
 ") else response.write("") end if URL = Properties.Item("AppPath") & Adresse & "?" & Ctx() & "&sid=" & getSID() if Parametres <> "" then URL = URL & "&" & Parametres end if response.write("") response.write(Libelle) response.write("") response.write(" ") else response.write("") end if response.write(Libelle) response.write(" ") else response.write("") end if URL = Properties.Item("AppPath") & Adresse & "?" & Ctx() & "&sid=" & getSID() if Parametres <> "" then URL = URL & "&" & Parametres end if FonctionPopUp = "javascript:popup(" FonctionPopUp = FonctionPopUp & "'" & URL & "', " FonctionPopUp = FonctionPopUp & toolbar & ", " FonctionPopUp = FonctionPopUp & location & ", " FonctionPopUp = FonctionPopUp & directories & ", " FonctionPopUp = FonctionPopUp & menubar & ", " FonctionPopUp = FonctionPopUp & scrollbars & ", " FonctionPopUp = FonctionPopUp & resizable & ", " FonctionPopUp = FonctionPopUp & status & ", " FonctionPopUp = FonctionPopUp & width & ", " FonctionPopUp = FonctionPopUp & height & "); " response.write("") response.write(Libelle) response.write("") response.write("
<%ligneOption optionMenu, "SendRFQ", Champ.Item("Send RFQ"), False, "../../../../../ssmp/WF/Templates/Sourcings/Easy/newRFQ.asp?lg=" & lg, ""%> <%ligneOption optionMenu, "SendBuyLeads", Champ.Item("Send Buy Leads"), False, "../../../../../ssmp/WF/Templates/Sourcings/Msg/newRFQ.asp?lg=" & lg, ""%> <%ligneOption optionMenu, "ViewRFQ", Champ.Item("View2") & Champ.Item("RFQ2"), False, "../../../../../ssmp/WF/Templates/Sourcings/PopRfqList.asp?lg=" & lg, ""%> <%ligneOption optionMenu, "ViewBuyLeads", Champ.Item("View2") & Champ.Item("buyleads2"), False, "../../../../../ssmp/WF/Templates/Sourcings/Msg/PopRfqList.asp?lg="& lg, ""%> <%ligneOption optionMenu, "FoundriesandForges", Champ.Item("Foundries and Forges"), False, "../../../../../ssmp/WF/Templates/Annuary/PopAnnuary.asp?lg=" & lg, ""%> <%ligneOption optionMenu, "SupplierstoFoundriesForges", Champ.Item("Suppliers3"), False, "../../../../../ssmp/" & lg & "/Supplier/SupplierGuide/Searchfoundry.asp", ""%>
<%=Champ.Item("Marketplace")%>
<%=Champ.Item("Online Directory")%>









supplier search
access supplier guide
 
subcontract solutions
our vision
contact us
newsletter
our partners
 
foundries & forges
overview
 
suppliers
overview
   
<% function LangueURL() Dim URL, pos URL = Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING") LangueURL = "en" if InStr(URL, "/en/") > 0 then LangueURL = "en" end if if InStr(URL, "/de/") > 0 then LangueURL = "de" end if if InStr(URL, "/fr/") > 0 then LangueURL = "fr" end if pos = Instr(URL, "lg=") if (pos > 0) then LangueURL = LCase(Mid(URL, pos + 3, 2)) if LangueURL <> "en" AND LangueURL <> "de" AND LangueURL <>"fr" then LangueURL = "en" end if end if end function select case LCase(LangueURL()) case "en" lg = "en" %><% set Rubrique=Server.CreateObject("Scripting.Dictionary") Rubrique.add "suppliers", "supplier" Rubrique.add "supplier guide presentation", "supplier guide presentation" Rubrique.add "listing options", "listing options" Rubrique.add "registration", "registration" Rubrique.add "supplier search", "supplier search" Rubrique.add "access supplier guide", "access supplier guide" Rubrique.add "supplier guide", "supplier guide" Rubrique.add "foundry & forge database", "foundry & forge database" Rubrique.add "subcontract solutions", "subcontract solutions" Rubrique.add "our vision", "our vision" Rubrique.add "contact us", "contact us" Rubrique.add "newsletter", "newsletter" Rubrique.add "company", "company" Rubrique.add "products", "products" Rubrique.add "terms and payment", "Terms and Conditions" Rubrique.add "My company", "My company" Rubrique.add "My products", "My products" Rubrique.add "overview", "overview" Rubrique.add "Smart tools...", "Smart tools..." Rubrique.add "SupplierPass", "SupplierPass" Rubrique.add "SupplierMatch", "SupplierMatch" Rubrique.add "Subcontract Organiser", "Subcontract Organiser" Rubrique.add "services", "services" Rubrique.add "ProSolutions", "ProSolutions" Rubrique.add "e-ProSolutions", "e-ProSolutions" Rubrique.add "strategic sourcing", "strategic sourcing" Rubrique.add "order follow up", "order follow up" Rubrique.add "expert services", "expert services" Rubrique.add "prices", "prices" Rubrique.add "consult prices", "consult prices" Rubrique.add "register here", "register here" Rubrique.add "faq", "faq" Rubrique.add "frequently asked questions", "frequently asked questions" Rubrique.add "view & quote new RFQs", "view & quote new RFQs" Rubrique.add "Home", "Home" Rubrique.add "My Profile", "My user data" Rubrique.add "My Registration", "My Registration" Rubrique.add "MY RFQ FILES", "MY REQUEST FOR QUOTATION (RFQ)" Rubrique.add "New RFQs alerts", "New RFQs alerts" Rubrique.add "Pending RFQs", "Pending RFQs" Rubrique.add "Closed RFQs", "Closed RFQs" Rubrique.add "Declined RFQs", "Declined RFQs" Rubrique.add "Create RFQ", "Create RFQ" Rubrique.add "New RFQs", "New RFQs" Rubrique.add "My Buyers", "My Buyers" Rubrique.add "My Suppliers", "My Suppliers" Rubrique.add "My Contacts", "My Contacts" Rubrique.add "FOUNDRY", "MY FOUNDRY DATA" Rubrique.add "Material", "Material" Rubrique.add "Moulding", "Moulding" Rubrique.add "Facilities", "Facilities" Rubrique.add "ISO", "ISO" Rubrique.add "Certification", "Certification" Rubrique.add "Market", "Market" Rubrique.add "FORGE", "MY FORGE DATA" Rubrique.add "Dimensions", "Dimensions" Rubrique.add "Logout", "Logout" Rubrique.add "Management", "Management" Rubrique.add "MY SUPPLIER SEARCH", "MY SUPPLIER SEARCH" Rubrique.add "New file alerts", "New file alerts" Rubrique.add "Pending searchs", "Pending searchs" Rubrique.add "Closed searchs", "Closed searchs" Rubrique.add "Declined searchs", "Declined searchs" Rubrique.add "Create search", "Create search" Rubrique.add "New searchs", "New searchs" Rubrique.add "MY BUYER LEADS", "MY BUYER LEADS" Rubrique.add "Pending leads", "Pending leads" Rubrique.add "Closed leads", "Closed leads" Rubrique.add "Send Message", "Send Message" Rubrique.add "Online help", "Online Help" set Bouton=Server.CreateObject("Scripting.Dictionary") Bouton.add "boutons/cancelBlank.gif", "boutons/cancelBlank.gif" Bouton.add "boutons/nextBlank.gif", "boutons/nextBlank.gif" Bouton.add "boutons/backBlank.gif", "boutons/backBlank.gif" Bouton.add "boutons/registerBlank.gif", "boutons/registerBlank.gif" Bouton.add "boutons/print.gif", "boutons/print.gif" Bouton.add "boutons/confirmBlank.gif", "boutons/confirmBlank.gif" Bouton.add "boutons/sendBlank.gif", "boutons/sendBlank.gif" Bouton.add "boutons/notInterested.gif", "boutons/notInterested.gif" Bouton.add "boutons/interested.gif", "boutons/interested.gif" set Titre=Server.CreateObject("Scripting.Dictionary") Titre.add "WF/Activities/Buyers/demande.asp", "Request for Price" Titre.add "WF/Activities/inscriptionFF/inscription.asp", "Registration : company information" Titre.add "WF/Activities/inscriptionFF/produits.asp", "Registration : products" Titre.add "WF/Activities/inscriptionFF/confirmation.asp", "Registration : confirmation" set Champ=Server.CreateObject("Scripting.Dictionary") Champ.add "View your company profile", "View your company profile" Champ.add "Company information", "Company information" Champ.add "Company name", "Company name" Champ.add "Bronze listing", "Bronze listing" Champ.add "Silver listing", "Silver listing" Champ.add "Gold listing", "Gold listing" Champ.add "Address", "Address" Champ.add "Postal code", "Postal code" Champ.add "City", "City" Champ.add "Country", "Country" Champ.add "Phone", "Phone" Champ.add "Fax", "Fax" Champ.add "URL", "Web site" Champ.add "Supplier to Foundries", "Supplier to Foundries" Champ.add "Supplier to Forges", "Supplier to Forges" Champ.add "Title", "Title" Champ.add "First name", "First name" Champ.add "Last name", "Last name" Champ.add "Function", "Function" Champ.add "E-mail", "E-mail" Champ.add "Preferred business language", "Preferred business language" Champ.add "Other languages", "Other languages" Champ.add "Login", "Login" Champ.add "Username", "Username" Champ.add "Password", "Password" Champ.add "Confirm password", "Confirm password" Champ.add "I register my company with", "I register my company with" Champ.add "Your company profile", "Your company profile" Champ.add "Contact data", "Contact data" Champ.add "required fields", "required fields" Champ.add "min. 4 characters", "min. 4 characters" Champ.add "VAT excluded / year", "VAT excluded / year" Champ.add "VAT excluded", "VAT excl." Champ.add "Setup fee", "Setup fee" Champ.add "The following fields are required", "The following fields are required" Champ.add "Invalid E-mail", "Invalid E-mail" Champ.add "You have not confirmed the same password", "You have not confirmed the same password" Champ.add "The password must be 4 characters length", "The password must be 4 characters length" Champ.add "You must accept the Terms and conditions to register", "You must accept the Terms and conditions to register" Champ.add "Blank are not allowed in the login", "Blank are not allowed in the login" Champ.add "Supplier's products", "Supplier's products" Champ.add "Tick below your products to be referenced", "Tick below the products you wish to reference" Champ.add "Products", "Products" Champ.add "Product", "Product" Champ.add "Choice", "Choice" Champ.add "Type of registration", "Type of registration" Champ.add "Listing option", "Listing option" Champ.add "Bronze", "Bronze" Champ.add "Silver", "Silver" Champ.add "Gold", "Gold" Champ.add "Company", "Company" Champ.add "Supplier for", "Supplier for" Champ.add "Founderies", "Foundries" Champ.add "Forges", "Forges" Champ.add "Foundry", "Foundry" Champ.add "Forge", "Forge" Champ.add "Contact name", "Contact name" Champ.add "Before registering your company, you must accept the Terms & Conditions.", "Before registering your company, you must accept the Terms & Conditions." Champ.add "I accept the terms & conditions", "I accept the terms & conditions" Champ.add "Payable by bank transfer to", "Payable by bank transfer to" Champ.add "Order information", "Order information" Champ.add "Products supplied", "Products referenced" Champ.add "Terms & Conditions", "Terms & Conditions" Champ.add "Payment", "Payment (applicable to paying subscription)" Champ.add "Registering", "Registration" Champ.add "SWIFT address", "SWIFT address" Champ.add "Account number", "Account number" Champ.add "Code banque", "Bank code" Champ.add "Code guichet", "Branch code" Champ.add "Clé RIB", "Key number" Champ.add "Domiciliation", "Denomination" Champ.add "Branch", "Branch" Champ.add "An invoice will be issued as soon as you are registered", "If applicable, an invoice will be issued as soon as you are registered" Champ.add "Invoice", "Invoice" Champ.add "Date", "Date" Champ.add "Invoice number", "Invoice number" Champ.add "Recipient", "Recipient" Champ.add "Account manager", "Account manager" Champ.add "Before V.A.T. €", "Price excl. V.A.T. euros" Champ.add "Total V.A.T. €", "V.A.T. Amount euros" Champ.add "Net due €", "Total euros" Champ.add "V.A.T. number", "V.A.T. number" Champ.add "(V.A.T. : 19.6%)", "(V.A.T. : 19.6%)" Champ.add "Exemption VAT - EU delivery - art. 259 A 4° CGI", "Exemption VAT - EU delivery - art. 259 A 4° CGI" Champ.add "Exemption VAT - art 262 I 1° CGI", "Exemption VAT - art 262 I 1° CGI" Champ.add "Payable by bank transfer", "Payable by bank transfer" Champ.add "Emetteur", "Sender" Champ.add "Request for price", "Request for price" Champ.add "I am interested in the following service and would like to receive an offer for it", "I am interested in the following service and would like to receive an offer for it" Champ.add "Contact informations", "Contact informations" Champ.add "Annual purchasing potential", "Annual purchasing potential" Champ.add "Castings", "Castings" Champ.add "Forgings", "Forgings" Champ.add "Purchasing volume", "Purchasing volume" Champ.add "Number of RFQs", "Number of RFQs" Champ.add "Number of POs", "Number of POs" Champ.add "Number of active suppliers", "Number of active suppliers" Champ.add "Number of other suppliers known", "Number of other suppliers inquired" Champ.add "Number of suppliers to register", "Number of suppliers to register" Champ.add "Number of buyers", "Number of buyers to register" Champ.add "Please type in your comments, if any", "Please type in your comments, if any" Champ.add "ProSolutions", "ProSolutions" Champ.add "e-ProSolutions", "e-ProSolutions" Champ.add "Subscription", "Subscription" Champ.add "Casting purchasing volume", "Casting purchasing volume" Champ.add "Forging purchasing volume", "Forging purchasing volume" Champ.add "Number of active casting suppliers", "Number of active casting suppliers" Champ.add "Number of other casting suppliers", "Number of other casting suppliers" Champ.add "Number of active forging suppliers", "Number of active forging suppliers" Champ.add "Number of other forging suppliers", "Number of other forging suppliers" Champ.add "Welcome to your organizer", "Welcome to your organizer" Champ.add "You have", "You have" Champ.add "new RFQs alerts", "New Request For Quotation (RFQ) alerts" Champ.add "RFQs pending", "Request For Quotation pending" Champ.add "RFQs declined", "Request For Quotation declined" Champ.add "You are registered with", "You are registered with" Champ.add "from", "from" Champ.add "to", "to" Champ.add "since", "since" Champ.add "Your RFQ Credit", "Your Request For Quotation Credit" Champ.add "You have unlimited Pay-per-view", "You have unlimited access to Request For Quotations" Champ.add "available", "available" Champ.add "Upgrade your registration or buy new Pay-per-view", "Upgrade your registration" Champ.add "click here", "click here" Champ.add "My Registration", "My Registration" Champ.add "Registration", "Registration" Champ.add "PPV Credit", "RFQ Credit" Champ.add "Valid until", "Valid until" Champ.add "unlimited", "unlimited" Champ.add "empty", "empty" Champ.add "expired", "expired" Champ.add "Closed", "Closed" Champ.add "Valid", "Valid" Champ.add "RFQ viewed", "RFQ viewed" Champ.add "Certification", "Certification" Champ.add "Facilities", "Facilities" Champ.add "Weight", "Weight" Champ.add "Internal", "Internal" Champ.add "External", "External" Champ.add "Rough", "Rough" Champ.add "Rough machined", "Rough machined" Champ.add "Finish machined", "Finish machined" Champ.add "Rough machining", "Rough machining" Champ.add "Finish machining", "Finish machining" Champ.add "Certified by", "Certified by" Champ.add "Market", "Market" Champ.add "Material", "Material" Champ.add "Weight Range", "Weight Range" Champ.add "Tonnage per year", "Tonnage per year" Champ.add "Moulding process", "Moulding process" Champ.add "Length", "Length" Champ.add "Width", "Width" Champ.add "Height", "Height" Champ.add "Qty", "Qty" Champ.add "Quantity", "Quantity" Champ.add "Process", "Process" Champ.add "Precision", "Precision" Champ.add "Coarse", "Coarse" Champ.add "Electrical", "Electrical" Champ.add "Methane", "Methane" Champ.add "On stock", "On stock" Champ.Add "Industry", "Industry" Champ.add "Number of items", "Number of items" Champ.add "Nbr of items", "Nbr of items" Champ.add "Customer country", "Country" Champ.add "Market of destination", "Market of destination" Champ.add "Closing date", "Closing date" Champ.add "Expected order date", "Order date" Champ.add "Buyer", "Buyer" Champ.add "Quality requirements", "Quality requirements" Champ.add "ISO required", "ISO" Champ.add "required", "required" Champ.add "not required", "not required" Champ.add "Material certification", "Material certification" Champ.add "Items", "Items" Champ.add "Part name", "Part name" Champ.add "Supply Status", "Supply Status" Champ.add "Size", "Size" Champ.add "Standard", "Standard" Champ.add "Item detail", "Item detail" Champ.add "Dimension", "Dimension" Champ.add "General comments", "General comments" Champ.add "Viewed", "Viewed" Champ.add "My Buyers", "My Buyers" Champ.add "Contact", "Contact" Champ.add "RFQ Description", "RFQ Description" Champ.add "ended", "ended" Champ.add "metric tons", "metric tons" Champ.add "Weight part", "Weight part" Champ.add "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area", "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area" Champ.add "RFQs on line", "Request For Quotations online" Champ.add "Request For Quotation", "Request For Quotation" Champ.add "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer.", "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer." Champ.add "You are not interested to quote this RFQ,
please enter below your username and password.", "You are not interested to quote this RFQ,
please enter below your username and password." Champ.add "If you are not registered and want to quote this RFQ go to the", "If you are not registered and want to quote this RFQ go to the" Champ.add "registration page", "registration page" Champ.add "This RFQ is now available in your RFQ list in your organizer
", "This RFQ is now available in your new RFQ alerts in your organizer
" Champ.add "Supplier searchs on line", "Supplier searchs on line" Champ.add "Supplier search", "Supplier search" Champ.add "Buyer lead", "Buyer lead" Champ.add "You are interested to quote this file,
please enter below your username and password to get it in your organizer.", "You are interested to quote this file,
please enter below your username and password to get it in your organizer." Champ.add "If you are not registered and want to quote this file go to the", "If you are not registered and want to quote this file go to the" Champ.add "This file is now available in your organizer
", "This file is now available in your organizer
" Champ.add "Your Pay-per-view credit is now : ", "Your RFQ credit is now : " Champ.add "Your Pay-per-view credit is empty !
", "You don't have RFQ access credit
" Champ.add "Please contact Subcontract Solutions to upgrade your credit", "Please contact Subcontract Solutions to upgrade your credit" Champ.add "Your Pay-per-view credit is unlimited", "Your RFQ credit is unlimited" Champ.add "Your registration has ended since ", "Your registration is expired since " Champ.add "This RFQ is still available in your RFQ list in your organizer
", "This RFQ is already available in your RFQ list in your organizer
" Champ.add "Your Pay-per-view credit is still : ", "Your RFQ credit is still : " Champ.add "You are not interested by this RFQ
", "You are not interested by this RFQ
" Champ.add "Your Pay-per-view credit is unchanged", "Your RFQ credit is unchanged" Champ.add "Your username and password are valid, but you are not registred as foundry and/or a forge ", "Your username and password are valid, but you are not registred as foundry and/or a forge " Champ.add "Sorry, but your username and password are not valid ", "Sorry, but your username and password are not valid " Champ.add "To quote this RFQ you need to upgrade your subscription.", "To quote this RFQ you need to upgrade your subscription." Champ.add "You can do this directly from your organiser", "You can do this directly from your organiser" Champ.add "This Request For Quotation is not accessible for quote with a freee membership.", "This Request For Quotation is not accessible for quote with a free membership." Champ.add "This Request For Quotation is accessible to registered suppliers with a paying subscription only.", "Note :
This Request For Quotation is accessible to registered suppliers with a paying subscription only." Champ.add "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer.", "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer." Champ.add "You too can communicate directly with buyers in changing your registration from your organizer.", "You too can communicate directly with buyers in changing your registration from your organizer." Champ.add "You are registered :", "You are registered :" Champ.add "Please enter your username and password to get it in your organizer", "Please enter your username and password to get this RFQ in your organizer" Champ.add "You are not registered :", "You are not registered :" Champ.add "To have access to this Request For Quotation, please proceed first with your", "To be able to quote this Request For Quotation, please see conditions by clicking on " Champ.add "registration", "registration" Champ.add "Specify for machining only", "Specify for machining only" Champ.add "Your upgrade is now effective", "Your upgrade is now effective" Champ.add "Pending RFQs", "Pending RFQs" Champ.add "Description", "Description" Champ.add "Closed RFQs", "Closed RFQs" Champ.add "(Closed by buyer)", "(Closed by buyer)" Champ.add "Pending searchs", "Pending searchs" Champ.add "Closed searchs", "Closed searchs" Champ.add "Pending leads", "Pending leads" Champ.add "Closed leads", "Closed leads" Champ.add "Parts description", "Parts description" Champ.add "Geographical sourcing", "Geographical sourcing" Champ.add "Part(s) name", "Part(s) name" Champ.add "New Material", "New Material" Champ.add "New Certification", "New Certification" Champ.add "New Process", "New Process" Champ.add "New Facilities", "New Facilities" Champ.add "New ISO", "New ISO" Champ.add "New Market", "New Market" Champ.add "New Moulding", "New Moulding" Champ.add "ISO", "ISO" Champ.add "Can you supply parts elaborated with", "Can you supply parts elaborated with" Champ.add "Electro Slag Remelting Process (ESR)", "Electro Slag Remelting Process (ESR)" Champ.add "Vacuum Oxygen Decarburization Process (VOD)", "Vacuum Oxygen Decarburization Process (VOD)" Champ.add "Argon Oxygen Decarburization Process (AOD)", "Argon Oxygen Decarburization Process (AOD)" Champ.add "For the process of ring rolling, input :
- max outside diameter in the length max area,
- min inside diameter in the width max area,
- max thickness in the height max area", "For the process of ring rolling, input :
- max outside diameter in the length max area,
- min inside diameter in the width max area,
- max thickness in the height max area" Champ.add "Print", "Print" Champ.add "Help", "Help" Champ.add "Cancel", "Cancel" Champ.add "Ok", "Valid" Champ.add "Save", "Save" Champ.add "Put online", "Put online" Champ.add "Put offline", "Put offline" Champ.add "Add", "Add" Champ.add "Delete", "Delete" Champ.add "Upload", "Upload" Champ.add "Download", "Download" Champ.add "Files", "Drawings" Champ.add "File", "Drawing" Champ.add "Enter the file to upload :", "Enter the file to upload :" Champ.add "Are you sure you want to delete this item ?", "Are you sure you want to delete this item ?" Champ.add "winHelp", "Help.htm" Champ.add "Add to my buyers list", "Add to my buyers list" Champ.add "Close RFQ", "Close RFQ" Champ.add "Re open RFQ", "Re open RFQ" Champ.add "Click on the line when highlighted to see the detail of the RFQ", "Click on the line when highlighted to see the detail of the RFQ" Champ.add "Upgrade", "Upgrade" Champ.add "Upgrade pending", "Upgrade pending" Champ.add "Your ask for upgrade to", "Your request for upgrade to" Champ.add "is about to be validated by Subcontract Solutions", "is about to be validated by Subcontract Solutions" Champ.add "Your upgrade will be effective as soon as your paiement will be received", "Your upgrade will be effective as soon as your paiement will be received" Champ.add "Amount", "Amount" Champ.add "Date of validity", "Date of validity" Champ.add "I want to upgrade to", "I want to upgrade to" Champ.add "Business language", "Business language" Champ.add "To quote these RFQ(s), register", "To quote these RFQs, register" Champ.add "To quote this RFQ, register", "To quote this RFQ, register" Champ.add "CA", "Turnover" Champ.add "% Exp.", "% Export" Champ.add "Tel", "Tel" Champ.add "Web", "Web" Champ.add "Managing director", "Managing director" Champ.add "Sales manager", "Sales manager" Champ.add "Production manager", "Production manager" Champ.add "Quality manager", "Quality manager" Champ.add "Dimensions", "Dimensions" Champ.add "Other", "Contact" Champ.add "Photo", "Photo" Champ.add "Logo", "Logo" Champ.add "Voir la Fiche", "View your profile" Champ.add "only", "only" Champ.add "to2", "to" Champ.add "Criterias", "Criterias Search" Champ.add "manufacturing industry", "manufacturing industry" Champ.add "foundry process", "foundry process" Champ.add "forge process", "forge process" Champ.add "foundry material", "material" Champ.add "forge material", "material" Champ.add "ISO qualification", "ISO qualification" Champ.add "required certification", "required certification" Champ.add "doesn't matter", "doesn't matter" Champ.add "Qty per delivery", "Qty per delivery" Champ.add "Estimated qty per year", "Estimated qty / year" Champ.add "Unit weight", "Unit weight" Champ.add "File attachment", "File attachment" Champ.add "Files attachment", "Files attachment" Champ.add "Order requirements", "Order requirements" Champ.add "RFQ closing date", "Closing date" Champ.add "expected order date", "expected order date" Champ.add "Incoterms", "Incoterms" Champ.add "Delivery date", "Delivery date" Champ.add "Place of delivery", "Place of delivery" Champ.add "Item", "Item" Champ.add "please do not insert your coordinates", "please do not insert your contact details" Champ.add "Your RFQ reference", "Your RFQ reference" Champ.add "(city / country)", "(city / country)" Champ.add "Certificate", "Certificate" Champ.add "Status", "Status" Champ.add "Delivery requirements", "Delivery requirements" Champ.add "Place", "Place" Champ.add "Online since", "Online since" Champ.add "open until", "open until" Champ.add "yes", "Yes" Champ.add "complete the informations of the following items", "complete informations of following items" Champ.add "Your unlimited access to Request For Quotations has expired", "Your unlimited access to Request For Quotations has expired" Champ.add "New", "New" Champ.add "Pending", "Pending" Champ.add "navigation problems ?
get latest browser versions", "navigation problems ?
get latest browser versions" Champ.add "Not Disclosed", "Not Disclosed" Champ.add "Decline this RFQ", "Decline this RFQ" Champ.add "Make a new offer", "Make a (new) offer" Champ.add "Pending Offer", "Pending Offer" Champ.add "Offres", "Offers" Champ.add "Offre", "Offer" Champ.add "Liste des offres", "Offers list" Champ.add "Réalisation de l'offre", "Making of offer" Champ.add "Your offer", "Your offer" Champ.add "envoyée le", "sent the" Champ.add "Your offer number", "Your offer number" Champ.add "Your reference", "Your reference" Champ.add "Your name", "Your name" Champ.add "Your Email", "Your Email" Champ.add "Qty/year", "Qty/year" Champ.add "Unit Price", "Unit Price" Champ.add "Total", "Total" Champ.add "Tool cost", "Tool cost" Champ.add "To quote", "To quote" Champ.add "Item declined", "Item declined" Champ.add "Total Offer", "Total Offer" Champ.add "Offer valid until", "Offer valid until" Champ.add "Tool / pattern cost", "Tool / pattern cost" Champ.add "Payment conditions", "Payment conditions" Champ.add "Decline item", "Decline item" Champ.add "Offer conditions", "Offer conditions" Champ.add "D'abord", "First" Champ.add "or", "or" Champ.add "puis", "then" Champ.add "Save offer", "Save offer" Champ.add "Delete offer", "Delete offer" Champ.add "Send offer", "Send offer" Champ.add "View offer", "View before sending" Champ.add "(remplace l'offre précédente)", "(replaces previous offer)" Champ.add "To Company", "To Company" Champ.add "From Company", "From Company" Champ.add "Your contact", "Your contact" Champ.add "Offer reference", "Offer reference" Champ.add "Offer number", "Offer number" Champ.add "Our reference", "Our reference" Champ.add "All prices are in", "All prices are in" Champ.add "Qty/del.", "Qty/del." Champ.add "Supplier country", "Supplier country" Champ.add "Send mail", "Send Mail" Champ.add "RFQ", "RFQ" Champ.add "(buyer's name not disclosed)", "(buyer's name not disclosed)" Champ.add "not active", "not active" Champ.add "Access to price comparison list : ", "Access to price comparison list : " Champ.add "Offer Nb", "Offer Nb" Champ.add "Total Items", "Total Items" Champ.add "Total Tools", "Total Tools" Champ.add "Send", "Send" Champ.add "Offer from", "Offer from" Champ.add "Additional informations", "Additional informations" Champ.add "Prices of this offer are in", "Prices of this offer are in" Champ.add "Incoterms used is", "Incoterms used is" Champ.add "View drawing", "View
sample
drawing" Champ.add "To import into your organizer, click : ", "To import into your organizer, click : " Champ.add "Success stories", "Testimonials" Champ.add "Buyers", "Buyers" Champ.add "Suppliers", "Suppliers" Champ.add "References", "References" Champ.add "New Gold Pass members", "New Gold Pass members" Champ.add "new RFQ to finalise", "new RFQ to finalise" Champ.add "RFQ pending", "RFQ pending" Champ.add "RFQ that are expired or about to expire", "RFQ that are expired" Champ.add "new Search to finalise", "new Search to finalise" Champ.add "Search pending", "Search pending" Champ.add "Search that are expired or about to expire", "Search that are expired" Champ.add "Manufact.", "Manufact." Champ.add "Downloads", "Downloads" Champ.add "Quotes", "Quotes" Champ.add "Creation", "Creation" Champ.add "Validation", "Validation" Champ.add "Offline", "Stand-by" Champ.add "My Suppliers", "My Suppliers" Champ.add "My Contacts", "My Contacts" Champ.add "New RFQ list", "New RFQ list" Champ.add "RFQ under validation by Subcontract Solutions", "Under validation by Subcontract Solutions" Champ.add "New RFQs", "New RFQs" Champ.add "Countries selection", "Countries selection" Champ.add "Countries", "Countries" Champ.add "Not completed", "Not completed" Champ.add "all countries selected", "all countries selected" Champ.add "All countries" , "All countries" Champ.add "File download", "File download" Champ.add "displayed to suppliers", "displayed to suppliers" Champ.add "My internal notes (not displayed to suppliers)", "My internal notes (not displayed to suppliers)" Champ.add "Messages board", "Messages board" Champ.add "BIDDERS LIST", "BIDDERS LIST" Champ.add "DOWNLOADERS LIST", "DOWNLOADERS LIST" Champ.add "Downloads from Subcontract Solutions Gold Pass supplier network", "Downloads from Subcontract Solutions Gold Pass supplier network" Champ.add "Other downloads from Subcontract Solutions supplier network", "Other downloads from Subcontract Solutions supplier network" Champ.add "Offers from Subcontract Solutions Gold Pass supplier network", "Offers from Subcontract Solutions Gold Pass supplier network" Champ.add "Other offers from Subcontract Solutions supplier network", "Other offers from Subcontract Solutions supplier network" Champ.add "Supplier from", "Supplier from" Champ.add "Message type selection", "Message type selection" Champ.add "Selection", "Selection" Champ.add "View", "View" Champ.add "Free text message", "Free text message" Champ.add "Subject", "Subject" Champ.add "Price analysis area", "Price analysis area" Champ.add "To view supplier profile click on", "To view supplier profile click on" Champ.add "Display of offer n°", "Display of offer n°" Champ.add "dated", "dated" Champ.add "My comments", "My comments" Champ.add "Create a new Request For Quotation", "Create a new Request For Quotation" Champ.add "I allow price comparison for suppliers", "I allow price comparison for suppliers" Champ.add "Offers from Gold Pass suppliers", "Offers from Gold Pass suppliers" Champ.add "Offers from Quote Pass suppliers", "Offers from Quote Pass suppliers" Champ.add "My account manager", "My account manager" Champ.add "Manufacturing", "Manufacturing" Champ.add "Materials elaborated", "Materials elaborated" Champ.add "Moulding processes", "Moulding processes" Champ.add "Forging processes", "Forging processes" Champ.add "Qualifications", "Qualifications" Champ.add "View profile", "View profile" Champ.add "Request for quotation list" , "Request for quotation list" Champ.add "Supplier search message list" , "Buy leads" Champ.add "Prec" , "Previous" Champ.add "Next" , "Next" Champ.add "Page" , "Page" Champ.add "Geographical" , "Geographical selection" Champ.add "Search" , "Search" Champ.add "Supplier search messages online" , "Supplier search messages online" Champ.add "Send RFQ" , "send RFQ" Champ.add "Online Directory" , "Online directory" Champ.add "Send Buy Leads" , "send buy leads" Champ.add "View2" , "view" Champ.add "buyleads2" , " buy leads" Champ.add "RFQ2" , " RFQs" Champ.add "Subcontract Solutions", "Subcontract Solutions" Champ.add "FF", "Foundries & Forges area" Champ.add "Our vision" , "Our vision" Champ.add "Find new suppliers" , "Find new suppliers" Champ.add "Meet new buyers" , "meet new buyers" Champ.add "Suppliers to foundries & forges" , "Suppliers to Foundries & Forges" Champ.add "Smart tools" , "Smart tools" Champ.add "Buyers2" , "Buyers area" Champ.add "Suppliers2" , "Suppliers to Foundries & Forges area" Champ.add "FF2", "Foundries & Forges" Champ.add "VDMA" , "VDMA e-markets" Champ.add "buyleads3" , "Buy Leads online" Champ.add "Foundries and Forges" , "foundries & forges" Champ.add "Suppliers3" , "suppliers to foundries & forges" Champ.add "Marketplace" , "Market Place" set Mail=Server.CreateObject("Scripting.Dictionary") Mail.add "Registration in Subcontract Solutions'Supplier Guide", "Registration in Subcontract Solutions Supplier Guide" Mail.add "Registration in Subcontract Solutions'Database", "Registration in Subcontract Solutions" Mail.add "Dear", "Dear" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions'Database is complete.", "We are pleased to inform you that your registration in Subcontract Solutions'Database is complete." Mail.add "Thank you for your registration in Subcontract Solutions' Supplier guide.", "Thank you for your registration in Subcontract Solutions' Supplier guide." Mail.add "Your username and password will be active within 48 hours.", "Your username and password will be active within 48 hours." Mail.add "Once we have received your payment we will activate your listing in the Supplier Guide. You will receive a confirmation when payment has been received.", "Once we have received your payment we will activate your listing in the Supplier Guide. You will receive a confirmation when payment has been received." Mail.add "You have been registered with the following profile", "You have been registered with the following data" Mail.add "Best regards", "Best regards" Mail.add "Customer Service", "Customer Service" Mail.add "We are pleased to inform you that your registration in Subcontract Solutions' Supplier Guide is complete.", "We are pleased to inform you that your registration in Subcontract Solutions' Supplier Guide is effective." Mail.add "Your company is listed with the following details", "Your company is listed with the following data" Mail.add "To change your profile you can go to our site : http://www.subcontractsolutions.com and login with your username and password", "To change your profile you can go to our site : http://www.subcontractsolutions.com and login with your username and password" Mail.add "However, it appears that your company has already been registered by one of your colleagues.", "However, it appears that your company has already been registered." Mail.add "To prevent unnecessary expenses or inconvenience for your firm, may we suggest you consult our contact in your companys", "To prevent unnecessary expenses or inconvenience for your firm, may we suggest you consult our contact in your company" Mail.add "If an error has occurred please accept our apologies.", "If our assumption is wrong please accept our apologies." Mail.add "We shall be awaiting your confirmation before proceeding with your registration.", "We shall be awaiting your confirmation before proceeding with your registration." Mail.add "Please contact us by e-mail at: sales@SubcontractSolutions.com, or call:+33 - (0)3 25 49 03 22", "Please contact us by e-mail at: customerservice@SubcontractSolutions.com, or call:+33 - (0)3 25 49 03 22" Mail.add "Your registration is effective. From now on, with your login and password, you can access your private organizer.", "Your registration is effective. From now on, with your login and password, you can access your private organizer." Mail.add "We highly recommend you to fill up your production capacities and your know-how in our supplier database. You can access it from your private organizer", "We highly recommend you to fill up your production capacities and your know-how in our supplier database. You can access it from your private organizer" Mail.add "Best regards and good sales !", "Best regards and good sales !" Mail.add "Thank you for your registration in Subcontract Solutions'Database.", "Thank you for your registration." Mail.add "Your will receive a confirmation that your account is active within 48 hours.", "You will receive a confirmation that your account is active within 48 hours." Mail.add "An invoice will be sent to you by e-mail within 48 hours", "An invoice will be sent to you by e-mail within 48 hours" Mail.add "You can at any time after that login, view and change your company's profile directly from from our site: http://www.subcontractsolutions.com", "You can at any time after that login, view and change your company's profile directly from from our site: http://www.subcontractsolutions.com" Mail.add "You will receive a confirmation that your account is active once payment has been received", "You will receive a confirmation that your account is active once payment has been received" Mail.add "Thank you for your registration, please find your invoice and registration details below. Your account will be actif once we receive your payment.", "Thank you for your registration, please find your invoice and registration details below. Your account will be activated once your payment has been received." set Jour=Server.CreateObject("Scripting.Dictionary") Jour.add "1", "Sunday" Jour.add "2", "Monday" Jour.add "3", "Tuesday" Jour.add "4", "Wenesday" Jour.add "5", "Thursday" Jour.add "6", "Friday" Jour.add "7", "Saturday" set Mois=Server.CreateObject("Scripting.Dictionary") Mois.add "1", "January" Mois.add "2", "February" Mois.add "3", "March" Mois.add "4", "April" Mois.add "5", "May" Mois.add "6", "June" Mois.add "7", "July" Mois.add "8", "August" Mois.add "9", "September" Mois.add "10", "October" Mois.add "11", "November" Mois.add "12", "December" set State=Server.CreateObject("Scripting.Dictionary") State.add "1", "Crée" State.add "3", "Offert" State.add "4", "En cours" State.add "5", "Suspendue" State.add "7", "En attente" State.add "501", "Fait" State.add "502", "Annulé" State.add "506", "Ré-assigné" %><% case "fr" lg = "fr" %><% set Rubrique=Server.CreateObject("Scripting.Dictionary") Rubrique.add "suppliers", "fournisseurs" Rubrique.add "supplier guide presentation", "presentation du guide fournisseur" Rubrique.add "listing options", "options de referencement" Rubrique.add "registration", "enregistrement" Rubrique.add "supplier search", "recherche fournisseur" Rubrique.add "access supplier guide", "acces guide fournisseur" Rubrique.add "supplier guide", "guide fournisseur" Rubrique.add "foundry & forge database", "base de donnees fonderies et forges" Rubrique.add "subcontract solutions", "subcontract solutions" Rubrique.add "our vision", "notre vision" Rubrique.add "contact us", "contactez nous" Rubrique.add "newsletter", "lettre d'information" Rubrique.add "company", "société" Rubrique.add "products", "produits" Rubrique.add "terms and payment", "Termes et Conditions" Rubrique.add "My company", "Ma société" Rubrique.add "My products", "Mes produits" Rubrique.add "overview", "présentation" Rubrique.add "Smart tools...", "Utilisez les bons outils..." Rubrique.add "SupplierPass", "SupplierPass" Rubrique.add "SupplierMatch", "SupplierMatch" Rubrique.add "Subcontract Organiser", "Subcontract Organiser" Rubrique.add "services", "services" Rubrique.add "ProSolutions", "ProSolutions" Rubrique.add "e-ProSolutions", "e-ProSolutions" Rubrique.add "strategic sourcing", "sourcing stratégique" Rubrique.add "order follow up", "suivi de commande" Rubrique.add "expert services", "services experts" Rubrique.add "prices", "prix" Rubrique.add "consult prices", "consultez nos prix" Rubrique.add "register here", "enregistrez-vous" Rubrique.add "faq", "faq" Rubrique.add "frequently asked questions", "foire aux questions" Rubrique.add "view & quote new RFQs", "les appels d'offre" Rubrique.add "Home", "Accueil" Rubrique.add "My Profile", "Mes données utilisateur" Rubrique.add "My Registration", "Mon abonnement" Rubrique.add "MY RFQ FILES", "MES APPELS D'OFFRE (AOF)" Rubrique.add "New RFQs alerts", "Alertes nouveaux AOF" Rubrique.add "Pending RFQs", "AOF en cours" Rubrique.add "Closed RFQs", "AOF fermés" Rubrique.add "Declined RFQs", "AOF déclinés" Rubrique.add "Create RFQ", "Creation AOF" Rubrique.add "New RFQs", "Nouveaux AOF" Rubrique.add "My Buyers", "Mes acheteurs" Rubrique.add "My Suppliers", "Mes fournisseurs" Rubrique.add "My Contacts", "Mes contacts" Rubrique.add "FOUNDRY", "MES DONNEES FONDERIE" Rubrique.add "Material", "Matière" Rubrique.add "Moulding", "Moulage" Rubrique.add "Facilities", "Installation" Rubrique.add "ISO", "ISO" Rubrique.add "Certification", "Certification" Rubrique.add "Market", "Marché" Rubrique.add "FORGE", "MES DONNEES FORGE" Rubrique.add "Dimensions", "Dimensions" Rubrique.add "Logout", "Déconnexion" Rubrique.add "Management", "Direction" Rubrique.add "MY SUPPLIER SEARCH", "MES RECHERCHES FOURNISSEURS" Rubrique.add "New file alerts", "Alertes nouveaux fichiers" Rubrique.add "Pending searchs", "Recherches en cours" Rubrique.add "Closed searchs", "Recherches fermées" Rubrique.add "Declined searchs", "Recherches déclinées" Rubrique.add "Create search", "Creation recherche" Rubrique.add "New searchs", "Nouvelles recherches" Rubrique.add "MY BUYER LEADS", "MES ANNONCES ACHETEUR" Rubrique.add "Pending leads", "Annonces en cours" Rubrique.add "Closed leads", "Annonces fermées" Rubrique.add "Send Message", "Envoi de Message" Rubrique.add "Online help", "Aide en ligne" set Bouton=Server.CreateObject("Scripting.Dictionary") Bouton.add "boutons/cancelBlank.gif", "boutons_fr/annuler.gif" Bouton.add "boutons/nextBlank.gif", "boutons_fr/suivant.gif" Bouton.add "boutons/backBlank.gif", "boutons_fr/precedent.gif" Bouton.add "boutons/registerBlank.gif", "boutons_fr/enregistrer.gif" Bouton.add "boutons/print.gif", "boutons_fr/imprimer.gif" Bouton.add "boutons/confirmBlank.gif", "boutons_fr/confirmer.gif" Bouton.add "boutons/sendBlank.gif", "boutons/sendBlank.gif" Bouton.add "boutons/notInterested.gif", "boutons_fr/pasInteresse.gif" Bouton.add "boutons/interested.gif", "boutons_fr/interesse.gif" set Titre=Server.CreateObject("Scripting.Dictionary") Titre.add "WF/Activities/Buyers/demande.asp", "Request for Price" Titre.add "WF/Activities/inscriptionFF/inscription.asp", "Registration : company information" Titre.add "WF/Activities/inscriptionFF/produits.asp", "Registration : products" Titre.add "WF/Activities/inscriptionFF/confirmation.asp", "Registration : confirmation" set Champ=Server.CreateObject("Scripting.Dictionary") Champ.add "View your company profile", "Voir votre profil société" Champ.add "Company information", "Informations société" Champ.add "Company name", "Nom société" Champ.add "Bronze listing", "Abonnement Bronze" Champ.add "Silver listing", "Abonnement Argent" Champ.add "Gold listing", "Abonnement Or" Champ.add "Address", "Adresse" Champ.add "Postal code", "Code postal" Champ.add "City", "Ville" Champ.add "Country", "Pays" Champ.add "Phone", "Telephone" Champ.add "Fax", "Fax" Champ.add "URL", "Site Internet" Champ.add "Supplier to Foundries", "Fournisseur aux fonderies" Champ.add "Supplier to Forges", "Fournisseur aux forges" Champ.add "Title", "Civilité" Champ.add "First name", "Prénom" Champ.add "Last name", "Nom" Champ.add "Function", "Fonction" Champ.add "E-mail", "E-mail" Champ.add "Preferred business language", "Langue de travail preferrée" Champ.add "Other languages", "Autres langues" Champ.add "Login", "Identification" Champ.add "Username", "Identifiant" Champ.add "Password", "Mot de passe" Champ.add "Confirm password", "Confirmation mot de passe" Champ.add "I register my company with", "Ma société s'enregistre avec" Champ.add "Your company profile", "Coordonnées société" Champ.add "Contact data", "Coordonnées du contact" Champ.add "required fields", "champs obligatoires" Champ.add "min. 4 characters", "4 caractères mini." Champ.add "VAT excluded / year", "HT / an" Champ.add "VAT excluded", "HT" Champ.add "Setup fee", "Frais d'installation" Champ.add "The following fields are required", "Vous devez remplir les champs suivants" Champ.add "Invalid E-mail", "Adresse e-mail invalide" Champ.add "You have not confirmed the same password", "Vous n avez pas confirmé le même mot de passe" Champ.add "The password must be 4 characters length", "Le mot de passe doit avoir au moins 4 caractères" Champ.add "You must accept the Terms and conditions to register", "Vous devez accepter les Conditions Générales pour pouvoir souscrire" Champ.add "Blank are not allowed in the login", "Les espaces ne sont pas autorisés dans le login" Champ.add "Supplier's products", "Produits référencés" Champ.add "Tick below your products to be referenced", "Cochez ci-dessous la liste des produits à référencer" Champ.add "Products", "Produits" Champ.add "Product", "Produit" Champ.add "Choice", "Choix" Champ.add "Type of registration", "Choix d'abonnement" Champ.add "Listing option", "Abonnement" Champ.add "Bronze", "Bronze" Champ.add "Silver", "Argent" Champ.add "Gold", "Or" Champ.add "Company", "Société" Champ.add "Supplier for", "Fournisseur pour" Champ.add "Founderies", "Fonderies" Champ.add "Forges", "Forges" Champ.add "Foundry", "Fonderie" Champ.add "Forge", "Forge" Champ.add "Contact name", "Nom du contact" Champ.add "Before registering your company, you must accept the Terms & Conditions.", "Avant d'enregistrer votre société, vous devez accepter les Conditions Générales d'Utilisation." Champ.add "I accept the terms & conditions", "J'accepte les Conditions Générales d'Utilisation" Champ.add "Payable by bank transfer to", "Paiement par transfert bancaire à" Champ.add "Order information", "Résumé de votre enregistrement" Champ.add "Products supplied", "Produits référencés" Champ.add "Terms & Conditions", "Conditions Générales" Champ.add "Registering", "Enregistrement" Champ.add "SWIFT address", "Adresse SWIFT" Champ.add "Account number", "n° de compte" Champ.add "Code banque", "Code banque" Champ.add "Code guichet", "Code guichet" Champ.add "Clé RIB", "Clé RIB" Champ.add "Domiciliation", "Domiciliation" Champ.add "Branch", "Succursale" Champ.add "An invoice will be issued as soon as you are registered", "Le cas échéant une facture vous sera envoyée dés votre enregistrement" Champ.add "Invoice", "Facture" Champ.add "Date", "Date" Champ.add "Invoice number", "Facture n°" Champ.add "Recipient", "Destinataire" Champ.add "Account manager", "Administrateur de compte" Champ.add "Before V.A.T. €", "Hors taxes en euros" Champ.add "Total V.A.T. €", "Total T.V.A. en euros" Champ.add "Net due €", "Net à Payer en euros" Champ.add "V.A.T. number", "Numéro de T.V.A." Champ.add "(V.A.T. : 19.6%)", "(Taux T.V.A. : 19,6%)" Champ.add "Exemption VAT - EU delivery - art. 259 A 4° CGI", "Exoneration de la TVA - livraison CEE - art. 259 A 4° CGI" Champ.add "Exemption VAT - art 262 I 1° CGI", "Exoneration de la TVA - art 262 I 1° CGI" Champ.add "Payable by bank transfer", "Payable par virement bancaire" Champ.add "Emetteur", "Emetteur" Champ.add "Request for price", "Demande de prix" Champ.add "I am interested in the following service and would like to receive an offer for it", "Veuillez me faire une offre pour un abonnement à :" Champ.add "Contact informations", "Informations" Champ.add "Annual purchasing potential", "Volume d'achat annuel:" Champ.add "Castings", "Pièces moulées" Champ.add "Forgings", "Pièces forgées" Champ.add "Purchasing volume", "Volume d'achat" Champ.add "Number of RFQs", "Nombre d'appel d'offre" Champ.add "Number of POs", "Nombre de commandes" Champ.add "Number of active suppliers", "Nombre de fournisseurs actifs" Champ.add "Number of other suppliers known", "Nombre de fournisseurs consultés" Champ.add "Number of suppliers to register", "Nombre de fournisseurs à enregistrer" Champ.add "Number of buyers", "Nombre d'acheteurs à enregister" Champ.add "Please type in your comments, if any", "Commentaires" Champ.add "ProSolutions", "ProSolutions" Champ.add "e-ProSolutions", "e-ProSolutions" Champ.add "Subscription", "Abonnement" Champ.add "Casting purchasing volume", "Casting purchasing volume" Champ.add "Forging purchasing volume", "Forging purchasing volume" Champ.add "Number of active casting suppliers", "Number of active casting suppliers" Champ.add "Number of other casting suppliers", "Number of other casting suppliers" Champ.add "Number of active forging suppliers", "Number of active forging suppliers" Champ.add "Number of other forging suppliers", "Number of other forging suppliers" Champ.add "Welcome to your organizer", "Bienvenue dans votre espace de travail" Champ.add "You have", "Vous avez" Champ.add "new RFQs alerts", "Alertes de nouveaux Appels d'Offre" Champ.add "RFQs pending", "Appels d'Offre en cours" Champ.add "RFQs declined", "Appels d'Offre déclinés" Champ.add "You are registered with", "Vous êtes abonné à" Champ.add "from", "du" Champ.add "to", "au" Champ.add "since", "depuis" Champ.add "Your RFQ Credit", "Votre crédit d'Appel d'Offre" Champ.add "You have unlimited Pay-per-view", "Vous avez un accès illimité aux Appels d'Offre" Champ.add "available", "disponible" Champ.add "Upgrade your registration or buy new Pay-per-view", "Modifiez votre enregistrement" Champ.add "click here", "cliquez ici" Champ.add "My Registration", "Mon Abonnement" Champ.add "Registration", "Abonnement" Champ.add "PPV Credit", "Credit AO" Champ.add "Valid until", "Valable jusqu'au" Champ.add "unlimited", "illimité" Champ.add "empty", "épuisé" Champ.add "expired", "expiré" Champ.add "Closed", "Fermé" Champ.add "Payment", "Paiement (uniquement en cas d'inscription payante)" Champ.add "Valid", "Valide" Champ.add "RFQ viewed", "AO vus" Champ.add "Certification", "Certification" Champ.add "Facilities", "Installation" Champ.add "Weight", "Poids" Champ.add "Internal", "Interne" Champ.add "External", "Externe" Champ.add "Rough", "Brut" Champ.add "Rough machined", "Ebauché" Champ.add "Finish machined", "Fini d'usinage" Champ.add "Rough machining", "Usinage d'ébauche" Champ.add "Finish machining", "Usinage de finition" Champ.add "Certified by", "Certifié par" Champ.add "Market", "Marché" Champ.add "Material", "Matière" Champ.add "Weight Range", "Gamme de poids" Champ.add "Tonnage per year", "Tonnage annuel" Champ.add "Moulding process", "Procédé de moulage" Champ.add "Length", "Longueur" Champ.add "Width", "Largeur" Champ.add "Height", "Hauteur" Champ.add "Qty", "Qté" Champ.add "Quantity", "Quantité" Champ.add "Process", "Procédé" Champ.add "Precision", "Precision" Champ.add "Coarse", "Brut" Champ.add "Electrical", "Electrique" Champ.add "Methane", "Methane" Champ.add "On stock", "Sur stock" Champ.Add "Industry", "Industrie" Champ.add "Number of items", "Nombre d'items" Champ.add "Nbr of items", "Nb items" Champ.add "Customer country", "Pays" Champ.add "Market of destination", "Marché de destination" Champ.add "Closing date", "Clôture" Champ.add "Expected order date", "Commande" Champ.add "Buyer", "Acheteur" Champ.add "Quality requirements", "Critères qualité" Champ.add "ISO required", "ISO" Champ.add "required", "requise" Champ.add "not required", "non requise" Champ.add "Material certification", "Certification matière" Champ.add "Items", "Items" Champ.add "Part name", "Nom de la pièce" Champ.add "Supply Status", "Etat de livraison" Champ.add "Size", "Taille" Champ.add "Standard", "Standard" Champ.add "Item detail", "Détail de la pièce" Champ.add "Dimension", "Dimension" Champ.add "General comments", "Commentaires" Champ.add "Viewed", "Vue" Champ.add "My Buyers", "Mes Acheteurs" Champ.add "Contact", "Contact" Champ.add "RFQ Description", "Description AOF" Champ.add "ended", "terminé" Champ.add "metric tons", "Tonnes" Champ.add "Weight part", "Poids pièce" Champ.add "For the process of centrifugation, input :
- max diameter in the length max area,
- max thickness in the width max area,
- max length in the height max area", "Pour le procédé de centrifugation renseignez :
- Le diametre max dans la zone de la longueur max,
- l'épaisseur de paroi max dans la zone de largeur max,
- la longueur max dans la zone de la hauteur max" Champ.add "RFQs on line", "Appels d'Offre en ligne" Champ.add "Request For Quotation", "Appel d'Offre" Champ.add "You are interested to quote this RFQ,
please enter below your username and password to get it in your organizer.", "Vous êtes intéressé par cet Appel d'Offre,
veuillez entrer votre login et mot de passe pour le récupérer dans votre espace de travail." Champ.add "You are not interested to quote this RFQ,
please enter below your username and password.", "Vous n'êtes pas intéressé par cet Appel d'Offre,
Veuillez entre votre login et mot de passe." Champ.add "If you are not registered and want to quote this RFQ go to the", "Si vous n'êtes pas enregistré et souhaitez consulter cet Appel d'Offre, allez à la " Champ.add "registration page", "page d'enregistrement" Champ.add "This RFQ is now available in your RFQ list in your organizer
", "Cet Appel d'Offre est maintenant disponible dans vos nouvelles alertes
" Champ.add "Supplier searchs on line", "Recherche de fournisseurs en ligne" Champ.add "Supplier search", "Recherche de fournisseurs" Champ.add "Buyer lead", "Annonce acheteur" Champ.add "You are interested to quote this file,
please enter below your username and password to get it in your organizer.", "Vous êtes intéressé par ce fichier,
veuillez entrer votre login et mot de passe pour le récupérer dans votre espace de travail." Champ.add "If you are not registered and want to quote this file go to the", "Si vous n'êtes pas enregistré et souhaitez consulter ce fichier, allez à la " Champ.add "This file is now available in your organizer
", "Ce fichier est maintenant disponible dans votre espace de travail
" Champ.add "Parts description", "Description des pièces" Champ.add "Geographical sourcing", "Sélection géographique" Champ.add "Part(s) name", "Noms des pièces" Champ.add "Your Pay-per-view credit is now : ", "Votre crédit d'appel d'offre est maintenant : " Champ.add "Your Pay-per-view credit is empty !
", "Vous n'avez pas de crédit d'accés aux appels d'offres
" Champ.add "Please contact Subcontract Solutions to upgrade your credit", "Veuillez contacter Subcontract Solutions pour augmenter votre crédit" Champ.add "Your Pay-per-view credit is unlimited", "Votre crédit d'Appel d'Offre est illimité" Champ.add "Your registration has ended since ", "Votre abonnement a pris fin le " Champ.add "This RFQ is still available in your RFQ list in your organizer
", "Cet Appel d'Offre est déjà disponible dans votre espace de travail
" Champ.add "Your Pay-per-view credit is still : ", "Votre crédit d'appel d'offre est toujours : " Champ.add "You are not interested by this RFQ
", "Vous n'êtes pas intéressé par cet appel d'offre
" Champ.add "Your Pay-per-view credit is unchanged", "Votre crédit d'appel d'offre n'a pas changé" Champ.add "Your username and password are valid, but you are not registred as foundry and/or a forge ", "Votre login et mot de passe sont valides, mais vous n'êtes pas enregistré en tant que fonderie et/ou forge " Champ.add "Sorry, but your username and password are not valid ", "Désolé, mais votre login et mot de passe sont invalides " Champ.add "To quote this RFQ you need to upgrade your subscription.", "Pour visualiser cet Appel d'offre, vous devez vous réabonner." Champ.add "You can do this directly from your organiser", "Vous pouvez le faire directement depuis votre espace de travail" Champ.add "This Request For Quotation is not accessible for quote with a freee membership.", "Cet appel d'offre ne peut être chiffré avec un enregistrement gratuit." Champ.add "This Request For Quotation is accessible to registered suppliers with a paying subscription only.", "Note :
Cet appel d'offre n'est accessible qu'aux fournisseurs enregistrés avec un abonnement payant." Champ.add "This Request For Quotation is only accessible to subscribers that can communicate directly to the buyer.", "L'accés à cet appel d'offre est réservé aux fournisseurs qui peuvent communiquer directement avec l'acheteur." Champ.add "You too can communicate directly with buyers in changing your registration from your organizer.", "Vous pouvez vous aussi être en prise directe avec les donneurs d'ordre en modifiant votre abonnement depuis votre espace de travail." Champ.add "You are registered :", "Vous êtes abonné :" Champ.add "Please enter your username and password to get it in your organizer", "Veuillez entrer votre login et mot de passe pour récupérer cet Appel d'Offre dans votre espace de travail" Champ.add "You are not registered :", "Vous n'êtes pas abonné :" Champ.add "To have access to this Request For Quotation, please proceed first with your", "Pour chiffrer cet Appel d'Offre, veuillez voir les conditions en cliquant sur " Champ.add "registration", "enregistrement" Champ.add "Specify for machining only", "Ne spécifier que pour l'usinage" Champ.add "Your upgrade is now effective", "Votre réabonnement est maintenant effectif" Champ.add "Pending RFQs", "AO en cours" Champ.add "Description", "Description" Champ.add "Closed RFQs", "AO fermés" Champ.add "(Closed by buyer)", "(Fermé par l'acheteur)" Champ.add "Pending searchs", "Recherches en cours" Champ.add "Closed searchs", "Recherches fermées" Champ.add "Pending leads", "Annonces en cours" Champ.add "Closed leads", "Annonces fermées" Champ.add "New Material", "Nouvelle matière" Champ.add "New Certification", "Nouvelle certification" Champ.add "New Process", "Nouveau procédé" Champ.add "New Facilities", "Nouvelle installation" Champ.add "New ISO", "Nouvelle ISO" Champ.add "New Market", "Nouveau marché" Champ.add "New Moulding", "Nouveau moulage" Champ.add "ISO", "ISO" Champ.add "Can you supply parts elaborated with", "Pouvez vous livrer des pièces élaborées par" Champ.add "Electro Slag Remelting Process (ESR)", "Affinage sous laitier électro fondu (ESR)" Champ.add "Vacuum Oxygen Decarburization Process (VOD)", "Décarburation à l'oxygène sous vide (VOD)" Champ.add "Argon Oxygen Decarburization Pro