<% Action=Request("action") Name=Request("Name") Company=Request("Company") Address1=Request("Address1") Address2=Request("Address2") Address3=Request("Address3") Postcode=Request("Postcode") Telephone=Request("Telephone") Email=Request("Email") Message=Request("Message") If Action="send" Then If Telephone="" And Email="" Then ErrMsg="Please enter some contact details - either a telephone number or email address." If Name="" Then ErrMsg="Please enter your name." If ErrMsg="" Then Dim JMail Set JMail=Server.CreateObject("Jmail.SMTPMail") 'On Error Resume Next Jmail.ServerAddress = "localhost" 'Jmail.ServerAddress = "interweb" Jmail.Sender="info@advancedlocksmiths.co.uk" Jmail.AddRecipientEx "info@advancedlocksmiths.co.uk","info@advancedlocksmiths.co.uk" 'Jmail.AddRecipientEx "gattrill@interwebbusiness.co.uk","gattrill@interwebbusiness.co.uk" Jmail.Subject = "Advanced Locking and Locksmiths website request" Jmail.Priority = 3 msgBody = _ "The following request was sent from the Advanced Locksmiths website form:" & vbCrLf & vbCrLf & _ "Name: " & Name & TitleOther & vbCrLf & _ "Company: " & Company & vbCrLf & _ "Address: " & vbCrLf If Address1 <> "" Then msgBody=msgBody & Address1 & vbCrLf If Address2 <> "" Then msgBody=msgBody & Address2 & vbCrLf If Address3 <> "" Then msgBody=msgBody & Address3 & vbCrLf msgBody=msgBody & "City: " & City & vbCrLf & _ "Postcode: " & Postcode & vbCrLf & _ "Telephone: " & Telephone & vbCrLf & _ "Email Address: " & Email & vbCrLf & _ "Message: " & Message & vbCrLf Jmail.Body=msgBody Jmail.Execute Response.Redirect "mailpage.html?action=sent" End If End If %> Advanced Locking and Locksmiths for all your security needs
     
Contact us
 
     

Please contact us with comments and enquiries.

We would be happy to assist with any mail order enquires that you may have.

<% If ErrMsg <> "" Then Response.Write "

Error: " & ErrMsg & "

" %> <% If Action="sent" Then Response.Write "

Thank you for your enquiry.

" %>
Name:
Company:
Address:



Postcode:
Telephone:
Email:
Message:

back to home