ASP’de DB’den Veri Çekerek XML Oluşturma

ASP’de database’den veri çekerek XML oluşturmak için gerekli kodları vereceğim.Oluşturacağınız XML veritabanını herhangi bir web sisteminde kullanabilirsiniz.

<% 'veri tabanı bağlantısı
dim SiteVeri
SiteVeri = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("vt.mdb")
'bağlantı bitti
'dosyayı oluşturma yeri
dosyakontur = Server.MapPath ("../../xml/banner.xml")
'tekrarlanmayan veriler
strXML = ""
strXML = strXML & "" & vbCrLf
strXML = strXML & "" & vbCrLf
strXML = strXML & "
strXML = strXML & "width=""680"" height=""300""" & vbCrLf
strXML = strXML & "currentItem=""0"" radius=""6"" transition=""y""" & vbCrLf
strXML = strXML & "showButtons=""true"" buttonLocation=""right""" & vbCrLf
strXML = strXML & "blurX=""0"" blurY=""10""" & vbCrLf
strXML = strXML & "showContent=""true""" & vbCrLf
strXML = strXML & "bgColor=""#000000"" bgAlpha=""0.6"" bgPaddingBottom=""0""" & vbCrLf
strXML = strXML & "titleColor=""#00CCFF"" titleFontSize=""16""" & vbCrLf
strXML = strXML & "descriptionColor=""#FFFFFF"" descriptionFontSize=""11"">" & vbCrLf
strXML = strXML & "" & vbCrLf
strXML = strXML & " " & vbCrLf
strXML = strXML & "" & vbCrLf

‘sql ve tekrarlanan veriler
b = 1
Set objRs = Server.CreateObject(“ADODB.RecordSet”)
StrSQLAlti = “SELECT * FROM frm_galeri ”
objRs.Open StrSQLAlti, SiteVeri, 3, 3
do while b<=7 and not objRs.eof

strXML = strXML & ” ” & vbCrLf
strXML = strXML & ” aciadmin/slides/galeri/images/” & objRs(“dosya_ad”) & “” & vbCrLf
strXML = strXML & ” ” & vbCrLf
strXML = strXML & ” ” & vbCrLf
strXML = strXML & ” ” & vbCrLf
strXML = strXML & ” strXML = strXML & ” 5″ & vbCrLf
strXML = strXML & ” ” & objRs(“url”) & “” & vbCrLf
strXML = strXML & ” _blank” & vbCrLf
strXML = strXML & ” ” & vbCrLf

objRs.movenext
b=b+1
loop

strXML = strXML & “”
‘xml dosyasının oluşturulması
Set objXMLYaz = Server.CreateObject(“ADODB.Stream”)
objXMLYaz.Open
objXMLYaz.Position = 0
objXMLYaz.Charset = “UTF-8”
objXMLYaz.WriteText strXML
objXMLYaz.SaveToFile dosyakontur,2
objXMLYaz.Close
Set objXMLYaz = Nothing

objRs.close
set objRs = Nothing
‘gelinen sayfaya dönüş
Response.Redirect Request.serverVariables(“HTTP_REFERER”)
%>