<%
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_name = Null: ox_name = Null
x_Sex = Null: ox_Sex = Null
x_Address = Null: ox_Address = Null
x_Country = Null: ox_Country = Null
x_Phone = Null: ox_Phone = Null
x_Email = Null: ox_Email = Null
x_partner = Null: ox_partner = Null
x_Support = Null: ox_Support = Null
x_offering = Null: ox_offering = Null
x_Mode = Null: ox_Mode = Null
x_contacted = Null: ox_contacted = 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_name = Request.Form("x_name")
x_Sex = Request.Form("x_Sex")
x_Address = Request.Form("x_Address")
x_Country = Request.Form("x_Country")
x_Phone = Request.Form("x_Phone")
x_Email = Request.Form("x_Email")
x_partner = Request.Form("x_partner")
x_Support = Request.Form("x_Support")
x_offering = Request.Form("x_offering")
x_Mode = Request.Form("x_Mode")
x_contacted = Request.Form("x_contacted")
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 "partner_confirmation.htm"
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 "partner_confirmation.htm"
Else
End If
End Select
%>
Be a Partner
Be a Partner
Sow to this Building Project
Good people's contributions made us go this far.
Your contribution also will definitely roof the auditorium.
Then watch God smile at you.
Pic 1: Front view of the dream Cathedral
Pic 3: Outer part of one of the two segments of the underground halls and offices
Pic 2: The Cathedral under construction
Pic 4: How the congregation sits in one of the eight sitting positions
Dear Pastor,
I want to grow in trusting God and
help you reach others who need to trust Him too!
Our Account Numbers are:
Royal Power Ministries: FIN Bank Plc.
Domicilairy Account: 30544000002102
Royal Power Ministries Inc., FIN Bank Plc
Current Account: 305430000025601
Pastor Magnus Otutu:
Zenith Bank Account No.: 6021820547
<%
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 [Partner]"
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_name = rs("name")
x_Sex = rs("Sex")
x_Address = rs("Address")
x_Country = rs("Country")
x_Phone = rs("Phone")
x_Email = rs("Email")
x_partner = rs("partner")
x_Support = rs("Support")
x_offering = rs("offering")
x_Mode = rs("Mode")
x_contacted = rs("contacted")
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 [Partner]"
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 name
sTmp = Trim(x_name)
If Trim(sTmp) = "" Then sTmp = Null
rs("name") = 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 Country
sTmp = Trim(x_Country)
If Trim(sTmp) = "" Then sTmp = Null
rs("Country") = 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 partner
sTmp = Trim(x_partner)
If Trim(sTmp) = "" Then sTmp = Null
rs("partner") = sTmp
' Field Support
sTmp = Trim(x_Support)
If Trim(sTmp) = "" Then sTmp = Null
rs("Support") = sTmp
' Field offering
sTmp = Trim(x_offering)
If Trim(sTmp) = "" Then sTmp = Null
rs("offering") = sTmp
' Field Mode
sTmp = Trim(x_Mode)
If Trim(sTmp) = "" Then sTmp = Null
rs("Mode") = sTmp
' Field contacted
sTmp = Trim(x_contacted)
If Trim(sTmp) = "" Then sTmp = Null
rs("contacted") = sTmp
rs.Update
rs.Close
Set rs = Nothing
AddData = True
End Function
%>
