Historical METAR Sample Code

<%@ Page Title="METAR Sample Data" Language="vb" AutoEventWireup="false" MasterPageFile="~/samples/sample.master" CodeBehind="metars.aspx.vb" Inherits="www.aviationwebdesign.co.uk.metars1" %>
<%@ Register Src="~/web_user_controls/weatherdata.ascx" TagPrefix="awd" TagName="weather" %>
<%@ MasterType TypeName="www.aviationwebdesign.co.uk.sample1" %>
<asp:Content ID="Content1" ContentPlaceHolderID="head" runat="server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" runat="server">
    ICAO Code:<asp:TextBox ID="txtICAO" runat="server" Columns="4"></asp:TextBox>
    <asp:Button ID="Button1" runat="server" Text="Submit" />
    <awd:weather runat="server" id="MetarDetails" />
    <div class="disclaimer">Not for Operational Use.</div>
</asp:Content>

Public Partial Class metars1
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim loMETARS As New AvBrowserBusObj.CMetars
        Dim lsICAO As String
        Dim lidays As Integer
        Dim libackdays As Integer
        Dim ldDate As Date

        'Get Parameters
        lsICAO = Master.ICAO
        ldDate = Master.OnDate
        libackdays = Master.BackDays

        'Go Back As Many Days As Necessary, Populate without Clearing
        For liDays = liBackDays To 0 Step -1
            loMETARS.Populate(lsICAO, ldDate.AddDays(-lidays))
        Next

        'Display The ICAO Identifier
        Master.Header = "Metars For " & lsICAO

        'Fill in the Repeater with the acquired Data
        Repeater1.DataSource = loMETARS
        Repeater1.DataBind()

    End Sub

End Class