ASP ile XML veri çekme

<?xml version="1.0" encoding="UTF-8" ?><products>
<product>
<stock>100</stock>
<unit>Adet</unit>
<price_list>61.9</price_list>
<images><img_item type_name="">https://www.zoreaksesuar.com/lapas-e15-type-c-kulaklik-kulaklklar-60191-74-B.jpg</img_item><img_item type_name="">https://www.zoreaksesuar.com/lapas-e15-type-c-kulaklik-kulaklklar-60192-74-B.jpg</img_item><img_item type_name="">https://www.zoreaksesuar.com/lapas-e15-type-c-kulaklik-kulaklklar-60193-74-B.jpg</img_item><img_item type_name="">https://www.zoreaksesuar.com/lapas-e15-type-c-kulaklik-kulaklklar-60195-74-B.jpg</img_item><img_item type_name="">https://www.zoreaksesuar.com/lapas-e15-type-c-kulaklik-kulaklklar-60196-74-B.jpg</img_item><img_item type_name="Gold">https://www.zoreaksesuar.com/lapas-e15-type-c-kulaklik-kulaklklar-60198-74-B.jpg</img_item><img_item type_name="">https://www.zoreaksesuar.com/lapas-e15-type-c-kulaklik-kulaklklar-60197-74-B.jpg</img_item><img_item type_name="Gri">https://www.zoreaksesuar.com/lapas-e15-type-c-kulaklik-kulaklklar-60199-74-B.jpg</img_item></images>
<subproducts>
<subproduct><VaryantGroupID>7486</VaryantGroupID>
<code>20900</code>
<ws_code>TA20900</ws_code>
<type1><![CDATA[Gold]]></type1>
<type2><![CDATA[]]></type2>
<barcode><![CDATA[]]></barcode>
<stock>100</stock>
<desi>1.00</desi>
<price_list>61.9</price_list>
<price_special>61.9</price_special>
<supplier_code><![CDATA[]]></supplier_code>
</subproduct><subproduct><VaryantGroupID>7486</VaryantGroupID>
<code>20901</code>
<ws_code>TA20901</ws_code>
<type1><![CDATA[Gri]]></type1>
<type2><![CDATA[]]></type2>
<barcode><![CDATA[]]></barcode>
<stock>100</stock>
<desi>1.00</desi>
<price_list>61.9</price_list>
<price_special>61.9</price_special>
<supplier_code><![CDATA[]]></supplier_code>
</subproduct></subproducts>
</product>
</products>

<%
response.buffer=false 

Server.ScriptTimeout = 999999900
On error resume next
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load("C:\inetpub\wwwroot\bot\ornek.xml") 'XMLin alınacağı URL adresi
 
Set objRoot = objXML.documentElement
Set objItems = objRoot.getElementsByTagName("product")
 
Dim objItem
For Each objItem in objItems
 
strcode = objItem.selectSingleNode("code").Text
strname = objItem.selectSingleNode("name").Text
strproduct_link = objItem.selectSingleNode("product_link").Text
strcat1name = objItem.selectSingleNode("cat1name").Text
strcat2name = objItem.selectSingleNode("cat2name").Text
strcat3name = objItem.selectSingleNode("cat3name").Text
strcategory_path = objItem.selectSingleNode("category_path").Text
strstock = objItem.selectSingleNode("stock").Text
strprice_list = objItem.selectSingleNode("price_list").Text
strdetail = objItem.selectSingleNode("detail").Text
strseo_title = objItem.selectSingleNode("seo_title").Text
strseo_description = objItem.selectSingleNode("seo_description").Text
strseo_keywords = objItem.selectSingleNode("seo_keywords").Text
strimages = objItem.selectSingleNode("images").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
 

%>
<table height="50">
<tr>
	<td><%=strcode%></td>
	<td><%=strname%></td>
	<td><%=strimages%><br></td>
</tr>


<% 
Next
%>