footer.ascx

This is a book about vb.you could learn this from this book

<%@ Control Language="VB" %>

<script language="VB" runat="server">

   Sub Page_Load(sender As Object, e As EventArgs)
      ar1.AdvertisementFile = "../xml/ads.xml" 
   End Sub
   
</script>

<table width=100% cellpadding=0 cellspacing=0>
  <tr>
    <td>

      <hr SIZE=4 width=100%>

      <br>


      <center>

 <asp:AdRotator id="ar1" runat="server"
   BorderWidth="1"
/><P>

      </center>

    </td>
  </tr>
  <tr><td align=center><font size=1> <asp:HyperLink NavigateURL="http://www.wrox.com/News/viewReview.asp?art_type=fea&id=355" Text="&copy;2000 IBuyAdventure Ltd." runat="server" /> </font> </td> </tr>

  <tr><td><BR><center><font size=1>Page Last Generated : <%= DateTime.Now.ToString() %> </td></tr>
</table>