% Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "localhost" ' Specify a valid SMTP server Mail.From = "info@energieadviesbartroels.be" ' Specify sender's address Mail.AddReplyTo Request.Form("Email") ' Specify sender's address Mail.FromName = "Ir. Bart Roels Energie Advies" ' Specify sender's name Mail.Subject = "Contactformulier via website" Mail.AddAddress "info@energieadviesbartroels.be" Mail.Body = Chr(13) & Chr(10) &_ "Naam: " & cStr(Request("Naam")) & Chr(13) & Chr(10) &_ "Voornaam: " & cStr(Request("Voornaam")) & Chr(13) & Chr(10) &_ "Straat: " & cStr(Request("Straat")) & Chr(13) & Chr(10) &_ "Gemeente: " & cStr(Request("Gemeente")) & Chr(13) & Chr(10) &_ "Telefoon: " & cStr(Request("Telefoon")) & Chr(13) & Chr(10) &_ "Email: " & cStr(Request("Email")) & Chr(13) & Chr(10) &_ "Straat waar actie moet plaatsvinden: " & cStr(Request("Straat2")) & Chr(13) & Chr(10) &_ "Gemeente waar actie moet plaatsvinden: " & cStr(Request("Gemeente2")) & Chr(13) & Chr(10) &_ "Opmerkingen: " & cStr(Request("Opmerkingen")) On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If %>
|
|
![]() |
|