ASP Base64 encoding using XML

xml base64 encode

[Dran]

I found this function which is designed to read a text file and make it available so that I can put it into my XML file to pass it onto another system. Unfortunately I get the following error that I cannot figure out. Please could anyone clear this up for me?

Thanks! Dran.

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'objDocElem'
The line is marked with a >> that errors.

Function base64_encode_fromfile( byval sFilename )
Dim objXMLDoc, objDocElem, objStream, sBase64String
'Set objXMLDoc = Server.CreateObject("MSXML2.DOMDocument")
Set objXMLDoc = Server.CreateObject("Msxml2.DOMDocument.4.0")
objXMLDoc.async = False
objXMLDoc.validateOnParse = False

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile Server.MapPath(sFilename)

Set objDocElem = objXMLDoc.documentElement
>>objDocElem.dataType = "bin.base64"
objDocElem.nodeTypedValue = objStream.Read

sBase64String = objDocElem.text

objStream.Close

Set objStream = Nothing
Set objDocElem = Nothing
Set objXMLDoc = Nothing

base64_encode_fromfile = sBase64String
End Function
%>

[tedster]

Post was just moved here from a neglected spot elsewhere. I haven't got an answer, but it needed a bump!

[duckhunter]

Set objDocElem = objXMLDoc.documentElement

should be

Set objDocElem = Server.CreateObject("objXMLDoc.documentElement")