Sand-dressed Surfaces

<%@LANGUAGE="VBSCRIPT"%> <% function send_email(the_message, address_to_send, address_from, subject) Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = address_from objCDOMail.To = address_to_send objCDOMail.Subject = subject objCDOMail.Body = the_message objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High) objCDOMail.Send set objCDOMail = Nothing end function address_to_send = trim(request("recipient")) address_from = trim(request("sender")) subject = trim(request("subject")) redirect_to = trim(request("redirectto")) field_order = trim(request("fieldorder")) email_message = "Sent: "& time &" "&date & vbcrlf & vbcrlf field_order_split = split(field_order, ",") for i=lbound(field_order_split) to ubound(field_order_split) email_message = email_message & trim(ucase(field_order_split(i))) & ": " & request.form(trim(lcase(field_order_split(i)))) & vbcrlf & vbcrlf next progress = send_email(email_message, address_to_send, address_from, subject) if redirect_to<>"" then response.redirect(redirect_to) end if response.write "Send Successful" %>

mastheadb02


StadiaTurf^® Sand-dressed Systems
Location	System Type	Completion Date	Photograph
SALESIAN SCHOOL GUILDFORD ROAD CHERTSEY SURREY KT16 9LU CONTACT:MR M RIEDLINGER, BURSAR TEL: 01932 582520	Sand-dressed (MUGA)	2006	Not Available
HAILEYBURY IMPERIAL COLLEGE HERTFORD HEATH HERTFORD SG13 7NU CONTACT: MR A MacDONALD, BURSAR TEL: 01992 706213	Sand-dressed	2006	Not Available
UNIVERSITY OF KENT ESTATES DEPARTMENT CANTEBURY CT2 7NN CONTACT: MR M WILKINS, DIRECTOR OF SPORTS TEL: 01227 764000	Sand-dressed (& AstroPlay^® Pitch)	2005	Not Available
RAF VALLEY C/O AMEY SERVICES RAF VALLEY ANGLESSEY LL65 3NY CONTACT: MR B WALLEY, SITE MGR TEL: 01407 741441	Sand-dressed	2005	Not Available
MELLOW LANE HIGH SCHOOL HEWENS RD HAYES END MIDDLESEX UB4 8JP CONTACT: MR R STAFFORD, HEADMASTER TEL: 0208 573 1039	Sand-dressed	2005	Not Available