Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
62 rsolanki 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          wAddProdBySearch			 	 |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
Response.Expires = 0
12 
%>
13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<%
18 
'------------ ACCESS CONTROL ------------------
19 
%>
20 
<!--#include file="_access_control_general.asp"-->
21 
<%
22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
24 
Dim parProd_name
25 
'------------ CONSTANTS DECLARATION -----------
26 
'------------ VARIABLE INIT -------------------
27 
parBom_id = Request("bom_id")
28 
parProd_name = Request("prod_name")
29 
parOs_id = Request("os_id")
30 
'------------ CONDITIONS ----------------------
31 
'----------------------------------------------
32 
%>
33 
<%
34 
'--------------------------------------------------------------------------------------------------------------------------
35 
Function SearchProductNamesQuery ( sProd_name )
36 
	Dim tempSTR
37 
	tempSTR = GetQuery ("ProductNameSearch.sql")
38 
	SearchProductNamesQuery = Replace ( tempSTR, ":PROD_NAME", sProd_name )
39 
End Function
40 
'--------------------------------------------------------------------------------------------------------------------------
41 
%>
42 
<%
43 
'------------ RUN BEFORE PAGE RENDER ----------
44 
objPMod.PersistInQryString ( Array("base_env_id") )
45 
'----------------------------------------------
46 
%>
47 
<html>
48 
<head>
49 
<title>Deployment Manager</title>
50 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
51 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
52 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
53 
<script language="JavaScript" src="scripts/common.js"></script>
54 
</head>
55 
 
56 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
57 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
58 
  <tr>
59 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add Product </span> <br><br>
60 
 
61 
      </td>
62 
  </tr>
63 
  <form name="FormSearch" method="post" action="wAddProdBySearch.asp">
64 
  <tr>
65 
    <td background="images/bg_quicksearch.gif" class="body_txt"><table width="100" border="0" cellspacing="3" cellpadding="0">
66 
        <tr>
67 
          <td nowrap class="body_txtw"><strong>Product Search</strong> </td>
68 
          <td><input name="prod_name" type="text" class="body_txt" size="20" value="<%=parProd_name%>"></td>
69 
          <td><input name="btnSearch" type="image" src="icons/b_search.gif" width="16" height="16" border="0"></td>
70 
        </tr>
71 
      </table></td>
72 
  </tr>
73 
  <%=objPMod.ComposeHiddenTags()%>
74 
  </form>
75 
  <form name="FormName" method="post" action="wAddProdGetVersion.asp">
76 
  <tr>
77 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
78 
      <tr>
79 
        <td>&nbsp;</td>
80 
        <td align="right"><input name="btn" type="reset" class="form_btn" value="&laquo; Back" onClick="history.back();">
81 
        <input name="btn" type="submit" class="form_btn" value="Next &raquo;" <%If parProd_name = "" Then%>disabled<%End If%>>
82 
        &nbsp;&nbsp;
83 
        <input name="btn" type="reset" class="form_btn" value="Add" disabled>
84 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
85 
      </tr>
86 
    </table></td>
87 
  </tr>
88 
  <tr>
89 
    <td>
90 
<!-- PRODUCT NAME RESULTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
91 
<%If parProd_name <> "" Then%>
92 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
93 
      <tr>
94 
        <td width="100%" valign="top" nowrap class="body_txt">Search result for <strong><%=parProd_name%></strong> <br>
95 
          <br>
96 
		  <%
97 
		  Set rsQry = OraDatabase.DbCreateDynaset( SearchProductNamesQuery ( parProd_name ), ORADYN_DEFAULT )
98 
		  %>
99 
 
100 
		  <%If rsQry.RecordCount < 1 Then%>
101 
		  <!-- NO RESULTS -->
102 
		  No Results Found.
103 
		  <%Else%>
104 
		  <!-- FOUND RESULTS -->
105 
		  Select Product and click Next.
106 
          <table width="100%"  border="0" cellspacing="2" cellpadding="0">
107 
 
108 
			<%
109 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
110 
			%>
111 
 			<tr>
112 
              <td nowrap class="form_iname"><input type="checkbox" name="pkg_id_list" value="<%=rsQry("pkg_id")%>" <%=rsQry("checked")%>></td>
113 
              <td valign="top" nowrap class="body_txt"><img src="icons/i_product.gif" width="19" height="19" hspace="2" align="absmiddle"><%=HighlightSubstring ( rsQry("pkg_name"), parProd_name )%></td>
114 
            </tr>
115 
            <%rsQry.MoveNext%>
116 
			<%
117 
			WEnd
118 
 
119 
			rsQry.Close
120 
			Set rsQry = Nothing
121 
			%>
122 
			<tr>
123 
              <td width="1" background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="1" height="1"></td>
124 
              <td width="100%" background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="1" height="1"></td>
125 
            </tr>
126 
          </table>
127 
		  <%End If%>
128 
 
129 
		  </td>
130 
        </tr>
131 
 
132 
    </table>
133 
<%End If%>
134 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
135 
    </td>
136 
  </tr>
137 
  <%=objPMod.ComposeHiddenTags()%>
138 
  </form>
139 
</table>
140 
</body>
141 
</html>
142 
<%
143 
'------------ RUN AFTER PAGE RENDER -----------
144 
'Set objFormCollector = Nothing
145 
'----------------------------------------------
146 
%><!--#include file="common/globals_destructor.asp"-->