<!--#include file ="connection.inc" -->
<!--#include file ="ADOVBS.INC" -->
<%

set rs = Server.CreateObject("ADODB.RECORDSET")
	rs.open "SELECT UserTable.* FROM UserTable INNER JOIN UserPetTable ON UserTable.userid = UserPetTable.userid WHERE (((UserPetTable.userPetId)="&request("userpetid")&"));",conn
		mymoney = cdbl(rs("moneyleft"))
		totalmoney = cdbl(request("pricepershare")) * cdbl(request("totalshares"))
		userid=rs("userid")
		if mymoney >= totalmoney then
			set rs = Server.CreateObject("ADODB.RECORDSET")
			rs.open "select * from sharestable where userpetid =" & request("userpetid") & " 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") = request("userpetid")
			rs("purchasedate") = date
			rs("purchaseprice") = cdbl(rs("purchaseprice")) + cdbl(request("pricepershare")) 
			rs.update
			
			set rs = Server.CreateObject("ADODB.RECORDSET")
				rs.open "SELECT buyerid,shareswanted FROM buyorder WHERE buyerid = "&request("buyerid"),conn,3,2
					rs("shareswanted") = clng(rs("shareswanted")) - clng(Request("totalshares"))
				rs.update
			
				if rs("shareswanted") < 1 then
					conn.execute "delete * from buyorder where buyerid = " & rs("buyerid")
				end if
			
				
			set rs = Server.CreateObject("ADODB.RECORDSET")
				rs.open "select * from usertable where userid="&session("userid"),conn,3,2
					conn.execute "update usertable set moneyleft="& rs("moneyleft") + totalmoney&" where userid="&session("userid")		
			
			set rs = Server.CreateObject("ADODB.RECORDSET")
		rs.open "select * from usertable where userid="&userid,conn,3,2
				conn.execute "update usertable set moneyleft="& rs("moneyleft") - totalmoney&" where userid="&userid
			Response.Redirect("muchostock.asp")
		else
			Response.Redirect("muchostock.asp?e=1")
		end if		
%>