Full
Time Staff | Prayer
Requests | Feedback
Form | Directions
Prayer Requests
<%
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
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = mailFrom
MyMail.To = mailTo
MyMail.Bcc = "actsemailarchive@yahoo.com"
MyMail.Subject = mailSubject
MyMail.BodyFormat = 0
MyMail.MailFormat = 0
MyMail.Importance = 2
MyMail.Body = body
MyMail.Send
Set MyMail = Nothing
%>
Your
prayer request 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.
|
|
