<%Option Explicit Dim sErrMsg Const sLanguageCode = "NL" %> MotorTouring.com MotorTourisme.com contact

<%If (Request("FormAction") = "SEND") AND (NOT ErrorsInForm) Then SendMail %>

Contacteer MotorTouring.com

Uw bericht werd verzonden, wij nemen zo spoedig mogelijk contact met u op.
<% Else%>

Contacteer MotorTouring.com

<%=sErrMsg%>

Naam: ">
E-mail adres: ">
Straat: ">
Woonplaats: ">
Telefoonnummer: ">
Fax: ">
Uw vraag of opmerkingen:

<%End If%>
<% Sub SendMail Dim oMsg, sBody Set oMsg = Server.CreateObject("Jmail.Message") oMsg.Logging = True oMsg.Silent = True oMsg.Priority = 2 oMsg.From = Request("Email") oMsg.FromName = "Motortouring.com website" oMsg.AddRecipient "admin@motortouring.com", "MotorTouring" oMsg.Subject = "Contactformulier MotorTouring.com Website." sBody = "" sBody = sBody & "Naam: " & Request("Name") & vbCrlf sBody = sBody & "E-mail: " & Request("Email") & vbCrlf sBody = sBody & "Adres: " & Request("Street") & vbCrlf sBody = sBody & "Woonplaats: " & Request("City") & vbCrlf sBody = sBody & "Phone: " & Request("Phone") & vbCrlf sBody = sBody & "Fax: " & Request("Fax") & vbCrlf & vbCrlf sBody = sBody & Request("Comments") 'Response.Write sBody 'Response.End oMsg.Body = sBody If NOT oMsg.Send("localhost") Then sErrMsg = "Uw bericht kon niet verzonden worden: 
" & oMsg.log & "
" Else sErrmsg = "Uw bericht werd verzonden. Wij nemen zo snel mogelijk contact met u op." End If oMsg.ClearRecipients Set oMsg = Nothing End Sub Function ErrorsInForm ErrorsInForm = False If Request("FormAction") <> "SEND" Then Exit Function End if If Trim(Request("Name")) = "" Then sErrMsg = sErrMsg & "U heeft uw naam nog niet ingevuld.
" ErrorsInForm = True End if If Trim(Request("Street")) = "" Then sErrMsg = sErrMsg & "U heeft uw adres nog niet ingevuld.
" ErrorsInForm = True End if If Trim(Request("City")) = "" Then sErrMsg = sErrMsg & "U heeft uw woonplaats nog niet ingevuld.
" ErrorsInForm = True End if If Trim(Request("Email")) = "" Then sErrMsg = sErrMsg & "U heeft uw e-mail adres nog niet ingevuld.
" ErrorsInForm = True End if If Trim(Request("Phone")) = "" Then sErrMsg = sErrMsg & "U heeft uw telefoonnummer nog niet ingevuld.
" ErrorsInForm = True End if End Function %>