Subversion Repositories DevTools

Rev

Rev 5958 | Details | Compare with Previous | Last modification | View Log | RSS feed

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