<%@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" %>
Please follow the links to read more.
Manchester United Football Club Training Academy
[
case study details
]
University of Kent
[
case study details
]
XVII Commonwealth Games
[
case study details
]
University of Worcester
[
case study details
]
Round Diamond Primary School, Hertfordshire
[
case study details
]
