<!-- #include file = "connection.inc" -->
<%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "select quantity,cost from petitemtable where petitemid = " & request("petid"),conn
set rsuser = Server.CreateObject("ADODB.RecordSet")
rsuser.open "select moneyleft from usertable where userid = " & session("userid"),conn
set rsitem = Server.CreateObject("ADODB.RecordSet")
rsitem.open "select cost from itemtable where itemid = " & request("itemid"),conn
set rspet = Server.CreateObject("ADODB.RecordSet")
rspet.open "select moneyEarned from userpettable where userpetid = " & session("petitemid"),conn

set cityp = Server.CreateObject("ADODB.RecordSet")
cityp.open "select percentage from city where cityid = " & session("cityin"),conn

totalcost = rsitem("cost") + rsitem("cost") * cityp("percentage") / 100

if not rs.eof then
	if cint(rs("quantity")) < cint(request("qty")) then
		Response.Redirect("delete_item.asp?itemid=" & request("itemid") & "&petid=" & request("petid") & "&flag=1")			
	elseif (cint(rs("quantity")) = 1) or (cint(rs("quantity")) = cint(request("qty"))) then
			dollors = cdbl(rsuser("moneyleft")) + (cdbl(request("qty")) * cdbl(totalcost)) 
			pdollors = cdbl(rspet("moneyEarned")) + (cdbl(request("qty")) * cdbl(totalcost)) 
			
			conn.execute "delete from petitemtable where petitemid=" & Request("petid")
			conn.execute "update usertable set moneyleft= " &  dollors  &  " where userid=" & session("userid")
			conn.execute "update userpettable set moneyearned= " &  pdollors  &  " where userpetid=" & session("petitemid")
	else
		q = cint(rs("quantity")) - cint(request("qty"))
			dollors =  cdbl(rsuser("moneyleft")) + (cdbl(request("qty")) * cdbl(totalcost)) 
			pdollors = cdbl(rspet("moneyEarned")) + (cdbl(request("qty")) * cdbl(totalcost)) 
			
			conn.execute "update  petitemtable set cost = '" & cdbl(rs("cost")) - (cdbl(request("qty")) * cdbl(totalcost)) & "',quantity = " & q & " where petitemid = " & Request("petid")
			conn.execute "update usertable set moneyleft= " &  dollors  &  " where userid=" & session("userid")
			conn.execute "update userpettable set moneyearned= " &  pdollors  &  " where userpetid=" &session("petitemid")
		
	
	end if
end if
response.Redirect("muchoinfo.asp")
%>