<% 'check for form posting bSent = Request("formSent") If bSent = "True" Then ' process the form bError = "" tBody = "" For Each item In Request.Form 'add text to mail body tBody = tBody & item & " - " & request.Form(item) & vbcrlf If Left(item,1) = "X" Then 'check for a value If Trim(Request.Form(item)) = "" Then 'an obligatory field is empty bError = "The textbox " & replace(item,"_"," ") & " needs to be entered. Please try again" End If End If Next If bError = "" Then 'OK to post Set myMail = Server.CreateObject("CDONTS.NewMail") myMail.From = "enquiry.floorplan.co.uk" myMail.To = "enquiries@floorplansystems.co.uk" myMail.Body = tBody myMail.Subject = "Online Enquiry" myMail.Send() response.redirect("floorplan_thankyou.asp") End If End If %> Floorplan Systems

Further Information Request
<%= bError %>
Personal Details:
Contact Name: ">
Company Name: ">

Address Details:
Street Name: ">
Town: ">
County: ">
Postcode: ">

Telephone:
">
E-mail: ">

Please send me further information on the following products:
checked <% end if %>> Integrated Flooring Systems by Takiron
checked <% end if %>> Raised Access Floors
checked <% end if %>> Tate Access Floors
checked <% end if %>> Woodcore Products

checked <% end if %>> Please inform me of any future new products available from Floorplan
Home Floorplan CMS Map and Directions Back to Top
Floorplan Systems Limited - The Square - Great Eccleston - Preston - Lancashire - PR3 0ZB
Telephone +44 (0) 1995 670110 - Facsimile +44 (0) 1995 670457 e-mail: enquiries@floorplansystems.co.uk