Konu Başlığı: ASP ile Mysql'e Penta XML'ini yükletmek

penta ile hiç çalışmadım fakat eğer penta entegrasyonu ile çalışan e-ticaret scriptlerinden satın almadıysanız ( ki sanırım almadınız ) XML reader yapıp bu reader in okuduğu tüm verileri veritabanına nasıl kaydediyorsanız aynı o şekilde kaydetmeniz lazım.

ASP İle XML deki verileri MySQL Veritabanına Otomatik Bir Şekilde Yükleme İşlemini Yapamazmıyım ?

reader yazmadan olacağını pek sanmıyorum.
veritabanının tanıyacağı şekilde bir script yazmak lazım. örneğin XML deki <item> tagı içindeki metni okutup veritabanında item (ismi değişebilir) sütununa kaydettirmek lazım.

Konu Hakkında Örnek Bir Uygulama ve ya Yararlanabileceğim Bir döküman bulabilirmiyim...

şu an bende uygulama yok malesef, bir arkadaşımda vardı ama o da burada değil şu an.
aspindir.com
maxiasp.com
asprehberi.net

bu adreslere bakar mısın, buralarda örnek olması lazım.

Hocam Teşekkür ederim baktım ama bir bulamadım

XML ile Yapılmış Birçok Örnek Uygulama var ama öenmli olan XML i veritabanına nasıl kayıt ettireceğim ?

RSS hakkında bilginiz var mı? XML ile çalışırlar, ben RSS kaynaklarından çektiğim verileri veritabanına kaydediyordum;
hatta kendim için yazdığım bir kodu koyayım buraya ama performanslı olmayabilir pek
üzerinde bir zamanlar çalışıyordum, hala da arşivimde durur.
<%


arama= request.form("arama")

arama = Replace(arama, " " , "+")
Set objXML = server.CreateObject("MSXML2.FreeThreadedDOMDocumen t" )
objXML.async = False
objXML.setProperty "ServerHTTPRequest" , True
objXML.Load("http://www.youtube.com/RSS/tag/"&arama&".RSS" )
If objXML.parseError.errorCode <> 0 Then
Response.Write "<strong>Hata:</strong> " & objXML.parseError.reason &"<br>"
Response.Write "<strong>Sat&#253;r:</strong> " & objXML.parseError.line &"<br>"
Response.Write "<strong>Aç&#253;klama:</strong> " & server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
End If
Set objItemList = objXML.getElementsByTagName("item" )
Set objXML = Nothing
For Each objItem In objItemList
i = 1


baslikk = objItem.childNodes(1).text
baslikk = Replace(baslikk, "'" , "`")
resim = objItem.childNodes(2).text
resimbol = Split( resim,"=" )


videoadres = objItem.childNodes(2).text
videoadres = Replace(videoadres, "watch?", "")
videoadres = Replace(videoadres, "?", "")

videoadres = Replace(videoadres, "=", "/")

Set conn=server.createobject("adodb.connection" )
conn.Open="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../veritabani/veritabani.mdb" )
set girdi=server.createobject("adodb.recordset" )
SQL="select * from videolar where video_baslik ='" &baslikk&"'"
girdi.Open SQL,conn,1,3
If not girdi.Eof Or bof Then
response.write "<b> " &objItem.childNodes(1).text&"</b> ba&#254;l&#253;kl&#253; video daha önce eklenmi&#254; <br>"
Else
Girdi.addnew
Girdi("video_baslik" ) = baslikk
Girdi("video_tarih" ) = Now()
Girdi("video_metin" ) = "<object width=""425"" height=""350""><param name=""movie"" value="&videoadres&"></param><param name=""wmode"" value=""transparent""></param><embed src="&videoadres&" type=""application/x-shockwave-flash"" wmode=""transparent"" width=""425"" height=""350""></embed></object>"
girdi("resim" )= "http://img.youtube.com/vi/"&resimbol(1)&"/default.jpg"
girdi("video_onay" )= True

if arama = "xxx" then
girdi("filtre" )= true
else
girdi("filtre" )= false
end if
Girdi.update
response.write "<b>" &objItem.childNodes(1).text&"</b> ba&#254;l&#253;kl&#253; video eklendi <br>"
End If
Next

Set objItemList = Nothing


Set Girdi = Nothing

%>