<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0 ' always load the page, dont store
%>
<%
'=====================================================
' MEMO Note
'=====================================================
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
'----------------------------------------------
%>
<%
Function Insert_Memo_Message( SSmsg, SSexpdate )
Dim SEQ_msg_id
SEQ_msg_id = Get_From_DUAL("SEQ_MSG_ID.nextval")
OraSession.BeginTrans
OraDatabase.ExecuteSQL _
" INSERT INTO message_board (msg_id, msg_details, submition_date, expiry_date)"&_
" VALUES ("& SEQ_msg_id &", '"& SSmsg &"', "& ORA_SYSDATE &","& TO_ORADATE( SSexpdate ) &")"
OraSession.CommitTrans
End Function
%>
<%
'Process submition
If CBool(QStrPar("action")) Then
Call Insert_Memo_Message ( QStrPar("FRmsg"), QStrPar("FRexpdate") )
%>
<%
Call CloseWindow
End If
%>
Release Manager