<%@ Language=VBScript %> <%Option Explicit%> <% 'Form parameters Dim objParams Set objParams = server.createobject("Scripting.Dictionary") if Request.ServerVariables("REQUEST_METHOD") = "POST" then Select Case lcase(Request.Form("act")) Case "sendmail" objParams.Item("full_name") = Request.Form("full_name") objParams.Item("email") = Request.Form("email") objParams.Item("comments") = Request.Form("comments") if Trim(Request.Form("full_name")) = "" Then objParams.Item("strMsg") = objParams.Item("strMsg") & "You must enter a name.
" End if if Trim(Request.Form("email")) = "" or not fncValidateEmail(Request.Form("email")) Then objParams.Item("strMsg") = objParams.Item("strMsg") & "You must enter a valid email.
" End if if Trim(Request.Form("comments")) = "" Then objParams.Item("strMsg") = objParams.Item("strMsg") & "You must enter comments.
" End if If objParams.Item("strMsg") = "" Then objParams.Item("comments") = "Name: " & vbNewLine & objParams.Item("full_name") & vbNewLine & vbNewLine & _ "Email: " & vbNewLine & objParams.Item("email") & vbNewLine & vbNewLine & _ "Comments: " & vbNewLine & objParams.Item("comments") 'Call fncSendMail("jmusterman@gbod.org", "forms@tallent.com", "", "Comments from " & objParams.Item("full_name"), objParams.Item("comments")) Call fncSendMail("ccapshaw@GBOD.org", "webmaster@tallent.com", "", "Comments from " & objParams.Item("full_name"), objParams.Item("comments")) objParams.RemoveAll objParams.Item("strMsg") = "Thank you for your contacting us.
" End if Call subDisplay(objParams) End Select Else Call subDisplay(objParams) End if Set objParams = Nothing Sub subDisplay(objParams)%> GBOD | Safe Sanctuaries


Books & Magazines

Events & Programs
Consulting Services
Resources For All Areas of Christian Ministry
Camping & Retreat
Christian Education
Conference Leaders
Congregational Leaders
Evangelism
Family & Age Group Leaders
Hispanic Ministries
Laity & Lay Speaking Ministry
New Church Starts
Small Church
Small Group Ministry
Spiritual Formation (Upper Room)
Stewardship
Worship
Young People's Ministries

 

I need help with:

How To Find What You Need On Our Website
Using GBOD.org

Receive discounts from
the Upper Room Bookstore:

For general information:
gbod@gbod.org
877-899-2780 : toll free
General Board of Discipleship
The United Methodist Church
P.O. Box 340003
Nashville, TN 37203-0003

Our services are funded by your generous support of the World Service Fund, through the sale of products & services, and through individual donation gifts. Learn more about our stewardship.

All content reproducible for church use with our permission. Learn How


Topics

Getting Started
Safe Sanctuaries is about being prepared and thinking ahead. It is not about limiting your ministry. It is about doing ministry safely with children, youth and the adults who work with them. Read full story

 

<%End Sub%>