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 60... Line 60...
60
<%
60
<%
61
'Process submition
61
'Process submition
62
If CBool(QStrPar("action")) AND QStrPar("btn") = "Update" Then
62
If CBool(QStrPar("action")) AND QStrPar("btn") = "Update" Then
63
   Call Update_Memo_Message ( QStrPar("FRmsg_id"), QStrPar("FRmsg"), QStrPar("FRexpdate") )
63
   Call Update_Memo_Message ( QStrPar("FRmsg_id"), QStrPar("FRmsg"), QStrPar("FRexpdate") )
64
      ReloadParentWindow()
64
      ReloadParentWindow()
-
 
65
      Call Destroy_All_Objects
65
      Response.End
66
      Response.End
66
ElseIf CBool(QStrPar("action")) AND QStrPar("btn") = "Delete" Then
67
ElseIf CBool(QStrPar("action")) AND QStrPar("btn") = "Delete" Then
67
   Call Delete_Memo_Message ( QStrPar("FRmsg_id") )
68
   Call Delete_Memo_Message ( QStrPar("FRmsg_id") )
68
      ReloadParentWindow()
69
      ReloadParentWindow()
-
 
70
      Call Destroy_All_Objects
69
      Response.End
71
      Response.End
70
End If
72
End If
71
%>
73
%>
72
<html>
74
<html>
73
<head>
75
<head>
Line 155... Line 157...
155
    </tr>
157
    </tr>
156
  </table>
158
  </table>
157
</form>
159
</form>
158
</body>
160
</body>
159
</html>
161
</html>
160
 
-
 
161
 
-
 
162
<!-- DESTRUCTOR ------->
162
<!-- DESTRUCTOR ------->
163
<!--#include file="common/destructor.asp"-->
163
<!--#include file="common/destructor.asp"-->