<% OPTION EXPLICIT Dim action action = request("action") %> <% '------------ send Email ---------------------- function sendEmail() Dim Mail,htmlMessage,FormSubject Dim FullName,Telephone,Email,strMessage FullName = request("FullName") Telephone = request("Telephone") Email = request("Email") strMessage = replaceNewLine(request("Message")) FormSubject = "website Contact form" '-------------------------------------- Dim strHTML, NVO set strHTML = new clsMailMessageBuider set NVO = server.CreateObject("scripting.dictionary") nvo.Add "", FormSubject nvo.Add "", FullName nvo.Add "", Telephone nvo.Add "", Email nvo.Add "", strMessage nvo.Add "", now() htmlMessage = strHTML.generateHTML("EmailTemp/contact.html", nvo) nvo.RemoveAll() set nvo = nothing '-------------------------------------- Dim strLogoPath strLogoPath = Server.MapPath(".") & "\EmailTemp\images\logo.gif" '-------------------------------------- Set Mail = Server.CreateObject("Persits.MailSender") Mail.FromName = FullName Mail.From = "mail@forfront.net" Mail.Host = "mail.forfront.net" Mail.AddAddress "mail@thorp-partners.com","Thorp & Partners" 'Mail.AddBcc "sigalk@forfront.net","Thorp & Partners" if Email<>"" then Mail.AddReplyTo Email end if Mail.AddEmbeddedImage strLogoPath, "Company-Logo" Mail.Subject = FormSubject Mail.Body = htmlMessage Mail.IsHTML = true Mail.SendToQueue Set Mail = Nothing end function %> Thorp & Partners <% function showHeader() %>
<% End function function showForm() %>

Get in touch

email: mail@thorp-partners.com

address: Thorp & Partners, Berkeley Square House, Berkeley Square, London W1J 6BD

Not Actively Looking logo

 
<% End function function showConfirm() %>

Get in touch

email: mail@thorp-partners.com

address: Thorp & Partners, Berkeley Square House, Berkeley Square, London W1J 6BD

Thank you for submitting the form, we'll get in touch as soon as we can.

<% End function function showFooter() %>
<% End function '--------------- actions ----------------- select case action case "" showHeader() showForm() showFooter() case "sendEmail" sendEmail() response.redirect "contact.asp.html?action=Confirm" case "Confirm" showHeader() showConfirm() showFooter() end select %>