merhaba arkadaşlar .. BEN ACCESS veritabanından XML dosyasına veri aktarmak istiyorum.
şimdi şöyle bir çözüm buldum..
bir takım kodlarla asp dosyasından xml dosyası oluşturma..(microsoft.XMLDOM) .. burdan oluşturuyorum. işime yarar birşey ortaya çıktı fakat tek sorunum var...
kodları veriyorum
<%
Set ObjConn=Server.CreateObject("Adodb.Connection" )
ObjConn.Open "DRIVER={Microsoft Access Driver (*.mdb )}; DBQ=" & Server.MapPath("db/murat.mdb" )
set objRS = ObjConn.execute("Select TOP 10 * from tablo_adi order by id desc" )
Dim anaveri
Dim anaverikontrol
Dim alttag
Dim Nosu
Dim sayfaTag
Do Until objRS.Eof
Nosu = objRS("baslik" )
Set anaveri = server.CreateObject("Microsoft.XMLDOM" )
anaveri.async = False
anaverikontrol = anaveri.load(server.MapPath("kodbank.xml" ) )
If anaverikontrol = False Then
anaveri.appendChild(anaveri.createProcessingInstruction("xml","version=""1.0""" ) )
anaveri.appendChild(anaveri.createElement("sayfahitleri" ) )
Set alttag = anaveri.createElement("title" )
alttag.text = Nosu
anaveri.documentElement.appendChild(alttag.cloneNode(True ) )
Else
Set sayfaTag=anaveri.getElementsByTagName("Title" )
If sayfaTag.length = False Then
Set alttag = anaveri.createElement("Title" )
alttag.text = Nosu
anaveri.documentElement.appendChild(alttag.cloneNode(True ) )
Else
Nosu=sayfaTag.item(0 ).text
sayfaTag.item(0 ).text = sayfaTag.item(0 ).text
End If
End If
anaveri.save(server.MapPath("kodbank.xml" ) )
Set alttag = Nothing
Set anaveri = Nothing
Set sayfaTag = Nothing
Response.Write Nosu & "</br>"
objRS.movenext
LOOP
%>
şidmi burda şöyle birşey ortaya çıkıyor..
<sayfahitleri>
<title>alttag.text = Nosu (buraya yazdırılıyor)</title>
</sayfahitleri>
şimdi ben şöyle yapmak istiyorum
<sayfahitleri>
<title message="merhaba" id="112 xxx="212" / > gibisinden
</sayfahitleri>
yani tek satır <title araya mesaj yazmak />
sadece title nin <title buraya mesaj yazamıyorum. />
ilginize teşekkür ederim. yrd olursanız sevinirim