<% Const c_bTestForm = False Const c_sMailTitle = "Reaktie site: " Const c_sMailFrom = "webform@clovercorner.nl" Const c_sMailFromName = "Auto redirect for Clover Corner" Const c_sMailTo = "info@clovercorner.nl" Const c_sRedirectSuccess = "bedankt.htm" Const c_sRedirectError = "reactie.asp" Const c_sLineTerminator = "
" Dim sMode Dim sNaam Dim sEmail Dim sOpmerking sMode = Request.Form("Mode") sValidationMessage = "" If sMode = "" Then sMode = "VALIDATE" Else ReadForm If Validate Then If MailMessage Then Response.Redirect c_sRedirectSuccess Else ' Error sending message End If End If End If Sub ReadForm() sNaam = Request.Form("Naam") sEmail = Request.Form("Email") sOpmerking = Request.Form("Opmerking") End Sub Function Validate() Dim bContent bContent = True If Not ValidateOnContent(sNaam, "Naam") Then bContent = False End If If Not ValidateOnContent(sEmail, "Uw E-mail adres") Then bContent = False End If If Not ValidateOnContent(sOpmerking, "Opmerking/vraag") Then bContent = False End If If Len(sEmail) > 0 Then If Not IsEmailAddress(sEmail) Then bContent = False End If End If Validate = bContent End Function Function MailMessage() Dim oMail Dim sMessage sMessage = "" sMessage = sMessage & "" sMessage = sMessage & "" sMessage = sMessage & "" sMessage = sMessage & "" sMessage = sMessage & "" sMessage = sMessage & "" sMessage = sMessage & "" sMessage = sMessage & " " sMessage = sMessage & "" sMessage = sMessage & "" sMessage = sMessage & " " sMessage = sMessage & "" sMessage = sMessage & "" sMessage = sMessage & " " sMessage = sMessage & "" sMessage = sMessage & "" sMessage = sMessage & " " sMessage = sMessage & " " sMessage = sMessage & "" sMessage = sMessage & "" sMessage = sMessage & " " sMessage = sMessage & " " sMessage = sMessage & "" sMessage = sMessage & "" sMessage = sMessage & " " sMessage = sMessage & " " sMessage = sMessage & "" sMessage = sMessage & "" sMessage = sMessage & " " sMessage = sMessage & " " sMessage = sMessage & "" sMessage = sMessage & "" sMessage = sMessage & " " sMessage = sMessage & "" sMessage = sMessage & "

Clover Corner webformulier reaktie
Mail verstuurd:	" & Day(Now()) & "-" & Month(Now()) & "-" & Year(Now()) & "   " & Time() & "
Naam:	" & Server.HTMLEncode(sNaam) & "
Email adres:	" & Server.HTMLEncode(sEmail) & "
Opmerking/vraag:	" & Server.HTMLEncode(sOpmerking) & "

" sMessage = sMessage & "" sMessage = sMessage & "" ' Non HTML message 'sMessage = "Mail verstuurd om: " & Now() & c_sLineTerminator 'sMessage = sMessage & "Naam: " & sNaam & c_sLineTerminator 'sMessage = sMessage & "Email: " & sEmail & c_sLineTerminator 'sMessage = sMessage & "Opmerking/vraag: " & sOpmerking & c_sLineTerminator 'sMessage = sMessage & "-ooo-" If c_bTestForm Then 'sEmailMessage = Replace(sMessage, vbCrLf, "
") Response.Write sMessage Response.End Else On Error Resume Next 'sMessage = Replace(sMessage, "
", Chr(13) & Chr(10)) sMessage = Replace(sMessage, Chr(13) & Chr(10), "
") Set oMail = Server.CreateObject("CDONTS.NewMail") oMail.BodyFormat = CdoBodyFormatHTML oMail.MailFormat = CdoMailFormatMime oMail.Importance = CdoNormal oMail.From = c_sMailFrom oMail.To = c_sMailTo oMail.Subject = c_sMailTitle & " " & Server.HTMLEncode(Left(sNaam, 25)) oMail.Body = sMessage oMail.Send Set oMail = Nothing If Err.Number <> 0 Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.write "" Response.Write "" Response.Write "" Response.Write "Er is een fout opgetreden.
Melding: " & Err.Description Response.Write "
U wordt door gezonden. Een ogenblik... " Response.Write "" Response.Write "" Response.End Err.Clear Else MailMessage = True End If End If End Function %>

<% If Len(sValidationMessage) > 0 Then %> <% End If %>

Telefonisch zijn we bereikbaar op onderstaande nummers. Thuis: 0499 - 399 478 Mobiel: 06-146 39 602 U kunt ons ook een e-mail sturen met onderstaand formulier.
<%=sValidationMessage%>
Naam
Uw E-mail adres
Vraag/opmerking	<%=Server.HTMLEncode(sOpmerking)%>