<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Default | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim StateId, StateTypeEnum Dim objFormCollector Dim parState_id Dim RowColor Dim aIllustrations '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- Set objFormCollector = CreateObject("Scripting.Dictionary") parState_id = Request("state_id") RowColor = NULL aIllustrations = Array( "fimg_business.jpg", _ "fimg_erg_software.jpg", _ "fimg_global_leader.jpg", _ "fimg_train.jpg" ) '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '---------------------------------------------------------------------------------------------------------------------------------------------- Function GetIllustration () Dim numOfIllustrations numOfIllustrations = UBound ( aIllustrations ) GetIllustration = aIllustrations ( ( Day(Date) Mod numOfIllustrations ) ) End Function '---------------------------------------------------------------------------------------------------------------------------------------------- Function Get_Messages Get_Messages = _ " SELECT * FROM message_board WHERE expiry_date > "& ORA_SYSDATE &" OR due_date >= "& ORA_SYSDATE &"+2" End Function '----------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- '---------------------------------------------- %>

		Quick Search Search in Deployment Manager: Additional Tools Product Finder Component Finder Issue Finder Notifications Setup
	<% Dim rsTemp, msgScript Set rsTemp = OraDatabase.DbCreateDynaset( Get_Messages, cint(0)) If rsTemp.RecordCount < 1 Then Response.write "" While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) If rsTemp.Fields("due_date") <> "" Then msgScript = "schedule" Else msgScript = "memo" End If%> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing %> Message Board Due Date  No messages at this time. <%If rsTemp.Fields("due_date") <> "" Then%> ','ReleaseManager','resizable=yes,width=400,height=300')" class="msgb_item"><%=EuroDate(rsTemp.Fields("due_date"))%> <%Else%> <%End If%> ','ReleaseManager','resizable=yes,width=400,height=300')" class="msgb_item"><%=Replace(rsTemp.Fields("msg_details"), VBNewLine, " ")%> <% '-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER- 'objAccessControl.BeginRegion ( "oProjectList" ) If objAccessControl.IsVisible ( "oProjectList" ) Then %> <% OraDatabase.Parameters.Add "PROJ_ID", dbPARproj_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BRANCH_ID", dbPARbranch_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProjectBrowser.sql") , ORADYN_DEFAULT ) Set objRepeater = New Repeater While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%> <%If rsQry("branch_id") <> 0 Then%> <%Else%> <% objRepeater.ControlObject = "oProjectList" With objRepeater .TableName = "DM_PROJECTS" .RowId = rsQry("proj_id") .Enabled = _ "" &_ "" &_ ""&_ "" .Disabled = _ "" &_ "" &_ ""&_ "" .Render ( objAccessControl ) End With %> <%End If%> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd rsQry.Close Set rsQry = Nothing OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "BRANCH_ID" %> <% End If 'objAccessControl.EndRegion ( "oProjectList" ) '-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER- %>  Project Name &branch_id=<%=rsQry("branch_id")%>" class="menu_link"><%=Expander ( rsQry("expand") )%><%=PBSelector ( rsQry("branch_name").Value, dbPARbranch_id, rsQry("branch_id"), 1 )%> <%=objFormater.TextToHtml(rsQry("branch_comments").Value)%> "& Expander ( rsQry("expand") ) & PBSelector ( rsQry("proj_name").Value, dbPARproj_id, rsQry("proj_id"), 0 ) &" "& rsQry("proj_name").Value &"

<% '------------ RUN AFTER PAGE RENDER ----------- Set objPMod = Nothing Set objCrumbs = Nothing '---------------------------------------------- %>