% Dim strAction strAction=Request.QueryString("action") if strAction="display_thankyou" then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.octadyne.com" ' Specify a valid SMTP server IF Request.Form("Email_Address") <> "" then Mail.From = Request.Form("Email_Address") ELSE Mail.From = "support@octadyne.com" End If Mail.FromName = Request.Form("Full_Name") ' Specify sender's name Mail.AddAddress "worldlygoods@isunet.net" IF Request.Form("Email_Address") <> "" then Mail.AddReplyTo Request.Form("Email_Address") ELSE Mail.AddReplyTo "support@octadyne.com" End If Mail.Subject = "Worldly Goods - Volunteer Application Form" Dim strMsg For Each key in Request.Form strMsg = strMsg & key & "--------------------:" & Request.Form(key) & Chr(13) & Chr(10) Next Mail.Body = "Contact from Volunteer Application Page." & Chr(13) & Chr(10) &_ "It was submitted on " & Date & Chr(13) & Chr(10) &_ "---------------------------------------------------------------------------" & Chr(13) & Chr(10) &_ strMsg &_ "---------------------------------------------------------------------------" On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If %>
<%else%>
|
Make a difference todaycome and volunteer with us! The success of Worldly Goods depends upon many volunteers who give their time and talent. You can become a part of this exciting endeavor! New volunteers are always welcome - just fill in the application below and we will contact you soon! Sales Associate Responsibilities:
Other volunteer opportunities include:
|
<%end if%>