% @LANGUAGE = VBScript %> <% Option Explicit %> <% Dim strname, company, tel, email, enq, strQuery strname = Trim(Request.Form("name")) company = Trim(Request.Form("company")) tel = Trim(Request.Form("tel")) email = Trim(Request.Form("email")) enq = Trim(Request.Form("enq")) strQuery = "From :" & strname & _ vbnewline & _ "Company :" & company & _ vbnewline & _ "Tel :" & tel & _ vbnewline & _ "Email : " & email & _ vbnewline & _ "Enq : " & enq If (strname <> "" And email <> "" ) Then Dim objMail, aRecipients Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = email objMail.To = "info@natalex.co.uk" objMail.Subject = "Enquiry from TP Display Website" aRecipients = Array("info@natalex.co.uk" , "info@natalex.co.uk") objMail.BCC = Join(aRecipients, ";") objMail.Body = strQuery objMail.Send Response.Redirect "thankyou.htm" Set objMail = Nothing Else %>
![]() |
|||||||
|
|
![]() |
||||||
|
|
|||||||
![]() |
|||||||
| Trevor Peters Display 18 - 19 Portway Business Centre, Old Sarum, Salisbury SP4 6QX T:
01722 412227 |
|||||||