function bintotext(varbindata,intdatasizeinbytes) ' as string dim rs const adfldlong=&h00000080 const advarchar=200 set rs=createobject("adodb.recordset") rs.fields.append "txt",advarchar,intdatasizeinbytes,adfldlong rs.open rs.addnew rs.fields("txt").appendchunk varbindata bintotext=rs("txt").value rs.close set rs=nothing end function dim return,xmlhttp set xmlhttp=server.cre..