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") 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, dbms_lob.substr( notes_log, 4000, 1 ) as notes_log"&_ " FROM release_manager.CQ_software_issue si"&_ " WHERE si.dbid = "& NNiss_id End If Set OOrsCQ = OraDatabase.DbCreateDynaset( SQLstr, cint(0)) 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 %>