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