<!--#include file ="connection.inc" -->
<!--#include file ="ADOVBS.INC" -->
<%
set rs = Server.CreateObject("ADODB.RECORDSET")
	rs.open "select * from usertable where userid = " & session("userid"),conn
		mymoney = cdbl(rs("moneyleft"))
		totalmoney = cdbl(request("pricepershare")) * cdbl(request("totalshares"))
		
		if mymoney >= totalmoney then
			set rs = Server.CreateObject("ADODB.RECORDSET")
			rs.open "select * from sharestable where userpetid =" & session("petitemid") & " and stockid = " & request("ipo"),conn,3,2
			
				if rs.eof then
					rs.addnew
				end if	
				
			rs("stockid") = request("ipo")	
			rs("totalshares") = clng(rs("totalshares")) + clng(request("totalshares"))
			rs("userpetid") = session("petitemid")
			rs("purchasedate") = date
			rs("purchaseprice") = cdbl(rs("purchaseprice")) + cdbl(request("pricepershare")) 
			rs.update
			set rs = Server.CreateObject("ADODB.RECORDSET")
				rs.open "SELECT sellorder.sellerid,sellorder.totalshare FROM sellorder WHERE (((sellorder.userpetid)="&request("seller")&") AND ((sellorder.stockid)="&request("ipo")&"));",conn,3,2
					rs("totalshare") = clng(rs("totalshare")) - clng(Request("totalshares"))
				rs.update
				if rs("totalshare") < 1 then
					conn.execute "delete * from sellorder where sellerid = " & rs("sellerid")
				end if
			conn.execute "update usertable set moneyleft="& mymoney - totalmoney&" where userid="&session("userid")		
			set rs = Server.CreateObject("ADODB.RECORDSET")
				rs.open "SELECT UserTable.moneyleft,UserTable.userid FROM (UserTable INNER JOIN UserPetTable ON UserTable.userid = UserPetTable.userid) INNER JOIN stock ON UserPetTable.userPetId = stock.userpetid WHERE (((stock.stockid)=" &request("ipo")& "));",conn
			conn.execute "update usertable set moneyleft="& rs("moneyleft") + totalmoney&" where userid="&rs("userid")		
			Response.Redirect("muchostock.asp")
		else
			Response.Redirect("muchostock.asp?e=1")
		end if		
%>