Asp ile sitemap.xml oluşturma

merhaba arkadaşlar yardımcı olacak arkadaşım var ise sevinirim.

asp ile oluşturmuş olduğum xml yapılı dosyada url yapısında bir sorun var . canlı url olarak aktarım yapmıyor. sebebi nedir acaba ?

 

kodlar aşağıda ;

 

<!--#include file="baglanti.asp"-->

<% 

dim strConn 

 strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/dbs.mdb")

 

dim objConn

set objConn = Server.CreateObject("ADODB.Connection")

 objConn.Open strConn 

 

dim objRs 

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

 objRs.CursorType = 0

 objRs.CursorLocation = 2

 objRs.LockType = 1

 

dim strSql 

 strSql = "SELECT * FROM Sayfalar"

 objRs.Open strSql, objConn, , , &H0001

 

if Not objRs.EOF then

 Response.ContentType = "text/xml"

 Response.Write "<?xml version=""1.0"" encoding=""iso-8859-9""?>" & vbNewLine

 Response.Write "<hizmetler>" & vbNewLine

do while Not objRs.EOF

Response.Write(vbCrLf &"<url>" & _

vbCrLf & "<loc> http://www.filanca.com /"& objRs("id") &"-"& Lcase(objRs("isim")) &".html</loc>" & _ 

"</url>")

 objRs.MoveNext

loop

 Response.Write "</hizmetler>" & vbNewLine

end if 

 objRs.Close

set objRs = Nothing

 objConn.Close

set objConn = Nothing

function fonkDuzenle(veri)

if IsNull(veri) then

 fonkDuzenle = ""

else

 strVeri = Replace(veri, chr(38), "&")

 strVeri = Replace(strVeri, Chr(34), """)

 strVeri = Replace(strVeri, chr(39), "'")

 strVeri = Replace(strVeri, chr(60), "<")

 fonkDuzenle = Replace(strVeri, chr(62), ">")

end if

end function

%>