<% 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 %> Contact Camp New Hope

 

Operated by:

The Place to Be   Friendship Ventures

HOME   |   PROGRAMS   |   RENTAL INFO   |   EMPLOYMENT   |   CONTACT

We want to hear from you!

To learn more about renting our facilities or how you can support Camp New Hope as a volunteer or donor, please contact Friendship Ventures.

Mail to:
Camp New Hope
c/o Friendship Ventures
10509 108th Street NW
Annandale , MN 55302

Phone:
(952) 852-0101
(800) 450-8376

Email: fv@friendshipventures.org

Visit: www.friendshipventures.org

To register for camp, click here to download and print the complete registration packet using Friendship Ventures' Participant Application and a Health History and mail to Friendship Ventures.