<!--#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("issuedprice"))
		
		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 * from stock where stockid = " & request("ipo"),conn,3,2
					rs("availableshares") = clng(rs("availableshares")) - clng(Request("totalshares"))
				rs.update
				if rs("availableshares") < 1 then 
					rs("ipo") = true
				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		
%>