<%
'************************
'****************Header
'************************
body = "Form Field Values" & vbCrLf
'************************
'***Collect the values
'***in the form
'************************
For Each obj in request.form
body = body & obj & " : " & request.form(obj) & vbCrLf
Next
body = body & "informatieaanvraag"
'************************
'***Sends the Email
'************************
Dim objSendMail
Set objSendMail = Server.CreateObject("CDONTS.NewMail")
objSendMail.To ="john.kerssies@bbjpchulp.nl"
objSendMail.From ="Online inschrijving"
objSendMail.Subject = "aanmelding"
objSendMail.Body = body
objSendMail.Send
Set objCDOMail = Nothing
response.redirect "bevestiging.htm"
%>