%
Option Explicit
Dim x,s,p
Function MakePair(sName)
MakePair = sName & "=" & Request.Form(sName) & " "
End Function
Function GI(sName)
if p="F" Then GI = Request.Form(sName) Else GI = ""
End Function
' find parameter string
p = CStr(Request.QueryString("P"))
If p="S" Then ' S for Send
' construct message to send
s = ""
s = s & MakePair("coll_nom")
s = s & MakePair("coll_prenom")
s = s & MakePair("coll_adresse")
s = s & MakePair("coll_adresse2")
s = s & MakePair("coll_cp")
s = s & MakePair("coll_pays")
s = s & MakePair("coll_email")
s = s & MakePair("coll_email2")
s = s & MakePair("coll_pays")
s = s & MakePair("coll_posfr")
s = s & MakePair("coll_posen")
s = s & MakePair("coll_posnl")
s = s & MakePair("coll_posguide")
s = s & MakePair("coll_possources")
s = s & MakePair("coll_bibpast")
s = s & MakePair("coll_tabpast")
s = s & MakePair("coll_deb")
s = s & MakePair("coll_bibfrancais")
s = s & MakePair("coll_AZ1")
s = s & MakePair("coll_AZ2")
s = s & MakePair("coll_AZ3")
s = s & MakePair("coll_AZ4")
s = s & MakePair("coll_AZ5")
s = s & MakePair("coll_AZ6")
s = s & MakePair("coll_FABIntro")
s = s & MakePair("coll_FABIbadites")
s = s & MakePair("coll_FABMaronites")
s = s & MakePair("coll_FABAssyro")
s = s & MakePair("coll_FABQuaker")
s = s & MakePair("coll_FABMusIndo")
s = s & MakePair("coll_FABVaudois")
s = s & MakePair("coll_FABIssunnite")
s = s & MakePair("coll_FABCaraites")
s = s & MakePair("coll_FABIsmaeliens")
s = s & MakePair("coll_BVCPrior")
s = s & MakePair("coll_BVCFBC")
s = s & MakePair("coll_BVCBabin")
s = s & MakePair("coll_MarmionOeuvres")
s = s & MakePair("coll_MarmionCorr")
s = s & MakePair("coll_Newman")
Set x = Server.CreateObject("CDONTS.NewMail")
' set recipient
x.To = "cib@cibmaredsous.be"
' set sender
x.From = "cib@cib-----maredsous.be"
' set subject
x.Subject = "Demande de prix"
x.Body = Replace(s, "
Ceci n'est pas site d'achat
en ligne mais un formulaire de demande d'offre
réservée aux particuliers. Dès
réception de ce formulaire nous vous enverrons une
proposition reprenant notre meilleure offre pour les
produits indiqués.
Cette offre tiendra compte de la quantité de
produits et des frais de port. Une remise sera accordée^pour
toute commande passée suite à cette offre.
Les données à
caractère personnel sont recueillies dans le
seul but de répondre à la demande
d'information. Ces données ne seront pas
communiquées à des tiers, ni utilisées à des
fins commerciales.
Conformément
à la loi belge du 8 décembre 1992 relative à
la protection de la vie privée, les
personnes concernées bénéficient d'un droit
d'accès et de rectification des informations
personnelles introduites et éventuellement
sauvegardées.
En cas où ces
données personnelles sont introduites au
niveau d'un paiement sécurisé, c'est à
l'intermédiaire qui garantit les paiements
sécurisés que l'utilisateur doit adresser
toute requête concernant ces données
personnelles.