JESUS LIBERATION SQUAD: Online giving

<% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.addHeader "cache-control", "no-cache" Response.addHeader "cache-control", "no-store" Response.CacheControl = "no-cache" %> <% ewCurSec = 0 ' Initialise ' User levels Const ewAllowAdd = 1 Const ewAllowDelete = 2 Const ewAllowEdit = 4 Const ewAllowView = 8 Const ewAllowList = 8 Const ewAllowReport = 8 Const ewAllowSearch = 8 Const ewAllowAdmin = 16 %> <% ' Initialize common variables x_id = Null: ox_id = Null x_Names = Null: ox_Names = Null x_Sex = Null: ox_Sex = Null x_Address = Null: ox_Address = Null x_Phone = Null: ox_Phone = Null x_Email = Null: ox_Email = Null x_Country = Null: ox_Country = Null x_offering = Null: ox_offering = Null x_contact = Null: ox_contact = Null x_partner = Null: ox_partner = Null x_TypeofPartner = Null: ox_TypeofPartner = Null x_Occupation = Null: ox_Occupation = Null %> <% Response.Buffer = True ' Load key from QueryString bCopy = True x_id = Request.QueryString("id") If x_id = "" Or IsNull(x_id) Then bCopy = False End If ' Get action sAction = Request.Form("a_add") If (sAction = "" Or IsNull(sAction)) Then If bCopy Then sAction = "C" ' Copy record Else sAction = "I" ' Display blank record End If Else ' Get fields from form x_id = Request.Form("x_id") x_Names = Request.Form("x_Names") x_Sex = Request.Form("x_Sex") x_Address = Request.Form("x_Address") x_Phone = Request.Form("x_Phone") x_Email = Request.Form("x_Email") x_Country = Request.Form("x_Country") x_offering = Request.Form("x_offering") x_contact = Request.Form("x_contact") x_partner = Request.Form("x_partner") x_TypeofPartner = Request.Form("x_TypeofPartner") x_Occupation = Request.Form("x_Occupation") End If ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case sAction Case "C": ' Get a record to display If Not LoadData() Then ' Load Record based on key Session("ewmsg") = "No records found" conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "Givinglist.asp" End If Case "A": ' Add If AddData() Then ' Add New Record Session("ewmsg") = "Add New Record Successful" conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "Givinglist.asp" Else End If End Select %> JESUS LIBERATION SQUAD: Online giving

Are you troubled by your dreams? Do you want an interpretation? Here is an Apostle of Dreams sent of God. Click

Online giving

I am Apostle Dele Johnson. God has called me, anointed me and given me a dynamic vision to take the gospel to the ends of the earth.

We have the TV Ministry. Books ministry. More importantly, we are currently building the sanctuary in Lagos. The building is an ambitious project where we desire according to God's plans to have people worship God in a magnificent environment.

I cannot do this alone. I need people like you who can stand with me to bring this vision to pass. I need people who can pray for me daily. I also need those who can be my financial partners, pledging to give whatever God lays in their hearts to support this vision. I believe you are one of them.

As you pray for me and sow your financial seed into my ministry, you will partake of the grace of God upon my life. I will continually pray for you, that God will also meet your every need. And I will send you periodic mails to update you on what God is doing around the world through your generosity.

Apostle Dele Johnson.

If you wish to give an offering or sow a seed to our various ministries, please pay into these accounts.

BANK:
NAME:                          REV.
DOLLAR A/C NO:
NAIRA A/CNO:

After crediting this account, please notify us by calling this number:

234.......

E-mail:
info@jesusliberationsquad.org

Every offering you give is a seed and the Lord will give you the harvest.

Remain Blessed.

