<%@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 ) objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ " UPDATE message_board"&_ " SET msg_details = '"& SSmsg &"', due_date = "& TO_ORADATE( SSduedate ) &_ " WHERE msg_id = "& SSmsg_id objEH.CatchORA ( OraSession ) End Function Function Delete_Scheduling_Message( SSmsg_id ) objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ " DELETE message_board"&_ " WHERE msg_id = "& SSmsg_id objEH.CatchORA ( OraSession ) 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") ) ReloadParentWindow() Call Destroy_All_Objects Response.End ElseIf CBool(QStrPar("action")) AND QStrPar("btn") = "Delete" AND objAccessControl.UserLogedIn Then Call Delete_Scheduling_Message ( QStrPar("FRmsg_id") ) ReloadParentWindow() Call Destroy_All_Objects Response.End End If %> <%Set rsTemp = OraDatabase.DbCreateDynaset( Get_Message_Details (QStrPar("FRmsg_id")), cint(0))%>

Due Date " id="dateInput" xxdisabled="disabled"> <%=rsTemp.Fields("msg_details")%>