<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' EDIT MEMO Note ' _wform_memo_edit.asp '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsTemp '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% Function Update_Memo_Message( SSmsg_id, SSmsg, SSexpdate ) objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ " UPDATE message_board"&_ " SET msg_details = '"& SSmsg &"', expiry_date = "& TO_ORADATE( SSexpdate ) &_ " WHERE msg_id = "& SSmsg_id objEH.CatchORA ( OraSession ) End Function Function Delete_Memo_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_Memo_Message ( QStrPar("FRmsg_id"), QStrPar("FRmsg"), QStrPar("FRexpdate") ) ReloadParentWindow() Call Destroy_All_Objects Response.End ElseIf CBool(QStrPar("action")) AND QStrPar("btn") = "Delete" Then Call Delete_Memo_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))%>

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