'' asp code Generated by Basic Processor
'' Original Page Name: C:\gmTestBed\FMStocks\src\FMSWeb\ASP\t_begin.asp

Imports System.Web
NameSpace FMSWeb
Public Class _t_begin
   Public _t_head1 As FMSWeb._t_head

   Public Sub Include_Load(_t_head_Page As FMSWeb._t_head )

      _t_head1 = _t_head_Page
   End Sub
   Public Sub Author_Markup()
      HttpContext.Current.Response.Write("<table border='0' cellpadding='0' cellspacing='0'>" & vbCrLf)
      HttpContext.Current.Response.Write("	<tr>" & vbCrLf)
      HttpContext.Current.Response.Write("		<td bgcolor='#006699'>" & vbCrLf)
      HttpContext.Current.Response.Write("			<img src='images/spacer.gif' width='188' height='1'></td>" & vbCrLf)
      HttpContext.Current.Response.Write("		<td bgcolor='#006699'>" & vbCrLf)
      HttpContext.Current.Response.Write("			<img src='images/spacer.gif' width='312' height='1'></td>" & vbCrLf)
      HttpContext.Current.Response.Write("		<td bgcolor='#006699'>" & vbCrLf)
      HttpContext.Current.Response.Write("			<img src='images/spacer.gif' width='204' height='1'></td>" & vbCrLf)
      HttpContext.Current.Response.Write("	</tr>" & vbCrLf)
      HttpContext.Current.Response.Write("		<tr>" & vbCrLf)
      HttpContext.Current.Response.Write("		<td valign='bottom' class='logo' colspan='2' bgcolor='#006699' height='95'>" & vbCrLf)
      HttpContext.Current.Response.Write("			<table id='topmenu'>" & vbCrLf)
      HttpContext.Current.Response.Write("				<tr>" & vbCrLf)
      HttpContext.Current.Response.Write("					<td><a href='home.aspx'>Home</a></td>" & vbCrLf)
      HttpContext.Current.Response.Write("				</tr>" & vbCrLf)
      HttpContext.Current.Response.Write("			</table>" & vbCrLf)
      HttpContext.Current.Response.Write("			</td>" & vbCrLf)
      HttpContext.Current.Response.Write("		<td align='left' valign='bottom' background='images/100Shares.jpg' width='204' height='95' nowrap>" & vbCrLf)
      HttpContext.Current.Response.Write("			<table id='topmenu'>" & vbCrLf)
      HttpContext.Current.Response.Write("				<tr><td><a href='_about.aspx'>About</a></td>" & vbCrLf)
      HttpContext.Current.Response.Write("					<td><a href='logout.aspx'>Logout</a></td>" & vbCrLf)
      HttpContext.Current.Response.Write("				</tr>" & vbCrLf)
      HttpContext.Current.Response.Write("			</table>" & vbCrLf)
      HttpContext.Current.Response.Write("			</td>" & vbCrLf)
      HttpContext.Current.Response.Write("	</tr>" & vbCrLf)
      HttpContext.Current.Response.Write("	<tr>" & vbCrLf)
      HttpContext.Current.Response.Write("		<td valign='top' background='images/Curve.gif' width='188' height='450' style='background-repeat:no-repeat'>" & vbCrLf)
      If (Not IsNothing(HttpContext.Current.Request.Cookies("Account")) AndAlso Not String.IsNullOrEmpty(HttpContext.Current.Request.Cookies("Account").Value)) Then
         HttpContext.Current.Response.Write("			<!-- menu code -->" & vbCrLf)
         HttpContext.Current.Response.Write("			<table id='menu' width='100%' border='0' cellspacing='2' cellpadding='2'>" & vbCrLf)
         HttpContext.Current.Response.Write("<tr><td class='menuheading'>Research" & vbCrLf)
         _t_head1.nbsp(1)
         HttpContext.Current.Response.Write("<tr><td class='menuitem'><a href='TickerList.aspx'>research a company</a>" & vbCrLf)
         _t_head1.nbsp(2)
         HttpContext.Current.Response.Write("<tr><td class='menuitem'><a href='OfflinePortfolio.aspx'>offline research with Excel</a>" & vbCrLf)
         _t_head1.nbsp(3)
         HttpContext.Current.Response.Write("<tr><td class='menuheading'>Your Account" & vbCrLf)
         _t_head1.nbsp(4)
         HttpContext.Current.Response.Write("<tr><td class='menuitem'><a href='AccountSummary.aspx'>view your balance</a>" & vbCrLf)
         _t_head1.nbsp(5)
         HttpContext.Current.Response.Write("<tr><td class='menuitem'><a href='portfolio.aspx'>view your portfolio</a>" & vbCrLf)
         _t_head1.nbsp(6)
         HttpContext.Current.Response.Write("<tr><td class='menuitem'><a href='ChartPortfolio.aspx'>chart your portfolio</a>" & vbCrLf)
         _t_head1.nbsp(7)
         HttpContext.Current.Response.Write("<tr><td class='menuitem'><a href='buystock.aspx'>buy a stock</a>" & vbCrLf)
         _t_head1.nbsp(8)
         HttpContext.Current.Response.Write("<tr><td class='menuitem'><a href='sellstock.aspx'>sell a stock</a>" & vbCrLf)
         _t_head1.nbsp(9)
         HttpContext.Current.Response.Write("<tr><td class='menuheading'>Go Shopping" & vbCrLf)
         _t_head1.nbsp(11)
         HttpContext.Current.Response.Write("<tr><td class='menuitem'><a href='browse.aspx'>browse products</a>" & vbCrLf)
         _t_head1.nbsp(12)
         HttpContext.Current.Response.Write("<tr><td class='menuitem'><a href='cart.aspx'>view shopping cart</a>" & vbCrLf)
         _t_head1.nbsp(13)
         HttpContext.Current.Response.Write("<tr><td class='menuitem'><a href='checkout.aspx'>check out</a>" & vbCrLf)
         _t_head1.nbsp(14)
         HttpContext.Current.Response.Write("<tr><td class='menuheading'>Debug Info" & vbCrLf)
         _t_head1.nbsp(17)
         HttpContext.Current.Response.Write("<tr><td class='menuitem'><a href='_version.aspx'>Version Number</a>" & vbCrLf)
         _t_head1.nbsp(18)
         HttpContext.Current.Response.Write("<tr><td class='menuitem'><a href='_RunSQL.aspx'>Run SQL</a>" & vbCrLf)
         _t_head1.nbsp(20)
         HttpContext.Current.Response.Write("			</table>" & vbCrLf)
      End If
      HttpContext.Current.Response.Write("			</td>" & vbCrLf)
      HttpContext.Current.Response.Write("		<td colspan='2' valign='top'>" & vbCrLf)
      HttpContext.Current.Response.Write("			<table width='100%' border='0' cellpadding='0' cellspacing='0'>" & vbCrLf)
      HttpContext.Current.Response.Write("				<tr>" & vbCrLf)
      HttpContext.Current.Response.Write("					<td class='title'>" & vbCrLf)
      HttpContext.Current.Response.Write("						<span id='title' name='title' style='top=50;width=350;height=30;filter:revealTrans(transition=12,duration=0.3)'></span>" & vbCrLf)
      HttpContext.Current.Response.Write("					</td>" & vbCrLf)
      HttpContext.Current.Response.Write("				</tr>" & vbCrLf)
      HttpContext.Current.Response.Write("				<tr>" & vbCrLf)
      HttpContext.Current.Response.Write("					<td width='500' style='padding-left=10px;padding-top=5px'>" & vbCrLf)
      HttpContext.Current.Response.Write("					<!-- start main content here -->" & vbCrLf)
   End Sub
End Class
End Namespace
