<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' ISSUE NOTES '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsCQ Dim ddWidth Dim parIss_db Dim parIss_id '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set pkgInfoHash = CreateObject("Scripting.Dictionary") Set rsCQ = Server.CreateObject("ADODB.Recordset") Call Get_Iss_Parameters ( parIss_db, parIss_id ) ddWidth = 20 '---------------------------------------------- %> <% Sub Get_Issue_Notes ( NNiss_db, NNiss_id, OOrsCQ ) Dim SQLstr If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then SQLstr = _ " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, his.action_timestamp AS change_stamp, his.user_name, "&_ " his.action_name, his.new_state"&_ " FROM cq_devi.admin.software_issue si LEFT OUTER JOIN"&_ " cq_devi.admin.history his ON si.dbid = his.entity_dbid"&_ " WHERE si.dbid = "& NNiss_id &_ " ORDER BY his.action_timestamp" OOrsCQ.ActiveConnection = CQ_conn OOrsCQ.Source = SQLstr OOrsCQ.CursorType = 0 OOrsCQ.CursorLocation = 2 OOrsCQ.LockType = 3 OOrsCQ.Open() End Sub %> <% Call Get_Issue_Notes ( parIss_db, parIss_id, rsCQ ) %> Release Manager
 
 Issue " readonly> " readonly>

<%Call Generate_Tab_Menu ( TABarray4, "History", "blue" )%>
 

<%If Not IsNull(rsCQ("change_stamp")) Then%> <%While (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) %> <%rsCQ.MoveNext Wend%> <%End If%>
Change Date User Name Action New State
<%=Day(rsCQ("change_stamp")) &"-"& MonthName(Month(rsCQ("change_stamp")), TRUE) &"-"& Year(rsCQ("change_stamp")) &" "& FormatDateTime( rsCQ("change_stamp"), 4 )%> <%=rsCQ("user_name")%> <%=rsCQ("action_name")%> <%=rsCQ("new_state")%>