<%@ Language=VBScript %>
<% Option Explicit %>
<% Response.Buffer = true%>
<HTML>
<HEAD>
	<!--#include file="t_head.asp"-->
	<TITLE>Show Version Info</TITLE>
</HEAD>
<BODY>
<!--#include file="t_begin.asp"-->
<OBJECT RUNAT=server PROGID=FMStocks_Bus.Version id=bus> </OBJECT>
<%
dim str

if err.number <> 0 then
	Response.Write("<p class=abort>Unable to instantiate FMStocks middle-tier objects.</p>")
	Response.Write("<p class=abort>" & Err.description & "</p>")		
	Response.End
end if
%>

<h2>FMStocks Version 2000 SP2 (February 21, 2001)</h2>
<h2>Connection String</h2>
<%
str = bus.DALConnectionString()
rwp(pair("Default Connection String:<br>", str))
%>

<h2>File Versions</h2>
<p>
<%
str = bus.DALVersion()
rwbr(pair("FMStocks_DB Version=", str))

str = bus.Version()
rwbr(pair("FMStocks_Bus Version=", str))
%>
</p>

<h2>Computer name</h2>
<%
str = bus.DALComputerName()
rwbr(pair("Executing DAL components on=", str))

str = bus.ComputerName()
rwbr(pair("Executing BLL components on=", str))
%>

<p>
<h2>Account ID</h2>
<%
if g_AccountID = 0 then
	rwbr("You are not logged in.")
else
	rwbr(pair("AccountID=", g_AccountID))
end if
%>
</p>
<br>
<%
function pair(item, value)
	pair = item & "<b>" & value & "</b>"
end function
%>

<!--#include file="t_end.asp"-->
</body>
</HTML>
