<%@ Language=VBScript %>
<%
Option Explicit
'//declareer de variabelen
Dim strFrom, strSubject, strMsg, strErrorMelding
Dim strMailFrom, strMailSubject, strMailMsg
Dim strTo, strBedanktUrl, oMail
' indien er geen afzender opgegeven is dan wordt de onderstaande
' afzender gebruikt.
strFrom = "webcontact@vanmersbergen.com"
' Het bericht wordt gestuurd aan het onderstaande e-mailadres.
strTo = "webcontact@vanmersbergen.com"
' indien er geen onderwerp opgegeven is dan wordt het onderstaande
' onderwerp gebruikt.
strSubject = "Contact through vanmersbergen.com"
' indien er geen bericht opgegeven is dan wordt het onderstaande
' bericht gebruikt.
strMsg = "Empty message"
' de bestandsnaam of url van de bedanktpagina. Deze pagina wordt
' getoond nadat het bericht verstuurd is. Let op: dit bestand
' of url MOET bestaan.
strBedanktUrl = "thanks.html"
' Onder deze regel hoeft u niets aan te passen
' ---------------------------------------------------------------------
'//haal de velden op
strFrom = request("_from")
strSubject = request("_subject")
strMsg = request("Msg")
'//kijk of er gesubmit is, dan staat "submitted" (=hidden field) op "j"
if request("submitted") = "j" then
'//als velden niet zijn ingevuld geef dan melding.
if strFrom = "" then
strErrorMelding = "Please fill in your e-mail adress."
elseif strSubject = "" then
strErrorMelding = "Please fill in the subject."
elseif strMsg = "" then
strErrorMelding = "Please fill in your message."
else
'//maak mail object
Set oMail = Server.CreateObject("CDO.Message")
'//haal de velden op uit het formulier en stop ze in een variabele
strMailFrom = request("_from")
strMailSubject = request("_subject")
strMailMsg = request("Msg")
'//zet de to, from, subject en textbody
oMail.To = strTo
oMail.From = strMailFrom
oMail.Subject = strMailSubject
oMail.TextBody = strMailMsg
'//verzend het mailtje
oMail.Send
Set oMail = Nothing
Response.Redirect strBedanktUrl
end if
end if
%>
Dick van Mersbergen Photography
