<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| AdminProjectList | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim i Dim LastRow Dim aProjectCollector Dim parAction Dim parMyProj_id '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parAction = Request("action") parMyProj_id = Request("myproj_id") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------------- Sub GetProjects ( aProjectCollector, nProj_id ) Dim rsQry Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("AdminProjectList.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then aProjectCollector = rsQry.GetRows() Else aProjectCollector = NULL End If rsQry.Close Set rsQry = Nothing End Sub '-------------------------------------------------------------------------------------------------------------------------------- Sub RenderRMProjectCombo( nRMProj_fk ) Dim rsQry OraDatabase.Parameters.Add "RM_PROJECTS_FK", nRMProj_fk, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RMProjectList.sql"), ORADYN_DEFAULT ) Response.write "" Response.write "" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Response.write ""& rsQry("proj_name").Value &"" rsQry.MoveNext WEnd Response.write "" rsQry.Close Set rsQry = Nothing OraDatabase.Parameters.Remove "RM_PROJECTS_FK" End Sub '-------------------------------------------------------------------------------------------------------------------------------- Sub AddProject () On Error Resume Next OraDatabase.Parameters.Add "PROJ_NAME", Request("proj_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "RM_PROJECTS_FK",Request("rm_projects_fk"), ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Project.Add_Project ( :PROJ_NAME, :RM_PROJECTS_FK ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PROJ_NAME" OraDatabase.Parameters.Remove "RM_PROJECTS_FK" End Sub '-------------------------------------------------------------------------------------------------------------------------------- Sub EditProject () On Error Resume Next OraDatabase.Parameters.Add "PROJ_ID", Request("myproj_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PROJ_NAME", Request("proj_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "RM_PROJECTS_FK", Request("rm_projects_fk"), ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Project.Update_Project ( :PROJ_ID, :PROJ_NAME, :RM_PROJECTS_FK ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "PROJ_NAME" OraDatabase.Parameters.Remove "RM_PROJECTS_FK" End Sub '-------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB --- ' --- Load Validation Rules --- Call objForm.LoadValidationRules ( Array("proj_name"), OraDatabase ) ' Load Validation Rules ' --- Enter Form Validation Rule Changes here... ---- '---------------------------------------------------- ' --- RUN onPostBack --- If Request("doit") <> "" Then If objForm.IsValidOnPostBack Then ' --- Form is Valid --- Select Case Request("action") Case "new" Call AddProject() Case "edit" Call EditProject() End Select If objEH.Finally Then Call OpenInWindow ( SCRIPT_NAME ) End If End If End If '---------------------------------------------- %> "" Then%>onLoad="FormName.proj_name.focus();"<%End If%>>

		<% Call GetProjects ( aProjectCollector, parMyProj_id ) %> <%=objPMod.ComposeHiddenTags()%> <% If NOT IsNull(aProjectCollector) Then LastRow = Ubound( aProjectCollector, 2 ) For i = 0 To LastRow %> <%If parAction = "" Then%> <%Else%> <%If CStr(aProjectCollector(0, i)) <> parMyProj_id Then%> <%Else%> <%End If%> <%End If%> <% Next End If %> <%If parAction = "new" Then%> <%End If%> <%If parAction = "" Then%> <%End If%> Project Name Release Manager Project Hide Download   <%=aProjectCollector(1, i)%> <%=aProjectCollector(3, i)%>   <%=GetTick ( aProjectCollector(4, i) )%> <%=GetTick ( aProjectCollector(5, i) )%> <%=LIMG_EDIT%><%=LIMG_REMOVE%> <%=aProjectCollector(1, i)%> <%=aProjectCollector(3, i)%>   <%=GetTick ( aProjectCollector(4, i) )%> <%=GetTick ( aProjectCollector(5, i) )%>   <%=LIMG_POINTER%> "> <%=objForm.Validate ("proj_name")%> <%Call RenderRMProjectCombo( objForm.GetValue( "rm_projects_fk", aProjectCollector(2, i) ) )%>       <%=LIMG_ROW_SUBMIT%><%=LIMG_ROW_CANCEL%> <%=LIMG_POINTER%> "> <%=objForm.Validate ("proj_name")%> <%Call RenderRMProjectCombo( objForm.GetValue( "rm_projects_fk", NULL ) )%>     <%=LIMG_ROW_SUBMIT%><%=LIMG_ROW_CANCEL%> <%=LIMG_NEW_ENTRY%>