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