<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0 ' always load the page, dont store
%>
<%
'=====================================================
' Schedule a Task
' _wform_schedule_add.asp
'=====================================================
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
'----------------------------------------------
%>
<%
Function Insert_Scheduling_Message( SSmsg, SSduedate )
Dim SEQ_msg_id
SEQ_msg_id = Get_From_DUAL("SEQ_MSG_ID.nextval")
objEH.TryORA ( OraSession )
On Error Resume Next
OraDatabase.ExecuteSQL _
" INSERT INTO message_board (msg_id, msg_details, submition_date, due_date)"&_
" VALUES ("& SEQ_msg_id &", '"& SSmsg &"', "& ORA_SYSDATE &","& TO_ORADATE( SSduedate ) &")"
objEH.CatchORA ( OraSession )
End Function
%>
<%
'Process submition
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then
Call Insert_Scheduling_Message ( QStrPar("FRmsg"), QStrPar("FRduedate") )
ReloadParentWindow()
Call Destroy_All_Objects
Response.End
End If
%>
Release Manager