<%
//Sitemap yazımı başlıyor...
//author = okansystem
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db.mdb")
Set toplamurl = Bag.execute("SELECT COUNT(*) AS toplam FROM url ;")
%>
<table border="0" width="100%" height="163" cellspacing="0" cellpadding="0">

	<tr>
		<td height="19">Sitemap içerisindeki toplam url sayısı :</td>
		<td height="19">
//toplam url sayısını yazdırıyoruz hata vermemesi için de toplamurl değerinin boş olması durumunda hata yazdırıyoruz
<%
if toplamurl("toplam")="" then
response.write "Gösterilecek url yok"
else
Response.Write toplamurl("TOPLAM") 
end if
%></td>
	</tr>
	<tr>
	//url tablomu açıyorum ve döndürüyorum
	<%
Set kayitset = Bag.execute("Select * from urltablo")
Do While Not kayitset.EOF
%>
		<td><%=kayitset("urlfield")%></td>
		<td>daily,monthly vb.</td>
	</tr>
	<%
	kayitset.movenext
	loop
	%>
</table>
//kayitsetlerimi kapatıyorum
<%
bag.close
set bag = nothing
toplamurl.close
set toplamurl = nothing
kayitset.close
set kayitset = nothing
%>