on error resume next dim xmlrequest dim xmldom set xmlrequest = server.createobject("microsoft.xmldom") xmlrequest.async = false xmlrequest.load request
if xmlrequest.parseerror.errorcode <> 0 then response.write "errorcode:"&xmlrequest.parseerror.errorcode else Set xmldom = xmlrequest.documentelement response.write "xmldom: "&xmldom.childnodes.item(0).text end if set xmlrequest = nothing %>