Asp aynı kayıt sorunu

<% 
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.

101 oynuyorum bitince yazacam

bekliyorum hocam

büyük güldüm

<%
Set rs= Server.CreateObject("ADODB.Recordset")

Function VarmiAynisi(ByVal basliki)
Dim blnSonuc
 
   sql="Select TOP 1 baslik FROM cektir WHERE baslik='" & basliki & "'"  
   rs.open sql,baglanti,1,1
If rs.Eof Then
blnSonuc = False
Else
blnSonuc = True
End If

VarmiAynisi = blnSonuc
End Function


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  
      
      If VarmiAynisi(strResimYolu) = False Then

   sql="Select * FROM cektir"  
   rs.open sql,baglanti,1,3  

     rs.Addnew  
        rs("baslik") = strResimYolu  
        rs.Update  
    End If
    Next
%>

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 06:01:20 -->-> Daha önceki mesaj 05:59:57 --

Birinciydim son el ikinciliğe düştüm iyimi!

kodu çalıştirim ne gerekiyorsa yapalım hocam 1. lik için

Microsoft VBScript çalýþma hatasý hata '800a01a8'

Nesne gerekli: 'objRoot'

/admin/yenikaydet.asp, satır 27

hata veriyor hata satırı

Set objItems = objRoot.getElementsByTagName("item")

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 --


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