<%@LANGUAGE="VBSCRIPT"%> <% if Request.Form("FFSubmitted") = "yes" then Dim BodyText Dim Mailer Dim RedirectURL Dim FormFields Dim arrFormFields FormFields = "name~email~phone~fax~txt" If FormFields <> "" Then arrFormFields = split(FormFields,"~") End If Set Mailer = Server.CreateObject ("SMTPsvg.Mailer") Mailer.FromName = Request.Form("name") Mailer.FromAddress = Request.Form("email") Mailer.Cc = "trendy@bisoes.be" Mailer.Bcc = "" Mailer.Subject = "Vraag voor Move2improve via website" sBodyText = "Beste," & vbCrLf sBodyText = "Wij hebben UW vraag via onze website goed ontvangen." & vbCrLf sBodyText = "Wij behandelen deze zo snel als mogelijk. "& vbCrLf sBodyText = "Alvast hartelijk dank om ons te contacteren." & vbCrLf sBodyText = sBodyText & vbcrlf & Chr(13) & Chr(10) & Chr(13) & Chr(10) sBodyText = sBodytext & "Met vriendelijke groeten," & vbCrLf sBodyText = sBodyText & vbcrlf & Chr(13) & Chr(10) & Chr(13) & Chr(10) sBodyText = sBodytext & "Move2improve team." & vbCrLf sBodyText = sBodyText & vbcrlf & Chr(13) & Chr(10) & Chr(13) & Chr(10) sBodyText = sBodyText & "Naam: " & request.form("yourname") & vbCrLf sBodyText = sBodyText & "Email: " & request.form("email") & vbCrLf sBodyText = sBodyText & "Telefoon: " & request.form("phone") & vbCrLf sBodyText = sBodyText & "Vraag: " & request.form("txt") & vbCrLf Mailer.BodyText = sBodyText If FormFields <> "" Then For Each item In arrFormFields BodyText = BodyText & item & ": " & Request.Form(item) & chr(13) Next End If Mailer.RemoteHost = "mail.bisoes.be" Mailer.AddRecipient ToName, ToAddress if Mailer.SendMail then response.write "MAIL SENT OK" else response.write "MAIL NOT SENT, REASON: " & Mailer.Response end if Set Mailer = Nothing RedirectURL = "http://www.davidbombeke.be/index.htm" If RedirectURL <> "" then If Request.QueryString <> "" Then response.redirect(RedirectURL & "?" & Request.QueryString) else response.redirect(RedirectURL) end If end if end if %> <% MM_EditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_EditAction = MM_EditAction & "?" & Request.QueryString End If %> Move2improve -- David Bombeke
FAIL (the browser should render some flash content, not this).


Contact





Move2improve
Rehabcenter
Peter Benoitlaan 81
9120 Beveren waas

00 32 (0)3 775.62.05
info@davidbombeke.be




RESERVEREN - KLANTENLOG-IN

Als patiƫnt van onze praktijk kunt u zelf online reserveren met uw persoonlijke login.


Klanten Log-in
deze vind u onderaan op elke pagina van onze website

Nog geen Log-in?
Klik hier en vul uw gegevens in.


Heeft u een vraag?
contacteer ons via email: info@davidbombeke.be









KLANTENLOG-IN

Copyright 2009 © SME-services     |   Home    |    Contact