Athletics 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


Athletics Surfaces
Location	System Type	Completion Date	Photograph
COMMONWEALTH GAMES STADIUM CITY OF MANCHESTER STADIUM ROWSLEY STREET EASTLANDS MANCHESTER M11 3FF CONTACT: MARK SHILLING TEL: 0161 230 2700	Mondo Athletics Track for Main Stadium 8500 m²	2002
SWANSEA TRACK KING GEORGE V PLAYING FIELDS MUMBLES RD SWANSEA SA2 7BS CONTACT: MRS G DIMENT, ACTING HEAD OF SPORT & RECREATION TEL: 01792 513555	Amtrack SW	Current
TIDWORTH OVAL TIDWORTH LEISURE CENTRE NADDER ROAD TIDWORTH WILTSHIRE SP9 7QN CONTACT: MR S McLEAN TEL: 01980 602030	Amtrack SP	2000	Not Available
CANTERBURY SCHOOL KNIGHT AVENUE CANTEBURY KENT CT2 8QA CONTACT: MR D PLATT, DEPUTY HEAD TEL: 01227 463971	Amtrack SP	2002	Not Available