%@ LANGUAGE=VBScript %>
<% if not isempty(Request.Form("Submit")) then
' ============================================================================
'
' Email Info to WebMaster info@maconarts.org
' --------------------------------
LFrom = "info@maconarts.org"
LEmailTo = "info@maconarts.org, llnajera@mindspring.com"
LSubject = "Macon Arts Become A Volunteer Submission"
LBody = ""
LBody = LBody & "Volunteer Request Form" & Chr(10)& Chr(10)
LBody = LBody & " Full Name: " & Request.Form("name") & Chr(10)
LBody = LBody & " Address: " & Request.Form("address") & Chr(10)
LBody = LBody & " City: " & Request.Form("city") & Chr(10)
LBody = LBody & " State: " & Request.Form("state") & Chr(10)
LBody = LBody & " Zip Code: " & Request.Form("zip") & Chr(10)
LBody = LBody & " Telephone: " & Request.Form("phone") & Chr(10)
LBody = LBody & " Fax: " & Request.Form("fax") & Chr(10)
LBody = LBody & " Email: " & Request.Form("email") & Chr(10)
LBody = LBody & " Comments: " & Request.Form("comments") & Chr(10) & Chr(10)
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = LFrom
objNewMail.To = LEmailTo
objNewMail.Subject = LSubject
objNewMail.Body = LBody
objNewMail.MailFormat = CdoMailFormatText
objNewMail.Importance = CdoNormal
'objNewMail.Send
'line27
spaztest = objNewMail.Send
Response.write(spaztest)
Response.Redirect("thanks-volunteer.htm")
end if
Response.write(request.form("submit"))
%>
Macon Arts - Become a Volunteer
 |
| | | | | | | | |
| |
| | | | |
 |
|
| |
Copyright©2004-2005 Macon Arts. All Rights Reserved. |
|
 |