home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iibkupset.asp < prev    next >
Text File  |  1997-11-12  |  735b  |  35 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 currentobj, BULocsObj, i, BackupItem
  11.  
  12. Set currentobj = GetObject("IIS://localhost")
  13.  
  14. dim vLocation, vIndex, vVersionOut, vLocationOut, vDateOut
  15.  
  16. i = 0
  17.  
  18. do while err.Number = 0 
  19.  
  20.     currentobj.EnumBackups "", i, vDateOut, vLocationOut, vVersionOut
  21.     
  22.     if err.Number = 0 then 
  23.         %>top.main.head.cachedList[<%= i %>] = new top.main.head.listObj(<%= i %>, "<%= vVersionOut %>","<%= vLocationOut %>","<%= vDateOut %>");<%
  24.         i = i + 1    
  25.     else
  26.         Response.write "//" & err
  27.     end if
  28. loop
  29. %>
  30. top.main.head.listFunc.loadList();
  31. </SCRIPT>
  32. </HEAD>
  33. <BODY>
  34. </BODY>
  35. </HTML>