<% Server.ScriptTimeOut = 1800 Response.Buffer = True Dim objFSO,msg,Rootfolder,webfolder,fsize,totalmeg,drives,isReady,sizelimit,MyStream,ix Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set Rootfolder = objFSO.Getfolder("D:\webroot\Localuser\houseview\") totalmeg = 0 sizelimit = 1000 Set drives = objFSO.Drives If Request("ACTION") = "GO" Then For ix = 1 to Request.Form.Count if Len(Request.Form.Item(ix)) = 0 then If Request.Form.Key(ix) <> "Go" Then Set MyStream = objFSO.CreateTextFile(Server.MapPath("Limits/" & Request.Form.Key(ix) & ".dat")) MyStream.writeLine("0") MyStream.Close Set MyStream = Nothing End if else If Request.Form.Key(ix) <> "Go" Then CurrentCount = CurrentCount & UCase(Request.Form.Item(ix)) & "^" Set MyStream = objFSO.CreateTextFile(Server.MapPath("Limits/" & Request.Form.Key(ix) & ".dat")) MyStream.writeLine(Trim(Request.Form.Item(ix))) MyStream.Close Set MyStream = Nothing End if end if Next End if %>

<% For Each drive in drives isReady = drive.IsReady If isReady Then Response.Write "Drive Letter: " & drive.DriveLetter & " " & chr(13) Response.Write "Path: " & drive.Path & " " & chr(13) Response.Write "FileSytem: " & drive.FileSystem & " " & chr(13) Response.Write "TotalSize: " & drive.TotalSize & " Bytes  " & FormatNumber((drive.TotalSize+1023)/(1024 * 1000) / 1000,0,0,-2) & " Gig " & chr(13) Response.Write "FreeSpace: " & drive.FreeSpace & " Bytes  " & FormatNumber((drive.FreeSpace+1023)/(1024 * 1000) / 1000,0,0,-2) & " Gig " & chr(13) Else Response.Write "Drive Letter: " & drive.DriveLetter & " " & chr(13) Response.Write drive.Path & " Present... " End If Next For each webfolder in Rootfolder.SubFolders Response.Write(" " & webfolder.name & " " & chr(13)) fsize = FormatNumber((webfolder.size+1023)/(1024 * 1000),0,0,-2) If len(fsize) > 0 Then totalmeg = totalmeg + Cint(fsize) Else fsize = 0 End if Response.Write("   " & fsize & " Meg   Last Modified on: " & webfolder.DateLastmodified & " " & chr(13)) If objFSO.FileExists(Server.MapPath("Limits/" & webfolder.name & ".dat")) Then Set MyStream = objFSO.OpenTextFile(Server.MapPath("Limits/" & webfolder.name & ".dat")) sizelimit = Trim(MyStream.Readline) MyStream.Close Set MyStream = Nothing End if If Cint(fsize) >= Cint(sizelimit) Then Response.Write("   Notification Limit EXCEEDED!Meg  " & FormatNumber(Cint(fsize) / Cint(sizelimit) * 100,0,0,-2) & "% " & chr(13)) Else Response.Write("   Notification LimitMeg  " & FormatNumber(Cint(fsize) / Cint(sizelimit) * 100,0,0,-2) & "% " & chr(13)) End if Next Response.Write("    " & Formatnumber(totalmeg / 1000,0,0,-2)& " Gig Used for all folders" & "" & chr(13)) Set drives = Nothing Set Rootfolder = nothing Set objFSO = Nothing %>