home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 March / VPR0003B.ISO / alpha / iibkupset.asp < prev    next >
Text File  |  1999-10-14  |  822b  |  39 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% 'Option Explicit %>
  3. <% Response.Expires = 0 %>
  4. <HTML>
  5. <HEAD>
  6. <SCRIPT LANGUAGE="JavaScript">
  7. <%
  8. On Error Resume Next
  9.  
  10. Dim datebegin 
  11. datebegin = DateSerial(1970,1,1)
  12.  
  13. Dim currentobj, BULocsObj, i, BackupItem
  14.  
  15. Set currentobj = GetObject("IIS://localhost")
  16.  
  17. dim vLocation, vIndex, vVersionOut, vLocationOut, vDateOut
  18.  
  19. i = 0
  20.  
  21. do while err.Number = 0 
  22.  
  23.     currentobj.EnumBackups "", i, vDateOut, vLocationOut, vVersionOut
  24.     
  25.     if err.Number = 0 then 
  26.         %>top.main.head.cachedList[<%= i %>] = new top.main.head.listObj(<%= i %>, "<%= (DateDiff("s", datebegin, vVersionOut)*1000) %>","<%= vLocationOut %>","<%= vDateOut %>");<%
  27.         i = i + 1    
  28.     else
  29.         Response.write "//" & err
  30.     end if
  31. loop
  32. %>
  33. top.main.head.listFunc.loadList();
  34. </SCRIPT>
  35. </HEAD>
  36. <BODY>
  37. </BODY>
  38. </HTML>
  39.