<% @Language=VBScript <% Option Explicit <% ' Making sure that the Engineer user is logged in If SESSION("USER_ROLE") <> "SITE" AND SESSION("USER_ROLE") <> "DEPHEAD" Then Response.redirect ("default.asp?timeout=3") End If Session.Timeout=5 <!--#include file="connection.asp"--> <!--#include file="adovbs.inc"--> <% Dim whattodo, step3_RS, step3_SQL whattodo = request("what") Set step3_RS=Server.CreateObject("ADODB.Recordset") step3_SQL = "SELECT per_stage, per_deph, per_ddate, per_cc FROM web_permit WHERE per_num= '" & SESSION("USER_PERMIT") & "'" step3_RS.Open step3_SQL, objConn, , adLockOptimistic If whattodo = "CANCEL" Then step3_RS ("per_stage") = "Cancelled" step3_RS.Update --------------------------------------------------------------------- <% @Language=VBScript <% Option Explicit <% If SESSION("USER_ROLE") <> "PURPLE" Then Response.redirect ("default.asp?timeout=5") End If Session.Timeout=5 <!--#include file="connection.asp"--> <!--#include file="adovbs.inc"--> <% Dim step3_RS, step3_SQL Set step3_RS=Server.CreateObject("ADODB.Recordset") step3_SQL = "SELECT * FROM web_permit WHERE per_num= '" & SESSION("USER_PERMIT") & "'" step3_RS.Open step3_SQL, objConn, , adLockOptimistic If not step3_RS.eof Then step3_RS ("per_stage") = "trial" step3_RS.UpdateSlán