If Parser.Parents.IndexOf("event") > -1 Then
If Name = "title" Then
fyrsti_titill = Text.ToString
Else If Name = "original-title" Then
seinni_titill = Text.ToString
End If
End If
If Name = "event" Then
RSS.AddTwoLines2(fyrsti_titill, seinni_titill, seinni_titill)
End If
ProgressDialogHide