<!--#include file="dateformat.inc" -->
<!--#include file="symbollist.inc" -->
<%
diff= datediff("s",Application("TickerLastDateKse30"),Now) 
if diff< 10 then
Response.write Application("TickerKse30")
'response.write "Non need to update, seconds since last update " & diff
Response.end
end if 
Application("TickerLastDateKse30")=Now
%>


<%

set conntaurus = server.CreateObject("adodb.connection")
conntaurus.open Application("ConnLivequotes_ConnectionString")

SqlStr1= "Select str(round((DayWiseTrades.rate-DayWiseTrades.LastRate),2),7,7) as UpDown,DayWiseTrades.date_time,DayWiseTrades.companycode,DayWiseTrades.companyname,str(round(DayWiseTrades.openingrate,2),7,7) openingrate,DayWiseTrades.tradeseqno,DayWiseTrades.totalturnover,str(round(DayWiseTrades.rate,2),7,7) rate,DayWiseTrades.turnover,DayWiseTrades.callingorder,str(round(DayWiseTrades.hi,2),7,7) hi,str(round(DayWiseTrades.low,2),7,7) low,str(round(lastrate,2),7,7) lastrate from DayWiseTrades where Date_Time=(select max(Date_Time) from DayWiseTrades)"
SqlStr1= SqlStr1 & " AND CompanyCode IN (" & securities & ")  order by date_time desc,companycode"

set rs_daywise = conntaurus.execute (SqlStr1)

while not rs_daywise.eof
Rates= Rates & "$black$"
Rates= Rates & rs_daywise("CompanyName") & " " 
	
	if rs_daywise("UpDown") > 0 then 
	gif="$gif$up"
	color="$blue$"
	else 
		if rs_daywise("UpDown") < 0 then 
		gif="$gif$down"
		color="$red$"
		else 
		gif=""
		color="$green$"
		end if
	end if
Rates= Rates & color
Rates= Rates & rs_daywise("Rate") & " "
Rates= Rates & gif
Rates= Rates & color
Rates= Rates & rs_daywise("UpDown") 
Rates= Rates & "$black$ "
''Amir Added
'Rates= " $ "

rs_daywise.movenext

wend

SqlStr2=" Select Date_Time,CompaniesAdv,CompaniesDec,convert(int,Vol) Vol,PrevDayVol,str(round(KSE100-PrevDayKSE100,2),7,7) as NetChange,CompaniesUnch,str(round((KSE100-PrevDayKSE100)/100,2),7,7) as PercentChange,str(round(PrevDayKSE100,2),10,10) PrevDayKSE100,str(round(KSE100,2),10,10) KSE100, str(round(HiKse,2),8,2) HIKSE, str(round(LowKse,2),8,2) LOWKSE,str(round(KSE30,2),10,10) KSE30,str(round(KSE30NC,2),7,7) as KSE30NC from DayWiseMktStats where Date_Time=(select max(Date_Time) from DayWiseMktStats)"

set rs_market = conntaurus.execute (SqlStr2)
Market= "" ' FormatDate(rs_market("Date_Time"),"dd-mm-yyyy")
Market= Market & "$blue$Advance $gif$up$blue$"
Market= Market & rs_market("CompaniesAdv")
Market= Market & "$red$   Decline $gif$down$red$"
Market= Market & rs_market("CompaniesDec")
Market= Market & "$black$    Mkt Vol    "
Market= Market & "$black$" & rs_market("Vol") 
change=rs_market("NetChange")
changeks30=rs_market("KSE30NC")

	if change>0 then 
	color="$blue$" 
	gif="$gif$up"
	else if change<0 then 
			color="$red$"
			gif="$gif$down"	
		end if
	end if 
	if changekse30>0 then 
	color30="$blue$" 
	gif="$gif$up"
	else if changekse30<0 then 
			color30="$red$"
			gif="$gif$down"	
		end if
	end if 

Market= Market & color & "   KSE100 Index    " & color
Market= Market & rs_market("KSE100") & gif & color
Market= Market & rs_market("NetChange") & "$black$ "
Market= Market & "  | "
Market= Market & color30 & "   KSE30 Index    " & color
Market= Market & rs_market("KSE30") & gif & color30
Market= Market & rs_market("KSE30NC") & "$black$ "
Market= Market & "  | "
Market= Market & "$blue$  High "
Market= Market & FormatNumber(rs_market("HIKSE"),2) & "$red$   Low " & FormatNumber(rs_market("LOWKSE"),2) & "$white$....."  
''Amir edited this code
'Market = " KSE FEED ERROR "
rs_daywise.close
rs_Market.close
set rs_daywise=Nothing
set rs_Market=Nothing
conntaurus.close
Set conntaurus=nothing

Ticker=  Market & "   " & Rates
'Ticker="KSE FEED ERROR"

Application("TickerLastDateKse30")=Now
Application.lock
application("TickerKse30")=Ticker
Application.unlock
Response.write Ticker
'Response.write " KSE FEED ERROR "
%>