<%@ LANGUAGE="VBScript" %> <% db_name=UCase(CStr(Request("db_name"))) If db_name="" Then db_name="PHDB" End If Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Select Case db_name Case "PHDB" dbname="Main Phobos Database" Connection.Open phdb_rd Case Else Connection.Open phdb_rd End Select SQLStmt = "select global_name,what,broken,failures,job,to_char(sysdate,'MM/DD/YYYY HH24:MI:SS') locdate,to_char(last_date,'MM/DD/YYYY HH24:MI:SS') ldate,to_char(next_date,'MM/DD/YYYY HH24:MI:SS') ndate " SQLStmt = SQLStmt & " from dba_jobs,global_name order by global_name,what" %> Status of replication jobs

Status of Replication jobs on <%=dbname%>

<% Set RS = Connection.Execute(SQLStmt) Do While Not RS.EOF select case CStr(RS("global_name")) case "PHDB.WORLD" dbname="Main Phobos Database" case "ORACLE.WORLD" dbname="Phobos Server" case "KRPHOBOS.WORLD" dbname="Krakow" case "ROCHESTER.WORLD" dbname="Rochester" case "MITHIG1.WORLD" dbname="MIT Hig #1" end select refresh_group=Right(RS("what"),Len(RS("what"))-20) refresh_group= Replace(refresh_group,"""","",1,-1,1) refresh_group= Replace(refresh_group,"('","",1,-1,1) refresh_group= Replace(refresh_group,"');","",1,-1,1) %>
Database Refresh Group Local Time Last Replication Next Replication Broken Failures Job #
<%=dbname%> <%=refresh_group%> <%=RS("locdate")%> <%=RS("ldate")%> <%=RS("ndate")%> <%=RS("broken")%> <%=RS("failures")%> <%=RS("job")%> <% RS.Movenext Loop Connection.Close %>