[RESOLVED] Stock Ticker Yahoo
At work we have a couple flat screens that display news and current stock info. About a week ago it stopped displaying the marquee for the stock info.
Curious if anyone had any suggestions on what might of changed.
Stock symbol changed to protect my identity :)
Thanks:wave:
Code:
<html>
<head>
<META HTTP-EQUIV=Refresh CONTENT="60; URL=bottom.asp">
<script>
function getQuote()
{
var Symbols="FO"
var x = new ActiveXObject("MSXML2.XMLHTTP");
arSymbols=Symbols.split(" ");
var theQuotes="";
x.Open("GET","http://finance.yahoo.com/d/quotes.csv?s=" + Symbols+"&f=sl1d1t1c1ohgv&e=.txt", false);
x.Send();
theQuotes=x.ResponseText;
theQuotes= theQuotes.replace(/"/g,""); // remove double quotes
var arQuoteLines=theQuotes.split("\n")
var finalString="";
var arTempLine=null;
var tmpString="";
for(var i=0;i<arQuoteLines.length-1;i++)
{
arTempLine=arQuoteLines[i].split(",");
tmpString+='My stock $' + arTempLine[2];
}
showQuotes.innerHTML=tmpString ;
}
</script>
<title>None</title>
<style>
<%
response.write "table{font-family: verdana, arial, sans-serif; font-size:22pt; color:'#ffffff'; background-color:'#000000'}"
response.write "input{font-family: verdana, arial, sans-serif; font-size:24pt; color:'#ffffff'; background-color:'#000000'}"
response.write "</style>"
response.write "</head>"
response.write "<body onload='getQuote();'>"
response.write "<table width='100%' height='100%'border=0><tr>"
Response.Write "<tr class=Color1>"
Response.Write "<td align=left width='1%'>"
Response.Write "</td>"
Response.Write "<td align=left width='55%'>"
Response.Write "<b>"
response.write FormatDateTime(Date, 1) & " " & left(Time, len(time) -6) & right(time, 2)
Response.Write "</b>"
Response.Write "</td>"
Response.Write "<td align=right width='43%'>"
Response.Write "<marquee id=showQuotes></marquee>"
Response.Write "</td>"
response.write "</tr>"
response.write "</table>"
%>
</body></html>
