<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
' wAddProjReplica.asp
' IFrame Dialog to add package replias to the current Project
'=====================================================
%>
<%
Option explicit
Response.Expires = 0 ' always load the page, dont store
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim rsQry
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
'----------------------------------------------
%>
<%
Function Get_All_Server_Names
Get_All_Server_Names = _
"SELECT" &_
" bs.*," &_
" nvl2(bp.BLAT_ID, 1, 0) AS inuse" &_
" FROM" &_
" blat_servers bs," &_
" blat_projects bp" &_
" WHERE" &_
" bs.BLAT_ID = bp.BLAT_ID (+)" &_
" AND bp.proj_id(+) = " & DB_PROJ_ID &_
" ORDER BY" &_
" upper(blat_display_name) ASC"
End Function
%>
Release Manager
Opr
Target Server
Active<%=Quick_Help("activeReplica")%>
Replication Mode<%=Quick_Help("fullReplica")%>
<%Set rsQry = OraDatabase.DbCreateDynaset( Get_All_Server_Names, cint(0))
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
Dim canAdd
canAdd = rsQry("INUSE") = 0
Dim replicationMode
replicationMode = ""
If rsQry("blat_mode") = "P" Then
replicationMode = "All Projects"
ElseIf rsQry("blat_mode") = "E" Then
replicationMode = "Entire Archive"
ElseIf rsQry("inUse") > 0 Then
replicationMode = "Project"
End If
%>
<%Else%>
<%End If%>