<% conn.Close ' Close Connection Set conn = Nothing %> <% '------------------------------------------------------------------------------- ' Function LoadData ' - Load Data based on Key Value ' - Variables setup: field variables Function LoadData() Dim sSql, rs, sWhere, sGroupBy, sHaving, sOrderBy sSql = "SELECT * FROM [Giving]" sWhere = "" sGroupBy = "" sHaving = "" sOrderBy = "" If sWhere <> "" Then sWhere = sWhere & " AND " sWhere = sWhere & "([id] = " & AdjustSql(x_id) & ")" sSql = sSql & " WHERE " & sWhere If sGroupBy <> "" Then sSql = sSql & " GROUP BY " & sGroupBy End If If sHaving <> "" Then sSql = sSql & " HAVING " & sHaving End If If sOrderBy <> "" Then sSql = sSql & " ORDER BY " & sOrderBy End If Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSql, conn If rs.Eof Then LoadData = False Else LoadData = True rs.MoveFirst ' Get the field contents x_id = rs("id") x_Names = rs("Names") x_Sex = rs("Sex") x_Address = rs("Address") x_Phone = rs("Phone") x_Email = rs("Email") x_Country = rs("Country") x_offering = rs("offering") x_contact = rs("contact") x_partner = rs("partner") x_TypeofPartner = rs("TypeofPartner") x_Occupation = rs("Occupation") End If rs.Close Set rs = Nothing End Function %> <% '------------------------------------------------------------------------------- ' Function AddData ' - Add Data ' - Variables used: field variables Function AddData() Dim sSql, rs, sWhere, sGroupBy, sHaving, sOrderBy Dim bCheckKey, sSqlChk, sWhereChk sSql = "SELECT * FROM [Giving]" sWhere = "" sGroupBy = "" sHaving = "" sOrderBy = "" ' Check for duplicate key bCheckKey = True sWhereChk = sWhere If x_id = "" Or IsNull(x_id) Then bCheckKey = False Else If sWhereChk <> "" Then sWhereChk = sWhereChk & " AND " sWhereChk = sWhereChk & "([id] = " & AdjustSql(x_id) & ")" End If If bCheckKey Then sSqlChk = sSql & " WHERE " & sWhereChk Set rsChk = conn.Execute(sSqlChk) If Not rsChk.Eof Then Session("ewmsg") = "Duplicate value for primary key" rsChk.Close Set rsChk = Nothing AddData = False Exit Function End If rsChk.Close Set rsChk = Nothing End If ' Add New Record If sWhere <> "" Then sWhere = sWhere & " AND " sWhere = sWhere & "(0 = 1)" sSql = sSql & " WHERE " & sWhere If sGroupBy <> "" Then sSql = sSql & " GROUP BY " & sGroupBy End If If sHaving <> "" Then sSql = sSql & " HAVING " & sHaving End If If sOrderBy <> "" Then sSql = sSql & " ORDER BY " & sOrderBy End If Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open sSql, conn, 1, 2 rs.AddNew ' Field Names sTmp = Trim(x_Names) If Trim(sTmp) = "" Then sTmp = Null rs("Names") = sTmp ' Field Sex sTmp = Trim(x_Sex) If Trim(sTmp) = "" Then sTmp = Null rs("Sex") = sTmp ' Field Address sTmp = Trim(x_Address) If Trim(sTmp) = "" Then sTmp = Null rs("Address") = sTmp ' Field Phone sTmp = Trim(x_Phone) If Trim(sTmp) = "" Then sTmp = Null rs("Phone") = sTmp ' Field Email sTmp = Trim(x_Email) If Trim(sTmp) = "" Then sTmp = Null rs("Email") = sTmp ' Field Country sTmp = Trim(x_Country) If Trim(sTmp) = "" Then sTmp = Null rs("Country") = sTmp ' Field offering sTmp = Trim(x_offering) If Trim(sTmp) = "" Then sTmp = Null rs("offering") = sTmp ' Field contact sTmp = Trim(x_contact) If Trim(sTmp) = "" Then sTmp = Null rs("contact") = sTmp ' Field partner sTmp = Trim(x_partner) If Trim(sTmp) = "" Then sTmp = Null rs("partner") = sTmp ' Field TypeofPartner sTmp = Trim(x_TypeofPartner) If Trim(sTmp) = "" Then sTmp = Null rs("TypeofPartner") = sTmp ' Field Occupation sTmp = Trim(x_Occupation) If Trim(sTmp) = "" Then sTmp = Null rs("Occupation") = sTmp rs.Update rs.Close Set rs = Nothing AddData = True End Function %>