
<HTML>
<Head>
</Head>
<Body>
<H2>StockGrabber Test</H2>
<%
Response.write("<form action='stringgrabber.asp' method='post'>Stock Ticker Symbol:<br><input type='text' name='ticker'><br>")
Response.Write("<input type='submit' value='submit'><br><br>")

If Request.Form("ticker") <> "" then
strTicker = Request.Form("ticker")
'Create a StringGrabber object.
set StringGrabber = GetObject("java:StringGrabber")
Response.Write(strTicker & GetStockPriceFromURL(strTicker))	
End If

function GetStockPriceFromURL(stockSymbol)
preString = "<b>$"
postString = "</b>"
url = "http://quotes.nasdaq-amex.com/Quote.dll?page=multi&mode=Stock&symbol=" & stockSymbol
stockPrice = StringGrabber.GetString(url, preString, postString)
GetStockPriceFromURL = stockPrice
End Function
%>

</Body>
</HTML>