<% Dim BodyToSend, Message '*** Check to see if the SendButton '*** was pressed, and if there is '*** and message to be sent. If not, '*** display the feedback form. If Request.Form("SendButton") <> "Send" or Request.Form("bodytext") = "" Then %> <% Server.Execute"../shared/base.asp" %> <% Server.Execute"../shared/titlebar.asp" %> <% Server.Execute"../shared/leftnav.asp" %> <% Server.Execute"../shared/rightnav.asp" %>

"> Please enter your email address:


Please enter your name:


Type your message:

<% Else Set Message = CreateObject("CDONTS.NewMail") '*** Set the from, to, and '*** subject fields. Message.From = Request.Form("email") Message.To = "jeremyscott@handsandhearts.org" Message.Subject = "Feedback Form" '*** Add any additional informtion '*** you want to the message text. BodyToSend = Request.Form("bodytext") & vbcrlf & _ " " & vbCRLF & _ " " Message.Body = BodyToSend On Error Resume Next Message.Send If Err.Number = 0 Then Response.Write "Success! Message has been sent." Else Response.Write "Error: " & Err.Description End If Set Message = Nothing End If %> <% Server.Execute"../shared/footer.asp" %>