Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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

            151
            
<!--#include file="common/destructor.asp"-->

          

          

            -
            
 

            152