<%@ Page Language="vb" %>
<%
Dim l_bShowText as Boolean = False
Dim l_strMessage as String = String.Empty
If Request.Form.AllKeys.Length > 2 Then
Dim l_strFrom As String = "mbergeron@shirka.com"
Dim l_strSubject As String = "Contact"
Dim l_strTo As String = "mbergeron@shirka.com"
Dim l_strSMTPServer As String = "smtp.shirka.com"
Dim l_strXslFileName As String = "\clients\indescriptible\xsl\MailTemplate.xsl"
Dim l_strMailSend as string = "Votre message a été envoyé"
Dim l_strMailError as string = "Une erreur est survenue lors de l'envoye de votre message"
l_bShowText = True
Dim l_strKey As String
Dim l_oXMLDocument As New System.Xml.XmlDocument()
Dim l_oRoot As System.Xml.XmlNode
Dim l_oNode As System.Xml.XmlNode
Dim l_oXslTransform As New System.Xml.Xsl.XslTransform()
Dim l_oStringWriter As New System.IO.StringWriter()
Dim l_oMailMessage As New Mail.MailMessage()
Try
l_oXMLDocument.LoadXml("")
l_oRoot = l_oXMLDocument.DocumentElement
For Each l_strKey In Request.Form.AllKeys
If l_strKey.ToLower.IndexOf("btsubmit") = -1 And Request(l_strKey) <> String.Empty Then
l_oNode = l_oXMLDocument.CreateNode(System.Xml.XmlNodeType.Element, "item", "")
l_oRoot.AppendChild(l_oNode)
l_oRoot = l_oRoot.LastChild
l_oNode = l_oXMLDocument.CreateNode(System.Xml.XmlNodeType.Element, "nom", "")
Select Case l_strKey
Case "txtNom"
l_oNode.InnerText = "Nom"
Case "txtPrenom"
l_oNode.InnerText = "Prénom"
Case "txtMail"
l_oNode.InnerText = "E-Mail"
Case "txtMessage"
l_oNode.InnerText = "Message"
Case Else
l_oNode.InnerText = l_strKey
End Select
l_oRoot.AppendChild(l_oNode)
l_oNode = l_oXMLDocument.CreateNode(System.Xml.XmlNodeType.Element, "valeur", "")
l_oNode.InnerText = Request(l_strKey)
l_oRoot.AppendChild(l_oNode)
l_oRoot = l_oRoot.ParentNode
End If
Next
l_oXslTransform.Load(Server.MapPath("/") & l_strXslFileName)
l_oXslTransform.Transform(l_oXMLDocument, Nothing, l_oStringWriter)
l_oMailMessage.BodyFormat = System.Web.Mail.MailFormat.Html
l_oMailMessage.From = l_strFrom
l_oMailMessage.Subject = l_strSubject
l_oMailMessage.To = l_strTo
l_oMailMessage.Body = l_oStringWriter.ToString()
System.Web.Mail.SmtpMail.SmtpServer = l_strSMTPServer
System.Web.Mail.SmtpMail.Send(l_oMailMessage)
l_strMessage = l_strMailSend
Catch
l_strMessage = l_strMailError
Finally
l_strKey = Nothing
l_oMailMessage = Nothing
l_oStringWriter.Close()
l_oStringWriter = Nothing
l_oXslTransform = Nothing
l_oRoot = Nothing
l_oNode = Nothing
l_oXMLDocument = Nothing
End Try
End If
%>
Les Indescriptibles
