xml ile video bilgileri çekmek

Sevgili arkadaşlar;
Video içerikli aşağıda örneğini sunduğum xml dosyasından aşağıdaki şekilde veri çekmeye çalışıyorum. Ancak alabildiğim alanlar <video:tag> alanına kadar olan düzenli olan alanlar. Şimdi <video:tag> ile </video:tag> alanı arasındaki tag içeriklerini tag var ise nasıl döngüye sokarak değişkene aktarabilirim. Yardımlarınızı bekliyor, saygılar sunuyorum.

XML VERİ KAYNAĞI

<?xml version="1.0" encoding="UTF-8"?> 
  <?xml-stylesheet type="text/xsl" href="http://www.siteadresi.com/plugins/xml-sitemaps-for-videos/video-sitemap.xsl"?> 
  <urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9" xmlns:video="http://www.google.com/schemas/sitemap-video/1.1"> 
   <url> 
   <loc>http://www.siteadresi.com/ihtiras-ruzgarlari-legends-of-the-fall-720p-hd-turkce-dublaj</loc> 
   <video:video> 
    <video:player_loc allow_embed="yes" autoplay="autoplay=1">http://www.youtube.com/v/TR5E7Kuty3o</video:player_loc> 
    <video:thumbnail_loc>http://i.ytimg.com/vi/TR5E7Kuty3o/hqdefault.jpg</video:thumbnail_loc> 
    <video:title>İhtiras Rüzgarları - Legends of the Fall 720p HD (Türkçe Dublaj)</video:title> 
    <video:description>1900'lerin Amerikasında orduda görevli albay William Ludlow görevinden ayrılarak,Montana'da kaya dağlarında bir evde 3 oğlu ile yaşamaya başlar.Bu arada 1. dünya savaşı başlar.Albayın tüm karşı çıkmalarına rağmen 3 kardeş savaşa katılır.En küçük oğlan Samuel'in öldüğü savaşın ardından diğer oğlu Tristan Samuel'in nişanlısı Susannah'la yakınlaşmaya başlar ve aralarında bir aşk başlar.En büyük kardeş Alfred'inde Susannahtan hoşlanmaya başlamasıyla olaylar değişir ve gelişir</video:description> 
    <video:publication_date>2013-12-28T12:46:13+00:00</video:publication_date> 
     <video:tag>Aidan Quinn</video:tag> 
     <video:tag>Anthony Hopkins</video:tag> 
     <video:tag>Bill Dow</video:tag> 
     <video:tag>Brad Pitt</video:tag> 
     <video:tag>Christina Pickles</video:tag> 
     <video:tag>Gordon Tootoosis</video:tag> 
     <video:tag>Henry Thomas</video:tag> 
     <video:tag>John Novak</video:tag> 
     <video:tag>Julia Ormond</video:tag> 
     <video:tag>Karina Lombard</video:tag> 
     <video:tag>Kenneth Welsh</video:tag> 
     <video:tag>Paul Desmond</video:tag> 
     <video:tag>Robert Wisden</video:tag> 
     <video:tag>Sam Sarkar</video:tag> 
     <video:tag>Tantoo Cardinal</video:tag> 
     <video:category>7+ Puan (IMDb)</video:category> 
   </video:video> 
   </url> 
   <url> 
   <loc>http://www.siteadresi.com/koruyucu-the-guardian-720p-hd-turkce-dublaj</loc> 
   <video:video> 
    <video:player_loc allow_embed="yes" autoplay="autoplay=1">http://www.youtube.com/v/HSRURAWRn3Q</video:player_loc> 
    <video:thumbnail_loc>http://i.ytimg.com/vi/HSRURAWRn3Q/hqdefault.jpg</video:thumbnail_loc> 
    <video:title>Koruyucu - The Guardian 720p HD (Türkçe Dublaj)</video:title> 
    Bir macera-aksiyon klasiği "Kaçak (The Fugitive)" filminin yönetmeni Andrew Davis'in yönettiği, Kevin Costner, Ashton Kutcher ve diğer deneyimli oyunculardan oluşan kadrosuyla KORUYUCU, başka hayatlar için kendilerini feda eden cesaret abidesi Sahil Güvenlik Kurtarma Yüzücüleri'nin daha önce gözler önüne serilmemiş dünyasını sürükleyici ve heyecan dolu bir biçimde seyirciye sunuyor. İlkeleri "En azından başkaları yaşasın!" olan Kurtarma Yüzücüleri, hayatlarını büyük fırtınalarda ve devasa dalgalarda riske eden kadın ve erkeklerden oluşan, özel olarak eğitim almış bir ekip. Bir çok Amerikalı tarafından, sadece en son Katrina Kasırgası'nın ölümcül sellerinden binlerce kişiyi kurtardıklarında fark edilen, adı duyulmamış, gözü pek kahramanların-Kurtarma Yüzücüleri'nin hayatları ve takım çalışması bu yürekleri donduran macerada öne çıkıyor. 
    <video:publication_date>2013-12-28T12:37:01+00:00</video:publication_date> 
     <video:tag>Adam Pena</video:tag> 
     <video:tag>Alex Daniels</video:tag> 
     <video:tag>Andrew Schanno</video:tag> 
     <video:tag>Ashton Kutcher</video:tag> 
     <video:tag>Clancy Brown</video:tag> 
     <video:tag>Daniel J. Molthen</video:tag> 
     <video:tag>Gary Billburg</video:tag> 
     <video:tag>James Barnes</video:tag> 
     <video:tag>Joe Arquette</video:tag> 
     <video:tag>Joshua Mitcheltree</video:tag> 
     <video:tag>Kevin Costner</video:tag> 
     <video:tag>Melissa Sagemiller</video:tag> 
     <video:tag>Omari Hardwick</video:tag> 
     <video:tag>Rusty Tennant</video:tag> 
     <video:tag>Sela Ward</video:tag> 
     <video:category>720p Filmler</video:category> 
   </video:video> 
   </url> 
   <url> 
   <loc>http://www.siteadresi.com/zorlu-ikili-2-guns-1080p-fullhd-turkce-dublaj</loc> 
   <video:video> 
    <video:player_loc allow_embed="yes" autoplay="autoplay=1">http://www.youtube.com/v/dVNe3RK2fgI</video:player_loc> 
    <video:thumbnail_loc>http://i.ytimg.com/vi/dVNe3RK2fgI/hqdefault.jpg</video:thumbnail_loc> 
    <video:title>Zorlu İkili - 2 Guns 1080p FullHD (Türkçe Dublaj)</video:title> 
    <video:description>Gizli görevde polis olan Bobby (Denzel Washington) ve Stig (Mark Wahlberg) çok geçmeden birileri tarafından tuzağa düşürüldüklerini anlarlar ve çokta anlaşamayan bu ikili adlarını temize çıkarmak için birlikte çalışmak zorunda kalırlar. Film boyunca bir yandan büyük patlamalar, çarpışmalar ve silahlı saldırılara maruz kalırken bir yandan kim tarafından oyuna düşürüldüklerini çözmeye çalışırlar.</video:description> 
    <video:publication_date>2013-12-28T11:19:33+00:00</video:publication_date> 
     <video:tag>Bill Paxton</video:tag> 
     <video:tag>Christopher Matthew Cook</video:tag> 
     <video:tag>Denzel Washington</video:tag> 
     <video:tag>Derek Solorsano</video:tag> 
     <video:tag>Edgar Arreola</video:tag> 
     <video:tag>Edward James Olmos</video:tag> 
     <video:tag>Fred Ward</video:tag> 
     <video:tag>Greg Sproles</video:tag> 
     <video:tag>James Marsden</video:tag> 
     <video:tag>Kyle Russell Clements</video:tag> 
     <video:tag>Mark Wahlberg</video:tag> 
     <video:tag>Patrick Fischler</video:tag> 
     <video:tag>Paula Patton</video:tag> 
     <video:tag>Robert John Burke</video:tag> 
     <video:tag>Tim Bell</video:tag> 
     <video:category>1080p Filmler</video:category> 
   </video:video> 
   </url> 
   <url> 
   <loc>http://www.siteadresi.com/bela-is-basinda-national-security-720p-hd-turkce-dublaj</loc> 
   <video:video> 
    <video:player_loc allow_embed="yes" autoplay="autoplay=1">http://www.youtube.com/v/pra0Mwr0ao8</video:player_loc> 
    <video:thumbnail_loc>http://i.ytimg.com/vi/pra0Mwr0ao8/hqdefault.jpg</video:thumbnail_loc> 
    <video:title>Bela İş Başında - National Security 720p HD (Türkçe Dublaj)</video:title> 
    <video:description>Polis olmaya çalışan Earl, eğitimde yaptığı bir hatadan dolayı akademiden atılır. Bu arada anahtarlarını içerde unuttuğu arabasına girmeye çalışırken, arabayı çalmaya çalıştığını sanan Hank adlı bir polis tarafından yakalanır.  
  Yakalanma esnasında, alerjisi olan Earl'i arı sokar ve yüzü dayak yemiş gibi şişer. Olayı ters bir açıdan çeken güvenlik kamerası, arıyı öldürmeye çalışan Hank'i sanki Earl'e dayak atar gibi göstermektedir. </video:description> 
    <video:publication_date>2013-12-26T10:50:17+00:00</video:publication_date> 
     <video:tag>Bill Duke</video:tag> 
     <video:tag>Brett Cullen</video:tag> 
     <video:tag>Cleo King</video:tag> 
     <video:tag>Colm Feore</video:tag> 
     <video:tag>Eric Roberts</video:tag> 
     <video:tag>Gerry Del Sol</video:tag> 
     <video:tag>Joe Flaherty</video:tag> 
     <video:tag>Ken Lerner</video:tag> 
     <video:tag>Mari Morrow</video:tag> 
     <video:tag>Martin Lawrence</video:tag> 
     <video:tag>Matt McCoy</video:tag> 
     <video:tag>Robinne Lee</video:tag> 
     <video:tag>Stephen Tobolowsky</video:tag> 
     <video:tag>Steve Zahn</video:tag> 
     <video:tag>Timothy Busfield</video:tag> 
     <video:category>720p Filmler</video:category> 
   </video:video> 
   </url> 
  </urlset>

