<% 'userlist = Array ("PTC","HUBC","PSO","ENGRO","FFC","OGDC","POL","FFBL","CHKC","TRG") userlist = Array("BOP","DGKC","FCCL","FFBL","HUBC","MCB","NBP","OGDC","POL","PPL","PPTA","PSO","PTC","SNGP","TRG") Conn.open Set rates = Server.CreateObject("ADODB.Recordset") rates.Open "select * from Results",Conn,adopenstatic,adlockoptimistic 'index file rates.MoveFirst() rates.Find "Symbol = 'KSE100'" if NOT rates.EOF then if int(rates.Fields("Chg")) < 0 then index_img = "down.gif" else index_img = "up.gif" end if Response.write "

Last update on:
" & Rates.Fields("state") & "" Response.write "
Market Update
" Response.Write "" Response.write "" Response.write "" Response.write "" Response.Write "
Index" & Rates.Fields("Mkt") & "
Change  " & Rates.Fields("Chg") & "
Volume" & Rates.Fields("tTrds") & "
" else end if 'index end 'Set UConn = Server.CreateObject("ADODB.Connection") 'Uconn.open "DSN=MAK-216;" 'Set users = Server.CreateObject("ADODB.Recordset") 'users.Open "select * from usercompanys",UConn,adopenstatic,adlockoptimistic 'mycompanylist = users.Fields("ksecompany") 'myhid = users.Fields("hid") 'UConn.Close() 'users.Close() Response.Write "" Response.write "" for scrlist=0 to Ubound(userlist) rates.MoveFirst() rates.Find "symbol = '" & userlist(scrlist) & "'" if NOT rates.EOF then if trim(rates.Fields("Chg")) > 0 then mycolor="#000066" end if if trim(rates.Fields("Chg")) < 0 then mycolor="#9999CC" end if if trim(rates.Fields("Chg"))= "0.00" then mycolor="#CCCCCC" end if Response.write "" else userlist(scrlist) = "NA" end if next rates.Close() Conn.Close() %>
SymbolRateChange
" & trim(rates.Fields("Symbol")) & "" & trim(rates.Fields("Lstprc")) & "" & trim(rates.Fields("Chg")) & "