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