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

Imports System.Web
NameSpace FMSWeb
Public Partial class _TickerDetail : Inherits System.Web.UI.Page
   Public _t_head1 As FMSWeb._t_head
   Public _t_begin1 As FMSWeb._t_begin
   Public _t_end1 As FMSWeb._t_end

   Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
      _t_head1 = New FMSWeb._t_head()
      _t_begin1 = New FMSWeb._t_begin()
      _t_end1 = New FMSWeb._t_end()
      _t_begin1.Include_Load(_t_head1)
      _t_end1.Include_Load(_t_head1)
   End Sub
   Public obj As New FMStocks_Bus.Ticker
   Public ticker As String = ""
   Public rs As gmRTL.DataLib.SqlClient.Recordset = Nothing
   Public Company As Object = Nothing
   Public Exchange As Object = Nothing
   Public Sub ShowFundamentals()
      Dim count As Integer = 0
      Dim recommend As Integer = 0
      count = 0
      recommend = 1
      Do While Not rs.EOF
         Item(count,rs.Fields("Status").Value,rs.Fields("ShortDesc").Value,rs.Fields("Value").Value,rs.Fields("Criteria").Value,rs.Fields("LongDesc").Value)
         count = count + 1
         If (rs.Fields("Status").Value = 0) Then
            recommend = 0
         End If
         HttpContext.Current.Response.Write("</tr>")
         rs.MoveNext()
      Loop
      If (recommend <> 0) Then
         HttpContext.Current.Response.Write("		<p>This stock meets all of our screening criteria to qualify as a short-term, small-cap growth stock.</p>" & vbCrLf)
      Else
         HttpContext.Current.Response.Write("		<p>This stock <b>does not</b>      meet our screening criteria to qualify as a short-term, small-cap growth stock.</p>" & vbCrLf)
      End If
   End Sub
   Public Sub Item(ByVal count As Integer,ByVal status As Object,ByVal shortdesc As Object,ByVal value As Object,ByVal criteria As Object,ByVal longdesc As Object)
      Dim image As String = ""
      If (count Mod 2 = 0) Then
         HttpContext.Current.Response.Write("		<tr bgcolor='#D8D8D8'>" & vbCrLf)
      Else
         HttpContext.Current.Response.Write("		<tr bgcolor='#FFFFCC'>" & vbCrLf)
      End If
      If (status = 0) Then
         image = "images/down.gif"
      Else
         image = "images/up.gif"
      End If
      HttpContext.Current.Response.Write("	<td nowrap class='StockItem'><img src='" & image & "' < / td>" & vbCrLf)
      HttpContext.Current.Response.Write("	<td nowrap class='StockItem'>" & shortdesc & "</td>" & vbCrLf)
      HttpContext.Current.Response.Write("	<td nowrap class='StockItem' align='right'>" & value & "</td>" & vbCrLf)
      HttpContext.Current.Response.Write("	<td nowrap class='StockItem'>" & criteria & "</td>" & vbCrLf)
      HttpContext.Current.Response.Write("	<td class='StockItem'>" & longdesc & "</td>" & vbCrLf)
      HttpContext.Current.Response.Write("	</tr>" & vbCrLf)
   End Sub
End Class
End Namespace
