Mysql den veri çekerek sitemap yapma (Asp İle)

<%
set veri=Server.CreateObject("ADODB.Connection")
dsn="Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=db;Uid=root;Pwd=;"
veri.open dsn

function trsil(veri)
veri = Replace (veri ,"ç","c",1,-1,1)
veri = Replace (veri ,"ğ","g",1,-1,1)
veri = Replace (veri ,"İ","i",1,-1,1)
veri = Replace (veri ,"ı","i",1,-1,1)
veri = Replace (veri ,"ş","s",1,-1,1)
veri = Replace (veri ,"ö","o",1,-1,1)
veri = Replace (veri ,"ü","u",1,-1,1)
veri = Replace (veri ,"Ü","U",1,-1,1)
veri = Replace (veri ,"Ç","c",1,-1,1)
veri = Replace (veri ,"Ğ","g",1,-1,1)
veri = Replace (veri ,"Ş","s",1,-1,1)
veri = Replace (veri ,"Ö","o",1,-1,1)
veri = Replace (veri ,"(","",1,-1,1)
veri = Replace (veri ,")","",1,-1,1)
veri = Replace (veri ,"&","",1,-1,1)
veri = Replace (veri ,"?","",1,-1,1)
veri = Replace (veri ,"’","",1,-1,1)
veri = Replace (veri ,"'","",1,-1,1)
veri = Replace (veri ,",","",1,-1,1)
veri = Replace (veri ,chr(10),"",1,-1,1)
trsil=lcase(veri)
end function

function guvenlik(veri)
veri = Replace (veri ,"`","",1,-1,1)
veri = Replace (veri ,"=","",1,-1,1)
veri = Replace (veri ,"&","",1,-1,1)
veri = Replace (veri ,"%","",1,-1,1)
veri = Replace (veri ,"!","",1,-1,1)
veri = Replace (veri ,"#","",1,-1,1)
veri = Replace (veri ,"<","",1,-1,1)
veri = Replace (veri ,">","",1,-1,1)
veri = Replace (veri ,"*","",1,-1,1)
veri = Replace (veri ,"\","",1,-1,1)
veri = Replace (veri ,"'","",1,-1,1)
veri = Replace (veri ,"^","",1,-1,1)
veri = Replace (veri ,"?","",1,-1,1)
veri = Replace (veri ,"+"," ",1,-1,1)
veri = Replace (veri ,Chr(10),"<br>",1,-1,1)
guvenlik=veri
end function
%>

Genişletmek için tıkla ...

<?xml version="1.0" encoding="ISO-8859-9" ?>
<urlset xmlns="http://www.google.com/schemas/sitemap/0.84">
<!--#include file="veritabani.asp"-->
<%
ay= Month(Date)
gun = Day(Date)
if ay<=9 then
ay="0"&ay
end if
if gun<=9 then
gun="0"&gun
end if
Tarih = Year(Date) & "-" & ay & "-" & gun
%>
<%
set rs = veri.execute("Select veri1,veri2 from dbtablo where onay =0 order by id desc limit 0,2000")
do while not rs.eof

%>
<url>
<loc>http://www.siteadresim.com/<%=trsil(replace(trim(rs("veri1"))," ","+"))%>/<%=trsil(replace(trim(rs("veri2"))," ","-",1,-1,1))%>.html</loc>
<lastmod><%=Tarih%></lastmod>
<changefreq>Daily</changefreq>
<priority>0.8</priority>
</url>
<%
rs.MoveNext
Loop
rs.Close
%></urlset>

Genişletmek için tıkla ...

EsrimE' Alıntı:

nasıl olcak bu?

Genişletmek için tıkla ...