%@ 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)%>
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
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