% Dim pFirstName Dim pLastName Dim pAddress Dim pCity Dim pState Dim pZip Dim pEmail Dim pMessage Dim pMsg Dim pAction pAction = Request.QueryString("Action") If pAction = "Send" Then pFirstName=Request.Form("FirstName") pLastName=Request.Form("lastName") pEmail=Request.Form("Email") pAddress=Request.Form("Address") pCity=Request.Form("City") pState=Request.Form("State") pZip=Request.Form("Zip") pPhone=Request.Form("Phone") pMsg=Request.Form("Message") SendNotice pFistName, pLastName, pAddress, pCity, pState, pZip, pEmail, pPhone, pMessage End If Function SendNotice(pFistName, pLastName, pAddress, pCity, pState, pZip, pEmail, pPhone, pMessage) pSubject = "From Camp New Hope Website" pMessage = "Name: " & pFirstName & " " & pLastName & vbCrLf & vbCrLf pMessage = pMessage & "Address: " & pAddress & vbCrLf & vbCrLf pMessage = pMessage & "City: " & pCity & vbCrLf & vbCrLf pMessage = pMessage & "State: " & pState & vbCrLf & vbCrLf pMessage = pMessage & "Zip: " & pZip & vbCrLf & vbCrLf pMessage = pMessage & "Phone # : " & pPhone & vbCrLf & vbCrLf pMessage = pMessage & "Email: " & pEmail & vbCrLf & vbCrLf pMessage = pMessage & "Message: " & pMsg & vbCrLf & vbCrLf pMessage = SendMail("cnewhope@lcp2.net", "Camp New Hope E-mail", pSubject, pMessage) SendNotice = "Notice was sent" End Function %>
| |
Operated by: |
||||||
| The Place to Be | |||||||
|
HOME | PROGRAMS | RENTAL INFO | EMPLOYMENT | CONTACT |
|||||||
|
Camp New Hope believes that everyone should have the opportunity to experience a vacation in the outdoors. Since 1968 we have been creating recreational opportunities for children, teens and adults with developmental disabilities. Camp New Hope served over 500 individuals during the summers of 2002 and 2003, and that number continues to grow as we add new vacation opportunities to our current programs. The Registration Application with health history forms can be downloaded and printed here using Adobe Acrobat Reader. If you do not have Acrobat Reader, you can download it for free from Adobe's site: ACROBAT READER Program Philosophy Who Can Participate Staffing |
|
||||||