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"-->