Hola,
FUNCTION GenerarSitemap()
Dim FSO
DIm fSitemap
Dim sfile as string
Dim Datos as ( un datareader o lo que quieras )
Dim reg As Regex
fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists("C:\ruta_donde_guardas_el_sitemap\s itenew.xml") then
fso.DeleteFile( "C:\ruta_donde_guardas_el_sitemap\sitenew.xml",tru e )
end if
fSitemap = fso.CreateTextFile("C:\ruta_donde_guardas_el_sitem ap\sitenew.xml", True)
fSitemap.writeline( "<?xml version='1.0' encoding='iso-8859-1' ?>" )
fSitemap.writeline( " <urlset xmlns='http://www.sitemaps.org/schemas/sitemap/0.9'>" )
Datos = ConsultaBBDD( "SELECT ... FROM ..." )
WHILE Datos.read
fSitemap.writeline( " <url>" )
fSitemap.writeline( " <loc>" & "http://www. dominio.com/" & Replace( reg.Replace( datos(1), "[^\w ]", " " ), " ", "_") & ".html" & "</loc>" )
fSitemap.writeline( " <lastmod>fechay hora</lastmod>" )
fSitemap.writeline( " <priority>prioridad</priority>" )
fSitemap.writeline( " </url>" )
END WHILE
datos.close
fSitemap.writeline( " </urlset>" )
fSitemap.close()
FSO = nothing
END FUNCTION
Cuando generes el sitemap nuevo, que supongo que lo pingearás a los buscadores desde un script, métele sólo las páginas nuevas, no todo el sitio completo.
Un saludo