<% Function checkMail(email) If Trim(stremail)="" Then 'if CInt(instr(email, "@"))<>0 Then %> <% End If End Function Dim strrs , strnom , strprenom ,strtel ,stremail, strfonction, stradr, strCp, strVille, strPays Dim objNewMail If request.form("mode") = "part" Then ' On recupere le contenu des champs text et on les met dans les variable stremail = request.form("partEmail") If Trim(stremail)<>"" Then checkMail(stremail) ' on creer la connection avec le server IIS Set objNewMail = CreateObject("CDO.Message") ' Address mail de destination objNewMail.To = "carole.rouen@rover-sa.com" objNewMail.Sender = "carole.rouen@rover-sa.com"'stremail ' objNewMail.BodyFormat = 0 0 pour HTML, 1 pour texte ' objNewMail.MailFormat = 1 0 pour HTML, 1 pour texte objNewMail.Subject = "Formulaire Roveronline Particulier[Demande du site particulier]" objNewMail.TextBody = "Email: " & stremail ' objNewMail.Send Set objNewMail = Nothing End If If request.form("mode") = "send" Then ' On recupere le contenu des champs text et on les met dans les variable 'partEmail strrs = request.form("rs") strnom = request.form("nom") strprenom = request.form("prenom") stremail = request.form("email") strtel = request.form("tel") strfonction = request.form("fonction") stradr = request.form("adr1") & request.form("adr2") strCp = request.form("cp") strVille = request.form("ville") strPays = request.form("pays") checkMail(email) ' on creer la connection avec le server IIS Set objNewMail = CreateObject("CDO.Message") ' Address mail de destination objNewMail.To = "carole.rouen@rover-sa.com" objNewMail.Sender = stremail 'objNewMail.BodyFormat = 0 ''0 pour HTML, 1 pour texte 'objNewMail.MailFormat = 1 ''0 pour HTML, 1 pour texte objNewMail.Subject = "Formulaire Roveronline" objNewMail.TextBody = "Raison social: " & strrs &VbCrLf& _ "Adresse: " & stradr &VbCrLf& _ "Code Postal: " & strcp &VbCrLf& _ "Ville: " & strVille &VbCrLf& _ "Pays: " & strPays &VbCrLf& _ "Nom: " & strnom &VbCrLf&_ "Prenom: " & strprenom &VbCrLf& _ "Telephone: " & strtel &VbCrLf& _ "Email: " & stremail &VbCrLf& _ "Fonction: " & strfonction &VbCrLf& _ "Client Rover : " & request.Form("client") &VbCrLf& _ "Code Client : " & request.Form("codeclient") &VbCrLf& _ "Commercial : " & request.Form("commercial") objNewMail.Send Set objNewMail = Nothing End If If request.form("mode") = "send" or request.form("mode") = "part" Then %> Formulaire Roveronline
 
Votre demande a bien été enregistrée.
Un conseiller ROVER y répondra
dans les meilleurs délais.

Nous vous remercions de votre confiance,

L'équipe Roveronline.
 
<% Else %> Formulaire Roveronline
 

Formulaire d'attribution d'un Code d'Accès

Votre Entreprise / Votre Administration
* Raison sociale :
* Adresse :
 
* C.P : * Ville :
* Pays :
Vous
* Nom :
* Prénom :
Fonction :
* N° de Téléph :
* e-mail :

  Code Client Votre Commercial Rover
(Nom ou Code représentant)
 Etes-vous déjà client ROVER ? Oui 
(Informations disponibles sur nos Bons de Livraison et Factures)
Non
       
<%End If%>