ASP Classic: How to convert bytes into KB, MB, GB, and TB.
Original Code from converts.vbs«
Error
The code above produces the following error.
Type mismatch on If Size >= 1024
Copy
Search Site
Search Google
and in another area, notated below.
If Size >= 1024 Then suffix = " KB"
Copy
Search Site
Search Google

Needs to be
If CDbl(trim(Size)) >= 1024 Then suffix = " KB"
Copy
Search Site
Search Google

And
Round(Size)
Copy
Search Site
Search Google

Needs to be
Round(CDbl(trim(Size)))
Copy
Search Site
Search Google
So it should look like this.
[ASP VBScript - ConvertSize Function]
CFFCS | CarrzSynEdit: | ASP/VBScript 
<%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)%>
Copy
Search Site
Search Google