ASP Source Code ASP File: session.asp
|
|
<HTML>
<BODY>
<%
dim home
dim trader
dim traderesult
dim tradername
dim password
dim customerName
customerName = "Terry"
dim stockName
dim numberOfShares
set home =server.createobject("ejb.weblogic:statefulSession/TraderHome")
set trader = home.create(customerName)
tradername = trader.getTraderName()
response.write("Create Trader: " & tradername & "<br>")
Response.Write "<br>"
For i=1 To 2
stockName = "WEBL"
numberOfShares = 100*i
response.write("Buying " & numberOfShares & " of " & stockName & "<br>")
set traderesult = trader.buy(customerName,stockName,numberOfShares)
response.write("...Bought " & traderesult.numberTraded & " at $" & traderesult.priceSoldAt & "<br>")
stockName = "INTL"
numberOfShares = 100 * (i+1)
response.write("Selling " & numberOfShares & " of " & stockName & "<br>")
set tradersult = trader.sell(customerName, stockName, numberOfShares)
response.write("...Sold " & tradersult.numberTraded & " at $" & tradersult.priceSoldAt & "<br>")
response.write("Change in Cash Account: $" & trader.getBalance() & "<br>")
response.write("End of Transaction " & i & "<br>")
response.write("<br>")
Next
response.write("Change in Cash Account: $" & trader.getBalance() & "<br>")
response.write("Removing trader " & trader.getTraderName())
trader.remove()
%>
</BODY>
</HTML>