//Connexion à la base de données ... 
gcnxConnexionBaseDeDonnées est une Connexion

gcnxConnexionBaseDeDonnées..Serveur = "officinadvsite.mysql.db"
gcnxConnexionBaseDeDonnées..BaseDeDonnées = "officinadvsite"
gcnxConnexionBaseDeDonnées..Utilisateur = "officinadvsite"
gcnxConnexionBaseDeDonnées..MotDePasse = "Giovani2000"
gcnxConnexionBaseDeDonnées..Provider = hAccèsNatifMySQL 
SI PAS HOuvreConnexion(gcnxConnexionBaseDeDonnées) ALORS
	FinProgramme("Connexion impossible à la base de données - "+ErreurInfo(errComplet))
SINON
	HChangeConnexion("*",gcnxConnexionBaseDeDonnées)
	HCréationSiInexistant("*")
FIN

Val_Con est un booléen=Faux

**********************************************************************************************

SI ExtraitChaîne(Saisie3,1,"@",DepuisFin)="yopmail.com" OU Saisie3="ahmad-amine@hotmail.fr" ALORS
	Erreur("CE TYPE D'EMAIL N'EST PAS AUTORISE !")
	LeMessage est une chaîne UNICODE
	EmailRAZ()
	Email.Expéditeur="clientelle@officinaplus.com" 
	Email.Destinataire[1]="clientelle@officinaplus.com"  
	Email.NbDestinataire = 1 
	Email.NbAttache = 0
	Email.Sujet = "BLOCAGE : Demande de version d'essai"
	LeMessage = "Contenu du message : "+RC+Saisie3+RC+NavigateurAdresseIP()
	MaChaîneEnUTF8 est un Buffer = ChaîneVersUTF8(LeMessage)
	Email.Message = MaChaîneEnUTF8 
	EmailEnvoieMessage() 
	PageAffiche(index)
SINON
	HRAZ(Demandes)
	Demandes.Nomprenom=Saisie1
	Demandes.Nompharmacie=Saisie2
	Demandes.Email=Saisie3
	Demandes.Adresse=Saisie4
	Demandes.Ville=Saisie5
	Demandes.Tel=Saisie6
	HAjoute(Demandes)
	LeMessage est une chaîne UNICODE
	EmailRAZ()
	Email.Expéditeur="clientelle@officinaplus.com" 
	Email.NbDestinataire = 1 
	Email.NbAttache = 0
	Email.Destinataire[1]=Saisie3 
	Email.Sujet = "Version d'essai d'OfficinaPlus"
	LeMessage = "Bonjour et merci d'avoir contacter l'équipe d'OfficinaPlus,"+RC+RC+"Nous faisons suite à votre inscription sur notre plateforme d'OfficinaPlus (Version d'essai)."+RC+RC+
	"Veuillez trouver ci-dessous LE LIEN DE TÉLÉCHARGEMENT DE LA VERSION D'ESSAI D'OFFICINAPLUS :"+RC+RC+
	"http://www.officinaplus.com/version/Install_OfficinaPlus_Demo_2016.zip"+RC+RC+"Nous vous remercions pour votre confiance."+RC+RC+"Cordialement,"+RC+RC+"www.officinaplus.com"+RC+RC+
	"L'équipe d'OffcinaPlus est à votre disposition pour toute assistance ou questions."+RC+RC+"SOCIÉTÉ THINK APPLIS"+RC+"_Think different._"
	Email.Message = LeMessage 
	Email.AccuséRéception=Vrai
	EmailEnvoieMessage() 
	Email.Expéditeur="clientelle@officinaplus.com" 
	Email.Destinataire[1]="clientelle@officinaplus.com"  
	Email.NbDestinataire = 1 
	Email.NbAttache = 0
	Email.Sujet = "Demande de version d'essai"
	LeMessage = "Contenu du message : "+RC+NavigateurAdresseIP()+RC+Répète("-",70)+RC+"E-mail automatique depuis www.officinaplus.com"+RC+Répète("-",70)+RC
	LeMessage=LeMessage+"Nom et prénom* :"+RC+Saisie1+RC+RC+"Nom de la Pharmacie* :"+RC+Saisie2+RC+RC+"E-mail* :"+RC+Saisie3+RC+RC+...
	"Adresse* :"+RC+Saisie4+RC+RC+"Ville* :"+RC+Saisie5+RC+RC+"Téléphone* :"+RC+Saisie6
	MaChaîneEnUTF8 est un Buffer = ChaîneVersUTF8(LeMessage)
	Email.Message = MaChaîneEnUTF8 
	EmailEnvoieMessage() 
	PageAffiche(confirmation)	
