%@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
|
|
|

|
Contact


Move2improve
Rehabcenter
Peter Benoitlaan 81
9120 Beveren waas
|

|
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
|
|
|
|
|
|
|
|

|
|

|
|
|

|