We will Pray for you


<% if instr(request.servervariables("HTTP_REFERER"), "prayer.htm") < 1 then itisspam = 1 end if us = request.form("us") if us = empty then imgpass = "no" else imgcode = request.form("imgcode") set cn = Server.CreateObject("ADODB.Connection") ConnStr = "Driver={MySQL ODBC 5.3 Unicode Driver}; Server=localhost; Port=3306; Option=0; Socket=; Stmt=; Database=jcomp; Uid=mysqldata; Pwd=msd1689;" cn.Open (ConnStr) sql = "SELECT * FROM `formimage` WHERE uniquestring='" & us & "' AND dispnumber='" & imgcode & "' AND used='0';" 'response.write sql & "
" set rs = Server.CreateObject("ADODB.Recordset") rs.open sql, cn, 3, 3 if rs.eof then imgpass = "no" elseif rs("dispnumber") <> empty then imgpass = "yes" else imgpass = "no" end if rs.close set rs = nothing end if if request.form("email") <> empty then Set conn = Server.CreateObject("ADODB.Connection") connstr = "Driver={MySQL ODBC 5.3 Unicode Driver}; Server=localhost; Port=3306; Option=0; Socket=; Stmt=; Database=insearch; Uid=mysqldata; Pwd=msd1689;Option=16387;" conn.Open (connstr) sql1 = "INSERT INTO `prayers_all` (`name`, `email`, `prayer`, `inserted`, `city`, `zip`, `country`,`source`,`referer`) VALUES ('" & replace(trim(request.Form("Name1")),"'","\'") & "', '" & replace(trim(request.Form("Email")),"'","\'") & "', '" & replace(trim(request.Form("prayer")),"'","\'") & "', NOW(), '" & replace(trim(request.Form("city")),"'","\'") & "', '" & replace(trim(request.Form("zip")),"'","\'") & "', '" & replace(trim(request.Form("country")),"'","\'") & "','csi', '" & replace(trim(request.Servervariables("HTTP_REFERER")),"'","\'") & "');" conn.execute(sql1) end if 'response.write "imagpass: " & imgpass & "
" & "itisspam: " & itisspam & "
" if request.form("Email") <> empty and itisspam <> 1 and imgpass = "yes" then for each item in request.form message = message & item & " " & request.form(item) & vbcrlf next for each item in request.servervariables message = message & item & " " & request.servervariables(item) & vbcrlf next Set conn = Server.CreateObject("ADODB.Connection") connstr = "Driver={MySQL ODBC 5.3 Unicode Driver}; Server=localhost; Port=3306; Option=0; Socket=; Stmt=; Database=insearch; Uid=mysqldata; Pwd=msd1689;Option=16387;" conn.Open (connstr) sql1 = "INSERT INTO `prayers` (`name`, `email`, `prayer`, `inserted`, `city`, `zip`, `country`,`source`,`referer`) VALUES ('" & replace(trim(request.Form("Name1")),"'","\'") & "', '" & replace(trim(request.Form("Email")),"'","\'") & "', '" & replace(trim(request.Form("prayer")),"'","\'") & "', NOW(), '" & replace(trim(request.Form("city")),"'","\'") & "', '" & replace(trim(request.Form("zip")),"'","\'") & "', '" & replace(trim(request.Form("country")),"'","\'") & "','csi', '" & replace(trim(request.Servervariables("HTTP_REFERER")),"'","\'") & "');" 'response.write sql1 conn.execute(sql1) Set objEmail = CreateObject("CDO.Message") objEmail.From = request.form("Email") objEmail.To = "news@csinewsletter.com" objEmail.Subject = "Prayer Request Form" objEmail.Textbody = message objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send set objEmail = nothing response.write " We have received your prayer request. We will be praying for you" Set objEmail = CreateObject("CDO.Message") objEmail.From = "news@csinewsletter.com" objEmail.To = request.form("Email") objEmail.Subject = "Thank your for your prayer request" objEmail.Textbody = "Thank you for your e-mail. We have received your prayer request" & vbcrlf & "and we will be Prayeing about your request shortly. Remember that " & vbcrlf & "our Lord Jesus Christ is a prayer answering God. " & vbcrlf & "Prov 15:29 ... He hears the prayer of the righteous." & vbcrlf & "Psa 66:19 But certainly God has heard me; He has attended to " & vbcrlf & "the voice of my prayer." & vbcrlf & "Psa 66:20 Blessed be God, Who has not turned away my prayer, " & vbcrlf & "Nor His mercy from me!" & vbcrlf & "" & vbcrlf & "Unfortunately, the volume of e-mail we receive does not allow" & vbcrlf & "us to respond to each message personally. We personally read and pray for each and every prayer request we receieve" & vbcrlf & "" & vbcrlf & "For more information you can visit our web site at" & vbcrlf & "http://www.csinewsletter.com. " & vbcrlf & "" & vbcrlf & "God bless you." objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send set objEmail = nothing else %>
<% if request.form("Email") <> empty and imgpass = "no" then %> Error: Number in Image didn't match please try again. <% end if %>
<% randomize us = rnd * 750000 us = "im" & hour(now) & month(now) & day(now) & year(now) & minute(now) & second(now) & us us = left(us, 25) %>
Name: ">
Email: ">
City: ">
Zip/pin: ">
Country: ">
Prayer Request:
Please Confirm Prayer Request by entering number given below:
 
Enter number given above :

 

<% end if %>