script asp para sitemap google

[Jhon Silver]

Estoy buscando un script en asp para insertarlo dentro del servidor, de manera que genere el sitemap para google. Seria para archivos con y sin informacion de base de datos.
¿Alguna sugerencia para crearlo o algun sitio donde poder descargarlo?

[RBZ]

Tema trasladado desde sugerencias SEO

[santiagoanuncios]

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