%@ 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)%>
![]() |
|||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||