Veritabanındaki Verilerin XML'e Uygun Yayınlanması

[BaRaN]

Kod:

<%



Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb")

Function Temizle(strInput)
strInput = Replace(strInput,"&", "&")
strInput = Replace(strInput, ">", "<")
strInput = Replace(strInput,"<",">")
Temizle = strInput
End Function

Response.Write ""
Response.Write ""
Response.Write ""
Response.Write "http://www.siteadresi.com"
Response.Write "Site Açıklaması"
Response.Write "tr"

set rs = Server.CreateObject("Adodb.Recordset")
SQL = "select * from tablo order by tarih desc"
rs.Open SQL, adoCon, 1, 3

i = 0
Do While not rs.EOF and i < 10

response.write("")
response.write("")
response.write("http://www.d0gma.org/d0gma/proje_oku.asp?ID="& rs("id") &"")
response.write("" & Temizle(rs("ozet")) & "")
response.write("")
i = i + 1

rs.MoveNext
Loop

rs.Close
set rs = Nothing

Response.Write ""
Response.Write ""
%>