xml ile sayfa kaydetmede yardım

Merhaba arkadaşlar aşağıdaki xml kodu kullanıyorum faket kayıt edilen sitedeki img. çıkmıyır :S daha once baska kod kullandım fakat ondada tr karakter sorunu çıkmışdı adam gib ikod yok mu :S


<%
strURL = "http://www.siteadi.com"
Dim objXmlHttp
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.Open "GET" , strURL , false

objXmlHttp.sEnd

strHTML = objXmlHttp.ResponseBody

Private Function BinaryToString(Binary)
Dim cl1, cl2, cl3, pl1, pl2, pl3
Dim L
cl1 = 1
cl2 = 1
cl3 = 1
L = LenB(Binary)
Do While cl1<=L
pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
If cl3>300 Then
pl2 = pl2 & pl3
pl3 = ""
cl3 = 1
cl2 = cl2 + 1
If cl2>200 Then
pl1 = pl1 & pl2
pl2 = ""
cl2 = 1
End If
End If
Loop
BinaryToString = pl1 & pl2 & pl3
End Function


Response.Write BinaryToString(strHTML)
%>

strHTML=BinaryToString(strHTML)

strHTML=Replace(strHTML,"src=","src="&strURL&"/")

Response.Write strHTML

şu şekilde alt bölümü değiştirince google da bi kaç sitede denedim çalışıyo anca bu var aklımda

strHTML=BinaryToString(strHTML)

strHTML=Replace(strHTML,"src=","src="&strURL&"/")

Response.Write strHTML

şu şekilde alt bölümü değiştirince google da bi kaç sitede denedim çalışıyo anca bu var aklımda

Alt bolumde neresi oraya kodu yazmışdım orda duzenleyip cop etsen daha iyi olurdu :S

son satır işte ya

Arkadaşlar bir de bazı siteler xml yoluyla içeriklerinde günlük para piyasaları, haberler, hava durumu vs.. gibi eklentiler yayınlıyorlar bunu nasıl yapabiliriz?