<%@enablesessionstate=FALSE%> <% Response.buffer=false dim mydb,oedb,sql,com Set oedb=Server.CreateObject("ADODB.Connection") Set rs=Server.CreateObject("ADODB.recordset") mydb=application("orderex_connection") oedb.open(mydb) sql = "exec asp_home_top5" rs.cachesize=100 rs.open sql,oedb,0,1 %> POEMS (Phillip's On-line Electronic Mart System) - Home
 
  INTERNATIONAL POEMS

  Singapore

  Hongkong
  Malaysia   United Kingdom

  
  SET INDEX
<% on error resume next Sql1 = "exec Asp_SETIndex" set set_tb=oedb.execute(Sql1) if err <>0 then Sql1 = "select a.*,b.*,last_updated as U_time " sql1 = sql1 & " from Mkt_indices_TH a,index_IU b where index_code = 'IX01'" set set_tb=oedb.execute(Sql1) end if on error goto 0 %>
<%=set_tb("Market_status")%> <%=datevalue(set_tb("Last_updated"))%>  <%=timevalue(set_tb("Last_updated"))%>
SET Index <%=set_tb("Set_index") %>   <%if set_tb("Net_Change") < "0" then response.write "" elseif set_tb("Net_Change") > "0" then response.write "" end if%> <%=set_tb("Net_Change") %>
Value (M.Baht) <%=formatnumber(set_tb("total_value_trade")/1000,2)%>
SET 50 Index <%=csng(set_tb("index_set50"))%>
Advances <%=set_tb("no_stock_advance")%>
Declines <%=set_tb("no_stock_decline")%>
No Change <%=set_tb("no_stock_change")%>
  SECTORIAL INDICES
<% call scrollsector %>
Stock Last Change
<% call most("Most Active") call most("Most Gainer") call most("Most Loser") call most("Most Swing") %>

 
 
 
 
  RESEARCH COMMENTARIES

  Daily Commentary (PDF)

  Technical Commentary (PDF)
  PRISM (PDF)
   To read PDF Format,
   you must download
   and install
   Adobe Acrobat Reader.
 
  LEARNING CENTER
   Technical Analysis Course Online
  
  

<% call quoteofday%>

TC  All information and contents are the property of Phillip Securities (Thailand) PCL. All Rights Reserved.

<% sub scrollsector response.write "" do while not rs.eof if vbgcolor = "#ffffff" then vbgcolor = "#ccffff" else vbgcolor = "#ffffff" Showdetail rs(0),rs(2),ccur(rs(3)),vbgcolor rs.movenext loop response.write "
" end sub sub most(cType) set rs=rs.nextrecordset response.write "" response.write "" & cType & "" do until rs.eof if bgcolor <> "#ffffff" then bgcolor ="#ffffff" else bgcolor ="#ccffff" fontcolor= disp_color(rs(1)) response.write "" response.write "" response.write "" response.write "" rs.movenext Loop response.write "
" & rs(0) & "" & fontcolor & formatnumber(rs(2),2) & "" & fontcolor & formatnumber(rs(1),2) & "
" end sub sub shownews set rs=rs.nextrecordset do until rs.eof response.write "
" & rs("head") &"
" rs.movenext loop end sub sub quoteofday sql4="select top 1 * from qodtab where lang = 'en' order by i_date desc" set quote=oedb.execute(Sql4) if not quote.eof then response.write quote("qodtext") quote.close set quote=nothing end sub sub events sql5 = "select * from event where lang = 'en' " set event1=oedb.execute(Sql5) response.write "

" do while not event1.eof response.write "   " & event1("event") &"
" event1.movenext loop response.write "

" event1.close set event1=nothing end sub sub Showdetail (description,newval,prev,bgcolor) response.write "" & description & "" response.write "" & formatnumber(Newval,2) & "" if prev=0 then prev=1 chg = newval - prev response.write "" & showcolor(chg)&formatnumber(chg,2) & "" 'response.write " " &showcolor(chg)& formatnumber((chg/prev)*100,2) & "" end sub function showcolor(comp_val) if comp_val > 0 then showcolor= "" elseif comp_val < 0 then showcolor ="" else showcolor= "" end if end function function disp_color(fld) if fld > 0 then disp_color ="" elseif fld < 0 then disp_color ="" else disp_color ="" end if end function %>