ASP KODUM

<% 
  '--------------------------------------------------------------------------------- 
  url = "http://localhost/xml/film.xml" 
  '--------------------------------------------------------------------------------- 
  Response.Buffer = True   
  Dim objXMLHTTP, xml 
  Set xml = Server.CreateObject("Microsoft.XMLHTTP") 
  xml.Open "GET", url, False 
  xml.Send 
  dim fatura_sonuc 
  fatura_sonuc = xml.responseBody 
  Set xml = Nothing 
  '--------------------------------------------------------------------------------- 
  Set xmlObj = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") 
  xmlObj.async = False 
  xmlObj.setProperty "ServerHTTPRequest", True 
  xmlObj.Load(fatura_sonuc) 
  If xmlObj.parseError.errorCode <> 0 Then 
  Response.write"<font class=olumsuz>x</font> Bir hata oluştu, lütfen daha sonra tekrar deneyin!":Response.end 
  End If 
  '------------------------------------------------------------------------------------------------ 
  set channelNodes = xmlObj.selectNodes("//url/*") 
  for each entry in channelNodes 
      if entry.tagName = "hataKodu" then 
          strHata = entry.text 
    response.write strHata 
      end if 
  next 
  '------------------------------------------------------------------------------------------------ 
  Set xmlList = xmlObj.getElementsByTagName("video:video") 
  Set xmlObj = Nothing 
  For Each xmlItem In xmlList 
  '--------------------------------------------------------------------------------- 
  dim url 
  '--------------------------------------------------------------------------------- 
  on error resume next 
  you_tube = xmlItem.childNodes(0).text & "<br />" 
  resim  = xmlItem.childNodes(1).text & "<br />" 
  baslik  = xmlItem.childNodes(2).text & "<br />" 
  aciklama = xmlItem.childNodes(3).text & "<br />" 
  tarih  = xmlItem.childNodes(4).text & "<br />" 
  tag1  = xmlItem.childNodes(5).text & "<br /><br />" 
  '... 
  '... 
  tag15  = xmlItem.childNodes(19).text & "<br /><br />" 
  kategori = xmlItem.childNodes(20).text & "<br /><br />" 
  on error goto 0 
  '--------------------------------------------------------------------------------- 
  response.write "You Tube Adres : " & you_tube 
  response.write "Resim : " & resim 
  response.write "Başlık : " & baslik 
  response.write "Açıklama : " & aciklama 
  response.write "Tarih : " & tarih 
  response.write "Tag1 : " & tag1 
  response.write "Tag2 : " & tag2 
  response.write "Kategori : " & kategori 
  --------------------------------------------------------------------------------- 
  Next 
  Set xmlList = Nothing 
  %>

Benzer içerikler