<%
if request("contact") <> "" then
SELECT CASE request("Enquiry")
CASE 0
eSubject = "Internet Trade Enquiry"
eMailTo = "info@thermilate.com"
eNameTo = "John Everatt"
CASE 1
eSubject = "Internet Consumer"
eMailTo = "info@thermilate.com"
eNameTo = "John Everatt"
CASE 2
eSubject = "Internet Media"
eMailTo = "info@thermilate.com"
eNameTo = "John Everatt"
CASE ELSE
END SELECT
if request("source_type") = "eCompete" then
eSubject = eSubject & " : COMPETITION ENTRY"
end if
buildMsg = "Enquiry made at " & now() &chr(10)&Chr(13)&chr(10)&Chr(13)
buildMsg = buildMsg & request("title") & " " & request("name") &chr(10)&Chr(13)
buildMsg = buildMsg & request("Job_Title") &chr(10)&Chr(13)
buildMsg = buildMsg & request("Company_name") &chr(10)&Chr(13)
buildMsg = buildMsg & request("address") &chr(10)&Chr(13)
buildMsg = buildMsg & request("country") &chr(10)&Chr(13)
buildMsg = buildMsg & request("postcode") &chr(10)&Chr(13)&chr(10)&Chr(13)
buildMsg = buildMsg & request("telephone") &chr(10)&Chr(13)&chr(10)&Chr(13)
buildMsg = buildMsg & "My enquiry is as follows : "&chr(10)&Chr(13) & request("nature_of_enquiry") &chr(10)&Chr(13)&chr(10)&Chr(13)
buildMsg = buildMsg & "The nature of our business is : " & replace(request("Type_Of_Organisation"),"_"," ") &chr(10)&Chr(13)&chr(10)&Chr(13)
buildMsg = buildMsg & "We heard about you via :" & replace(request("where_hear"),"_"," ") &chr(10)&Chr(13)&chr(10)&Chr(13)
if request("inform") = "yes" then
buildMsg = buildMsg & "Please send me information about other thermilate products" &chr(10)&Chr(13)&chr(10)&Chr(13)
else
buildMsg = buildMsg & "No, I would rather not recieve any information at this point." &chr(10)&Chr(13)&chr(10)&Chr(13)
end if
eMessage = buildMsg
eFromName = request("name")
eMailFrom = request("email_address")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "relay.mail.thermilate.com"
Mail.From = eMailFrom
Mail.FromName = eFromName
Mail.AddAddress eMailTo,eNameTo
'Mail.AddAddress "billy@springimpressions.com","billy@springimpressions.com"
Mail.Subject = eSubject
Mail.Body = eMessage
Mail.IsHTML = False
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
else
Response.Write "Your message was sent successfully."
con = True
End If
if con then
%>
Confirmation
<%if request("eCompete") = "" then%>
This is a copy of the eMail sent to Thermilate:
-----------------------------------------------
<%=replace(buildMsg,chr(10)," ")%>
-----------------------------------------------
<%end if%>
Thanks for your enquiry - we will be back to you shortly. Our office is open
between the hours of 09:00 and 17:00 GMT, between Monday and Friday. If
your enquiry is urgent, please call +44 (0) 8707 441 759
<%
else
response.Write "
Sorry.
We could not send your mail at this time. Please feel free to contact us on 08707 441 759."
end if
else%>
Space age technology has hit the UK with the launch
of Thermilate, the revolutionary paint additive originally developed
by NASA technicians. Independent test results show it can help reduce
heat loss within buildings by 40% and energy costs by up to... Read
More
Tell a friend about Thermilate!<%if request("refer") ="yes" then response.Write " : sent"%>