FIN

****************************************************************************************************

SI ExtraitChaîne(Saisie3,1,"@",DepuisFin)="yopmail.com" OU Saisie3="ahmad-amine@hotmail.fr" ALORS
	Erreur("CE TYPE D'EMAIL N'EST PAS AUTORISE !")
	LeMessage est une chaîne UNICODE
	EmailRAZ()
	Email.Expéditeur="clientelle@officinaplus.com" 
	Email.Destinataire[1]="clientelle@officinaplus.com"  
	Email.NbDestinataire = 1 
	Email.NbAttache = 0
	Email.Sujet = "BLOCAGE : Demande de version d'essai"
	LeMessage = "Contenu du message : "+RC+Saisie3+RC+NavigateurAdresseIP()
	MaChaîneEnUTF8 est un Buffer = ChaîneVersUTF8(LeMessage)
	Email.Message = MaChaîneEnUTF8 
	EmailEnvoieMessage() 
	PageAffiche(index)
SINON
	HRAZ(Demandes)
	Demandes.Nomprenom=Saisie1
	Demandes.Nompharmacie=Saisie2
	Demandes.Email=Saisie3
	Demandes.Adresse=Saisie4
	Demandes.Ville=Saisie5
	Demandes.Tel=Saisie6
	HAjoute(Demandes)
	LeMessage est une chaîne UNICODE
	EmailRAZ()
	Email.Expéditeur="clientelle@officinaplus.com" 
	Email.NbDestinataire = 1 
	Email.NbAttache = 0
	Email.Destinataire[1]=Saisie3 
	Email.Sujet = "Version d'essai d'OfficinaPlus BENIN"
	LeMessage = "Bonjour et merci d'avoir contacter l'équipe d'OfficinaPlus,"+RC+RC+"Nous faisons suite à votre inscription sur notre plateforme d'OfficinaPlus (Version d'essai)."+RC+RC+
	"Veuillez trouver ci-dessous LE LIEN DE TÉLÉCHARGEMENT DE LA VERSION D'ESSAI D'OFFICINAPLUS :"+RC+RC+
	"http://www.officinaplus.com/version/BENIN/Install_OfficinaPlus_Demo_2016_B.zip"+RC+RC+"Nous vous remercions pour votre confiance."+RC+RC+"Cordialement,"+RC+RC+"www.officinaplus.com"+RC+RC+
	"L'équipe d'OffcinaPlus est à votre disposition pour toute assistance ou questions."+RC+RC+"SOCIÉTÉ THINK APPLIS"+RC+"_Think different._"
	Email.Message = LeMessage 
	Email.AccuséRéception=Vrai
	EmailEnvoieMessage() 
	Email.Expéditeur="clientelle@officinaplus.com" 
	Email.Destinataire[1]="clientelle@officinaplus.com"  
	Email.NbDestinataire = 1 
	Email.NbAttache = 0
	Email.Sujet = "Demande de version d'essai"
	LeMessage = "Contenu du message : "+RC+NavigateurAdresseIP()+RC+Répète("-",70)+RC+"E-mail automatique depuis www.officinaplus.com"+RC+Répète("-",70)+RC
	LeMessage=LeMessage+"Nom et prénom* :"+RC+Saisie1+RC+RC+"Nom de la Pharmacie* :"+RC+Saisie2+RC+RC+"E-mail* :"+RC+Saisie3+RC+RC+...
	"Adresse* :"+RC+Saisie4+RC+RC+"Ville* :"+RC+Saisie5+RC+RC+"Téléphone* :"+RC+Saisie6
	MaChaîneEnUTF8 est un Buffer = ChaîneVersUTF8(LeMessage)
	Email.Message = MaChaîneEnUTF8 
	EmailEnvoieMessage() 
	PageAffiche(confirmation)	
FIN