<?php
diff= datediff("s",Application("DetailsLastDate"),Now) 
'response.write "Application DetailsLastDate" & Application("DetailsLastDate")
if diff < 10 then
Response.write Application("Details")
'response.write "Non need to update, seconds since last update " & diff
Response.end
end if 
'response.write "check"
Application("DetailsLastDate")=Now
?>


<%

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

SqlStr1= "Select DayWiseTrades.companyname,str(round(DayWiseTrades.rate,2),7,7) rate,DayWiseTrades.totalturnover,str(round(DayWiseTrades.hi,2),7,7) hi, "
SqlStr1= SqlStr1 & "str(round(DayWiseTrades.low,2),7,7) low,str(round(DayWiseTrades.openingrate,2),7,7) openingrate,str(round(Bids.bidprice,2),7,7) bidprice, "
SqlStr1= SqlStr1 & "round(Bids.bidvol,2) bidvol,str(round(Bids.askprice,2),7,7) askprice,round(Bids.askvol,2) askvol, DayWiseTrades.turnover, "
SqlStr1= SqlStr1 & "str(round(DayWiseTrades.NetChange,2),7,7) as NChg, "
'SqlStr1= SqlStr1 & "str(round((DayWiseTrades.Rate-DayWiseTrades.LastRate)*100/DayWiseTrades.LastRate,2),7,7) as Chg "
SqlStr1= SqlStr1 & "str(round((DayWiseTrades.Rate-DayWiseTrades.openingrate)*100/DayWiseTrades.openingrate,2),7,7) as Chg "
'SqlStr1= SqlStr1 & "str(round((DayWiseTrades.Rate-DayWiseTrades.openingrate),2),7,7) as Chg "
SqlStr1= SqlStr1 & "from DayWiseTrades,Bids "
SqlStr1= SqlStr1 & "where DayWiseTrades.Openingrate <> 0 and " 
SqlStr1= SqlStr1 & "DayWiseTrades.Date_Time=(Select max(Date_Time) from DayWiseTrades) and "
SqlStr1= SqlStr1 & "Bids.SymbolCode = DaywiseTrades.CompanyCode and "
SqlStr1= SqlStr1 & "DayWiseTrades.CompanyCode IN(" & Securities & ")"
'----
'response.write SqlStr1
'response.end
'--------
set rs_daywise = conntaurus.execute (SqlStr1)

while not rs_daywise.eof

Rates= Rates & rs_daywise("CompanyName") & ","
Rates= Rates & rs_daywise("Rate") & ","
Rates= Rates & rs_daywise("TotalTurnOver") & ","
Rates= Rates & rs_daywise("hi") & ","
Rates= Rates & rs_daywise("Low") & ","
Rates= Rates & rs_daywise("BidVol") & ","
Rates= Rates & rs_daywise("BidPrice") & ","
Rates= Rates & rs_daywise("AskPrice") & ","
Rates= Rates & rs_daywise("AskVol") & ","
'Rates= Rates & rs_daywise("TurnOver") & ","
Rates= Rates & rs_daywise("openingRate") & ","
Rates= Rates & rs_daywise("NChg") & ","
Rates= Rates & rs_daywise("Chg") 
Rates=Rates & "|"

rs_daywise.movenext

wend

SqlStr2=" Select Date_Time,round(Vol,0) Vol,round(PrevDayVol,0) PrevDayVol,round((KSE100-PrevDayKSE100),2) as NetChange,CompaniesAdv,CompaniesDec,CompaniesUnch,str(round(((KSE100-PrevDayKSE100)*100)/PrevDayKSE100,2),7,7) as PercentChange,str(round(PrevDayKSE100,2),10,10) PrevDayKSE100,str(round(KSE100,2),10,10) KSE100,str(round(HiKSE,2),10,10) KSEHi,str(round(LowKSE,2),10,10) KSELow from DayWiseMktStats where Date_Time=(select max(Date_Time) from DayWiseMktStats)"
'----------
'response.write SqlStr2
'response.end
'------------

set rs_market = conntaurus.execute (SqlStr2)
Market= FormatDate(rs_market("Date_Time"),"yyyy-mm-dd") & " 00:00:00.000,"
Market= Market & "N/A,"
Market= Market & rs_market("Vol") & ","
Market= Market & rs_market("prevdayvol") & ","
Market= Market & rs_market("Netchange") & ","
Market= Market & rs_market("CompaniesAdv") & ","
Market= Market & rs_market("CompaniesDec") & ","
Market= Market & rs_market("CompaniesUnch") & ","
Market= Market & rs_market("PercentChange") & ","
Market= Market & rs_market("PrevdayKSE100") & ","
Market= Market & rs_market("KSE100") & ","
Market= Market & rs_market("KSEHi") & ","
Market= Market & rs_market("KSELow") & "|"
rs_daywise.close
rs_Market.close
set rs_daywise=Nothing
set rs_Market=Nothing
conntaurus.close
Set conntaurus=nothing

if Application("StopRates")= true then
Details=Market
else
Details=Market & Rates
end if
Application("DetailsLastDate")=Now
Application.lock
application("Details")=Details
Application.unlock
Response.write details
%>