<% Response.Expires = 0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate" %> <% If Not IsLoggedIn And Request.Cookies(ewProjectName)("autologin") = "autologin" And Request.Cookies(ewProjectName)("password") <> "" Then Response.Redirect "login.asp" Call LoadUserLevel() If IsLoggedIn Then ewCurSec = CurrentUserLevelPriv("UserLevelPermissions") Else ewCurSec = GetAnonymousPriv("UserLevelPermissions") End If If (ewCurSec And ewAllowEdit) <> ewAllowEdit Then Response.Redirect "UserLevelPermissionslist.asp" %> <% ' Initialize common variables x_UserLevelID = Null: ox_UserLevelID = Null: z_UserLevelID = Null x_TableName = Null: ox_TableName = Null: z_TableName = Null x_Permission = Null: ox_Permission = Null: z_Permission = Null %> <% Response.Buffer = True ' Load key from QueryString x_UserLevelID = Request.QueryString("UserLevelID") x_TableName = Request.QueryString("TableName") ' Get action sAction = Request.Form("a_edit") If sAction = "" Or IsNull(sAction) Then sAction = "I" ' Display with input box Else ' Get fields from form x_UserLevelID = Request.Form("x_UserLevelID") x_TableName = Request.Form("x_TableName") x_Permission = Request.Form("x_Permission") End If ' Check if valid key If x_UserLevelID = "" Or IsNull(x_UserLevelID) Then Response.Redirect "UserLevelPermissionslist.asp" If x_TableName = "" Or IsNull(x_TableName) Then Response.Redirect "UserLevelPermissionslist.asp" ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case sAction Case "I": ' Get a record to display If Not LoadData() Then ' Load Record based on key Session(ewSessionMessage) = "No records found" conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "UserLevelPermissionslist.asp" End If Case "U": ' Update If EditData() Then ' Update Record based on key Session(ewSessionMessage) = "Update Record Successful" conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "UserLevelPermissionslist.asp" End If End Select %>

Edit TABLE: User Level Permissions

Back to List

<% If Session(ewSessionMessage) <> "" Then %>

<%= Session(ewSessionMessage) %>

<% Session(ewSessionMessage) = "" ' Clear message End If %>

User Level ID * <% Response.Write x_UserLevelID %>
Table Name * <% Response.Write x_TableName %>
Permission * ">

<% conn.Close ' Close Connection Set conn = Nothing %> <% '------------------------------------------------------------------------------- ' Function LoadData ' - Load Data based on Key Value ' - Variables setup: field variables Function LoadData() Dim rs, sSql, sFilter sFilter = ewSqlKeyWhere If Not IsNumeric(x_UserLevelID) Then LoadData = False Exit Function End If sFilter = Replace(sFilter, "@UserLevelID", AdjustSql(x_UserLevelID)) ' Replace key value sFilter = Replace(sFilter, "@TableName", AdjustSql(x_TableName)) ' Replace key value sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "") 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_UserLevelID = rs("UserLevelID") x_TableName = rs("TableName") x_Permission = rs("Permission") End If rs.Close Set rs = Nothing End Function %> <% '------------------------------------------------------------------------------- ' Function EditData ' - Edit Data based on Key Value ' - Variables used: field variables Function EditData() On Error Resume Next Dim rs, sSql, sFilter Dim rsold, rsnew sFilter = ewSqlKeyWhere If Not IsNumeric(x_UserLevelID) Then EditData = False Exit Function End If sFilter = Replace(sFilter, "@UserLevelID", AdjustSql(x_UserLevelID)) ' Replace key value sFilter = Replace(sFilter, "@TableName", AdjustSql(x_TableName)) ' Replace key value sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sFilter, "") Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 2 rs.Open sSql, conn, 1, 2 If Err.Number <> 0 Then Session(ewSessionMessage) = Err.Description rs.Close Set rs = Nothing EditData = False Exit Function End If ' clone old rs object Set rsold = CloneRs(rs) If rs.Eof Then EditData = False ' Update Failed Else ' Field UserLevelID sTmp = x_UserLevelID If Not IsNumeric(sTmp) Then sTmp = 0 Else sTmp = CLng(sTmp) End If rs("UserLevelID") = sTmp ' Field TableName sTmp = Trim(x_TableName) If Trim(sTmp) = "" Then sTmp = "" rs("TableName") = sTmp ' Field Permission sTmp = x_Permission If Not IsNumeric(sTmp) Then sTmp = 0 Else sTmp = CLng(sTmp) End If rs("Permission") = sTmp ' Call updating event If Recordset_Updating(rsold, rs) Then ' clone new rs object Set rsnew = CloneRs(rs) rs.Update If Err.Number <> 0 Then Session(ewSessionMessage) = Err.Description EditData = False Else EditData = True End If Else rs.CancelUpdate EditData = False End If End If ' Call updated event If EditData Then Call Recordset_Updated(rsold, rsnew) End If rs.Close Set rs = Nothing rsold.Close Set rsold = Nothing rsnew.Close Set rsnew = Nothing End Function '------------------------------------------------------------------------------- ' Recordset updating event Function Recordset_Updating(rsold, rsnew) On Error Resume Next ' Please enter your customized codes here Recordset_Updating = True End Function '------------------------------------------------------------------------------- ' Recordset updated event Sub Recordset_Updated(rsold, rsnew) On Error Resume Next Dim table table = "UserLevelPermissions" End Sub %>