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 Scheduled Task
 8 
'               EDIT Scheduled Task
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_Scheduling_Message( SSmsg_id, SSmsg, SSduedate )
 32 
Function Update_Scheduling_Message( SSmsg_id, SSmsg, SSduedate )
- 
 
 33 
   objEH.TryORA ( OraSession )
33 
	OraSession.BeginTrans
 34 
   On Error Resume Next
34 
	OraDatabase.ExecuteSQL _
 35 
   OraDatabase.ExecuteSQL _
35 
		" UPDATE message_board"&_
 36 
      " UPDATE message_board"&_
36 
		" SET msg_details = '"& SSmsg &"', due_date = "& TO_ORADATE( SSduedate ) &_
 37 
      " SET msg_details = '"& SSmsg &"', due_date = "& TO_ORADATE( SSduedate ) &_
37 
		" WHERE msg_id = "& SSmsg_id
 38 
      " WHERE msg_id = "& SSmsg_id
38 
  	OraSession.CommitTrans
 39 
   objEH.CatchORA ( OraSession )
39 
End Function
 40 
End Function
40 
 
 41 
 
41 
Function Delete_Scheduling_Message( SSmsg_id )
 42 
Function Delete_Scheduling_Message( SSmsg_id )
- 
 
 43 
   objEH.TryORA ( OraSession )
42 
	OraSession.BeginTrans
 44 
   On Error Resume Next
43 
	OraDatabase.ExecuteSQL _
 45 
   OraDatabase.ExecuteSQL _
44 
		" DELETE message_board"&_
 46 
      " DELETE message_board"&_
45 
		" WHERE msg_id = "& SSmsg_id
 47 
      " WHERE msg_id = "& SSmsg_id
46 
  	OraSession.CommitTrans
 48 
   objEH.CatchORA ( OraSession )
47 
End Function
 49 
End Function
48 
 
 50 
 
49 
Function Get_Message_Details ( NNmsg_id )
 51 
Function Get_Message_Details ( NNmsg_id )
50 
	Get_Message_Details = _
 52 
   Get_Message_Details = _
51 
	" SELECT * FROM message_board WHERE msg_id = "& NNmsg_id
 53 
   " SELECT * FROM message_board WHERE msg_id = "& NNmsg_id
52 
End Function
 54 
End Function
53 
%>
 55 
%>
54 
<%
 56 
<%
55 
'Process submition
 57 
'Process submition
56 
If CBool(QStrPar("action")) AND QStrPar("btn") = "Update" Then
 58 
If CBool(QStrPar("action")) AND QStrPar("btn") = "Update" Then
57 
	Call Update_Scheduling_Message ( QStrPar("FRmsg_id"), QStrPar("FRmsg"), QStrPar("FRduedate") )
 59 
   Call Update_Scheduling_Message ( QStrPar("FRmsg_id"), QStrPar("FRmsg"), QStrPar("FRduedate") )
58 
	%>
 60 
   %>
59 
	<script language="JavaScript" type="text/javascript">
 61 
   <script language="JavaScript" type="text/javascript">
60 
	opener.location='index.asp?refresh=true<%=QSTR%>';
 62 
   opener.location='index.asp?refresh=true<%=QSTR%>';
61 
	</script>
63 
   </script>
62 
	<%
 64 
   <%
63 
	Call CloseWindow
 65 
   Call CloseWindow
64 
ElseIf CBool(QStrPar("action")) AND QStrPar("btn") = "Delete" AND  objAccessControl.UserLogedIn Then
 66 
ElseIf CBool(QStrPar("action")) AND QStrPar("btn") = "Delete" AND  objAccessControl.UserLogedIn Then
65 
	Call Delete_Scheduling_Message ( QStrPar("FRmsg_id") )
 67 
   Call Delete_Scheduling_Message ( QStrPar("FRmsg_id") )
66 
	%>
 68 
   %>
67 
	<script language="JavaScript" type="text/javascript">
 69 
   <script language="JavaScript" type="text/javascript">
68 
	opener.location='index.asp?refresh=true<%=QSTR%>';
 70 
   opener.location='index.asp?refresh=true<%=QSTR%>';
69 
	</script>
71 
   </script>
70 
	<%
 72 
   <%
71 
	Call CloseWindow
 73 
   Call CloseWindow
72 
End If
 74 
End If
73 
%>
 75 
%>
74 
<html>
 76 
<html>
75 
<head>
 77 
<head>
76 
<title>Release Manager</title>
 78 
<title>Release Manager</title>
Line 82... Line 84...
82 
<script language="JavaScript" src="images/calendar.js"></script>
 84 
<script language="JavaScript" src="images/calendar.js"></script>
83 
</head>
 85 
</head>
84 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.scheduletask.FRmsg.focus();">
 86 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.scheduletask.FRmsg.focus();">
85 
<%Set rsTemp = OraDatabase.DbCreateDynaset( Get_Message_Details (QStrPar("FRmsg_id")), cint(0))%>
 87 
