<% '=================================================================== ' 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" ElseIf SCRIPT_NAME = "AdminProductionManager.asp" Then ScriptName = "AdminProductionManager_Configuration.asp" Else ScriptName = SCRIPT_NAME End If Set rsBrowseQry = OraDatabase.DbCreateDynaset( GetQuery ("ProjectList.sql"), ORADYN_DEFAULT ) While (NOT rsBrowseQry.BOF) AND (NOT rsBrowseQry.EOF) If ScriptName = "AdminProductionManager_Configuration.asp" Then If InStr(rsBrowseQry("proj_name"), "PRODUCTION") <> 0 Then %> <%End If%> <%Else%> <%End If rsBrowseQry.MoveNext WEnd rsBrowseQry.Close() Set rsBrowseQry = Nothing OraDatabase.Parameters.Remove "PROJ_ID" %> Main Menu "><%=rsBrowseQry("proj_name").Value%> "><%=rsBrowseQry("proj_name").Value%>

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