teriyaki adlı üyeden alıntı: mesajı görüntüle
<% 
Set objXML = Server.CreateObject("Microsoft.XMLDOM") 
    objXML.Async = False 
    objXML.SetProperty "ServerHTTPRequest", True 
    objXML.ResolveExternals = True 
    objXML.ValidateOnParse = True 
    objXML.Load("http://www.domain.com/aaa.xml") ' rss den verileri alıyorum sıkıntı yok ancak 20 kayıt varsa 20sini birden alıyorum ve aşağıda kayıt ediyorum sayfayı yenilediğimde. Sıkıntı aşağıda :)
     
Set objRoot = objXML.documentElement 
Set objItems = objRoot.getElementsByTagName("item") 

    Dim objItem 
    For Each objItem in objItems 

        strResimYolu = objItem.selectSingleNode("baslik").Text 
     
     
    
   Set rs= Server.CreateObject("ADODB.Recordset" ) 
   sql="Select * FROM cektir" 
   rs.open sql,baglanti,1,3 

if rs.Eof Then
     rs.Addnew 
        rs("baslik") = strResimYolu 
        rs.Update 
     
    Next 
%>
rss.asp de xml dökümandan son 10 kayıtı çekiyorum bu sayfada ve sayfayı her yenilediğimde access veritabanına kayıt yaptırıyorum. Sıkıntı şu eğer 10 kayıt içinde daha önceden eklenen kayıt varsa kayıt yapma veya aynı kayıtdaki içeriği ekleme. Yardımcı olabilecek varmı çok önemli.

Merhaba hocam,

Tablonuzda sadece baslik sutunu mu var?

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 15:27:39 -->-> Daha önceki mesaj 15:16:32 --

teriyaki adlı üyeden alıntı: mesajı görüntüle
<% 
Set objXML = Server.CreateObject("Microsoft.XMLDOM") 
    objXML.Async = False 
    objXML.SetProperty "ServerHTTPRequest", True 
    objXML.ResolveExternals = True 
    objXML.ValidateOnParse = True 
    objXML.Load("http://www.domain.com/aaa.xml") ' rss den verileri alıyorum sıkıntı yok ancak 20 kayıt varsa 20sini birden alıyorum ve aşağıda kayıt ediyorum sayfayı yenilediğimde. Sıkıntı aşağıda :)
     
Set objRoot = objXML.documentElement 
Set objItems = objRoot.getElementsByTagName("item") 

    Dim objItem 
    For Each objItem in objItems 

        strResimYolu = objItem.selectSingleNode("baslik").Text 
     
     
    
   Set rs= Server.CreateObject("ADODB.Recordset" ) 
   sql="Select * FROM cektir" 
   rs.open sql,baglanti,1,3 

     rs.Addnew 
        rs("baslik") = strResimYolu 
        rs.Update 
     
    Next 
%>
rss.asp de xml dökümandan son 10 kayıtı çekiyorum bu sayfada ve sayfayı her yenilediğimde access veritabanına kayıt yaptırıyorum. Sıkıntı şu eğer 10 kayıt içinde daha önceden eklenen kayıt varsa kayıt yapma veya aynı kayıtdaki içeriği ekleme. Yardımcı olabilecek varmı çok önemli.

Aşağıdaki gibi değiştirin hocam
Not: bu yöntemle ekleme Top 1 olması performans açısından önemli

Set rs= Server.CreateObject("ADODB.Recordset" )
sql="Select Top 1 * FROM cektir where baslik='"&strResimYolu&"' "
rs.open sql,baglanti,1,3
if rs.eof then
rs.Addnew
rs("baslik") = strResimYolu
rs.Update
end if