<% if Request.QueryString("sendMail") = "true" then Dim myMail Const ForReading = 1 Const Create = False Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "info@jeurissen-online.nl" myMail.To = "info@jeurissen-online.nl" myMail.Subject = "Contact Aanvraag" myMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Importance = 1 myMail.body = "Er is een contact aanvraag gedaan met deze gegevens:" & "

" & vblf &_ "Onderwerp = "& request.form("onderwerp") & "
" & vblf &_ "Vraag = "& request.form("vraag") & "
" & vblf &_ "Telefoonnummer = "& request.form("text_telefoon") & "
" & vblf &_ "Emailadres = "& request.form("text_email") & "
" & vblf &_ "Datum = "& month(date()) & "/" & day(date()) & "/" & year(date()) & vblf myMail.Send %>



We zullen zo spoedig mogelijk contact met u opnemen, bedankt voor uw reactie !

U wordt nu terug gebracht naar de begin pagina.

<% else %>
 Contact
Heeft u vragen over ons bedrijf, of opmerkingen over de website ? Vul de velden in en we nemen zo snel mogelijk contact met u op over het betreffende onderwerp.

Onderwerp:



Vraag / Opmerking:




Hoe wilt u dat wij contact met u opnemen ?

Telefonisch
E-mail

<%end if%>