Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 6790
Line 29... Line 29...
29 
%>
 29 
%>
30 
<%
 30 
<%
31 
'------------------------ MAIN LINE ---------------------------------
 31 
'------------------------ MAIN LINE ---------------------------------
32 
'--------------------------------------------------------------------
 32 
'--------------------------------------------------------------------
33 
%>
 33 
%>
34 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 34 
<table width="100%" border="0" cellspacing="1" cellpadding="3" class='stdGrey'>
35 
	<tr>
 35 
    <thead>
36 
	 <td background="images/bg_form_lightbluedark.gif">
- 
 
37
36 
      <tr>
38 
						<table width="100%" border="0" cellspacing="1" cellpadding="3">
 - 
 
39 
                          <tr>
 37 
        <th nowrap>Location</th>
40 
						    <td background="images/bg_form_lightbluedark.gif" nowrap class="body_txt">Location</td>
 - 
 
41 
						  </tr>
 38 
      </tr>
- 
 
 39 
    </thead>
42 
 
 40 
 
43 
<%
 41 
<%
44 
						  OraDatabase.Parameters.Add "USER_ID", Request("user_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
42 
  OraDatabase.Parameters.Add "USER_ID", Request("user_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
45
43
46 
						  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UserWip.sql"), cint(0))
 44 
  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UserWip.sql"), cint(0))
47
45
48 
						  OraDatabase.Parameters.Remove "USER_ID"
 46 
  OraDatabase.Parameters.Remove "USER_ID"
49
47
50 
						  %>
 48 
  %>
51 
						  <%If rsTemp.RecordCount < 1 Then%>
 49 
  <%If rsTemp.RecordCount < 1 Then%>
52 
						  <tr>
50 
  <tr>
53 
							<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 - 
 
54 
                          </tr>
 - 
 
55 
						  <%End If%>
 - 
 
56 
			  			  <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
 - 
 
57 
                          <tr>
- 
 
58 
                            <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%=rsTemp("location") &" / "%><a href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>" class="txt_linked"><%= rsTemp("pkg_name") &" "& rsTemp("pkg_version") %></a></td>
 51 
    <td nowrap>&nbsp;</td>
59 
                          </tr>
 - 
 
60 
                          <%rsTemp.MoveNext
 - 
 
61 
						  WEnd
 - 
 
62 
						  rsTemp.Close
 - 
 
63 
						  Set rsTemp = nothing%>
 - 
 
64 
                        </table>
 - 
 
65 
    </td>
- 
 
66 
  </tr>
 52 
  </tr>
- 
 
 53 
  <%End If%>
- 
 
 54 
  <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
- 
 
 55 
  <tr>
- 
 
 56 
    <td nowrap ><%=rsTemp("location") &" / "%><a href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>" class="txt_linked"><%= rsTemp("pkg_name") &" "& rsTemp("pkg_version") %></a></td>
- 
 
 57 
  </tr>
- 
 
 58 
  <%rsTemp.MoveNext
- 
 
 59 
  WEnd
- 
 
 60 
  rsTemp.Close
- 
 
 61 
  Set rsTemp = nothing%>
67 
</table>
 62 
</table>
68 
						<br>
 - 
 
69
- 
 
70 
<%
 - 
 
71 
Call Destroy_All_Objects
 - 
 
72 
%>
- 
 
73 

            63
            
<br>

          

          

            -
            
 

            64
            
<%Call Destroy_All_Objects%>						

          

          

            -
            
 

            65
            

          

          

            74
            

            66