<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead On Error Resume Next Connection.Open bolek_rd ' ' check if database is available ' If Err.Number=&H80004005 Then Response.Write("Database is not available. " & "
") Response.Write("This page needs the Phobos Server database to function properly." & "
") Response.Write("Database can be unavailable during cold backup or other Oracle maintenance. ") Response.Write("Check backup schedule and/or backup computer(s). If cold backup it taking place then simply wait, otherwise contact an Expert") End If SQLStmt = "select to_char(sysdate,'MM/DD/YYYY HH24:MI:SS') ddate,global_name from global_name " ' response.write(SQLStmt & "
" ) Set RS = Connection.Execute(SQLStmt) If Not RS.EOF Then ddate=RS("ddate") gn=RS("global_name") End If Connection.Close %> <%=ddate%>