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