Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load("siteadi.com") 'XMLin alınacağı URL adresi

Set objRoot = objXML.documentElement
Set objItems = objRoot.getElementsByTagName("Urunler")

Dim objItem
For Each objItem in objItems

strResimYolu = objItem.selectSingleNode("UrunAdi").Text

'For next döngüsü içinde SQL sorgularını çalıştırabilirsiniz ve VT nize göre uyarlayabilirsiniz.
'Kayıt yapmak istemezseniz eğer sadece gösterim yaparsınız.
'rsC.Addnew
' rsC("resimyolumuz") = strResimYolu
' rsC("embedkodumuz") = strEmbedKodu
' rsC("filmadimiz") = strFilmAdi
'rsC.Update
response.Write(strResimYolu)
Next