Jag har nu kyckats göra en databasdriven RSS. Det är en sak som inte fungerar, och det är att jag vill ha med loggan i RSS. Jag får inte detta att fungera, är det någon som kan se vad jag har gjort fel?

<code>
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Response.Clear()
Response.ContentType = "text/xml"
Dim objX As New XmlTextWriter(Response.OutputStream, Encoding.UTF8)
' Declare Elements that will be in the XML file...
objX.WriteStartDocument()
objX.WriteStartElement("rss")
objX.WriteAttributeString("version", "2.0")
objX.WriteStartElement("channel")
objX.WriteElementString("title", "SportScout.com")
objX.WriteElementString("link", "SÖKVÄG")
objX.WriteElementString("description", "Alltid det senaste i sportvärlden")
objX.WriteElementString("ttl", "5")

' DENNA DEL FUNGERAR INTE!!!!
objX.WriteStartElement("image")
objX.WriteElementString("url", "SÖKVÄG TILL LOGGAN")
objX.WriteElementString("title", "SportScout.com")
objX.WriteElementString("link", "SÖKVÄG")
objX.WriteEndElement()
' HÄRIFRÅN FUNGERAR DET!!!!

' Declare variables to database connection...
Dim objConXML As New OleDbConnection
Dim sqlXML As String

'Database coonnection and get data from data base...
objConXML = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & (Server.MapPath("news.mdb")))
objConXML.Open()
sqlXML = "SELECT TOP 10 NewsID, Header, ingress, InDate, Writer, Link FROM News ORDER BY InDate DESC"
Dim cmdXML As New OleDbCommand(sqlXML, objConXML)
Dim readXML As OleDbDataReader = cmdXML.ExecuteReader

'Building the XML-file...
While readXML.Read
objX.WriteStartElement("item")
objX.WriteElementString("title", readXML.GetString(1))
objX.WriteElementString("description", readXML.GetString(2))
objX.WriteElementString("link", "SÖKVÄG?id=" + readXML.GetInt32(0).ToString())
objX.WriteElementString("pubDate", readXML.GetString(3))
objX.WriteEndElement()
End While

'Clean up...
readXML.Close()
objConXML.Close()

'Close the XML-file...
objX.WriteEndElement()
objX.WriteEndElement()
objX.WriteEndDocument()
objX.Flush()
objX.Close()
Response.End()
End Sub
</code>

Det fungerar, jag hade glömt att ladda upp bin-filen!