<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim MyBody
Dim MyCDONTSMail
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= request.form("emailaddress")
MyCDONTSMail.To= "jmassanova@pgatourtpc.com"
MyCDONTSMail.Value("Reply-To")= request.form("emailaddress")
MyCDONTSMail.Subject= "TPC Group Bookings Canyons Web Form"
for each field in Request.Form
if ((Request.form(field)<>"Send Application Form"))then
if ((Request.form(field)<>"") and (Request.form(field)<>" ") )then
str = str & chr(13) & field & " = " & Request.Form(field) & chr(13) & chr(13) & chr(10)
end if
end if
next
MyCDONTSMail.Body= str
MyCDONTSMail.Send
set MyCDONTSMail=nothing
' SendMail method return TRUE if operation was succesful or FALSE if not
' In case of error in ErrorString property you can find Error message
' Set mail=Nothing
%>
TPC Sawgrass - Book A Group
