Subversion Repositories DevTools

Rev

Rev 5635 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5635 Rev 5957
Line 55... Line 55...
55
<%
55
<%
56
'Process submition
56
'Process submition
57
If CBool(QStrPar("action")) AND QStrPar("btn") = "Update" Then
57
If CBool(QStrPar("action")) AND QStrPar("btn") = "Update" Then
58
    Call Update_Scheduling_Message ( QStrPar("FRmsg_id"), QStrPar("FRmsg"), QStrPar("FRduedate") )
58
    Call Update_Scheduling_Message ( QStrPar("FRmsg_id"), QStrPar("FRmsg"), QStrPar("FRduedate") )
59
    ReloadParentWindow()
59
    ReloadParentWindow()
-
 
60
    Call Destroy_All_Objects
60
    Response.End
61
    Response.End
61
ElseIf CBool(QStrPar("action")) AND QStrPar("btn") = "Delete" AND  objAccessControl.UserLogedIn Then
62
ElseIf CBool(QStrPar("action")) AND QStrPar("btn") = "Delete" AND  objAccessControl.UserLogedIn Then
62
    Call Delete_Scheduling_Message ( QStrPar("FRmsg_id") )
63
    Call Delete_Scheduling_Message ( QStrPar("FRmsg_id") )
63
    ReloadParentWindow()
64
    ReloadParentWindow()
-
 
65
    Call Destroy_All_Objects
64
    Response.End
66
    Response.End
65
End If
67
End If
66
%>
68
%>
67
<html>
69
<html>
68
<head>
70
<head>
Line 149... Line 151...
149
      </tr>
151
      </tr>
150
   </table>
152
   </table>
151
</form>
153
</form>
152
</body>
154
</body>
153
</html>
155
</html>
154
 
-
 
155
<!-- DESTRUCTOR ------->
156
<!-- DESTRUCTOR ------->
156
<!--#include file="common/destructor.asp"-->
157
<!--#include file="common/destructor.asp"-->