 |
Z.I. de la Croix Blanche
5, rue du Petit Fief -
91700 Sainte Geneviève-des-Bois
|
| Téléphone: |
01 69 46 69 69 |
| FAX: |
01 60 15 98 15 |
| Mail: accueil@emu-idf.fr |
|
 |
 |
|
<%
Dim objCDOSYSMail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Dim objCDOSYSCnfg
Set objCDOSYSCnfg = Server.CreateObject("CDO.Configuration")
urname = request.form("urname")
email = request.form("email")
subject = request.form("subject")
message = request.form("message")
submit = request.form("submit")
' Owner Email: cdosys
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCnfg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCnfg.Fields.Update
objCDOSYSMail.Configuration = objCDOSYSCnfg
emailFrom = urname
emailSubject = "Form Results"
emailBodyText = "Name: " & urname & "" & vbCrLf _
& "Email: " & email & "" & vbCrLf _
& "Subject: " & subject & "" & vbCrLf _
& "Message: " & message & "" & vbCrLf _
& "" & vbCrLf _
& ""
objCDOSYSMail.To = """""info@sineticfl.com"
objCDOSYSMail.From = emailFrom
objCDOSYSMail.Subject = emailSubject
objCDOSYSMail.TextBody = emailBodyText
objCDOSYSMail.BodyPart.Charset = "ISO-8859-1"
objCDOSYSMail.Send
%>
|
|
|
 |
|
Situé au coeur de la Zone industrielle de la Croix Blanche, découvrez nos locaux situés à seulement 35 min de Paris...
|
| |
|
