Code sample below
Dim objxml
Set objxml = Server.CreateObject("Microsoft.XMLDOM")
objxml.LoadXml(rsDef("ImportXml")&"")
Set BucketTypeNode=objxml.SelectSingleNode("//tblBucketType")
response.Write typeName(BucketTypeNode) ' Writes IXMLDOMElement
response.Write ConvertNodeToInsert(BucketTypeNode) '<--Errors Here Type mismatch: 'ConvertNodeToInsert'
Thanks!