<%@Language=VBScript%>
<%
Response.Buffer = True
dim MyConn ' Database connection object
dim RS ' Recordset object
dim Fld ' Field object
dim Connect_String ' ADO Connection String
dim SQL ' SQL Statement
dim Page_Size ' Number of records per page
dim StartPage ' The page that we are starting on
dim Current_Page ' The current page that we are on
dim Page_Count ' Total pages
dim CssClass ' Style Sheet file
dim CellValue ' data value
dim intRowCount ' Total rows
dim i
dim iData
dim ItemValue
dim Qry_String
dim Filter_String
dim Err_String
dim PageSecureLevel
%>
<%
Err_String = ""
On Error Resume next
'=====Check security login======
PageSecureLevel = 9
if (UCASE(request.QueryString("Logout")) ="Y") then
Session("Admin_Donations_UserLevel") = 0
Session("Admin_Donations_Logon") = "FALSE"
Session("Admin_Donations_UserLogon") = ""
Session("Admin_Donations_RedirectURL") = Session("FirstRedirectURL")
Response.Clear
Response.Redirect("./Admin_Donations_login.asp")
QSDestroySession()
end if
if Session("Admin_Donations_Logon") <> "TRUE" Then
Session("Admin_Donations_RedirectURL") = "./admin_donations_add.asp?" & request.ServerVariables("QUERY_STRING")
Response.Clear
Response.Redirect("./Admin_Donations_login.asp")
end if
if (Session("Admin_Donations_UserLevel") = "") Then
Session("Admin_Donations_UserLevel") = 0
end if
if (cint(Session("Admin_Donations_UserLevel"))< PageSecureLevel) then
Session("Admin_Donations_Logon") = "FALSE"
Session("Admin_Donations_RedirectURL") = "./admin_donations_add.asp?" & request.ServerVariables("QUERY_STRING")
Response.Redirect("./Admin_Donations_login.asp")
end if
'==============================
if request.Form("act") = "n" then
set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open Connect_String
if err <> 0 then
Err_String = Err_String& "Error:while connecting to database "
Err_String = Err_String& "Description" & err.description & " "
err = 0
end if
QuoteChar = "`"
QuoteDate = "#"
fd = ""
val = ""
seperate_sql = ","
'-----Get data field : Donating_Company-----
fd = fd & seperate_sql & "Donating_Company"
iData = Request("add_fd1")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : Contact_Name-----
fd = fd & seperate_sql & "Contact_Name"
iData = Request("add_fd2")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : Company_Address1-----
fd = fd & seperate_sql & "Company_Address1"
iData = Request("add_fd3")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : Company_Address2-----
fd = fd & seperate_sql & "Company_Address2"
iData = Request("add_fd4")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : City-----
fd = fd & seperate_sql & "City"
iData = Request("add_fd5")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : State-----
fd = fd & seperate_sql & "State"
iData = Request("add_fd6")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : Zip-----
fd = fd & seperate_sql & "Zip"
iData = Request("add_fd7")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : Phone-----
fd = fd & seperate_sql & "Phone"
iData = Request("add_fd8")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : Fax-----
fd = fd & seperate_sql & "Fax"
iData = Request("add_fd9")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : email_address-----
fd = fd & seperate_sql & "email_address"
iData = Request("add_fd10")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : Status-----
fd = fd & seperate_sql & "Status"
iData = Request("add_fd11")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : Brochure_Mail-----
fd = fd & seperate_sql & "Brochure_Mail"
iData = Request("add_fd12")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : Brochure_Email-----
fd = fd & seperate_sql & "Brochure_Email"
iData = Request("add_fd13")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : Date_Contacted-----
fd = fd & seperate_sql & "Date_Contacted"
iData = Request("add_fd14")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : Donation-----
fd = fd & seperate_sql & "Donation"
iData = Request("add_fd15")
if iData <> "" then
val = val & seperate_sql & QSReplaceSingleQuote(iData)
else
val = val & seperate_sql & "0"
end if
'-----Get data field : Earned_Compensation-----
fd = fd & seperate_sql & "Earned_Compensation"
iData = Request("add_fd16")
if iData <> "" then
val = val & seperate_sql & QSReplaceSingleQuote(iData)
else
val = val & seperate_sql & "0"
end if
'-----Get data field : Donation Paid Check #-----
fd = fd & seperate_sql & "`Donation Paid Check #`"
iData = Request("add_fd17")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : Check Issue Date-----
fd = fd & seperate_sql & "`Check Issue Date`"
iData = Request("add_fd18")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : KenMat Rep-----
fd = fd & seperate_sql & "`KenMat Rep`"
iData = Request("add_fd19")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : Comments-----
fd = fd & seperate_sql & "Comments"
iData = Request("add_fd20")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
fd = Right(fd, Len(fd)-1) 'cut off {,}
val = Right(val, Len(val)-1) 'cut off {,}
SQL = ""
SQL = SQL & " Insert Into `Donation Summary`"
SQL = SQL & " ( " & fd & " ) "
SQL = SQL & " Values "
SQL = SQL & " ( " & val & " ) "
Myconn.Execute SQL
if err <> 0 then
Err_String = Err_String& "Error:while adding "
Err_String = Err_String& "Description" & err.description & " "
err = 0
end if
'----get submit url page----
submiturl = "./admin_donations.asp?"
MyConn.Close
set MyConn = Nothing
if Err_String = "" then
Response.Clear
Response.Redirect(submiturl)
end if
end if
%>
Add Donations