<%@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" %>
REFERENCE LISTS - please follow the links
StadiaTurf
®
Sand-filled Surfaces
[
reference list
]
StadiaTurf
®
Sand-dressed Surfaces
[
reference list
]
AstroTurf
®
Hockey Surfaces
[
reference list
]
AstroPlay
®
- Soccer and Rugby Surfaces
[
reference list
]
Athletics Surfaces
[
reference list
]
