Şimdi Ara

rss.asp Görüntüleme Sorunu

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir (1 Mobil) - 1 Masaüstü,

1 Mobil

5 sn

1
Cevap

0
Favori

323
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

RSS içeriği paylaştığım xml kodlamalı rss.asp dosyası, bir hostingde sorun yaratmadan çalışıyorken, başka bir hostingde aşağıdaki hata mesajını veriyor ve hiç bir şekilde rss okuycuları bilgi çekemiyor bu dosyadan. Sorunu hosting firmasına aktardığında da kendilerinden kaynaklı bir teknik sorun olmadığını yazılımsal bir problem yaşamış olabileceğimi savunuyor. Fakat aynı kod başka bir hosting de çalışıyor...

Bu tür bir sorunu tecrübe etmiş arkadaşlar var ise, çözüm önerilerine çok ihtiyacım var.
Şimdiden teşekkür ederim,

--------------
KARŞILAŞILAN HATA MESAJI:

This page contains the following errors:

error on line 26 at column 69: Extra content at the end of the document
Below is a rendering of the page up to the first error.

-----------------------
RSS.ASP DOSYASI KODLAMASI.

<?xml version="1.0" encoding="windows-1254" ?>







<%
Response.Buffer = True
Response.ContentType = "text/xml"

intKategoriID = Temizle(Request.Querystring("katid"))

strVersiyon = Temizle(Request.Querystring("tur"))
SQL = "SELECT * FROM tblHaberler WHERE kategori <> "& intKoseYazilari &" AND durum="& strDBTrue &" AND onay="& strDBTrue
If intKategoriID <> "" AND IsNumeric(intKategoriID) Then SQL = SQL & " AND kategori = "& CInt(intKategoriID)
SQL = SQL & " ORDER BY tarih DESC"
%>
<rss version="2.0">
<channel>
<title><%=Temizle(strSiteAdi)%></title>
<link><%=strSiteAdresi%></link>
<description><%=strAciklama%></description>
<language>tr</language>
<%
kdGenel.Open SQL, adoCon, 1, 3
i = 0
Do While i =< 20 And Not kdGenel.Eof
Link = LinkVer("haber",kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))
Link = Mid(Link, Len(strScriptYolu), Len(Link))
Response.Write "<item>"
Response.Write "<title>" & kdGenel("baslik") & "</title>"
Response.Write "<link>"& strSiteAdresi & Link &"</link>"
Response.Write "<description>"& Temizle(kdGenel("ozet")) &"</description>"
Response.Write "</item>"

i = i + 1
kdGenel.MoveNext
Loop

kdGenel.Close
%></channel></rss>