Subversion Repositories DevTools

Rev

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

Rev 5950 Rev 6623
Line 31... Line 31...
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="0" cellpadding="0">
35
	<tr>
35
	<tr>
36
	 <td background="images/bg_form_lightbluedark.gif">		
36
	 <td>		
37
	 				
37
	 				
38
						<table width="100%" border="0" cellspacing="1" cellpadding="3">
38
        <table width="100%" border="0" cellspacing="1" cellpadding="3">
39
                          <tr>
39
          <tr class="form_field_bg">
40
						    <td background="images/bg_form_lightbluedark.gif" nowrap class="body_txt">Package Version</td>
40
            <td nowrap class="body_row">Package Version</td>
41
						    <td background="images/bg_form_lightbluedark.gif" nowrap class="body_txt">Last Modified</td>
41
            <td nowrap class="body_row">Last Modified</td>
42
						    <td background="images/bg_form_lightbluedark.gif" nowrap class="body_txt">Reason for this version</td>
42
            <td nowrap class="body_row">Reason for this version</td>
43
						  </tr>
43
          </tr>
44
 
-
 
45
<%
44
          <%
46
						  OraDatabase.Parameters.Add "USER_ID", Request("user_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER 
45
          OraDatabase.Parameters.Add "USER_ID", Request("user_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER 
47
						  
-
 
48
						  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UserDangle.sql"), cint(0))
46
          Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UserDangle.sql"), cint(0))
49
						  
-
 
50
						  OraDatabase.Parameters.Remove "USER_ID"
47
          OraDatabase.Parameters.Remove "USER_ID"
51
						  
-
 
52
						  %>
-
 
53
						  <%If rsTemp.RecordCount < 1 Then%>
48
          If rsTemp.RecordCount < 1 Then
54
						  <tr> 
49
          %>
-
 
50
          <tr class="form_field_grey_bg"> 
55
							<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
51
            <td class="body_row" nowrap colspan="3">None</td>
56
                          </tr>
52
          </tr>
57
						  <%End If%>
53
          <%End If%>
58
			  			  <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
54
          <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
59
                          <tr> 
55
          <tr class="form_field_grey_bg"> 
60
                            <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
-
 
61
                                <a href="javascript:;" onClick="MM_openBrWindow('_wform_versions_history_release_notes.asp?pkg_id=<%=rsTemp("pkg_id")%>&pv_id=<%=rsTemp("pv_id")%>','History','resizable=yes,scrollbars=yes,width=1000,height='+ ( screen.height - 100 ))" class="txt_linked">
56
            <td nowrap class="body_txt">
62
                                    <%= rsTemp("pkg_name") &" "& rsTemp("pkg_version") %>
57
                <a href="javascript:;" onClick="MM_openBrWindow('_wform_versions_history_release_notes.asp?pkg_id=<%=rsTemp("pkg_id")%>&pv_id=<%=rsTemp("pv_id")%>','History','resizable=yes,scrollbars=yes,width=1000,height='+ ( screen.height - 100 ))" class="txt_linked"><%= rsTemp("pkg_name") &" "& rsTemp("pkg_version") %></a>
63
                                </a></td>
58
            </td>
64
                            <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%= DisplayDate(rsTemp("MODIFIED_STAMP"))%></td>
59
            <td nowrap class="body_txt"><%= DisplayDate(rsTemp("MODIFIED_STAMP"))%></td>
65
                            <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%= rsTemp("comments")%></td>
60
            <td nowrap class="body_txt"><%= rsTemp("comments")%></td>
66
                          </tr>
61
          </tr>
67
                          <%rsTemp.MoveNext
62
          <%rsTemp.MoveNext
68
						  WEnd
63
          WEnd
69
						  rsTemp.Close
64
          rsTemp.Close
70
						  Set rsTemp = nothing%>
65
          Set rsTemp = nothing%>
71
                        </table>
66
        </table>
72
    </td>						
67
    </td>						
73
  </tr>
68
  </tr>
74
</table>
69
</table>
75
						<br>
70
<br>
76
						
-
 
77
<%
71
<%
78
Call Destroy_All_Objects
72
Call Destroy_All_Objects
79
%>						
73
%>						
80
74