<%Set rsTemp = OraDatabase.DbCreateDynaset( Get_Message_Details (QStrPar("FRmsg_id")), cint(0))%>
86 
<form name="scheduletask" method="post" action="<%=scriptName%>?done=done<%=QSTR_All%>" onSubmit="return check();">
 88 
<form name="scheduletask" method="post" action="<%=scriptName%>?done=done<%=QSTR_All%>" onSubmit="return check();">
87 
  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
 89 
   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
88 
    <tr>
90 
      <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>
 91 
         <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 Scheduled Task</td>
 92 
         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;EDIT Scheduled Task</td>
91 
      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
93 
         <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">
 94 
            <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;">
 95 
            <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()">
 96 
            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
95 
      </td>
 97 
         </td>
96 
      <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
98 
         <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>
 99 
         <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
98 
    </tr>
 100 
      </tr>
99 
    <tr>
101 
      <tr>
100 
      <td height="100%" width="1%">&nbsp;</td>
 102 
         <td height="100%" width="1%">&nbsp;</td>
101 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
103 
         <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">
 104 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
103 
          <tr>
105 
               <tr>
104 
            <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
 106 
                  <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>
 107 
                  <td width="1%" nowrap class="form_group" valign="bottom"></td>
106 
            <td nowrap width="100%">&nbsp; </td>
 108 
                  <td nowrap width="100%">&nbsp; </td>
107 
          </tr>
 109 
               </tr>
108 
          <tr>
110 
               <tr>
109 
            <td width="1%">&nbsp;</td>
 111 
                  <td width="1%">&nbsp;</td>
110 
            <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Due
112 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Due
111 
              Date </td>
 113 
                  Date </td>
112 
            <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
114 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
113 
              <input type="text" name="FRduedate" maxlength="10" size="10" class="form_item" value="<%=EuroDate (rsTemp.Fields("due_date"))%>">
 115 
                     <input type="text" name="FRduedate" maxlength="10" size="10" class="form_item" value="<%=EuroDate (rsTemp.Fields("due_date"))%>">
114 
              <A onmouseover="window.status='Select a date';return true;" onmouseout="window.status='';return true;" href="javascript:show_calendar('scheduletask.FRduedate',null,null,null);"><img src="images/i_calendar.gif" width="16" height="16" border="0"></a>
116 
                     <A onmouseover="window.status='Select a date';return true;" onmouseout="window.status='';return true;" href="javascript:show_calendar('scheduletask.FRduedate',null,null,null);"><img src="images/i_calendar.gif" width="16" height="16" border="0"></a>
115 
            </td>
 117 
                  </td>
116 
          </tr>
 118 
               </tr>
117 
          <tr>
119 
               <tr>
118 
            <td width="1%">&nbsp;</td>
 120 
                  <td width="1%">&nbsp;</td>
119 
            <td colspan="2" nowrap class="form_field" background="images/bg_form_lightbluedark.gif" valign="top">
121 
                  <td colspan="2" nowrap class="form_field" background="images/bg_form_lightbluedark.gif" valign="top">
120 
              <textarea name="FRmsg" cols="40" rows="10" class="form_item"><%=rsTemp.Fields("msg_details")%></textarea>
 122 
                     <textarea name="FRmsg" cols="40" rows="10" class="form_item"><%=rsTemp.Fields("msg_details")%></textarea>
121 
			  <input type="hidden" name="FRmsg_id" value="<%=QStrPar("FRmsg_id")%>">
 123 
                     <input type="hidden" name="FRmsg_id" value="<%=QStrPar("FRmsg_id")%>">
122 
              <input type="hidden" name="action" value="true">
 124 
                     <input type="hidden" name="action" value="true">
123 
            </td>
 125 
                  </td>
124 
          </tr>
 126 
               </tr>
125 
          <tr>
127 
               <tr>
126 
            <td width="1%">&nbsp;</td>
 128 
                  <td width="1%">&nbsp;</td>
127 
            <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
 129 
                  <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
128 
            <td nowrap width="100%">
130 
                  <td nowrap width="100%">
129 
              <p>&nbsp;</p>
 131 
                     <p>&nbsp;</p>
130 
            </td>
 132 
                  </td>
131 
          </tr>
 133 
               </tr>
132 
        </table>
 134 
            </table>
133 
      </td>
 135 
         </td>
134 
    </tr>
 136 
      </tr>
135 
    <tr>
 137 
      <tr>
136 
      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
 138 
         <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
137 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
 139 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
138 
    </tr>
 140 
      </tr>
139 
  </table>
 141 
   </table>
140 
</form>
 142 
</form>
141 
</body>
 143 
</body>
142 
</html>
 144 
</html>
143 
 
 145 
 
144 
<!-- DESTRUCTOR ------->
 146 
<!-- DESTRUCTOR ------->
145 
<!--#include file="common/destructor.asp"-->
 - 
 
146 

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

          

          

            -
            
 

            148