Ciao a tutti io ho questo codice nella mia pagina aspx.vb che mi dovrebbe creare in automatico un file xml per gli rss, cosa non va bene?Mi da errore

Response.Clear()
Response.ContentType = "text/xml"
Dim objX As New System.Xml.XmlTextWriter(Response.OutputStream, Encoding.UTF8)
objX.WriteStartDocument()
objX.WriteStartElement("rss")
objX.WriteAttributeString("version", "2.0")
objX.WriteStartElement("channel")
objX.WriteElementString("title", "www.imillepiedi.it Il Blog di Cava dè Tirreni")
objX.WriteElementString("description", "La voce di Cava dè Tirreni, ora anche tu puoi dire la tua!")
objX.WriteElementString("language", "it-IT")
objX.WriteElementString("link", "http://www.imillepiedi.it")
objX.WriteElementString("lastBuildDate", Date.Now())
objX.WriteElementString("pubDate", Date.Now())
objX.WriteElementString("webMaster", "7Web www.setteweb.it")
objX.WriteEndElement()
objX.WriteEndElement()
objX.WriteEndElement()
objX.WriteEndElement()
objX.WriteEndElement()
objX.WriteEndElement()
objX.WriteEndElement()

strsql = "Select top 5 Post.*, Categorie.id_categoria, Categorie.categoria From Post, Categorie where Categorie.id_categoria=Post.id_categoria order by data desc"
cmdSql = New OleDbCommand(strsql, conn)
rs = cmdSql.ExecuteReader()
Do While rs.Read



objX.WriteElementString("item", "")
objX.WriteElementString("title", rs("titolo"))
objX.WriteElementString("link", "http://www.imillepiedi.it?id_post=" & rs("id_post"))
objX.WriteElementString("description", rs("contenuto"))
objX.WriteElementString("pubDate", rs("data"))
objX.WriteEndElement()
objX.WriteEndElement()
objX.WriteEndElement()
objX.WriteEndElement()
objX.WriteEndElement()

Loop

objX.WriteEndDocument()
objX.Flush()
objX.Close()
Response.End()