سیستم RSS

[matin63]

سلام من کدای زیرو وارد کردم ولی توی google reader به این شکل خبرام رو نشون میده!

مرثيه اي بر کا٠ه کتابها ... ! پاتوقهاي ٠رهنگي مشهد کجا هستند ؟!http://www.google.com/reader/ui/2412528845-go-to.gif (http://mashhadpress.com/editorial.aspx?id=2)

from mashhadpress (http://www.google.com/reader/view/feed/http%3A%2F%2Fmashhadpress.com%2Frss.xml)
کا٠ه کتاب آنقدرها هم که گمان مي کنيم عنوان غريبي نيست. تاريخ و ٠رهنگ ايران از دهه هاي بيست و سي با اينگونه مکانها و ٠ضاها عجين شده است. زمانيکه گروهي درکا٠ه ها يا مکانهاي اينچنيني جمع شده و به تبادل ا٠کار مي پرداختند.شاعر ان،نويسندگا� �� و روشن٠کران امثال نيما يوشيج،صادق هدايت،٠روغ ٠رخزاد و... پاتوقهاي مشخصي داشتند براي گذراندن اوقات و بحث و تبادل انديشه.




کدای من به این شکله
ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
Create_RSS()
EndSub
Sub Create_RSS()
Dim DBCommand As SqlCommand
Dim DBReader As SqlDataReader
Dim SQLString AsString
Dim FileWriter As StreamWriter
Dim DBConnection AsNew Data.SqlClient.SqlConnection(strcon)
DBConnection.Open()
SQLString = "SELECT top 3 * FROM vahed"
DBCommand = New SqlCommand(SQLString, DBConnection)
DBReader = DBCommand.ExecuteReader()
FileWriter = File.CreateText(MapPath("RSS.xml"))
FileWriter.WriteLine("<rss version=""2.0"" encoding=""utf-8"">")
FileWriter.WriteLine("<channel>")
FileWriter.WriteLine("<title>press</title>")
FileWriter.WriteLine("<link>http://press.com</link>")
FileWriter.WriteLine("<description>news</description>")
While DBReader.Read()
FileWriter.WriteLine("<item>")
Session("idnew") = DBReader("id")
FileWriter.WriteLine("<pubDate>" & DBReader("date1") & "</pubDate>")
FileWriter.WriteLine("<title>" & DBReader("titr") & "</title>")
FileWriter.WriteLine("<link>" & DBReader("adress") & "</link>")
Literal1.Text = DBReader("kholase")
Literal1.Text = Literal1.Text.Replace("</br>", Chr(13))
FileWriter.WriteLine("<description>" & Literal1.Text & "</description>")
FileWriter.WriteLine("</item>")
EndWhile
DBConnection.Close()
DBConnection.Open()
SQLString = "SELECT top 3 * FROM note"
Dim DBCommands As SqlCommand
DBCommands = New SqlCommand(SQLString, DBConnection)
DBReader = DBCommands.ExecuteReader()
While DBReader.Read()
FileWriter.WriteLine("<item>")
Session("idnote") = DBReader("id")
FileWriter.WriteLine("<pubDate>" & DBReader("date1") & "</pubDate>")
FileWriter.WriteLine("<title>" & DBReader("titr") & "</title>")
FileWriter.WriteLine("<link>" & DBReader("adress") & "</link>")
Literal2.Text = DBReader("kholase")
Literal2.Text = Literal2.Text.Replace("</br>", Chr(13))
FileWriter.WriteLine("<description>" & Literal2.Text & "</description>")
FileWriter.WriteLine("</item>")
EndWhile
DBConnection.Close()
DBConnection.Open()
SQLString = "SELECT top 3 * FROM news"
Dim DBCommands1 As SqlCommand
DBCommands1 = New SqlCommand(SQLString, DBConnection)
DBReader = DBCommands1.ExecuteReader()
While DBReader.Read()
Session("id1") = DBReader("id")
FileWriter.WriteLine("<item>")
FileWriter.WriteLine("<pubDate>" & DBReader("date1") & "</pubDate>")
FileWriter.WriteLine("<title>" & DBReader("titr") & "</title>")
FileWriter.WriteLine("<link>" & DBReader("adress") & "</link>")
Literal3.Text = DBReader("kholase")
Literal3.Text = Literal3.Text.Replace("</br>", Chr(13))
FileWriter.WriteLine("<description>" & Literal3.Text & "</description>")
FileWriter.WriteLine("</item>")
EndWhile
DBConnection.Close()
DBConnection.Open()
SQLString = "SELECT top 3 * FROM cofee"
Dim DBCommands2 As SqlCommand
DBCommands2 = New SqlCommand(SQLString, DBConnection)
DBReader = DBCommands2.ExecuteReader()
While DBReader.Read()
FileWriter.WriteLine("<item>")
Session("idnazar") = DBReader("id")
FileWriter.WriteLine("<pubDate>" & DBReader("date1") & "</pubDate>")
FileWriter.WriteLine("<title>" & DBReader("titr") & "</title>")
FileWriter.WriteLine("<link>" & DBReader("adress") & "</link>")
Literal4.Text = DBReader("kholase")
Literal4.Text = Literal4.Text.Replace("</br>", Chr(13))
FileWriter.WriteLine("<description>" & Literal4.Text & "</description>")
FileWriter.WriteLine("</item>")
EndWhile
FileWriter.WriteLine("</channel>")
FileWriter.WriteLine("</rss>")
FileWriter.Close()
DBReader.Close()
DBConnection.Close()
Response.Redirect("RSS.xml")
EndSub