|
<% if not Request.Form.Item("message") = "" then %>
<%
' emailen
On error resume next
Dim mySmartMail
Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")
' Mail Server
' ***********
mySmartMail.Server = "mail.martijnwijnberg.com"
' From
' ****
mySmartMail.SenderName = Request.Form.Item("sendername")
mySmartMail.SenderAddress = Request.Form.Item("sendermail")
' To
' **
mySmartMail.Recipients.Add "wondernelleke@aim.com", "Nelleke Brouwer - via website"
' Message
' *******
mySmartMail.Subject = Request.Form.Item("subject")
mySmartMail.ContentType = "text/html"
messagebody = Request.Form.Item("message")
mySmartMail.Body = Request.Form.Item("message")
' Send the message
' ****************
mySmartMail.SendMail
if Err.Number<>0 then
Response.write "Error: " & Err.description & "
<% end if %>
" else %> Dank u wel, uw bericht is verzonden. <% end if%><% else %> |
|
|
