Displaying Ads from Mysql Database in Ad Rotator -VB.NET

See more:

ASP.NET4

how to display ads using mysql database in ad-rotator in vb.net . I am using data reader but , it only show one ad , no changing , also used data set with data adapter ,but error . Waiting For Solution.....

code:

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

    End Sub

Protected Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       AdRotator1.DataSource = r
       AdRotator1.DataBind()
   End Sub

Public Sub ad()

        cn.ConnectionString = "server=localhost; user id=root; password=; database=dc"
        cn.Open()
        s = "select * from ad"
        cd = New MySqlCommand(s, cn)
        'da.SelectCommand = cd
        'da.Fill(dt)
        r = cd.ExecuteReader()
        r.Read()

        AdRotator1.DataSource = r
        AdRotator1.ImageUrlField = "ImageUrl"
        AdRotator1.NavigateUrlField = "NavigateUrl"
        AdRotator1.AlternateTextField = "AlternateText"
        AdRotator1.DataBind()
        cn.Close()


    End Sub

On Page:


<asp:ScriptManager ID="ScriptManager1" runat="server">

<asp:Timer ID="Timer1" runat="server" Interval="3000">

<asp:UpdatePanel ID="UpdatePanel9" runat="server">
                                            <Triggers >
                                            <asp:AsyncPostBackTrigger ControlID="Timer1" EventName ="Tick" />
                                            </Triggers>
                                                <ContentTemplate>
                                                    <asp:AdRotator ID="AdRotator1" runat="server" />
                                                </ContentTemplate>
                                            </asp:UpdatePanel>