<% function DataSize(pintSize) if pintSize<1024 then DataSize = pintSize & " " & STR_BYTES elseif pintSize<(1024^2) then DataSize = int(100*(pintSize/1024))/100 & " " & STR_KILO_BYTES elseif pintSize<(1024^3) then DataSize = int(100*(pintSize/(1024^2)))/100 & " " & STR_MEGA_BYTES elseif pintSize<(1024^4) then DataSize = int(100*(pintSize/(1024^3)))/100 & " " & STR_GIGA_BYTES end if end function %>