<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% clientname = Request.Form("clientname") title = Request.Form("title") company = Request.Form("company") address = Request.Form("address") telephone = Request.Form("telephone") email = Request.Form("email") interest = Request.Form("interest") comments = Request.Form("comments") Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "administrator@mousemagic.co.uk" objMail.To = "richard@mousemagic.co.uk" objMail.Subject = "On-line enquiry" strMsg = "Name: " & clientname & VbCrLf & "Title: " & title & VbCrLf & "Company: " & company & VbCrLf & VbCrLf & "Address: " & address & VbCrLf & "Telephone Number: " & telephone & VbCrLf & "Email address: " & email & VbCrLf & VbCrLf & "Interested in: " & interest & VbCrLf & "Comments: " & comments objMail.Body = strMsg objMail.Send Set objMail = Nothing Response.Redirect "http://www.thewholespectrum.co.uk/pages/thanks.htm" %>