<%@ Language=VBScript%> <% Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Server.ScriptTimeout = 300 dim firstdir firstdir = 1 dim strCurrentFolder dim objFolder dim objSubFolder strCurrentFolder = "e:\xnetpub\" dim f1 dim siteinfo_array(200,2) dim arraycnt arraycnt = 0 dim sqlsearch dim arrsearch dim rootlen dim dirsize ' set root folder and iterate through once to get main dir Set objFolder = objFSO.GetFolder(strCurrentFolder) %> I'm going to take about 5 minutes to calculate this ..............

<% IterateThroughDirectory objFolder sub IterateThroughDirectory(objFolder) ' if at second level down put details into array if firstdir = 2 then Set f1 = objFso.GetFolder(objFolder) siteinfo_array(arraycnt,1) = objFolder siteinfo_array(arraycnt,2) = f1.size arraycnt = arraycnt + 1 ' reset variables firstdir = 1 exit sub end if For Each objSubFolder in objFolder.SubFolders firstdir = firstdir + 1 IterateThroughDirectory objSubFolder Next end sub ' Create table headers %> <% ' open database for comparison set websiteDB = Server.CreateObject("ADODB.Connection") websiteDB.Open "DSN=dirlisting;UID=dirlisting;password=xwelcome" rootlen = len(strCurrentFolder) For x = 0 To arraycnt - 1 arrsearch = mid(siteinfo_array(x,1),rootlen+1) dirsize = siteinfo_array(x,2) sqlsearch = "select * from plans where DNS = '" & arrsearch & " ' " set itemset = websiteDB.Execute(sqlsearch) if not itemset.EOF then ptype = ucase(itemset("productcode")) compare ptype, dirsize else displaysitegreen arrsearch, dirsize end if Next sub compare(ptype, dirsize) select case ptype case "VG" if dirsize > 157286400 then displaysitered arrsearch, ptype, dirsize else displaysiteblack arrsearch, ptype, dirsize end if case "VEG" if dirsize > 157286400 then displaysitered arrsearch, ptype, dirsize else displaysiteblack arrsearch, ptype, dirsize end if case "VP" if dirsize > 314572800 then displaysitered arrsearch, ptype, dirsize else displaysiteblack arrsearch, ptype, dirsize end if case "VEP" if dirsize > 314572800 then displaysitered arrsearch, ptype, dirsize else displaysiteblack arrsearch, ptype, dirsize end if case "VS" if dirsize > 104857600 then displaysitered arrsearch, ptype, dirsize else displaysiteblack arrsearch, ptype, dirsize end if case "VES" if dirsize > 104857600 then displaysitered arrsearch, ptype, dirsize else displaysiteblack arrsearch, ptype, dirsize end if case "VB" if dirsize > 52428800 then displaysitered arrsearch, ptype, dirsize else displaysiteblack arrsearch, ptype, dirsize end if case "VEB" if dirsize > 52428800 then displaysitered arrsearch, ptype, dirsize else displaysiteblack arrsearch, ptype, dirsize end if case "EWEB" if dirsize > 10485760 then displaysitered arrsearch, ptype, dirsize else displaysiteblack arrsearch, ptype, dirsize end if case else displaysitepurple arrsearch, dirsize end select end sub sub displaysitered(siteaddress, plantype, spaceused) %> <% end sub sub displaysiteblack(siteaddress, plantype, spaceused) %> <% end sub sub displaysitegreen(siteaddress, spaceused) %> <% end sub sub displaysitepurple(siteaddress, spaceused) %> <% end sub %>
Site Plan Size of site
<%Response.write siteaddress%> SITE TOO LARGE <% Response.write plantype %> <% = int(spaceused/(1024*1024)) %> Mb
<%Response.write siteaddress%> <% Response.write plantype %> <% = int(spaceused/(1024*1024)) %> Mb
<%Response.write siteaddress%> NOT IN DATABASE NO PLAN <% = int(spaceused/(1024*1024)) %> Mb
<%Response.write siteaddress%> NO PLAN TYPE <% = int(spaceused/(1024*1024)) %> Mb