<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' EDIT Scheduled Task '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsTemp '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% Function Update_Scheduling_Message( SSmsg_id, SSmsg, SSduedate ) OraSession.BeginTrans OraDatabase.ExecuteSQL _ " UPDATE message_board"&_ " SET msg_details = '"& SSmsg &"', due_date = "& TO_ORADATE( SSduedate ) &_ " WHERE msg_id = "& SSmsg_id OraSession.CommitTrans End Function Function Delete_Scheduling_Message( SSmsg_id ) OraSession.BeginTrans OraDatabase.ExecuteSQL _ " DELETE message_board"&_ " WHERE msg_id = "& SSmsg_id OraSession.CommitTrans End Function Function Get_Message_Details ( NNmsg_id ) Get_Message_Details = _ " SELECT * FROM message_board WHERE msg_id = "& NNmsg_id End Function %> <% 'Process submition If CBool(QStrPar("action")) AND QStrPar("btn") = "Update" Then Call Update_Scheduling_Message ( QStrPar("FRmsg_id"), QStrPar("FRmsg"), QStrPar("FRduedate") ) %> <% Call CloseWindow ElseIf CBool(QStrPar("action")) AND QStrPar("btn") = "Delete" AND objAccessControl.UserLogedIn Then Call Delete_Scheduling_Message ( QStrPar("FRmsg_id") ) %> <% Call CloseWindow End If %> <%Set rsTemp = OraDatabase.DbCreateDynaset( Get_Message_Details (QStrPar("FRmsg_id")), cint(0))%>

	EDIT Scheduled Task
	Due Date ">   <%=rsTemp.Fields("msg_details")%> ">