<%@ LANGUAGE=VBScript %> <% ' HEADER STUFF {{{ Response.Buffer = true Response.AddHeader "PRAGMA", "NO-CACHE" Response.ExpiresAbsolute = #Jan 01,1991 12:00:00# ' END HEADER STUFF }}} ' DCIPADD STUFF {{{ ' Dim DCIPADD, IPADDR, DREAMCENTER ' DCIPADD = Request.ServerVariables("REMOTE_ADDR") ' IPADDR = DCIPADD ' DCIPADD = Left(DCIPADD,10) ' Select Case DCIPADD ' Case "64.165.177" ' DREAMCENTER = "1" ' Case "64.170.44." ' DREAMCENTER = "1" ' Case "64.167.192" ' DREAMCENTER = "1" ' Case "64.171.72." ' DREAMCENTER = "1" ' Case "64.161.171" ' DREAMCENTER = "1" ' Case Else ' DREAMCENTER = "0" ' End Select ' DCIPADD = Left(DCIPADD,6) ' END DCIPADD STUFF }}} ' ' IPADDR STUFF {{{ ' IPADDR = Left(IPADDR,6) ' If IPADDR = "172.19" then ' Response.Redirect("http://www.prayer.la/fire") ' End If ' If IPADDR = "172.14" then ' Response.Redirect("http://www.prayer.la/fire") ' End If ' END IPADDR STUFF }}} ' IP BAN START Dim RemoteIP, TempIP, BanUser BanUser = 0 RemoteIP = Request.ServerVariables("REMOTE_ADDR") TempIP = Left(RemoteIP, 10) Select Case TempIP Case "87.238.119" BanUser = 1 Case Else BanUser = BanUser End Select If BanUser <> 0 Then Response.Clear Response.End End If ' IP BAN END ' sub display_header() {{{ sub display_header() %> Post Praise Reports and Answered Prayers <% end sub ' end sub display_header() }}} ' sub prayer_flood_scan(request_email) {{{ sub prayer_flood_scan(request_email) dim conn dim rs dim sql dim count set conn = server.createobject("ADODB.connection") conn.open DSN_prayer_db set rs=server.CreateObject("ADODB.recordset") sql="SELECT * FROM " & table_prayer rs.open sql,conn,1,3 if rs.eof then 'do not scan (ie no code here so that nothing is done) else count = 0 do until rs.eof if InStr(rs("email"),request_email) <> 0 then count = count + 1 rs.movenext loop end if rs.close set rs = nothing conn.close set conn = nothing if count > 5 then call deflood_db(request_email) end sub ' end sub prayer_flood_scan(request_email) }}} ' sub deflood_db(email) {{{ sub deflood_db(email) dim conn dim rs dim sql dim rec_idx set conn = server.createobject("ADODB.connection") conn.open DSN_prayer_db set rs=server.CreateObject("ADODB.recordset") sql="SELECT * FROM " & table_prayer & " WHERE email = '" & email & "' ORDER BY ID DESC" rs.open sql,conn,1,3 rec_idx = rs.RecordCount do until rec_idx = 1 rec_idx = rec_idx - 1 rs.movenext loop rs.delete rs.movefirst rs.update rs.close set rs = nothing conn.close set conn = nothing end sub ' end sub deflood_db(email) }}} ' sub save_prayer() {{{ sub save_prayer() dim conn dim str_name dim str_prayer dim str_ip dim str_date dim str_email dim str_display dim str_sql_query dim EMcheck ' potty mouth check variables dim check_data check_data = Request.Form("name") & "|" & Request.Form("prayer") if ((MatchObscenities(check_data) <> True) and _ (MatchProfanities(check_data) <> True) and _ (MatchProhibitedCode(check_data) <> True)) then Set conn = Server.CreateObject("ADODB.Connection") conn.Open DSN_prayer_db If Request.Form("name") = "" Then str_name = "them" ElseIf InStr(Request.Form("name"),"@") <> 0 Then str_name = "them" Else str_name = Replace(Request.Form("name"), "'","''") End If str_ip = Request.ServerVariables("REMOTE_ADDR") str_email = Request.Form("email") str_prayer = Replace(Request.Form("prayer"),"'","''") str_date = date If Request.Form("display") = "on" Then str_display = 1 Else str_display = 0 End If str_sql_query = "INSERT INTO " & table_prayer & " " _ & "(name,email,prayer,IP,display,dt) " _ & "VALUES ('" & str_name & "','" _ & str_email & "','" _ & str_prayer & "','" _ & str_ip & "','" _ & str_display & "','" _ & str_date & "')" conn.Execute(str_sql_query) conn.Close set conn = Nothing if Request.Form("email") <> "Request@Prayer.la" then call prayer_flood_scan(Request.Form("email")) end if end if Response.Redirect("default.asp?submitted=1") end sub ' end sub save_prayer }}} ' sub display_links_logo() {{{ sub display_links_logo() %>
Go to Prayer Page
Go to Praise Reports Page



Click here to view the Miracles or Post Praise Reports and Answered Prayers



Praise Reports form

<% =FormatDateTime(date,1) %>
Prayer Warriors have offered <%=PrayerNewHits%> Prayers of Intercession Here.
Praise Reports!
Enter your Praise Report
<% end sub ' end sub display_links_logo }}} ' sub prayer_form() {{{ sub prayer_form() %>

Enter Praise Report Here (* = required)

Name
Email *

Enter Praise Report Here!*

Check this box to show your email address below your report:
PLEASE click 'Submit' only ONCE!
processing may take a few moments.








by posting reeports - you agree to allow this Prayer Site
to send you occassional World-Wide Prayer Alerts.
Your email will never be shared with third parties,
and is used only to inform you of Urgent Prayer
Need on a World-Wide Level. You may opt-out
easily at any time by clicking a link on the Alert.
<% end sub ' end sub prayer_form() }}} ' sub display_thanks {{{ sub display_thanks Response.Write("

Thanks for entering your
Praise Report!



") Response.Write("Click here to View it!
") end sub ' end sub display_thanks }}} ' Main Program LOGIC {{{ dim show_form Dim test_email show_form = 1 test_email = Request.Form("email") call display_header() call display_links_logo() call prayer_form() If request.form("submit") = "Submit My Report" Then Select Case test_email %> <% Case Else call save_prayer() End Select Response.Redirect("answered-prayers-praise-reports.html?submitted=1") End If ' END LOGIC }}} %>