مشکل در خواندن RSS

[kavehshahedi 16]

درود

دوستان من طبق یکی از آموزش های سایت پیش رفتم ولی نمی دونم چرا نمی تونه RSS سایتی رو که میخوام بخونه... اگر میشه بگید که کجاش مشکل داره.

Sub Globals
Dim ht1 As HttpJob
Dim sax As SaxParser
Private ListView1 As ListView
Dim title,link,desc As String
Dim s1 As SQL
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("frm1")
ht1.Initialize("job1",Me)
If File.Exists(File.DirInternalCache,"rss.xml") = False Then
 ht1.Download("http://beheshtiha.ir/rss.xml")
End If
sax.Initialize
Try
 s1.Initialize(File.DirInternal,"rss.db",False)
 sax.Parse(File.OpenInput(File.DirInternal,"rss.xml"),"sax")
Catch
End Try
End Sub

Sub sax_EndElement (Uri As String, Name As String, Text As StringBuilder)
 If sax.Parents.IndexOf("item") > -1 Then
  If Name = "link" Then
   link = Text.ToString
  Else If Name = "title" Then
   title = Text.ToString
  Else If Name = "description" Then
   desc  = Text.ToString
  End If
 End If
  If Name = "item" Then
   s1.ExecNonQuery2("insert into news(sTitle,sLink,sDesc) values(?,?,?)",Array As Object(title,link,desc))
   ListView1.AddTwoLines(title,link & desc.SubString2(0,8))
  End If
End Sub

Sub JobDone(Job As HttpJob)
 If Job.Success = True Then
  File.Copy2(Job.GetInputStream,File.OpenOutput(File.DirInternalCache,"rss.xml",False))
  s1.Initialize(File.DirInternal,"rss.db",True)
  s1.ExecNonQuery("create table news(sTitle TEXT,sLink TEXT,sDesc TEXT)")
 Else
  Log(LastException.Message)
 End If
End Sub

با تشکر

[Kazem Forghani 2,928]

سلام

این یه سورس هست ممکنه کارتون راه بیفته : http://s3.picofile.com/file/8196707176/khbar_khan.rar.html