<%--
   asp code Generated by Basic Processor
   Original Page Name: C:\gmTestBed\FMStocks\src\FMSWeb\ASP\_version.asp
--%>

<%@ Page language="VB" explicit="true" CodeBehind="_version.aspx.vb" Inherits="FMSWeb.__version" %>

<%
   HttpContext.Current.Response.Buffer = True
%>
<html>
<head>
<% _t_head1.Author_Markup() %>

	<title>Show Version Info</title>
</head>
<body>
<% _t_begin1.Author_Markup() %>


<%
   If (Err.Number <> 0) Then
      HttpContext.Current.Response.Write("<p class=abort>Unable to instantiate FMStocks middle-tier objects.</p>")
      HttpContext.Current.Response.Write("<p class=abort>" & Err.Description & "</p>")
      HttpContext.Current.Response.End()
   End If
%>
<h2>FMStocks Version 2000 SP2 (February 21, 2001)</h2>
<h2>Connection String</h2>
<p>
To see your database connection string, rename the file _version.txt to _version.aspx
</p>
<h2>File Versions</h2>
<p>
<%
   str = bus.DALVersion()
   _t_head1.rwbr(pair("FMStocks_DB Version=",str))
   str = bus.AppVersion()
   _t_head1.rwbr(pair("FMStocks_Bus Version=",str))
%>
</p>
<h2>Computer name</h2>
<%
   str = bus.DALComputerName()
   _t_head1.rwbr(pair("Executing DAL components on=",str))
   str = bus.ComputerName()
   _t_head1.rwbr(pair("Executing BLL components on=",str))
%>
<p>
<h2>Account ID</h2>
<%
   If (_t_head1.g_AccountID = 0) Then
      _t_head1.rwbr("You are not logged in.")
   Else
      _t_head1.rwbr(pair("AccountID=",_t_head1.g_AccountID))
   End If
%>
</p>
<br>
<% _t_end1.Author_Markup() %>

</body>
</html>
