<!-- #include file="connection.inc" -->
<%
set rs = Server.CreateObject("ADODB.RECORDSET")
set rsuser = Server.CreateObject("ADODB.RECORDSET")
	 rs.open "select foodprice,foodenergylevel as e from foodtable where foodid = " & request("foodid"),conn 
		dim le,pr
		le = rs("e")
		pr = rs("foodprice")
	rs.close
	rs.open "select hungerlevel,userid from userpettable where userpetid = " & request("petid"),conn	
	rsuser.open "select moneyleft from usertable where userid = " & rs("userid"),conn
	mleft = cdbl(rsuser("moneyleft")) - cdbl(pr)
	if cdbl(mleft) >= 0 then 
		conn.execute "update usertable set moneyleft = " & mleft & " where userid=" &  rs("userid")
	else
		response.Redirect("cafeteria.asp?f=1")
	end if
	rsuser.close
	hunger = (clng(rs("hungerlevel")) - clng(le))
	if hunger < 0 then
		hunger = 0
	end if	
	conn.execute "update userpettable set hungerlevel = " & hunger & " where userpetid = " & request("petid") 
	Response.Redirect("muchoinfo.asp")	
%>