|
|
<!--#include file="../../Includes/_incConnexionOn.asp" -->
<%
iIdAccount = 10116
Function GetIndices()
Dim strSQL, objRS
strSQL = " SELECT IdIndex, Name, Symbol FROM tblIndices ORDER BY Name ASC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorType = 3
objRS.Open strSQL, cnx
Set GetIndices = objRS
End Function
Dim rsRS
Set rsRS = Server.CreateObject("ADODB.Recordset")
rsRS.CursorType = 3
set rsRS = GetIndices()
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<% Session.CodePage = 1253 %>
<title>Online Indices</title>
<meta HTTP-EQUIV="Expires" CONTENT="Mon, 06 Jan 1990 00:00:01 GMT">
<meta HTTP-EQUIV="cache-control" VALUE="no-cache, no-store, must-revalidate">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Windows-1253">
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta HTTP-EQUIV="cache-control" VALUE="no-cache, no-store, must-revalidate">
<meta http-equiv="Content-Type" content="text/html; charset=Windows-1253">
<link REL="STYLESHEET" HREF="../../Style.css" TYPE="text/css">
<script language="JavaScript1.2" type="text/javascript"><!--
function OpenWin(which,myWidth,myHeight,title,how){
var a=window.open(which,title,how.split(' ').join(',')+',height='+myHeight+',width='+myWidth);
}
function javaOpenWindow(IdIndex)
{
OpenWin('../OnlineCharts/OnlineChartIndex.asp?IdIndex=' + IdIndex, 340, 221, 'IntradayChart' + IdIndex, 'scrollbars=0');
}
//-->
</script>
</head>
<body LEFTMARGIN="0" MARGINWIDTH="0" TOPMARGIN="0" MARGINHEIGHT="0" BACKGROUND="images/bckg.gif" >
<center>
<table width="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" background="Images/head_online.gif">
<tr>
<td width="380"><img SRC="../../Images/spacer.gif" BORDER="0" ALT WIDTH="213" HEIGHT="40"><img SRC="../../Images/spacer.gif" BORDER="0" ALT WIDTH="7" HEIGHT="1"></td>
</tr>
</table>
<table BORDER="0" WIDTH="620" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF">
<tr>
<td VALIGN="TOP">
<applet CODE="Portfolio.class" CODEBASE="CLASSES/" width="99%" HEIGHT="224" MAYSCRIPT VIEWASTEXT>
<param NAME="image0" VALUE="icons/bullet.gif"><!--not transacted-->
<param NAME="image1" VALUE="icons/steady.gif"><!--steady-->
<param NAME="image2" VALUE="icons/up.gif"><!--up-->
<param NAME="image3" VALUE="icons/down.gif"><!--down-->
<param NAME="image4" VALUE="icons/nol.gif"><!--out of limit-->
<param NAME="DetailsBaseURL" VALUE="<%=Application("WebURL")%>tools/OnlineCharts/OnlineChartTicker.asp?IdIndex=">
<param NAME="SymbolTitle" VALUE="<%="Index"%>">
<param NAME="SymbolSize" VALUE="14">
<param NAME="flagsAt" VALUE="1">
<param NAME="lastPriceCol" VALUE="2">
<param NAME="lastCloseCol" VALUE="6">
<param name="CellFontName" value="SansSerif"><!--Serif, SansSerif, Monospaced, etc.-->
<param name="CellFontStyle" value="plain"> <!--plain, bold, italic, bolditalic-->
<param name="CellFontSize" value="10">
<param NAME="Headers" VALUE="<%="Trend"%>,0|<%="Valuem"%>,4|(+-)%,4|<%="DayHighm"%>,5|<%="DayLowm"%>,5|<%="LastClosem"%>,4|Time,4">
<param NAME="UpdateInterval" VALUE="10000">
<param NAME="HeaderCellColor" VALUE="deb887">
<param NAME="DataCellColor" VALUE="ffe4b5">
<param NAME="DataSourceBaseURL" VALUE="<%=Application("WebURL")%>cgi-bin/IsapiDemoFeed.dll?GetOnlineIndexData?">
<param NAME="jsOpenWindow" VALUE="javaOpenWindow">
<param NAME="Tickers" VALUE="<% while NOT rsRS.EOF AND NOT rsRS.BOF
Response.Write Trim(rsRS("Symbol")) & "," & TRim(rsRS("IdIndex")) & "&2" & "|"
rsRS.MoveNext
wend%>">
alt="Your browser understands the <APPLET> tag but isn't running the applet, for some reason."
Your browser is completely ignoring the <APPLET> tag!
</applet>
</td>
</tr>
</table>
<TABLE width=100%>
<TR><TD ALIGN="CENTER">
</TD></TR>
</TABLE>
</body>
</html>
<!--#include file="../../Includes/_incConnexionOff.asp" -->
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
I make programming for over 4 years and extensive experience in C++, ASP, Pascal, MFC, COM+, ATL, TCP/IP, HTTP protocols, XML, XSL, SOAP and SQL.
For the last 2 years i working extensively at the background of financial sites (databases, n tier architecture).
I’m available for contracts and/or outsourcing (<Adrian Bacaianu>adrian_bacaianu@yahoo.com).
Submit an article or tip