<% If Request.Form("SendButton") <> "Send" Then %> "> Please enter your email address / leave blank if not applicable: Please enter your full name: Please enter your contact phone number / mobile and landline if possible: Please enter your company name: Do you already own / manage a website? No Yes Please use this space to enter your business enquiry / Register interest: <% '*** If the SendButton was clicked '*** and there is a message to send, '*** process the email and send it. Else '*** Create the message object. Set Message = CreateObject("CDONTS.NewMail") '*** Set the from, to, and '*** subject fields. Message.From = Request.Form("email") Message.To = "admin@base2design.co.uk" Message.Subject = "Base2Design Customer Enquiry" BodyToSend ="Customer Phone Number: " & Request.Form("phone") & vbcrlf & _ " " & vbCRLF & "Customers Name: " & Request.Form("name") & vbcrlf & _ " " & vbCRLF & "Customers Company: " & Request.Form("company") & vbcrlf & _ " " & vbCRLF & "Do they already own / manage a website? " & Request.Form("checkbox") & Request.Form("checkbox2") & vbcrlf & _ " " & vbCRLF & "Customer Business Enquiry / Interest Registered: " & Request.Form("textfield") Message.Body = BodyToSend On Error Resume Next Message.Send If Err.Number = 0 Then Response.Write "Thank you for contacting Base2Design. A member of our team will be in touch with you shortly." Else Response.Write "Error: " & Err.Description End If Set Message = Nothing End If %>