Subversion Repositories DevTools

      Dim Query_String

      Query_String = _

      "	SELECT DISTINCT vi.view_id, vi.view_name"&_

      "	FROM VIEWS vi"&_

      "	WHERE vi.view_name = 'PROJECT WIDE'"

      Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )

      Dim viewRecordCount

      Dim id

      viewRecordCount=0

      viewRecordCount = rsQry.RecordCount

      While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

        id=rsQry.Fields("view_id")

        rsQry.MoveNext

      WEnd

	    rsQry.Close()

      Set rsQry = nothing

      If viewRecordCount = 0 Then

        OraDatabase.Parameters.Add "PROJ_ID", parProjId, 	ORAPARM_INPUT, ORATYPE_NUMBER

        Query_String = _

        " SELECT DISTINCT vi.view_id, vi.view_name"&_

        " FROM VIEWS vi, RELEASE_CONTENT rc, RELEASE_TAGS rt"&_

        " WHERE rc.BASE_VIEW_ID = vi.VIEW_ID AND rt.proj_id = "& parProjId &"AND rc.rtag_id = rt.rtag_id"&_

        " ORDER BY ( vi.view_name )"

      	Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )

        OraDatabase.Parameters.Remove "PROJ_ID"

        viewRecordCount = rsQry.RecordCount

        While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

          id=rsQry.Fields("view_id")

          rsQry.MoveNext

        WEnd

        rsQry.Close()

        Set rsQry = nothing

      End If

      If viewRecordCount = 0 Then

      Else

	    	Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&Request("proj_id")&"&FRview_id="&id)

	    End If