<% Public Function clean(text,chars) txt1 = "" txt2 = "" txt1 = text p=InStr(txt1,"<") while p>0 q = InStr(txt1,">") txt2 = mid(txt1,1,p-1) if q<1 then break if q > 0 then txt2 = txt2 + " " + mid(txt1,q+1) end if txt1=txt2 p=InStr(txt1,"<") wend clean = mid(txt1,1,chars) End Function public function getValue(root,tag) on error resume next getValue=root.getElementsByTagName(tag).Item(0).firstChild.nodeValue end function on error resume next dim xmlReq set xmlReq=Server.CreateObject("Microsoft.XMLHTTP") xmlReq.open "GET", Request.QueryString, false 'xmlReq.open "GET", "http://cpgp.blogg.se", false xmlReq.send null dim xmlData set xmlData=Server.CreateObject("Microsoft.XMLDOM") xmldata.loadXML(xmlReq.responseText) response.write "" response.write ""+getValue(xmldata,"title") response.write "" response.write "
By "+getValue(xmldata,"author")+"
" response.write getValue(xmldata,"description")+"

" response.write "" set itm=xmlData.getElementsByTagName("item") for x=0 to itm.length-1 response.write "" response.write "" response.write "" response.write "" next response.write " %>

" response.write "" response.write getValue(itm.Item(x),"title") response.write "" response.write "by " response.write getValue(itm.Item(x),"author") response.write "" response.write getValue(itm.Item(x),"pubDate") response.write "
    " response.write clean(getValue(itm.Item(x),"description"),1000) response.write "