• 20-10-2010, 15:32:01
    #1
    bu kaynagı r10'dan buldum. FSO ile sitemap.xml oluşturmaya çalışmış arkadaşlar ama kendime göre ayarladığım zaman şu şekilde hata alıyorum.

    Alıntı
    ADODB.Fields hata '800a0cc1'

    Öðe, istenen ad veya sýra sayýsý ile iliþkili derleme içinde bulunamýyor.

    /sitemap.asp, line 7
    Alıntı
    <!--#include file="baglanti.asp"--><head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
    </head><%
    sitemapbasi = 100

    dosyasay = db.execute("select count(id) from haber")
    dosyasayisi=dosyasay("dosyasayisi")
    dosyasay.close
    set dosyasay = nothing

    Set FSO = Server.CreateObject("Scripting.FileSystemObject")

    FSO.createTextFile Server.Mappath("sitemap.xml")
    set haritadizin = FSO.openTextFile(Server.MapPath("sitemap.xml"),2,0 )

    veri="<?xml version=""1.0"" encoding=""UTF-8""?>"
    veri=veri&"<sitemapindex xmlns=""http://www.sitemaps.org/schemas/sitemap/0.9"">"

    for L = 1 to round(dosyasayisi/sitemapbasi)
    veri=veri&"<sitemap><loc>http://localhost/sitemap"&L&".xml</loc></sitemap>"
    next
    haritadizinveri=veri&"</sitemapindex>"
    haritadizin.write(haritadizinveri)

    haritadizin.close
    set haritadizin = nothing

    '---------------------------------------- Buraya kadar site haritası dizinimizi oluşturduk.

    for T = 1 to round(dosyasayisi/sitemapbasi)

    FSO.createTextFile Server.Mappath("sitemap"&T&".xml")
    set harita = FSO.openTextFile(Server.MapPath("sitemap"&T&".xml" ),2,0)

    haritaveri="<?xml version=""1.0"" encoding=""UTF-8""?>"
    haritaveri=haritaveri&"<urlset xmlns=""http://www.sitemaps.org/schemas/sitemap/0.9"">"

    set haber = Server.CreateObject("Adodb.Recordset")
    sutun = "select * from haber order by id desc"
    dosyalar.open sutun,db,1,3
    dosyalar.move (sitemapbasi*(T-1))

    do while not dosyalar.eof
    haritaveri=haritaveri&"<url><loc>http://localhost/sitemap.asp?id="&dosyalar("id")&"</loc></url>"
    dosyalar.movenext
    loop
    dosyalar.close
    set dosyalar = nothing

    haritaveri=haritaveri&"</urlset>"
    harita.write(haritaveri)

    harita.close
    set harita = nothing
    next

    set FSO = nothing
    %>

    İşlem Tamamlanmıştır! Aşağıdaki site haritaları oluşturulmuş ve <a href="sitemap.xml"><u>Site Haritası Dizini</u></a> içerisine eklenmiştir.<br>
    <%
    for sayi = 1 to round(dosyasayisi/sitemapbasi)
    %><br>
    <a href="sitemap<%=sayi%>.xml"><u>Sitemap <%=sayi%></u></a>
    <%
    next
    %>
  • 20-10-2010, 15:44:31
    #2
    Üyeliği durduruldu
    fso ile niye oluşturmaya çalışıyosun ki anlayamadım. sitemap.asp yap içine döngüyle verileri bas. 404 sayfana sitemap.xml yazınca sitemap.asp göstersin. oldu bitti
  • 20-10-2010, 18:08:51
    #3
    Üyeliği durduruldu
    örnek: haber kategorilerini sıraladım

    Alıntı

    <?xml version="1.0" encoding="UTF-8"?>
    <!-- #include file="Ayarlar.asp" -->

    <%
    Response.ContentType = "text/xml"
    %>
    <urlset
    xmlns="http://www.sitemaps.org/schemas/sitemap/0.9"
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xsi:schemaLocation="http://www.sitemaps.org/schemas/sitemap/0.9
    http://www.sitemaps.org/schemas/sitemap/0.9/sitemap.xsd">
    <%
    Set rs=Server.CreateObject("ADODB.Recordset")
    sql="SELECT * FROM man_haber_kat ORDER BY id DESC"
    rs.open sql,Bag,1,3
    If Not rs.Eof Then
    Do While Not rs.Eof
    %>
    <url>
    <loc><%=SiteUrl%>/kategori/<%=rs("id")%>/<%=SEO(rs("baslik"))%>.html</loc>
    <changefreq>daily</changefreq>
    <priority>1.00</priority>
    </url>
    <%
    rs.MoveNext : Loop
    End If
    rs.close : Set rs=Nothing
    %></urlset>
  • 20-10-2010, 19:32:15
    #4
    bilgi için teşekkür ederim. birden fazla katagoriyi almak istiyorsak hespine ayri bir recor setmi oluşturmak gerekli ?


    Mesela haberler,bizdenhaber,kampanya vs.
  • 20-10-2010, 20:21:25
    #5
    Üyeliği durduruldu
    bu listelemeyi yapınca zaten kategoriler tablosunu komple listeliyor
  • 20-10-2010, 20:30:39
    #6
    hocam listelemeyi yapıyorum ama sadece haber tablomun içindekiler geliyor, kampanya,bizdenhaberler vs gelmiyor....

    Alıntı
    Set rs=Server.CreateObject("ADODB.Recordset")
    sql="SELECT * FROM haber ORDER BY id DESC"
  • 20-10-2010, 20:49:26
    #7
    Üyeliği durduruldu
    1 tane döngü var burda ne secersen o listelenir, sen aynısını kopyalayıp aşşağı yapıştırırsan ve sql sorgusunu değişirsen bi başka tablo içeriğini daha listeleyebilirsin
  • 20-10-2010, 21:04:51
    #8
    ShekerChi adlı üyeden alıntı: mesajı görüntüle
    1 tane döngü var burda ne secersen o listelenir, sen aynısını kopyalayıp aşşağı yapıştırırsan ve sql sorgusunu değişirsen bi başka tablo içeriğini daha listeleyebilirsin
    öyle yaptım zatende insert into metodu varmış sanırım nette bakarken gördüm. onla denemeye çalıştım.

    bu arada yardımların için çok teşekkür ederim.
  • 20-10-2010, 22:31:06
    #9
    yahu seviyorum ben bu şekerci çocuğu çok yardımsever