Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


        Response.Clear()
        Response.ContentType = "text/xml"
        Dim objX As New XmlTextWriter(Response.OutputStream, Encoding.UTF8)
        objX.WriteStartDocument()
        objX.WriteStartElement("rss")
        objX.WriteAttributeString("version", "2.0")
        objX.WriteAttributeString("xmlns:dc", "http://purl.org/dc/elements/1.1/")
        objX.WriteAttributeString("xmlns:sy", "http://purl.org/rss/1.0/modules/syndication/")
        objX.WriteStartElement("channel")
        objX.WriteElementString("title", "ARTISTIC.IT antiques collectibles")
        objX.WriteElementString("link", "http://www.artistic.it/rss.aspx")
        objX.WriteElementString("description", "ARTISTIC.IT Propone mobili arte e oggettistica ( quadri stampe vetro di murano ceramiche; del 700 800 900. In conto vendita pronti per l'uso e restaurati. Arte Povera Art decò liberty design. Only the best original Antiques from Venice Italy, Antique Furniture paintings murano glass ceramics lights.")
        objX.WriteElementString("dc:language", "IT-it")
        objX.WriteElementString("generator", "RSS Generated by Artistic.it")
        objX.WriteElementString("sy:updatePeriod", "hourly")
        objX.WriteElementString("sy:updateFrequency", "1")
        objX.WriteElementString("sy:updateBase", "14/10/2008 15.49.50")


        'Dim objConnection As New SqlConnection(ConfigurationSettings.AppSettings("MyConnectionString"))
        'objConnection.Open()



        Dim CodPag As String
        CodPag = "001"
        Dim sql As String = "select * from TB"
        Dim objCommand As New SqlCommand(sql, cdgft)
        Dim objReader As SqlDataReader = objCommand.ExecuteReader()


        While objReader.Read()
            objX.WriteStartElement("item")
            objX.WriteElementString("title", objReader.GetString(0))
            objX.WriteElementString("link", objReader.GetString(1))
            objX.WriteElementString("description", objReader.GetString(2))

            ' objX.WriteElementString("link", "http://www.artistic.it/GetArticle.aspx?id=" + objReader.GetInt32(2).ToString())
            'objX.WriteElementString("datainserimento", objReader.GetDateTime(4).ToString("R"))
            objX.WriteEndElement()
        End While



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

    End Sub