<%
Session.CodePage = 1254
%>
<%
' Mehmet Akdeniz 2007 - www.isxxxxxxx.com 
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxxxxxxxxx/db/veritabanim.mdb")

Response.Buffer = True
Response.ContentType = "text/xml"


%>
<?xml version="1.0" encoding="UTF-8"?>
<urlset
      xmlns="http://www.sitemaps.org/schemas/sitemap/0.9"
      xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
      xsi:schemaLocation="http://www.sitemaps.org/schemas/sitemap/0.9
            http://www.sitemaps.org/schemas/sitemap/0.9/sitemap.xsd">
			
<%
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select baslik,id from sayfalar order by id desc"
rs.Open SQL,baglanti,1,3


i = 0
Do While i =< 999 And Not rs.Eof %>
<url>
  <title><%=treng(rs("baslik"))%></title>
  <loc>http://www.isxxxxxxx.com/sayfa_detay.asp?id=<%=rs("id")%></loc>
  <priority>0.5</priority>
  <changefreq>daily</changefreq>
 
</url>

<%
i = i + 1
rs.MoveNext
Loop

rs.Close %>
</urlset>