[xanburzum]

Public Function imgBinary(path)
                If (inStr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") = 0) Then
                        Dim str : Set str = Server.CreateObject("ADODB.Stream")
                        Dim bin
                        
                        If (inStr(path,"://") = 0) Then
                           str.type = 1
                           str.open()
                           str.loadFromFile(Server.MapPath(path))
                           bin = str.read()
                        Else
                           dim srv : set srv = Server.CreateObject("Msxml2.ServerXMLHTTP")
                           srv.Open "GET", path, false
                           srv.Send()
                           str.Type = 1
                           str.Open
                           bin = srv.responseBody
                           Set srv = Nothing
                        End If

                        Dim open : Set open = Server.CreateObject("MSXML2.DOMDocument.6.0")
                        Dim src  : Set src = open.CreateElement("data")

                        src.dataType = "bin.base64"
                        src.nodeTypedValue = bin

                        path = "data:image/jpg;base64," & src.text

                        str.Close()

                        Set str  = Nothing
                        Set src  = Nothing
                        Set open = Nothing
                End If
                
                imgBinary = path
        End Function