la maîtrise de l'étanchéité et de la couverture

Président Directeur Général
Monsieur Faride GHLOUCI

Directeur Général
Monsieur Mohamed MEHDAOUI

Chargé d'Affaires
Monsieur Stéphane ARRAIS


Adresse : 22, rue des Mares - 93230 ROMAINVILLE

Tel : 01 70 32 01 00

Fax : 01 48 46 92 19

E-mail :



<% if Request("Mode")<>"EnvoiMessage" then %>
Contactez nous par e-mail
Message
<% Else ' On Envoie le mail mailexp="info@fge-idf.fr" nomexp=request("prenom") & " " & request("nom") & " " & request("emailexp") maildest="info@fge-idf.fr" nomdest=maildest commentaire=request("message") if commentaire="" then commentaire="Pas de commentaire." aaddresse=Replace(request("addresse"),vbcrlf,"
") elephone=request("phone") Company=Request("Company") Email=Request("email") ' Create the JMail message Object set msg = Server.CreateOBject( "JMail.Message" ) ' Set logging to true to ease any potential debugging ' And set silent to true as we wish to handle our errors ourself msg.Logging = true msg.silent = true msg.From = mailexp msg.FromName = nomexp msg.replyto = Request("email") msg.MailServerUserName="info@fge-idf.fr" msg.MailServerPassword="0156491983" msg.AddRecipient maildest, nomdest msg.Subject = "Contact par l'intermédiaire du site Web FGE-IDF." ' The body property is both read and write. ' If you want to append text to the body you can ' use JMail.Body = JMail.Body & "Hello world! " ' or you can use JMail.AppendText "Hello World! " ' which in many cases is easier to use. ' ' Note the use of vbCrLf to add linebreaks to our email 'msg.Body = "Hello Jim" & vbCrLf & vbCrLf & "How's it going? ..." msg.appendHTML "Contact d'un internaute depuis le site Web.
" msg.appendHTML "Prénom et Nom : "& request("prenom") & " " & request("nom") & "
" msg.appendHTML "e-mail : " & Request("email") & "
" msg.appendHTML "Adresse : " & adresse & "
" msg.appendHTML "Tel. Fixe : " & Request("phone") & "
" msg.appendHTML "
Message :
" & commentaire ' There.. we have now succesfully created our message. ' Now we can either send the message or save it as a draft in a Database. ' To save the message you would typicly use the Message objects Text property ' to do something like this: ' ' SaveMessageDraft( msg.Text ) ' Note that this function call is only an example. The function does not ' exist by default, you have to create it yourself. ' If i would like to send my message, you use the Send() method, which ' takes one parameter that should be your mailservers address ' ' To capture any errors which might occur, we wrap the call in an IF statement if not msg.Send( "webmail.maxelysee.fr" ) then ' Response.write "
" & msg.log & "
" Response.write "
" & " Echec. Votre message n'a pu être déliveré. Merci de réessayer ultèrieurement. " & "
" else%>
.:Votre mail a bien été envoyé:.
<%end if %> <% End If %>

Agrandir le plan