External Links page

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic



<%@ Page Language="VB" %>

<%@ Import Namespace="System.IO" %>

<script runat="server">


    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

    Dim FilePath As String = Server.MapPath(Request.QueryString("page"))


    If Path.GetExtension(FilePath).ToLower = ".html" or _

    Path.GetExtension(FilePath).ToLower = ".htm" Then


    Dim sr As StreamReader


    Try

    sr = New StreamReader(FilePath)

    Catch ex As Exception

    litArticle.Text = "<b>Error:</b> " & ex.Message

    Exit Sub

    End Try


    litArticle.Text = sr.ReadToEnd()


    sr.Close()

    End If

    End Sub


</script>

<html>

<head>

</head>

<body>

    <form runat="server">

        <h1>View Article

        </h1>

        <h1><font size="3">Here is the article you requested:</font>

        </h1>

        <p>
 
         &nbs p; 
<asp:Literal id="litArticle" runat="server"></asp:Literal>

        </p>

    </form>

</body>

</html>