如何用asp读取以下xml文件的message值？越简短越好

Question

<?xml version="1.0" encoding="UTF-8"?>102805.4

Answer 1

 s="<?xml version=""1.0"" encoding=""UTF-8""?><response><error>10</error><message>2805.4</message></response>"
function getMid(sstr,estr)
dim sindex,eindex,v
sindex=instr(s,sstr)+len(sstr)
if sindex<>0 then
eindex=instr(sindex,s,estr)
v=mid(s,sindex,eindex-sindex)
end if
getMid=v
end function
msgbox getMid("<error>","</error>")
msgbox getMid("<message>","</message>")