<?xml version="1.0" encoding="UTF-8"?>
<!-- #include file="Ayarlar.asp" -->

<%
Response.ContentType = "text/xml"
%>
<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 * FROM man_haber_kat ORDER BY id DESC"
rs.open sql,Bag,1,3
If Not rs.Eof Then
Do While Not rs.Eof
%>
<url>
<loc><%=SiteUrl%>/kategori/<%=rs("id")%>/<%=SEO(rs("baslik"))%>.html</loc>
<changefreq>daily</changefreq>
<priority>1.00</priority>
</url>
<%
rs.MoveNext : Loop
End If
rs.close : Set rs=Nothing
%></urlset>