% 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 %>