<%
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
%>
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 "
" & rs(0) & "
"
response.write "
" & fontcolor & formatnumber(rs(2),2) & "
"
response.write "
" & fontcolor & formatnumber(rs(1),2) & "
"
rs.movenext
Loop
response.write "
"
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 "
"
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
%>