Autosonics - Reversing Safety Solutions>People

<% Response.Buffer = True Dim strBody Dim objCDOMail Dim strMyEmailAddress Dim strReturnEmailAddress strMyEmailAddress = "laura@nimblepages.co.uk" strReturnEmailAddress = Request.Form("email") strBody = "

Comments from www.autosonics.co.uk

" strBody = strBody & "
Name: " & Request.Form("name") strBody = strBody & "

Organisation Name: " & Request.Form("orgname") strBody = strBody & "

Email: " & Request.Form("email") strBody = strBody & "

Address: " & Request.Form("address") strBody = strBody & "

Telephone: " & Request.Form("telephone") strBody = strBody & "

Area of Interest: " & Request.Form("areaofinterest") strBody = strBody & "

Comments: " & Request.Form("comment") If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then strReturnEmailAddress = strMyEmailAddress End If Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = Request.Form("name") & " <" & strReturnEmailAddress & ">" objCDOMail.To = strMyEmailAddress objCDOMail.Bcc = "winningsolutions@nimblepages.co.uk" objCDOMail.Subject = "Comments from Winning Solutions web-site." objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Body = strBody objCDOMail.Importance = 2 objCDOMail.Send Set objCDOMail = Nothing %>

Autosonics Ltd, Motor Vehicle Safety Device Specialists

Autosonics Ltd
Unit 4, Block 7,
Cooperage way
Alloa
Clackmannanshire
FK10 3LP

Phone: 01259 217004

Email: sales@autosonics.co.uk

Name:

Organisations Name:

Email:

Address:

Telephone:

Comment:

Autosonics Ltd
Unit 4, Block 7, Cooperage Way, Alloa, FK10 3LP, Fax: +44(0)1259 217 005, Tel: +44(0)1259 217 004
Email: sales@autosonics.co.uk