|
|
| |
|
|
|
|
|
| |
<%
'************************************************************************************************************************************************
'Dynamic Values - Enter these values before running this script
'************************************************************************************************************************************************
mailFrom = "VOICES OF FAITH" 'FROM E-MAIL: CAN BE ANY E-MAIL ADDRESS
mailTo = "quianaclark@voicesfaith.org" 'TO E-MAIL: E-MAIL OF RECIPIENT (SITE ADMINISTRATOR)
mailBcc = "actsemailarchive@yahoo.com" 'THIS VALUE SHOULD NOT CHANGE - ALL E-MAILS SHOULD BE ARCHIVED TO actsemailarchive@yahoo.com
if request.form("select") = "prayer" then
mailSubject = "PRAYER REQUESTS"
else
mailSubject = "PRAISE REPORTS"
end if
formAction = "prayerform.asp" '(page that form submits to - page should submit to itself)
'************************************************************************************************************************************************
%>
<%
if request("textfield") = "" OR request("textfield3") = "" OR request("textfield4") = "" then
if request("submit") = "Submit" then %>
Please
complete all required fields before submitting this form.
<% end if %>
<%else
set conn = Server.CreateObject("ADODB.CONNECTION")
conn.open dsn
'store info in DB
set objrs = Server.CreateObject("ADODB.RECORDSET")
objrs.open "PrayerReq", conn, 1, 3, &H0002 'adOpenKeyset, adLockOptimistic, adCmdTable
objrs.Addnew
if request.form("select") = "prayer" then
objrs.fields("Type") = "PRAYERREQ"
else
objrs.fields("Type") = "PRAISEREP"
end if
objrs.fields("Name") = request("textfield")
objrs.fields("Email") = request("textfield3")
objrs.fields("Phone") = request("textfield2")
prequest = replace(Request("textfield4"), vbcrlf, " ")
prequest = replace(prequest, vbcr, " ")
'prequest = replace(prequest, """, """")
'prequest = replace(prequest, """, """")
objrs.fields("Request") = prequest
objrs.fields("DateSubmitted") = Now()
objrs.fields("Display") = "0"
objrs.fields("UserDispPref") = Request("radiobutton")
objrs.Update
commentID = objrs.fields("ID")
objrs.close
body = "FROM: " & Request("textfield") & "
PHONE NUMBER: " & Request("textfield2") & "
EMAIL: " & Request("textfield3") & "
DATE SENT: " & Now() & "
PRAYER REQUEST: " & Request("textfield4")
if(Request("radiobutton") = "Yes") then
body = body & "
Click here to display this Prayer Request on the website."
end if
'MyMail.Body = body
'MyMail.Send
'Set MyMail = Nothing
Const cdoSendUsingPort = 2
StrSmartHost = "localhost"
set MyMail = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With
With MyMail
Set .Configuration = iConf
.To = mailTo
.From = mailFrom
.Bcc = "actsemailarchive@yahoo.com"
.Subject = mailSubject
.HTMLBody = body
.Send
End With
Set MyMail = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>
Your
prayer request/praise report was submitted successfully.
<%end if %>
<%
if Err.Number <> 0 then
url = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME")
Call ErrorHandler(url)
response.Write("
")
end if
%>
Please enter your prayer requests using the form below.
|
|
|
|
|
| |
|
|
|
|
| |
|
|
|
|
