<% ' Remove HTML from a string by using a Regular Expression. Function RemoveHTML(strText) Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "<[^>]*>" RegEx.Global = True RemoveHTML = RegEx.Replace(strText, "") End Function ' Sends an email. if Request.Form("dosend") <> "" then dim sendMail sendMail = true ' Validate the input. if IsNull(Request.Form("Naam")) or Trim(Request.Form("Naam")) = "" then errors = errors & "Naam is verplicht!
" sendMail = false end if if IsNull(Request.Form("E-mail")) or Trim(Request.Form("E-mail")) = "" then errors = errors & "E-mail adres is verplicht!
" sendMail = false elseif test(Request.Form("E-mail")) = false then errors = errors & "E-mail adres is niet geldig!
" sendMail = false end if if IsNull(Request.Form("Onderwerp")) or Trim(Request.Form("Onderwerp")) = "" then errors = errors & "Onderwerp is verplicht!
" sendMail = false end if if IsNull(Request.Form("Telefoonnummer")) or Trim(Request.Form("Telefoonnummer")) = "" then errors = errors & "Telefoonnummer is verplicht!
" sendMail = false end if if IsNull(Request.Form("Bericht")) or Trim(Request.Form("Bericht")) = "" then errors = errors & "Bericht is verplicht!
" sendMail = false end if ' Send the mail if the validation succeeded. if sendMail then Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = 2 ' cdoSendUsingPort. .Item(cdoSMTPServer) = "localhost" .Update End With Dim mail Set mail = Server.CreateObject("CDO.Message") mail.Configuration = cdoConfig mail.To = "info@eigenmakelij.nl" mail.From = Server.HTMLEncode(Trim(RemoveHTML(Request.Form("E-mail")))) mail.Subject = Onderwerp mail.TextBody = "Voornaam: " & Server.HTMLEncode(Trim(RemoveHTML(Request.Form("Naam")))) & vbCrLf & _ "Telefoonnummer: " & Server.HTMLEncode(Trim(RemoveHTML(Request.Form("Telefoonnummer")))) & vbCrLf & _ "Adres: " & Server.HTMLEncode(Trim(RemoveHTML(Request.Form("Adres")))) & vbCrLf & _ "Postcode: " & Server.HTMLEncode(Trim(RemoveHTML(Request.Form("Postcode")))) & vbCrLf & _ "Plaats: " & Server.HTMLEncode(Trim(RemoveHTML(Request.Form("Plaats")))) & vbCrLf & _ "Onderwerp: " & Server.HTMLEncode(Trim(RemoveHTML(Request.Form("Onderwerp")))) & vbCrLf & _ "Bericht: " & Server.HTMLEncode(Trim(RemoveHTML(Request.Form("Bericht")))) & vbCrLf mail.Send() 'Destroy the mail object! Set mail = nothing end if end if %>

Contact

Remco Sturm
Hekweide 5
4363 BP Aagtekerke

T: 06 11 11 45 25
E: info@eigenmakelij.nl



<%= errors %>
<% if sendMail = false then %>
">
">
">
">

* verplicht

<% else %>
Uw contact formulier is verzonden!
<% end if %>