<% @LANGUAGE = VBScript %> <% Option Explicit Response.Expires = 0 Dim objMail, htmlText If Request.Form("B1") = "Call Me" Then ' We got here because the user pressed the submit button ' So send email to the office htmlText = "" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "
Online request for information:
Name:" & Request.Form("Name") & "
Telephone:" & Request.Form("Telephone") & "
Address:" & Request.Form("Address") & "
e-mail address:" & Request.Form("Email") & "
Message:" & Request.Form("Message") & "
IP Address:" & Request.ServerVariables("REMOTE_ADDR") & "
" Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "website@aost.co.uk" objMail.To = "enquiries@aost.co.uk" objMail.BCC = "gail.murray@sky.com" objMail.Subject = "Enquiry" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = htmlText objMail.Send Set objMail = Nothing Response.Redirect("call_ack.htm") End If %> AOS Optical Sources and Optical Sensing and measurement products Based in Melton Mowbray, Leicestershire AOS on Google Maps
 
 
Contact AOS
     
  AOS  Technology on Google Maps  
     
     
   
View Larger Map