### contact.htm
<html>
<head>
<title>Contact formulier</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="contact" method="post" action="mail.asp">
<h3>Contact</h3>
<p>Om contact met ons op te nemen, kunt u het onderstaande formulier invullen.</p>
<table width="400" border="0" cellspacing="0" cellpadding="2">
<tr>
<td>Naam:</td>
<td>
<input type="text" name="naam">
</td>
</tr>
<tr>
<td>E-mail: </td>
<td>
<input type="text" name="email">
</td>
</tr>
<tr>
<td>Bericht</td>
<td>
<textarea name="bericht" cols="30" rows="3"></textarea>
</td>
</tr>
</table>
<p>
<input type="submit" name="Submit" value="Verstuur">
</p>
</form>
</body>
</html>
### mail.asp
<%
on error resume next
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Onderwerp = "Reactie via de website"
VerstuurNaar = "uwemail@uwdomein.nl"
email = request("email")
if email = "" then
email = "contact@website.nl"
end if
Mailer.From = email
Mailer.To = VerstuurNaar
Mailer.Subject = Onderwerp
for each whatever in request.form
Bericht = Bericht & whatever & " = " & vbcrlf
Bericht = Bericht & request.form(whatever) & vbcrlf & vbcrlf
next
Mailer.Body = Bericht
Mailer.Send
Set Mailer = nothing
' response.redirect "bedankt.htm"
response.write "Bedankt voor het invullen van het formulier."
response.write "<a href='contact.htm'>Ga terug.</a>"
%>