Curious if anyone had any suggestions on what might of changed.
Perhaps something changed at yahoo,,,,
Stock symbol changed to protect my identity :)
Thanks
Expand|Select|Wrap|Line Numbers
- <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>