<%
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load("http://www.orneksiteadresi.com/xmlservice.xml") ' Xml in alınacağı adres

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

Dim objItem
For Each objItem in objItems

strResimYolu = objItem.selectSingleNode("resimyolu").Text
strEmbedKodu = objItem.selectSingleNode("embedkodu").Text
strFilmAdi = objItem.selectSingleNode("filmadi").Text

'For next döngüsü içinde sql sorgularını çalıştırabilirsiniz db nize göre uyarlayın
'yada sadece gösterim yapın tercih sizin
'rs.Addnew
' rs("resimyolumuz") = strResimYolu
' rs("embedkodumuz") = strEmbedKodu
' rs("filmadimiz") = strFilmAdi
'rs.Update

Next
%>