Generar xml en asp

[politikaperu]

Amigos, tengo este código, funciona correctamente como sitemap.asp

<% dim rssarticulos, rssarticulos_numRows, rssarticulos__index,rssarticulos__numRows
set rssarticulos = Server.CreateObject("ADODB.Recordset")
rssarticulos.ActiveConnection = MM_connDUarticle_STRING
rssarticulos.Source = "SELECT ART_ID FROM ARTICLES WHERE ART_APPROVED=1 ORDER BY ART_ID DESC"
rssarticulos.CursorType = 0
rssarticulos.CursorLocation = 2
rssarticulos.LockType = 3
rssarticulos.Open()
rssarticulos_numRows = 0 %><?xml version="1.0" encoding="UTF-8"?>
<urlset xmlns="http://www.google.com/schemas/sitemap/0.84"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://www.google.com/schemas/sitemap/0.84
http://www.google.com/schemas/sitemap/0.84/sitemap.xsd">
<% While (NOT rssarticulos.EOF) %><url><loc>http://<%= Request.ServerVariables("SERVER_NAME")%><%=(getset ting(91,"url"))%><%=(getsetting(143,"url"))%><%=(r ssarticulos.Fields.Item("ART_ID").Value)%></loc></url><% rssarticulos__index=rssarticulos__index+1
rssarticulos__numRows=rssarticulos__numRows-1
rssarticulos.MoveNext()
Wend %></urlset><% rssarticulos.Close()
Set rssarticulos = Nothing %>

Necesito que sea sitemap.xml - cómo se puede hacer eso.
Gracias por sus sugerencias.