RetroMap Code Sample

<%@ Page Title="RetroMap" Language="vb" AutoEventWireup="false" MasterPageFile="~/samples/sample.master" CodeBehind="retroMap.aspx.vb" Inherits="www.aviationwebdesign.co.uk.retroMap1" %>
<asp:Content ID="Content1" ContentPlaceHolderID="head" runat="server">
<meta name="robots" content="index, nofollow" />
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" runat="server">
    <asp:Label ID="lblOldHTL" runat="server"  ></asp:Label>
</asp:Content>

Imports AWDCommon

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

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim loRetroMap As New AWDCommon.WebSupport.RetroMap
        Dim loPage As AWDCommon.WebSupport.RetroMapEntry

        'Setup the Containing Tags
        loRetroMap.StartTag = "<table class=""tblBodyContent"" >"
        loRetroMap.EndTag = "<!-- InstanceEndEditable -->"

        'Create An instance of the Page Object
        loPage = loRetroMap.NewPage
        loPage.oldpage = "http://www.griffin-helicopters.co.uk/index.asp"

        'Download from the site
        loPage.GetHTML(WebSupport.RetroMapEntry.efromWhere.eLiveSite)

        loPage.PreProcess()
        loPage.PostProcess()

        'Display on the sample page.
        lblOldHTL.Text = loPage.HTML

    End Sub

End Class