<% Response.Buffer = True Response.Clear Response.CodePage = 65001 Response.CharSet = "utf-8" Response.ContentType = "application/xml" Dim baseUrl baseUrl = SitemapSiteUrl() Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & SitemapXmlEscape(baseUrl & "/sitemap-pages.xml") & "" & vbCrLf Response.Write " " & SITEMAP_FALLBACK_LASTMOD & "" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & SitemapXmlEscape(baseUrl & "/sitemap-posts.xml") & "" & vbCrLf Response.Write " " & SITEMAP_FALLBACK_LASTMOD & "" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & SitemapXmlEscape(baseUrl & "/sitemap-categories.xml") & "" & vbCrLf Response.Write " " & SITEMAP_FALLBACK_LASTMOD & "" & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & SitemapXmlEscape(baseUrl & "/sitemap-tags.xml") & "" & vbCrLf Response.Write " " & SITEMAP_FALLBACK_LASTMOD & "" & vbCrLf Response.Write " " & vbCrLf Response.Write "" & vbCrLf Response.End %>