Sitemap için Asp Script varmı?

konular içerisinde php scripti verilmiş peki bunun asp scripti varmı?

Kendi sitem için kullandığım (ilan sitesi) bi script var, ilan sıralar gibi veritabanı bağlantısını kurup ilanları while döngüsü içinde sitemapi oluşturuyorum.
Function TarihFormatla(ByVal strTarih)
Tarih kısmı;
<%
If strTarih = "" Or isDate(strTarih) = False Then Exit Function

blnSaat = True '// Eğer Saatin Gösterilmesini İstemiyorsanız Değeri False Yapın

Saniye = Second(strTarih)
Dakika = Minute(strTarih)
Saat = Hour(strTarih) +2
Gun = Day(strTarih)
Ay = Month(strTarih)
Yil = Year(strTarih)

'// Biçimlendirmenin Bozulmaması İçin Değerler 2 Karakterden Kısaysa Başlarına 0 Ekleniyor
If Len(ay) < 2 Then ay="0" & ay
If Len(Gun) < 2 Then Gun="0" & Gun
If Len(Saat) < 2 Then Saat="0" & Saat
If Len(Dakika) < 2 Then Dakika="0" & Dakika
If Len(Saniye) < 2 Then Saniye="0" & Saniye

'// Eğer Girilen Tarihte Saat Yoksa Saat Kısmı Kaldırılıyor
If Saniye = "00" And Dakika = "00" And Saat = "00" Then blnSaat = False

TarihFormatla = Yil &"-"& Ay &"-"& Gun
If blnSaat Then TarihFormatla = TarihFormatla

End Function
tarih = TarihFormatla(Now())
%>
Url sıralama;
Veri tabanı bağlantısı;
<%
set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source="&Server.MapPath("vt.mdb;")
Set bag = Server.CreateObject ("ADODB.RecordSet")
bagSqj = "Select * from marka"
bag.Open bagSqj, baglantıi 1, 3
Do while not bag.eof
%>
<url>
<loc>http://www.siteadi.com/ilan/<%=bag("kategori")%></loc>
<lastmod><%=Tarih%></lastmod>
<changefreq>daily</changefreq>
<priority>0.5</priority>
</url>
<%
bag.MoveNext
Loop
bag.Close
set bag=nothing
baglanti.close
set baglanti=nothing
%>