Subversion Repositories DevTools

Rev

Rev 6371 | Rev 6374 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6371 Rev 6373
Line 115... Line 115...
115
                <tr>
115
                <tr>
116
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">&nbsp;</td>
116
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">&nbsp;</td>
117
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Package Name</td>
117
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Package Name</td>
118
                </tr>
118
                </tr>
119
                <%Set rsTemp = OraDatabase.DbCreateDynaset( Get_All_Pkg_Names, cint(0))
119
                <%Set rsTemp = OraDatabase.DbCreateDynaset( Get_All_Pkg_Names, cint(0))
-
 
120
                  Dim dataArray, row, col, arraySize
120
				While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
121
                  dataArray = rsTemp.GetRows()
-
 
122
                  arraySize = Ubound (dataArray, 2)
-
 
123
				  For row = 0 To arraySize
-
 
124
                    Dim pkgId: pkgId = dataArray(0, row)
-
 
125
                    Dim pkgName: pkgName = dataArray(1, row) 
-
 
126
                %>
121
                <tr>
127
                <tr>
122
                  <td background="images/bg_form_lightgray.gif" nowrap class="form_item">
128
                  <td background="images/bg_form_lightgray.gif" nowrap class="form_item">
-
 
129
                    <input type="checkbox" name="FRpkginc" value="<%=pkgId%>"
123
                    <input type="checkbox" name="FRpkginc" value="<%=rsTemp.Fields("pkg_id")%>" <%If viewdefHash.Exists (Cstr(rsTemp.Fields("pkg_id"))) Then Response.write "checked"%>>
130
                        <%If viewdefHash.Exists (Cstr(pkgId)) Then Response.write "checked"%>>
124
                  </td>
131
                  </td>
125
                  <td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp.Fields("pkg_name")%></td>
132
                  <td background="images/bg_form_lightgray.gif" class="form_item"><%=pkgName%></td>
126
                </tr>
133
                </tr>
127
                <%rsTemp.MoveNext
134
                <%Next%>
128
			  	WEnd%>
-
 
129
				<%If rsTemp.RecordCount < 1 Then%>
135
				<%If rsTemp.RecordCount < 1 Then%>
130
				<tr>
136
				<tr>
131
                  <td background="images/bg_form_lightgray.gif" nowrap class="form_item"></td>
137
                  <td background="images/bg_form_lightgray.gif" nowrap class="form_item"></td>
132
                  <td background="images/bg_form_lightgray.gif" class="err_alert">NO PACKAGES FOUND!</td>
138
                  <td background="images/bg_form_lightgray.gif" class="err_alert">NO PACKAGES FOUND!</td>
133
                </tr>
139
                </tr>