<%@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("Administration-Volunteers_UserLevel") = 0
Session("Administration-Volunteers_Logon") = "FALSE"
Session("Administration-Volunteers_UserLogon") = ""
Session("Administration-Volunteers_RedirectURL") = Session("FirstRedirectURL")
Response.Clear
Response.Redirect("./Administration-Volunteers_login.asp")
QSDestroySession()
end if
if Session("Administration-Volunteers_Logon") <> "TRUE" Then
Session("Administration-Volunteers_RedirectURL") = "./administration-volunteers_add.asp?" & request.ServerVariables("QUERY_STRING")
Response.Clear
Response.Redirect("./Administration-Volunteers_login.asp")
end if
if (Session("Administration-Volunteers_UserLevel") = "") Then
Session("Administration-Volunteers_UserLevel") = 0
end if
if (cint(Session("Administration-Volunteers_UserLevel"))< PageSecureLevel) then
Session("Administration-Volunteers_Logon") = "FALSE"
Session("Administration-Volunteers_RedirectURL") = "./administration-volunteers_add.asp?" & request.ServerVariables("QUERY_STRING")
Response.Redirect("./Administration-Volunteers_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 : Name-----
fd = fd & seperate_sql & "Name"
iData = Request("add_fd0")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : Address-----
fd = fd & seperate_sql & "Address"
iData = Request("add_fd1")
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_fd2")
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_fd3")
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_fd4")
if iData <> "" then
val = val & seperate_sql & QSReplaceSingleQuote(iData)
else
val = val & seperate_sql & "0"
end if
'-----Get data field : user_email-----
fd = fd & seperate_sql & "user_email"
iData = Request("add_fd5")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : user-password-----
fd = fd & seperate_sql & "`user-password`"
iData = Request("add_fd6")
if iData <> "" then
val = val & seperate_sql & "'" & QSReplaceSingleQuote(iData) & "'"
else
val = val & seperate_sql & "null"
end if
'-----Get data field : security_level-----
fd = fd & seperate_sql & "security_level"
iData = Request("add_fd7")
if iData <> "" then
val = val & seperate_sql & QSReplaceSingleQuote(iData)
else
val = val & seperate_sql & "0"
end if
'-----Get data field : comments-----
fd = fd & seperate_sql & "comments"
iData = Request("add_fd8")
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 `Fund Raisers`"
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 = "./administration-volunteers.asp?"
MyConn.Close
set MyConn = Nothing
if Err_String = "" then
Response.Clear
Response.Redirect(submiturl)
end if
end if
%>
Add Administration-Volunteers
