<%@ Language=VBScript %> Enquiries
 
<%if request("control") = "submit" then Dummy="Website Enquiry:-" & vbCrLf & vbCrLf Dummy=Dummy & "Name: " & request("textfield") & vbCrLf Dummy=Dummy & "Title: " & request("textfield2") & vbCrLf Dummy=Dummy & "Full Company name: " & request("textfield3") & vbCrLf Dummy=Dummy & "Company reg no: " & request("textfield4") & vbCrLf Dummy=Dummy & "Address 1: " & request("textfield5") & vbCrLf Dummy=Dummy & "Address 2: " & request("textfield6") & vbCrLf Dummy=Dummy & "Town/City: " & request("textfield7") & vbCrLf Dummy=Dummy & "County: " & request("textfield72") & vbCrLf Dummy=Dummy & "Postcode: " & request("textfield8") & vbCrLf Dummy=Dummy & "Email: " & request("textfield9") & vbCrLf Dummy=Dummy & "Tel: " & request("textfield10") & vbCrLf Dummy=Dummy & "Fax: " & request("textfield11") & vbCrLf Dummy=Dummy & "Type of enquiry: " & request("textfield12") & vbCrLf Title= "Website Enquiry" Dim iMsg Dim iConf Dim Flds Dim strHTML Dim strSmartHost Const cdoSendUsingPort = 2 strSmartHost = "localhost" set iMsg = Server.CreateObject("CDO.Message") set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields ' Set the CDOSYS configuration fields to use port 25 on the SMTP server. With Flds .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost .item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2 .Update End With '############ CHANGES HERE ############# '# to address '# from address '# attachment location '####################################### With iMsg Set .Configuration = iConf .To = "sales.smf.ltd@dial.pipex.com" .From = "sales.smf.ltd@dial.pipex.com" .Subject = Title .TextBody = Dummy if request("filename")&"" <> "" then .AddAttachment server.MapPath("/uploads/") & "\" & request("filename"),"","" end if .Send End With ' Clean up variables. Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing %> <%else%>
 
  enquiries

  
 
 

Thankyou for your enquiry
 

If you would like to find out more about Smith Metal Fabrication Ltd, please fill in the form below and one of our team will be in contact shortly.

Fields marked * are compulsory

Name*
Title*
Full Company name*
Company reg no*
Address 1*
Address 2*
Town/City*
County
Postcode*
Email
Telephone*
Fax
Type of enquiry
<%end if%>

send us a drawing

If you have a specific requirement and would like Smith Metal Fabrication to look into production costs for you, then please feel free to send us your drawings.

In order for us to provide you with the most accurate quote, please supply drawings and information in AutoCAD dwg or dxf format if you do not have access to AutoCAD.

To send the information, please click here and attach the relevant information.

Attach picture