ASP Source Code

ASP File: session.asp

 
   ASP Script
   Comments

<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>