Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%@LANGUAGE="VBSCRIPT"%>

<%

<%

Option explicit

Option explicit

Response.Expires = 0   ' always load the page, dont store

Response.Expires = 0   ' always load the page, dont store

%>

%>

<%

<%

'=====================================================

'=====================================================

'               EDIT MEMO Note

'               EDIT MEMO Note

'=====================================================

'=====================================================

%>

%>

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<%

<%

'------------ ACCESS CONTROL ------------------

'------------ ACCESS CONTROL ------------------

%>

%>

<!--#include file="_access_control_login.asp"-->

<!--#include file="_access_control_login.asp"-->

<!--#include file="_access_control_general.asp"-->

<!--#include file="_access_control_general.asp"-->

<!--#include file="_access_control_project.asp"-->

<!--#include file="_access_control_project.asp"-->

<%

<%

'------------ Variable Definition -------------

'------------ Variable Definition -------------

Dim rsTemp

Dim rsTemp

'------------ Constants Declaration -----------

'------------ Constants Declaration -----------

'------------ Variable Init -------------------

'------------ Variable Init -------------------

'----------------------------------------------

'----------------------------------------------

%>

%>

<%

<%

Function Update_Memo_Message( SSmsg_id, SSmsg, SSexpdate )

Function Update_Memo_Message( SSmsg_id, SSmsg, SSexpdate )

   objEH.TryORA ( OraSession )

   objEH.TryORA ( OraSession )

   On Error Resume Next

   On Error Resume Next

   OraDatabase.ExecuteSQL _

   OraDatabase.ExecuteSQL _

      " UPDATE message_board"&_

      " UPDATE message_board"&_

      " SET msg_details = '"& SSmsg &"', expiry_date = "& TO_ORADATE( SSexpdate ) &_

      " SET msg_details = '"& SSmsg &"', expiry_date = "& TO_ORADATE( SSexpdate ) &_

      " WHERE msg_id = "& SSmsg_id

      " WHERE msg_id = "& SSmsg_id

   objEH.CatchORA ( OraSession )

   objEH.CatchORA ( OraSession )

End Function

End Function

Function Delete_Memo_Message( SSmsg_id )

Function Delete_Memo_Message( SSmsg_id )

   objEH.TryORA ( OraSession )

   objEH.TryORA ( OraSession )

   On Error Resume Next

   On Error Resume Next

   OraDatabase.ExecuteSQL _

   OraDatabase.ExecuteSQL _

      " DELETE message_board"&_

      " DELETE message_board"&_

      " WHERE msg_id = "& SSmsg_id

      " WHERE msg_id = "& SSmsg_id

   objEH.CatchORA ( OraSession )

   objEH.CatchORA ( OraSession )

End Function

End Function

Function Get_Message_Details ( NNmsg_id )

Function Get_Message_Details ( NNmsg_id )

   Get_Message_Details = _

   Get_Message_Details = _

   " SELECT * FROM message_board WHERE msg_id = "& NNmsg_id

   " SELECT * FROM message_board WHERE msg_id = "& NNmsg_id

End Function

End Function

%>

%>

<%

<%

'Process submition

'Process submition

If CBool(QStrPar("action")) AND QStrPar("btn") = "Update" Then

If CBool(QStrPar("action")) AND QStrPar("btn") = "Update" Then

   Call Update_Memo_Message ( QStrPar("FRmsg_id"), QStrPar("FRmsg"), QStrPar("FRexpdate") )

   Call Update_Memo_Message ( QStrPar("FRmsg_id"), QStrPar("FRmsg"), QStrPar("FRexpdate") )

   %>

   %>

   <script language="JavaScript" type="text/javascript">

   <script language="JavaScript" type="text/javascript">

   opener.location='index.asp?refresh=true<%=QSTR%>';

   opener.location='index.asp?refresh=true<%=QSTR%>';

   </script>

   </script>

   <%

   <%

   Call CloseWindow

   Call CloseWindow

ElseIf CBool(QStrPar("action")) AND QStrPar("btn") = "Delete" Then

ElseIf CBool(QStrPar("action")) AND QStrPar("btn") = "Delete" Then

   Call Delete_Memo_Message ( QStrPar("FRmsg_id") )

   Call Delete_Memo_Message ( QStrPar("FRmsg_id") )

   %>

   %>

   <script language="JavaScript" type="text/javascript">

   <script language="JavaScript" type="text/javascript">

   opener.location='index.asp?refresh=true<%=QSTR%>';

   opener.location='index.asp?refresh=true<%=QSTR%>';

   </script>

   </script>

   <%

   <%

   Call CloseWindow

   Call CloseWindow

End If

End If

%>

%>

<html>

<html>

<head>

<head>

<title>Release Manager</title>

<title>Release Manager</title>

<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">

