<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% On error resume Next dim objCmdp21, paradate, objCmdp212 dim RSp21, RSP2 Set objCmdp21= Server.CreateObject("adodb.command") Set objCmdp212= Server.CreateObject("adodb.command") set objCmdp21.ActiveConnection = connect set objCmdp212.ActiveConnection = connect objCmdp21.CommandText= "sp_sel_indicators" objCmdp21.CommandType = adCmdStoorangeProc Set RSp21 = Server.CreateObject("ADODB.Recordset") set RSp21 = objCmdp21.Execute paradate =RSp21("PriceDate") 'no longer needed. clean up RSp21.Close set RSp21 = Nothing objCmdp212.CommandText= "sp_sel_top_2_index" objCmdp212.CommandType = adCmdStoorangeProc Set RSp2 = Server.CreateObject("ADODB.Recordset") set RSp2 = objCmdp212.Execute 'no longer needed. clean up set objCmdp212 = nothing set objCmdp21 = nothing ' top gainers dim objCmdp1 dim RSpgainers Set objCmdp1= Server.CreateObject("adodb.command") set objCmdp1.ActiveConnection = connect objCmdp1.CommandText= "mtopgainers" objCmdp1.CommandType = adCmdStoorangeProc Set RSpgainers = Server.CreateObject("ADODB.Recordset") set RSpgainers = objCmdp1.Execute 'no longer needed. clean up set objCmdp1 = nothing 'top lossers dim objCmdp2 dim RSplossers Set objCmdp2= Server.CreateObject("adodb.command") set objCmdp2.ActiveConnection = connect objCmdp2.CommandText= "mtoplosers" objCmdp2.CommandType = adCmdStoorangeProc Set RSplossers = Server.CreateObject("ADODB.Recordset") set RSplossers = objCmdp2.Execute 'no longer needed. clean up set objCmdp2 = nothing ' performance by sector dim objCmdp3 dim RSp Set objCmdp3= Server.CreateObject("adodb.command") set objCmdp3.ActiveConnection = connect objCmdp3.CommandText= "sp_sel_sectorialperformance" objCmdp3.CommandType = adCmdStoorangeProc Set RSp = Server.CreateObject("ADODB.Recordset") set RSp = objCmdp3.Execute 'no longer needed. clean up set objCmdp3 = nothing dim objCmd dim RS, procparam Set objCmd= Server.CreateObject("adodb.command") set objCmd.ActiveConnection = connect objCmd.CommandText= "sp_sel_countactivity" objCmd.CommandType = adCmdStoorangeProc Set RS = Server.CreateObject("ADODB.Recordset") set RS = objCmd.Execute 'no longer needed. clean up set objCmd = nothing set procparam = nothing %>

Market performance summary as @ <%=FormatDateTime(paradate,1) %>

Market Performance

<% dim iRecordsShown iRecordsShown = 0 If RSp2.bof and RSP2.Eof Then Response.Write "" End IF Do While Not RSp2.Eof %> 0 then response.write "class=""categoryRow2""" end if %>> <% iRecordsShown = iRecordsShown + 1 RSP2.movenext Loop RSP2.Close set RSP2 = Nothing %>
Index Capitalization


Sorry, no details are available.
Go To Previous Page


<% if irecordsShown = 0 then response.write("Today") else response.write("Previous Trade day") end if %> <%=formatnumber(RSP2("nseindex"),2,,-1)%> <%= formatnumber(RSP2("capitalisation"),2,,-1)%>

Gainers/Losers Movement

<% iRecordsShown = 0 If RS.bof and RS.Eof Then Response.Write "" End IF Do While Not RS.Eof %> 0 then response.write "class=""categoryRow2""" end if %>> <% iRecordsShown = iRecordsShown + 1 RS.movenext Loop RS.Close set RS = Nothing %>
Gainers Losers Unchanged


Sorry, no details are available.
Go To Previous Page


<%=RS("gain")%> <%=RS("loss")%> <%= RS("unchanged")%>

Top 5 Gainers

<% iRecordsShown = 0 If RSPgainers.bof and RSPgainers.Eof Then Response.Write "" End IF Do While Not RSPgainers.Eof %> 0 then response.write "class=""categoryRow2""" end if %>> <% iRecordsShown = iRecordsShown + 1 if iRecordsShown = 5 then exit do end if RSPgainers.movenext Loop RSPgainers.Close set RSPgainers = Nothing %>
Security Price Change


Sorry, no details are available.
Go To Previous Page


<%=RSPgainers("securitycode")%> <%=RSPgainers("price")%> <%=formatnumber(RSPgainers("change"),2,,-1)%>

Top 5 Losers

<% iRecordsShown = 0 If RSPlossers.bof and RSPlossers.Eof Then Response.Write "" End IF Do While Not RSPlossers.Eof %> 0 then response.write "class=""categoryRow2""" end if %>> <% iRecordsShown = iRecordsShown + 1 if iRecordsShown = 5 then exit do end if RSPlossers.movenext Loop RSPlossers.Close set RSPlossers = Nothing %>
Security Price Change


Sorry, no details are available.
Go To Previous Page


<%=RSPlossers("securitycode")%> <%=RSPlossers("price")%> <%=formatnumber(RSPlossers("change"),2,,-1)%>

Sectorial Trades, Volume and Value

<% iRecordsShown = 0 If RSP.bof and RSP.Eof Then Response.Write "" End IF Do While Not RSP.Eof %> 0 then response.write "class=""categoryRow2""" end if %>> <% iRecordsShown = iRecordsShown + 1 RSP.movenext Loop RSP.Close set RSP = Nothing %>
Sector Trades Volume Value


Sorry, no details are available.
Go To Previous Page


<%=RSP("subSector")%> <%=RSP("Deals")%> <%=formatnumber(RSP("Volume"),0)%> <%=formatnumber(RSP("Vals"),2)%>