<% If not request("update") = "y" Then %>
Complete the form below to request a brochure or to contact the team for any queries and comments.
<% Else
Dim name, address, town, county, postcode, phone, fax, comments, email, dpa_td, treatment, brochure
name = request("name")
address = request("address")
town = request("town")
county = request("county")
postcode = request("postcode")
phone = request("phone")
fax = request("fax")
comments = request("comments")
email = replace(request("email"), " ", "")
dpa_td = request("dpa_td")
brochure = request("brochure")
treatment = request("treatment")
'-----------------------SENDMAIL---------------------
If email = "" Then email = "WebCustomer" End If
subject = "TSDG Website Mail: " & name
' Get the form data
name = name
sender = name
senderEmail = email
subject = subject
body = "
"
body = body & ""
body = body & "Dear Thurloe Team - Please contact me with further information.
"
If dpa_td = 1 Then
mailshot = "YES"
Else
mailshot = "NO"
End If
If brochure = 1 Then
brochure = "YES"
Else
brochure = "NO"
End If
body = body & "Contact Details:
"
body = body & "Name: " & name & " "
body = body & "Address: " & address & " "
body = body & "Town: " & town & " "
body = body & "County: " & county & " "
body = body & "Post Code: " & postcode & " "
body = body & "Phone: " & phone & " "
body = body & "Fax: " & fax & " "
body = body & "Email: " & email & " "
body = body & "Treatment: " & treatment & " "
body = body & "Comments: " & comments & " "
body = body & "MailShot: " & mailshot & " "
body = body & "Brochure: " & brochure & " "
body = body & "
Thank you
" & name
body = body & "
"
body = body & "www.londonsmiles.com "
body = body & "powered by NuqtaWeb"
'response.Write(body)
'response.End()
' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )
' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true
' Enter the sender data
msg.From = senderEmail
msg.FromName = name
' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
'msg.AddRecipient recipient
msg.AddRecipient("enquiries@londonsmiles.com")
msg.AddRecipientBcc("dilawar@nuqtaweb.co.uk")
' The subject of the message
msg.Subject = subject
' And the body
msg.body = body
msg.HTMLBody = body
' Now send the message, using the indicated mailserver
if not msg.Send("localhost" ) then
Response.write "
" & msg.log & "
"
else
Response.write " "
' And we're done! the message has been sent.
'---------------------END SENDMAIL ------------------------------
%>
Thank you for your enquiry.
A Thurloe Dental team member will contact you shortly. In the interim, please do contact the Surgery on 020 7584 5551 to speak to a member now.
For Emergencies (24 hr), please call 07917 565 498.
Privacy Statement
Thurloe Street Dental Group take your privacy very seriously. We do not disclose your personal information to anyone else.
<%
End if 'End check for error
End If %>
Thurloe Street Dental Group, 10 Thurloe Street, South Kensington, London,SW7 2ST
t: 020 7584 6421 t: 020 7584 5551