Merhaba Arkadaşlar,
Ben Rss İle Aldığım Haberleri Kategori Halinde listeleme de problem yaşıyorum.
Elimde
Acces Vtye Kategoriler Adında Tablo ve ID - Kategori - RssAdresi adlarında da Sutunlar var.Bunların değeri Örneğin;

ID Kategori RssAdresi
1 Guncel /rss/guncel.xml
2 Politika /rss/politia.xml
3 Ekonomi /rss/ekonomi.xml


Şeklinde veriler listeleniyor...Her Xml Sayfasında ise 20'er adet kayıt mevcut.

Ben ise xml sayfalarında bulunan kayıtlardan ilk 6 'sını ve ilk haberin de resimli olarak listelenmesini istiyorum.Yani xml sayfalarından listelenen 6 haberden ilki resimli diğerleri ise sadece başlık olacak.Kullandığım kod aşağıdaki gibidir.

Lsitelemede sıkıntı var ilk 6 kaydı listelemek istiyorum xml sayfasında bulunan bütün veriler listeleniyor fakat kullandığım for döngüsü her haberi ilki resimli olmak üzere 6 defa listeliyor.Yardımcı olursanız sevinirim

Selam ve Dua İle..

<!--#Include File="baglanti.asp"-->
<%
Set aRs = Server.Createobject("Adodb.Recordset")
SQL="SELECT * From Kategoriler  ORDER BY ID ASC"
aRs.Open SQL,Baglanti,1,3
Do While Not aRs.EOF
%>
<div style="background-color: #efefef; float: left; margin:2px; width:340px">
                                        <table width="100%" border="0" cellpadding="5" cellspacing="1" 
 
style="height:100%;">
                                        <tr>
                                            <td height="15" bgcolor="#FFFFFF">
											<strong><a title="<%=strTitle%>" href="/haberler/<%=aRs("ID")%>/<%=MakeLink(aRs("Kategori"))%>-haberleri.html"><%=aRs("Kategori")%> Haberleri</a></strong></td>
                                        </tr>
                                        <tr>
                                            <td valign="top" bgcolor="#FFFFFF">
                                             <table border="0" width="100%" cellpadding="0" style="border-collapse: collapse" id="table2">

<%
   
rssfile = ""&aRs("Rss")&""
	
			Dim objXML, objRoot, objItems
 
			Set objXML = Server.CreateObject("Microsoft.XMLDOM")
			objXML.Async = False
			objXML.SetProperty "ServerHTTPRequest", True
			objXML.ResolveExternals = True
			objXML.ValidateOnParse = True
			objXML.Load(rssFile)
 
						On Error Resume Next
 
				If (objXML.parseError.errorCode = 0) Then
							Set objRoot = objXML.documentElement
								If IsObject(objRoot) = False Then
								response.Write  "<tr><td>Bilgiler Getirilemiyor</td></tr>"
								'exit sub
								End If
				
				Set objItems = objRoot.getElementsByTagName("item")
								If IsObject(objItems) = True Then
					Dim objItem
					For Each objItem in objItems

i=i+1
for i = 1 to 6

                       
						strBaslik = objItem.selectSingleNode("title").Text
						strDesc = objItem.selectSingleNode("description").Text
						strLink = objItem.selectSingleNode("link").Text
					    strRes = objItem.selectSingleNode("image").Text


IF i=1 Then
%>
Resimli haberin kodları(1 Adet)

<%Else%>

Resimsiz Haberler (5 Kayıt)

<%
End IF
MoveNext : Next
		Next
		
							else
							response.Write  "<tr><td>Sistem Hatası Oluştu.Lütfen Sayfayı Yenileyiniz.</td></tr>"
														
				End If
				Set objRoot = Nothing
				Set objItems = Nothing
			End If
 
			Set objXML = Nothing
%>

<%
aRs.MoveNext : Loop
aRs.Close : Set aRs = Nothing
%>