<% if request("submit") <>"" then dim mainmsg, mailmsg mainmsg = "Enquiry from website" mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "Name: "&request("name") mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "Sex: "&request("sex") mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "Range: "&request("range") mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "Tel: "&request("tel") mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "Email: "&request("email") mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "Lifestyle: "&request("lifestyle") mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "Age Range: "&request("age") mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "Had an eye test recently: "&request("test") Set mailmsg = Server.CreateObject("CDONTS.NewMail") mailmsg.To ="info@eyecandyuk.net" mailmsg.From = "info@eyecandyuk.net" mailmsg.Subject = "Website Response" mailmsg.BodyFormat = 1 mailmsg.Body = mainmsg mailmsg.WrapLength = 100 mailmsg.Host = "127.0.0.1" mailmsg.Send end if %> Welcome to eyecandyuk, eyewear style consultants

 

 
Eyecandy Ranges

Contact

<% if request("submit") ="" then %>

Name:

Sex:

Range:

Tel:

E-mail:

Lifestyle:

Age range:
Have you had a recent eye test:
 
<% else %> Your details have been submitted, we will contact you in due course. <% end if %>
www.eyecandyuk.net : email: info@eyecandyuk.net : Call Now: 07861 300 733