<% Set RsTools=Server.CreateObject("ADODB.Recordset") strSQL="SELECT * FROM SP_Projects WHERE P_ID = " & killChars(Request.QueryString("PID")) RsTools.Open strSQL, Data, 3, 3 %> <% if request.form("submitEnquiry")="Y" then Set InsertContact=Server.CreateObject("ADODB.Recordset") strSQL="INSERT INTO SP_Enquiries (E_Product, E_Name, E_Email, E_Company, E_Tel, E_Extra, E_Enquiry, E_DateAdded) VALUES ('" & killChars(Request.Form("product")) & "','" & killChars(Request.Form("contact_name")) & "', '" & killChars(Request.Form("contact_email")) & "', '" & killChars(Request.Form("contact_company")) & "', '" & killChars(Request.Form("contact_telephone")) & "', '" & killChars(Request.Form("contact_machine_type")) & "', '" & killChars(Request.Form("contact_enquiry")) & "', getdate())" 'response.write strSQL InsertContact.Open strSQL, Data, 3, 3 Dim conf Set conf = Server.CreateObject("CDO.Configuration") Set objMail = Server.CreateObject("CDO.Message") objMail.Configuration = conf objMail.From = "noreply@splitpixelservices.co.uk" objMail.To = "sara@pressbraketools.co" objMail.Subject = "Product Enquiry" objMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" objMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2525 objMail.Configuration.Fields.Update htmlText="" & vbCrLf & "" & vbCrLf & "" & vbCrLf & "" & vbCrLf & "" & vbCrLf & "" & vbCrLf & "" & vbCrLf & "" & vbCrLf & "" & vbCrLf & "

 

A website enquiry has been received. Please see the details of the enquiry below:

 

Product:" & Request.Form("product") &"
Name:" & Request.Form("contact_name") &"
Email:" & Request.Form("contact_email") &"
Company Name:" & Request.Form("contact_company") &"
Telephone:" & Request.Form("contact_telephone") &"
Machine Type:" & Request.Form("contact_machine_type") &"
Enquiry:" & Request.Form("contact_enquiry") &"
" objMail.HTMLBody = htmlText on error resume next objMail.Send set objMail = Nothing sentto = 1 end if %>
Tel: +44 (0) 1924 369 371
Fax: +44 (0) 1924 368 866
Email:
Download Full Brochure

<%=RsTools("P_Title") %>

<%=RsTools("P_Extra") %>

<% If RsTools("P_Cat")=1 Then %> Back to Euro Style Tools <% End If %> <% If RsTools("P_Cat")=2 Then %> Back to Beyeler & Bystronic Tools <% End If %> <% If RsTools("P_Cat")=3 Then %> Back to Trumpf Tools <% End If %> <% If RsTools("P_Cat")=4 Then %> Back to LVD Tools <% End If %>
£<%=RsTools("P_Extra2") %>
" width="420" height=405"" alt=" <%=RsTools("P_Title") %> <%=RsTools("P_Extra") %>" />

Enquire about <%=RsTools("P_Title") %> <%=RsTools("P_Extra") %>

<% If sentto=1 Then %>

Thank you for your enquiry. We will reply to you as soon as possible.

<% sentto=0 End If %>
"> - <%=RsTools("P_Extra") %>" />