%
theparameter1="ratesLogin.asp?hiddenfield=''"
'Response.Redirect "UnderConstruction.htm"
theparameter2="localticker3"
'response.write theparameter1
'response.write theparameter2
'Verify_Session theparameter1,theparameter2
%>
Taurus Live KSE Market Screen
<%
Set ConnTaurus = Server.CreateObject("ADODB.Connection")
ConnTaurus.Open Application("ConnLivequotes_ConnectionString")
'set rs=Server.CreateObject("ADODB.Recordset")
set rs= conntaurus.execute ("select * from changedcompanystatus")
while not rs.eof
%>
| <%=rs("CompanyName")%> |
> |
<%=rs("NewName")%> |
<%
rs.movenext
wend
rs.close
conntaurus.close
%>