<% '=================================================================== ' Admin Project Browser '=================================================================== %> <% '------------ VARIABLE DEFINITION ------------- Dim rsBrowseQry 'Dim ScriptName '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parProj_id = Request("proj_id") '---------------------------------------------- %> <% '---------------------------------------------------------------------------------------------------------------------------------------------- '---------------------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE CONTROL RENDER ------- '---------------------------------------------- %>

<% OraDatabase.Parameters.Add "PROJ_ID", parProj_id, ORAPARM_INPUT, ORATYPE_NUMBER If SCRIPT_NAME = "AdminProject_List.asp" Then ScriptName = "AdminProject_Iterations.asp" Else ScriptName = SCRIPT_NAME End If Set rsBrowseQry = OraDatabase.DbCreateDynaset( GetQuery ("ProjectList.sql"), ORADYN_DEFAULT ) While (NOT rsBrowseQry.BOF) AND (NOT rsBrowseQry.EOF) %> <% rsBrowseQry.MoveNext WEnd rsBrowseQry.Close() Set rsBrowseQry = Nothing OraDatabase.Parameters.Remove "PROJ_ID" %> Main Menu <%=aAdminZones(enumADMIN_ZONE_PROJECTS)%> "><%=rsBrowseQry("proj_name").Value%>

<% '------------ RUN AFTER CONTROL RENDER -------- '---------------------------------------------- %>