Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
Option explicit
129 ghuddy 4 
Response.Expires = 0   ' always load the page, dont store
119 ghuddy 5 
%>
6 
<%
7 
'=====================================================
129 ghuddy 8 
'               EDIT MEMO Note
119 ghuddy 9 
'=====================================================
10 
%>
11 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/qstr.asp"-->
14 
<!--#include file="common/common_subs.asp"-->
15 
<!--#include file="common/formating.asp"-->
16 
<!--#include file="common/common_dbedit.asp"-->
17 
<!--#include file="common/_popup_window_common.asp"-->
18 
<%
19 
'------------ ACCESS CONTROL ------------------
20 
%>
21 
<!--#include file="_access_control_login.asp"-->
22 
<!--#include file="_access_control_general.asp"-->
23 
<!--#include file="_access_control_project.asp"-->
24 
<%
25 
'------------ Variable Definition -------------
26 
Dim rsTemp
27 
'------------ Constants Declaration -----------
28 
'------------ Variable Init -------------------
29 
'----------------------------------------------
30 
%>
31 
<%
32 
Function Update_Memo_Message( SSmsg_id, SSmsg, SSexpdate )
129 ghuddy 33 
   objEH.TryORA ( OraSession )
34 
   On Error Resume Next
35 
 
36 
   OraDatabase.ExecuteSQL _
37 
      " UPDATE message_board"&_
38 
      " SET msg_details = '"& SSmsg &"', expiry_date = "& TO_ORADATE( SSexpdate ) &_
39 
      " WHERE msg_id = "& SSmsg_id
40 
 
41 
   objEH.CatchORA ( OraSession )
119 ghuddy 42 
End Function
43 
 
44 
Function Delete_Memo_Message( SSmsg_id )
129 ghuddy 45 
   objEH.TryORA ( OraSession )
46 
   On Error Resume Next
47 
 
48 
   OraDatabase.ExecuteSQL _
49 
      " DELETE message_board"&_
50 
      " WHERE msg_id = "& SSmsg_id
51 
 
52 
   objEH.CatchORA ( OraSession )
119 ghuddy 53 
End Function
54 
 
55 
Function Get_Message_Details ( NNmsg_id )
129 ghuddy 56 
   Get_Message_Details = _
57 
   " SELECT * FROM message_board WHERE msg_id = "& NNmsg_id
119 ghuddy 58 
End Function
59 
%>
60 
<%
61 
'Process submition
62 
If CBool(QStrPar("action")) AND QStrPar("btn") = "Update" Then
129 ghuddy 63 
   Call Update_Memo_Message ( QStrPar("FRmsg_id"), QStrPar("FRmsg"), QStrPar("FRexpdate") )
64 
   %>
65 
   <script language="JavaScript" type="text/javascript">
66 
   opener.location='index.asp?refresh=true<%=QSTR%>';
67 
   </script>
68 
   <%
69 
   Call CloseWindow
119 ghuddy 70 
ElseIf CBool(QStrPar("action")) AND QStrPar("btn") = "Delete" Then
129 ghuddy 71 
   Call Delete_Memo_Message ( QStrPar("FRmsg_id") )
72 
   %>
73 
   <script language="JavaScript" type="text/javascript">
74 
   opener.location='index.asp?refresh=true<%=QSTR%>';
75 
   </script>
76 
   <%
77 
   Call CloseWindow
119 ghuddy 78 
End If
79 
%>
80 
<html>
81 
<head>
82 
<title>Release Manager</title>
83 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
84 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
85 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
86 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
87 
<script language="JavaScript" src="images/common.js"></script>
88 
<script language="JavaScript" src="images/calendar.js"></script>
89 
</head>
90 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.memo.FRmsg.focus();">
91 
<%Set rsTemp = OraDatabase.DbCreateDynaset( Get_Message_Details (QStrPar("FRmsg_id")), cint(0))%>
92 
<form name="memo" method="post" action="<%=scriptName%>?done=done<%=QSTR_All%>" onSubmit="return check();">
93 
  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
129 ghuddy 94 
    <tr>
119 ghuddy 95 
      <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/h_trsp_dot.gif" width="22" height="1"></td>
96 
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;EDIT Memo</td>
129 ghuddy 97 
      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
119 ghuddy 98 
        <input type="submit" name="btn" value="Update" class="form_btn_comp" onClick="clickedButton=true;MM_validateForm('FRduedate','Due Date','R','FRmsg','Message details','R');return document.MM_returnValue">
129 ghuddy 99 
      <input type="submit" name="btn" value="Delete" class="form_btn_comp" onClick="clickedButton=true;">
119 ghuddy 100 
        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
101 
      </td>
129 ghuddy 102 
      <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
119 ghuddy 103 
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
104 
    </tr>
129 ghuddy 105 
    <tr>
119 ghuddy 106 
      <td height="100%" width="1%">&nbsp;</td>
129 ghuddy 107 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
119 ghuddy 108 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
129 ghuddy 109 
          <tr>
119 ghuddy 110 
            <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
111 
            <td width="1%" nowrap class="form_group" valign="bottom"></td>
112 
            <td nowrap width="100%">&nbsp; </td>
113 
          </tr>
129 ghuddy 114 
          <tr>
119 ghuddy 115 
            <td width="1%">&nbsp;</td>
116 
            <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Expiry Date </td>
129 ghuddy 117 
            <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
119 ghuddy 118 
              <input type="text" name="FRexpdate" maxlength="10" size="10" class="form_item" value="<%=EuroDate (rsTemp.Fields("expiry_date"))%>">
129 ghuddy 119 
              <A onmouseover="window.status='Select a date';return true;" onmouseout="window.status='';return true;" href="javascript:show_calendar('memo.FRexpdate',null,null,null);"><img src="images/i_calendar.gif" width="16" height="16" border="0"></a>
119 ghuddy 120 
            </td>
121 
          </tr>
129 ghuddy 122 
          <tr>
119 ghuddy 123 
            <td width="1%">&nbsp;</td>
129 ghuddy 124 
            <td colspan="2" nowrap class="form_field" background="images/bg_form_lightbluedark.gif" valign="top">
119 ghuddy 125 
              <textarea name="FRmsg" cols="40" rows="10" class="form_item"><%=rsTemp.Fields("msg_details")%></textarea>
129 ghuddy 126 
           <input type="hidden" name="FRmsg_id" value="<%=QStrPar("FRmsg_id")%>">
119 ghuddy 127 
              <input type="hidden" name="action" value="true">
128 
            </td>
129 
          </tr>
129 ghuddy 130 
          <tr>
119 ghuddy 131 
            <td width="1%">&nbsp;</td>
132 
            <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
129 ghuddy 133 
            <td nowrap width="100%">
119 ghuddy 134 
              <p>&nbsp;</p>
135 
            </td>
136 
          </tr>
137 
        </table>
138 
      </td>
139 
    </tr>
140 
    <tr>
141 
      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
142 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
143 
    </tr>
144 
  </table>
145 
</form>
146 
</body>
147 
</html>
148 
 
149 
 
150 
<!-- DESTRUCTOR ------->
129 ghuddy 151 
<!--#include file="common/destructor.asp"-->