Hockey 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


AstroTurf^® Hockey Surfaces
Location	System Type	Completion Date	Photograph
READING CRICKET & HOCKEY CLUB SONNING LANE SONNING ON THAMES READING BERKS RG4 6ST CONTACT: MR P WILLIAMS, GROUNDS CHAIRMAN TEL: 01491 573575	System 5	2003
SWANSEA KING GEORGE V PLAYING FIELDS MUMBLES RD SWANSEA SA2 7BS CONTACT: MRS G DIMENT, ACTING HEAD OF SPORTS TEL: 01792 513555	1 x Super Water-based 1 x Europa	2004
SLOUGH HOCKEY CLUB UPTON COURT ROAD SLOUGH SL3 7LT CONTACT: MR S SANDHU, CHAIRMAN SLOUGH HC TEL: 07957 883421	AstroGrass^® NSF	2003	Not Available
TONBRIDGE SCHOOL HIGH ST TONBRIDGE TN9 1JP CONTACT: MR G ALEXANDER, DIRECTOR OF GROUNDS TEL: 01732 365555	AstroGrass^® NSF & Sand-dressed warm-up area	2005
EAST GRINSTEAD SPORTS CLUB SAINTS HILL ROAD EAST GRINSTEAD WEST SUSSEX RH19 4JU CONTACT: MR R LE MAN TEL: 01342 321210	AstroGrass^® NSF	2005