Ücretli - Klasik Asp Sitemap Düzenlenecek

Merhaba arkadaşlar klasik asp ile yazılmış bir sitemap fakat google sitemap olarak eklediğim de aşağıdaki hatayı veriyor, kodu sitemap çalışacak şekilde düzenleyecek klasik asp bilgisine sahip arkadaş aranıyor.
Sitemap te istediğim sitemap.asp dosyası wordpress teki gibi sitemap haritası olarak sayfalama yapması içindeki 1.xml 2.xml 3. xml diye sııralaması, sebebi ise çok fazla veri var sayfalama adet te bu yüzden fazla rehber sitesi yaklaşık 1milyon firma kayıtlı.
Lütfen Konuya cevap yazarken Fiyat / Süre şeklinde yazarsanız sevinirim.

<% Response.ContentType = "application/xml"
bugun = Date()
yil = Year(bugun)
ay = Month(bugun)
gun = Day(bugun)
%><!--#include virtual="/include/veritabani.asp"-->
<!--#include virtual="/include/fonksiyonlar.asp"--><%
anaurl=Request.ServerVariables("QUERY_STRING")
kac=ubound(Split(anaurl,"/"))

sayfa=replace(Temizle(Split(anaurl,"/")(4)),".xml","")

pageNum = sayfa ' Istediginiz sayfa numarasini burada belirleyin
pageSize = 5000 ' Her sayfada kaç kayit olacagini belirleyin
offset = (pageNum - 1) * pageSize

set rs = Server.CreateObject("ADODB.Recordset")

Dim kategoriler, sql2, i
kategoriler = Split(sitekategorisi, ",")

sql2 = "SELECT * FROM firmalar WHERE ulke_kodu='" & ulkekodu & "'"

For i = 0 To UBound(kategoriler)
    If i = 0 Then
        sql2 = sql2 & " AND (kategori_kodu LIKE '%" & kategoriler(i) & "%'"
    Else
        sql2 = sql2 & " OR kategori_kodu LIKE '%" & kategoriler(i) & "%'"
    End If
Next

sql2 = sql2 & ") LIMIT " & pageSize & " OFFSET " & offset


rs.Open sql2, SQLBag
%><?xml version="1.0" encoding="UTF-8"?>
<urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9" ><%Do While Not rs.EOF%>
    <url>
        <loc>https://<%=strdomain%>/<%=rs("ulke_kodu")%>/bizdetail/<%=lcase(domaineki)%>.<%=rs("kategori_kodu")%>/<%=rs("kod")%></loc>
        <lastmod><%=yil%>-<%
        if len(ay)=1 Then
        response.write "0"&ay
        else
        response.write ay
        end if
        %>-<%
        if len(gun)=1 Then
        response.write "0"&gun
        else
        response.write gun
        end if
        %></lastmod>
        <changefreq>daily</changefreq>
        <priority>0.9</priority>
    </url><%
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
SQLBag.Close
Set SQLBag = Nothing
%>
</urlset><% Response.ContentType = "application/xml"
bugun = Date()
yil = Year(bugun)
ay = Month(bugun)
gun = Day(bugun)
%><!--#include virtual="/include/veritabani.asp"-->
<!--#include virtual="/include/fonksiyonlar.asp"--><%
anaurl=Request.ServerVariables("QUERY_STRING")
kac=ubound(Split(anaurl,"/"))

sayfa=replace(Temizle(Split(anaurl,"/")(4)),".xml","")

pageNum = sayfa ' Istediginiz sayfa numarasini burada belirleyin
pageSize = 5000 ' Her sayfada kaç kayit olacagini belirleyin
offset = (pageNum - 1) * pageSize

set rs = Server.CreateObject("ADODB.Recordset")

Dim kategoriler, sql2, i
kategoriler = Split(sitekategorisi, ",")

sql2 = "SELECT * FROM firmalar WHERE ulke_kodu='" & ulkekodu & "'"

For i = 0 To UBound(kategoriler)
    If i = 0 Then
        sql2 = sql2 & " AND (kategori_kodu LIKE '%" & kategoriler(i) & "%'"
    Else
        sql2 = sql2 & " OR kategori_kodu LIKE '%" & kategoriler(i) & "%'"
    End If
Next

sql2 = sql2 & ") LIMIT " & pageSize & " OFFSET " & offset


rs.Open sql2, SQLBag
%><?xml version="1.0" encoding="UTF-8"?>
<urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9" ><%Do While Not rs.EOF%>
    <url>
        <loc>https://<%=strdomain%>/<%=rs("ulke_kodu")%>/bizdetail/<%=lcase(domaineki)%>.<%=rs("kategori_kodu")%>/<%=rs("kod")%></loc>
        <lastmod><%=yil%>-<%
        if len(ay)=1 Then
        response.write "0"&ay
        else
        response.write ay
        end if
        %>-<%
        if len(gun)=1 Then
        response.write "0"&gun
        else
        response.write gun
        end if
        %></lastmod>
        <changefreq>daily</changefreq>
        <priority>0.9</priority>
    </url><%
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
SQLBag.Close
Set SQLBag = Nothing
%>
</urlset>

merhaba yardımcı olabilirim