<link rel="shortcut icon" href="<%=FavIcon%>"/>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">

<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link rel="stylesheet" href="images/navigation.css" type="text/css">

<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">

<script language="JavaScript" src="images/common.js"></script>

<link rel="stylesheet" href="images/navigation.css" type="text/css">

<script language="JavaScript" src="images/calendar.js"></script>

<script language="JavaScript" src="images/common.js"></script>

</head>

<script language="JavaScript" src="images/calendar.js"></script>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.memo.FRmsg.focus();">

</head>

<%Set rsTemp = OraDatabase.DbCreateDynaset( Get_Message_Details (QStrPar("FRmsg_id")), cint(0))%>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.memo.FRmsg.focus();">

<form name="memo" method="post" action="<%=scriptName%>?done=done<%=QSTR_All%>" onSubmit="return check();">

<%Set rsTemp = OraDatabase.DbCreateDynaset( Get_Message_Details (QStrPar("FRmsg_id")), cint(0))%>

  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">

<form name="memo" method="post" action="<%=scriptName%>?done=done<%=QSTR_All%>" onSubmit="return check();">

    <tr>

  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">

      <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/h_trsp_dot.gif" width="22" height="1"></td>

    <tr>

      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;EDIT Memo</td>

      <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/h_trsp_dot.gif" width="22" height="1"></td>

      <td background="images/lbox_bg_blue.gif" align="right" width="50%">

      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;EDIT Memo</td>

        <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">

      <td background="images/lbox_bg_blue.gif" align="right" width="50%">

      <input type="submit" name="btn" value="Delete" class="form_btn_comp" onClick="clickedButton=true;">

        <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">

        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">

      <input type="submit" name="btn" value="Delete" class="form_btn_comp" onClick="clickedButton=true;">

      </td>

        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">

      <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>

      </td>

        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>

      <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>

    </tr>

        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>

    <tr>

    </tr>

      <td height="100%" width="1%">&nbsp;</td>

    <tr>

      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">

      <td height="100%" width="1%">&nbsp;</td>

        <table width="100%" border="0" cellspacing="1" cellpadding="2">

      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">

          <tr>

        <table width="100%" border="0" cellspacing="1" cellpadding="2">

            <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>

          <tr>

            <td width="1%" nowrap class="form_group" valign="bottom"></td>

            <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>

            <td nowrap width="100%">&nbsp; </td>

            <td width="1%" nowrap class="form_group" valign="bottom"></td>

          </tr>

            <td nowrap width="100%">&nbsp; </td>

          <tr>

          </tr>

            <td width="1%">&nbsp;</td>

          <tr>

            <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Expiry Date </td>

            <td width="1%">&nbsp;</td>

            <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">

            <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Expiry Date </td>

              <input type="text" name="FRexpdate" maxlength="10" size="10" class="form_item" value="<%=EuroDate (rsTemp.Fields("expiry_date"))%>">

            <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">

              <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>

              <input type="text" name="FRexpdate" maxlength="10" size="10" class="form_item" value="<%=EuroDate (rsTemp.Fields("expiry_date"))%>">

            </td>

              <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>

          </tr>

            </td>

          <tr>

          </tr>

            <td width="1%">&nbsp;</td>

          <tr>

            <td colspan="2" nowrap class="form_field" background="images/bg_form_lightbluedark.gif" valign="top">

            <td width="1%">&nbsp;</td>

              <textarea name="FRmsg" cols="40" rows="10" class="form_item"><%=rsTemp.Fields("msg_details")%></textarea>

            <td colspan="2" nowrap class="form_field" background="images/bg_form_lightbluedark.gif" valign="top">

           <input type="hidden" name="FRmsg_id" value="<%=QStrPar("FRmsg_id")%>">

              <textarea name="FRmsg" cols="40" rows="10" class="form_item"><%=rsTemp.Fields("msg_details")%></textarea>

              <input type="hidden" name="action" value="true">

           <input type="hidden" name="FRmsg_id" value="<%=QStrPar("FRmsg_id")%>">

            </td>

              <input type="hidden" name="action" value="true">

          </tr>

            </td>

          <tr>

          </tr>

            <td width="1%">&nbsp;</td>

          <tr>

            <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>

            <td width="1%">&nbsp;</td>

            <td nowrap width="100%">

            <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>

              <p>&nbsp;</p>

            <td nowrap width="100%">

            </td>

              <p>&nbsp;</p>

          </tr>

            </td>

        </table>

          </tr>

      </td>

        </table>

    </tr>

      </td>

    <tr>

    </tr>

      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>

    <tr>

      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>

      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>

    </tr>

      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>

  </table>

    </tr>

</form>

  </table>

</body>

</form>

</html>

</body>

</html>

<!-- DESTRUCTOR ------->

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

<!-- DESTRUCTOR ------->