<% ' email check function isValidEmail(myEmail) dim isValidE dim regEx isValidE = True set regEx = New RegExp regEx.IgnoreCase = False regEx.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$" isValidE = regEx.Test(myEmail) isValidEmail = isValidE end Function %> Formulier

Contact

Contactformulier

<% if request.QueryString("form") = "send" then session("bedrijf") = request.Form("bedrijf") session("naam") = request.Form("naam") session("adres") = request.Form("adres") session("postcode") = request.Form("postcode") session("plaats") = request.Form("plaats") session("telefoon") = request.Form("telefoon") session("emailadres") = request.Form("emailadres") session("opmerking") = request.Form("opmerking") if trim(session("naam")) = "" then foutMelding = foutMelding & "- Je hebt geen naam ingevuld
" end if if trim(session("plaats")) = "" then foutMelding = foutMelding & "- Je hebt geen plaats ingevuld
" end if if trim(session("telefoon")) = "" then foutMelding = foutMelding & "- Je hebt geen telefoonnummer ingevuld
" end if if not isValidEmail(session("emailadres")) then foutMelding = foutMelding & "- Je hebt geen (geldig) e-mailadres ingevuld
" end if if foutMelding = "" then ' bericht versturen dim myMail, HTMLi, cdoConfig1 set myMail=CreateObject("CDO.Message.1") set cdoConfig1 = CreateObject("CDO.Configuration") with cdoConfig1.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "127.0.0.1" .Update end with HTMLi = HTMLi & "Het volgende bericht is binnengekomen via de website www.korenmolen.com

" HTMLi = HTMLi & "" HTMLi = HTMLi & "" HTMLi = HTMLi & "" HTMLi = HTMLi & "" HTMLi = HTMLi & "" HTMLi = HTMLi & "" HTMLi = HTMLi & "" HTMLi = HTMLi & "
Bedrijfsnaam: "&session("bedrijf")&"
Naam: "&session("naam")&"
Adres: "&session("adres")&"
Postcode: "&session("postcode")&"
Plaats: "&session("plaats")&"
Telefoon: " &session("telefoon")& "
E-mail: " & session("emailadres") & "
Opmerking: " & session("opmerking") & "

" set myMail.Configuration = cdoConfig1 myMail.Subject = "Contactformulier | www.korenmolen.com" myMail.From = session("naam") & " <" & session("emailadres") & ">" myMail.To = "info@korenmolen.com" myMail.Bcc = "formulieren@janssen.nl" myMail.HTMLBody = HTMLi myMail.Send set myMail = nothing show_form = "nee" response.write "Bedankt voor het invullen van het formulier. Indien nodig nemen we zo spoedig mogelijk contact met u op." session("bedrijf") = "" session("naam") = "" session("adres") = "" session("postcode") = "" session("plaats") = "" session("telefoon") = "" session("emailadres") = "" session("opmerking") = "" end if end if if show_form <> "nee" then %> Wij nemen graag de tijd voor u en werken daarom het liefst op afspraak. Bel ons gerust voor meer informatie.

<%=foutMelding%>
" /> " /> " /> " /> " /> " /> " />
<% end if %>
informatie aanvragen

De Korenmolen Party Restaurant

Parallelweg 8
5151 AB Drunen

0416 37 23 38
06 57 58 99 94
info@korenmolen.com