Subversion Repositories DevTools

Rev

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

Rev 6122 Rev 6124
Line 445... Line 445...
445 
'   Generate the list of projects in a menu item
 445 
'   Generate the list of projects in a menu item
446 
Function Projects_Menu ( NNarrIndex )
 446 
Function Projects_Menu ( NNarrIndex )
447 
   Dim rsTemp, Query_String, tempSTR
 447 
   Dim rsTemp, Query_String, tempSTR
448 
   tempSTR = ""
 448 
   tempSTR = ""
449 
   Query_String = _
 449 
   Query_String = _
- 
 
 450 
	"select unique p.* from release_tags rt, projects p where rt.PROJ_ID = p.PROJ_ID and rt.official in ('N','R','C','P') ORDER BY p.proj_name ASC"
450 
   " SELECT * FROM projects ORDER BY proj_name ASC"
 451 
   '" SELECT * FROM projects ORDER BY proj_name ASC"
451 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 452 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
452 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 453 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
453 
      tempSTR = tempSTR & "linkset["& NNarrIndex &"]+='<div class=""menuitems""><a href=""rtree.asp?proj_id="& rsTemp.Fields("proj_id") &""">"& Replace(rsTemp.Fields("proj_name"), " ", "&nbsp;") &"</a></div>'"& VBNewLine
 454 
      tempSTR = tempSTR & "linkset["& NNarrIndex &"]+='<div class=""menuitems""><a href=""rtree.asp?proj_id="& rsTemp.Fields("proj_id") &""">"& Replace(rsTemp.Fields("proj_name"), " ", "&nbsp;") &"</a></div>'"& VBNewLine
454 
      rsTemp.MoveNext
 455 
      rsTemp.MoveNext
455 
   WEnd
 456 
   WEnd