Release Manager

<%@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 dbid AS iss_id, new_num AS iss_num, headline AS summary, notes_log"&_ " FROM cq_devi.admin.software_issue si"&_ " WHERE si.dbid = "& NNiss_id End If 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, "Notes", "blue" )%>

Notes Log

<% If NOT IsNull(rsCQ("notes_log")) OR (rsCQ("notes_log") <> "") Then Response.write NewLine_To_BR( Server.HTMLEncode( rsCQ("notes_log") ) ) End If %>