Subversion Repositories DevTools

Rev

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

Rev 27 Rev 29
Line 11... Line 11...
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
- 
 
 16 
<!--#include file="common/common_dbedit.asp"-->
16 
<!--#include file="common/_product_common.asp"-->
 17 
<!--#include file="common/_product_common.asp"-->
17 
<%
 18 
<%
18 
'------------ ACCESS CONTROL ------------------
 19 
'------------ ACCESS CONTROL ------------------
19 
%>
 20 
%>
20 
<!--#include file="_access_control_general.asp"-->
 21 
<!--#include file="_access_control_general.asp"-->
21 
<%
 22 
<%
22 
'------------ VARIABLE DEFINITION -------------
 23 
'------------ VARIABLE DEFINITION -------------
23 
Dim nOldProdID
 24 
Dim nOldProdID
24 
Dim rsQry
 25 
Dim rsQry
25 
Dim sMessage
 26 
Dim sMessage
- 
 
 27 
Dim QueryString
- 
 
 28 
Dim CreatorModifier
26 
'Dim objOldProdCollector
 29 
'Dim objOldProdCollector
27 
'------------ CONSTANTS DECLARATION -----------
 30 
'------------ CONSTANTS DECLARATION -----------
28 
Const LIMG_NOTE_NEW = "<img src='icons/i_note_new.gif' width='18' height='18' border='0' align='absmiddle'>"
 31 
Const LIMG_NOTE_NEW = "<img src='icons/i_note_new.gif' width='18' height='18' border='0' align='absmiddle'>"
29 
Const LIMG_NOTE_EDIT = "<img src='icons/i_note_edit.gif' width='18' height='18' border='0' align='absmiddle'>"
 32 
Const LIMG_NOTE_EDIT = "<img src='icons/i_note_edit.gif' width='18' height='18' border='0' align='absmiddle'>"
30 
'------------ VARIABLE INIT -------------------
 33 
'------------ VARIABLE INIT -------------------
Line 173... Line 176...
173 
        <td>&nbsp;</td>
 176 
        <td>&nbsp;</td>
174 
        <td>&nbsp;</td>
 177 
        <td>&nbsp;</td>
175 
        <td valign="top"><%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><a href="<%=SCRIPT_NAME%>?user_bar=<%=enumDEFAULT%>&<%=objPMod.ComposeURL()%>"><img src="icons/b_left.gif" title="Maximize favourits" width="13" height="13" vspace="5" border="0"></a><%End If%></td>
 178 
        <td valign="top"><%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><a href="<%=SCRIPT_NAME%>?user_bar=<%=enumDEFAULT%>&<%=objPMod.ComposeURL()%>"><img src="icons/b_left.gif" title="Maximize favourits" width="13" height="13" vspace="5" border="0"></a><%End If%></td>
176 
        </tr>
 179 
        </tr>
177 
    </table>
 180 
    </table>
- 
 
 181 
	<!-- PRODUCTION NOTES +++++++++++++++++++ -->
- 
 
 182 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
- 
 
 183 
      <tr>
- 
 
 184 
        <td>
- 
 
 185 
		<%
- 
 
 186 
			QueryString = "select * from product_notes pn, product_trail pt"&_
- 
 
 187 
						  "	where pn.prod_id = "&dbPARprod_id&_
- 
 
 188 
						  "	and pt.prod_id = pn.prod_id"&_
- 
 
 189 
						  "	order by date_time_stamp desc"
- 
 
 190
- 
 
 191 
			Set rsQry = OraDatabase.DbCreateDynaset( QueryString, ORADYN_DEFAULT )
- 
 
 192 
			If rsQry.RecordCount > 0 Then
- 
 
 193 
				If rsQry.RecordCount = 1 Then
- 
 
 194 
					CreatorModifier = "Created by "&GetUsername(rsQry("user_id"))&" on "&rsQry("date_time_stamp")
- 
 
 195 
				Else
- 
 
 196 
					CreatorModifier = "Last Modified by "&GetUsername(rsQry("user_id"))&" on "&rsQry("date_time_stamp")
- 
 
 197 
				End If
- 
 
 198 
 
- 
 
 199 
			End If
- 
 
 200
- 
 
 201 
			sMessage = "<table width='100%'  border='0' cellspacing='3' cellpadding='0'>"
- 
 
 202 
			sMessage = sMessage &"<tr>"
- 
 
 203 
			sMessage = sMessage &"<td width='100%' class='body_txt'><b>PRODUCT NOTES</b><br><br>"&objFormater.TextToHTML( rsQry("notes") ) &"<br><br><SPAN class='body_smltxtg'>"& CreatorModifier &"</SPAN></td>"
- 
 
 204 
			If rsQry.RecordCount = 0 Then
- 
 
 205 
				sMessage = sMessage &"<td width='1%' nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wProductNote.asp?type=add&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','BomRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');""  class='body_smllink' title='Create new note'>Create Product Note"& LIMG_NOTE_NEW &"</a></td>"
- 
 
 206 
			Else
- 
 
 207 
				sMessage = sMessage &"<td width='1%' nowrap valign='bottom' align='right'><a href='javascript:;' onClick=""MM_openBrWindow('wProductNote.asp?type=edit&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','BomRejectNote','scrollbars=yes,resizable=yes,width=600,height=350');""  class='body_smllink' title='Edit note'>Edit Product Note"& LIMG_NOTE_NEW &"</a></td>"
- 
 
 208 
			End If
- 
 
 209 
			sMessage = sMessage &"</tr>"
- 
 
 210 
			sMessage = sMessage &"</table>"
- 
 
 211
- 
 
 212 
			Call Messenger ( sMessage, "bi_accepted.gif", "100%" )
- 
 
 213
- 
 
 214 
			Response.write "<br>"
- 
 
 215
- 
 
 216 
			rsQry.Close()
- 
 
 217 
			Set rsQry = Nothing
- 
 
 218 
		%>
- 
 
 219
- 
 
 220 
		</td>
- 
 
 221 
        </tr>
- 
 
 222 
    </table>
- 
 
 223 
	<!-- PRODUCTION NOTES+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
178 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
 224 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
179 
      <tr>
 225 
      <tr>
180 
        <td>
 226 
        <td>
181 
		<!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 227 
		<!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
182 
		<%
 228 
		<%