Use of adrotator in asp.net counting number of clicks on banner ad

<?xml version="1.0" encoding="utf-8" ?>
<Advertisements>
  <Ad>
    <!-- The URL for the ad image -->
    <ImageUrl>images/a1.bmp</ImageUrl>
    <!-- The URL the ad redirects the user to -->
    <NavigateUrl>http://www.microsoft.com</NavigateUrl>
    <!-- The alternate text for the image -->
    <AlternateText>Visit Microsoft's Site</AlternateText>
    <!-- The relative number of times this ad should appear -->
    <!-- compared to the others -->
    <Impressions>80</Impressions>
    <!-- The topic of this ad (used for filtering) -->
    <Keyword>ProductInfo</Keyword>
  </Ad>
  <Ad>
    <ImageUrl>images/a2.bmp</ImageUrl>
    <NavigateUrl>http://www.microsoft.com/technet</NavigateUrl>
    <AlternateText>Support for IT Professionals</AlternateText>
    <Impressions>40</Impressions>
    <Keyword>Support</Keyword>
  </Ad>
  <Ad>
    <ImageUrl>images/a3.bmp</ImageUrl>
    <NavigateUrl>http://msdn.microsoft.com</NavigateUrl>
    <AlternateText>Support for developers</AlternateText>
    <Impressions>40</Impressions>
    <Keyword>Support</Keyword>
  </Ad>
</Advertisements>

Partial Class adsforyou
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object,_
 ByVal e As System._
EventArgs) Handles Me.Load
        Try
            Dim strAdPath As String

            'Get the URL to navigate to.
            strAdPath = Request.QueryString(_
"Adpath")

            'Log the ad click to a text file 
(you can use a database).
            Dim AdFile As New IO.FileInfo
(Server.MapPath("AdResponse.txt"))
            Dim AdData As IO.StreamWriter
            AdData = AdFile.AppendText
            AdData.WriteLine(Now().ToString & ": 
Ad clicked. 
Redirect to " & _
             strAdPath)
            AdData.Close()

            'Redirect the user to the ad URL.
            Response.Redirect_
(strAdPath)
        Catch ex As Exception
            ex.Message.ToString()
        End Try



    End Sub
End Class

Partial Class advertisehere
    Inherits System.Web.UI.Page

    Protected Sub AdRotator1_AdCreated_
(ByVal sender As Object,_
ByVal e As System.Web.UI.WebControls._
AdCreatedEventArgs)_
 Handles AdRotator1._
AdCreated
        e.NavigateUrl = "adsforyou.aspx?Adpath=" _
& e.NavigateUrl

    End Sub
End Class
'this will be advertisehere.aspx.vb