ASP Classic how to convert bytes into KB, MB, GB, and TB.

Original Code from converts.vbs«

The above code gives the following error.
Type mismatch on If Size >= 1024 and on another area, notated below.

If Size >= 1024 Then suffix = " KB"
Needs to be
If CDbl(trim(Size)) >= 1024 Then suffix = " KB"
And
Round(Size)
Needs to be
Round(CDbl(trim(Size)))

So it should look like this.

Function ConvertSize(byteSize)     dim Size     Size = byteSize          Do While InStr(Size,",") 'Remove commas from size         CommaLocate = InStr(Size,",")         Size = Mid(Size,1,CommaLocate - 1) & _         Mid(Size,CommaLocate + 1,Len(Size) - CommaLocate)     Loop          Suffix = " Bytes"     If CDbl(trim(Size)) >= 1024 Then suffix = " KB"     If CDbl(trim(Size)) >= 1048576 Then suffix = " MB"     If CDbl(trim(Size)) >= 1073741824 Then suffix = " GB"     If CDbl(trim(Size)) >= 1099511627776 Then suffix = " TB"          Select Case Suffix         Case " KB" Size = Round(CDbl(trim(Size)) / 1024, 1)         Case " MB" Size = Round(CDbl(trim(Size)) / 1048576, 1)         Case " GB" Size = Round(CDbl(trim(Size)) / 1073741824, 1)         Case " TB" Size = Round(CDbl(trim(Size)) / 1099511627776, 1)     End Select          ConvertSize = Size & Suffix End Function
To use this code, simply wrap your variable like so.
<%=ConvertSize(MyVar)%>