function WriteBase64File(fileName, content)
Dim xml
Set xml=Server.CreateObject("MSXML2.DOMDocument")
Dim stm
Set stm=Server.CreateObject("ADODB.Stream")
Set root = xml.createElement("tif")
root.text = content
root.dataType = "bin.base64"
stm.Type=1
stm.Open
stm.Write root.nodeTypedValue
stm.SaveToFile Server.MapPath(fileName)
stm.Close
Set root = Nothing
Set xml=Nothing
Set stm=Nothing
end function
Dim xml
Set xml=Server.CreateObject("MSXML2.DOMDocument")
Dim stm
Set stm=Server.CreateObject("ADODB.Stream")
Set root = xml.createElement("tif")
root.text = content
root.dataType = "bin.base64"
stm.Type=1
stm.Open
stm.Write root.nodeTypedValue
stm.SaveToFile Server.MapPath(fileName)
stm.Close
Set root = Nothing
Set xml=Nothing
Set stm=Nothing
end function