MapForums

        Dim objApp As MapPoint.Application
        Dim objMap As MapPoint.Map
        Dim objLoc As MapPoint.Location
        Dim objPin() As MapPoint.Pushpin

        Dim objActive 'As Active Map

        Dim strDisplay
        Dim INI_File_Location
        Dim Temporary_Variable1
        Dim Temporary_Variable2

        Const geoFormatHTMLMap = 2
        Const geoDisplayName = 1
        Const geoDisplayBalloon = 2

        Dim PointA As String
        Dim PointB As String


        'On Error Resume Next

        PointA = txtPointA.Text '"Accrington"
        PointB = txtPointB.Text '"Oban"

        If (PointA <> "") And (PointB <> "") Then

            strDisplay = Request.Item("display")

            If strDisplay = "" Then strDisplay = "none"

[b]            objApp = CreateObject("MapPoint.Application")[/b]            objMap = objApp.NewMap