Subversion Repositories DevTools

Rev

Rev 5375 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5375 Rev 5442
Line 50... Line 50...
50 
 
 50 
 
51 
    testFromRegistry = NOT (err.number <> 0)
 51 
    testFromRegistry = NOT (err.number <> 0)
52 
 
 52 
 
53 
    set WSHShell = nothing
 53 
    set WSHShell = nothing
54 
end function
 54 
end function
- 
 
 55 
'----------------------------------------------
- 
 
 56 
'Returns the current database date-time
- 
 
 57 
Function getDataBaseDateTime()
- 
 
 58 
   Dim sqry: sqry = "SELECT TO_CHAR (ora_sysdatetime, 'DD-Mon-YYYY HH24:MI:SS') FROM DUAL"
- 
 
 59 
   Dim rsTemp
- 
 
 60 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
- 
 
 61 
   getDataBaseDateTime = rsTemp(0)
- 
 
 62 
   rsTemp.Close()
- 
 
 63 
   Set rsTemp = Nothing
- 
 
 64 
End Function
- 
 
 65 
 
- 
 
 66 
'----------------------------------------------
- 
 
 67 
Function WebServerDateTime ()
- 
 
 68 
    Dim dDate : dDate = Now()
- 
 
 69 
    Dim mName(13) :
- 
 
 70 
    mName(0) =  "???"
- 
 
 71 
    mName(1) =  "Jan"
- 
 
 72 
    mName(2) =  "Feb"
- 
 
 73 
    mName(3) =  "Mar"
- 
 
 74 
    mName(4) =  "Apr"
- 
 
 75 
    mName(5) =  "May"
- 
 
 76 
    mName(6) =  "Jun"
- 
 
 77 
    mName(7) =  "Jul"
- 
 
 78 
    mName(8) =  "Aug"
- 
 
 79 
    mName(9) =  "Sep"
- 
 
 80 
    mName(10) = "Oct"
- 
 
 81 
    mName(11) = "Nov"
- 
 
 82 
    mName(12) = "Dec"
- 
 
 83 
	If IsNull(dDate) Then Exit Function
- 
 
 84 
	WebServerDateTime = Day(dDate) &"-"& mName(Month(dDate)) &"-"& Year(dDate) &" "& Right("0" & Hour(dDate), 2) & ":" & Minute(dDate) & ":" & Second(dDate)
- 
 
 85 
End Function
55 
 
 86 
 
56 
Function makeAjaxButton( text, script )
 87 
Function makeAjaxButton( text, script )
57 
    If active Then
 88 
    If active Then
58 
        makeAjaxButton = "&nbsp;&nbsp;<a id="""&script &""" href="""" class=""form_btn"" title=""" &text& """ onclick="""&script&"();return false;"">"&text&"</a>"
 89 
        makeAjaxButton = "&nbsp;&nbsp;<a id="""&script &""" href="""" class=""form_btn"" title=""" &text& """ onclick="""&script&"();return false;"">"&text&"</a>"
59 
    Else
 90 
    Else
Line 311... Line 342...
311 
      <td><%=OraDatabase.DatabaseName%></td>
 342 
      <td><%=OraDatabase.DatabaseName%></td>
312 
   </tr>
 343 
   </tr>
313 
 
 344 
 
314 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 345 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
315 
   <tr class="body_row">
 346 
   <tr class="body_row">
- 
 
 347 
      <td>Database Time</td>
- 
 
 348 
      <td><%=getDataBaseDateTime()%></td>
- 
 
 349 
   </tr>
- 
 
 350 
 
- 
 
 351 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 352 
   <tr class="body_row">
- 
 
 353 
      <td>Web Server Time</td>
- 
 
 354 
      <td><%=WebServerDateTime()%></td>
- 
 
 355 
   </tr>
- 
 
 356 
 
- 
 
 357 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 358 
   <tr class="body_row">
316 
      <td>Archive Server</td>
 359 
      <td>Archive Server</td>
317 
      <td><%=archive_server%></td>
 360 
      <td><%=archive_server%></td>
318 
   </tr>
 361 
   </tr>
319 
 
 362 
 
320 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 363 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->