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 & "
| 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 %>
