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

<%
if not trim(session("cityin")) = trim(request("city")) then
	Session.Contents.Remove("cart")
end if
session("cityin") = request("city") 
	set rscity = Server.CreateObject("Adodb.Recordset")
		rscity.open "select cityno from city where cityno = " & Request("city"),conn
if clng(session("petitemid")) = 0 then
	set rspets = Server.CreateObject("Adodb.Recordset")
	'rspets.open "select * from userpettable where userid = " & session("userid") & " and cityid = " & request("city"),conn
	rspets.open "SELECT * FROM userpettable WHERE (((userpettable.userid)=" & session("userid") & ") AND ((userpettable.cityid)=" & request("city") &") AND ((userpettable.energylevel)>0));",conn
		if rspets.eof then
				response.Redirect("category.asp?pet=1")
		end if
	rspets.close
	
	response.Redirect("citycategory.asp")
end if
set rs = Server.CreateObject("Adodb.recordset")
rs.open "select * from city where cityno = " & request("city"),conn
	cityy = rs("cityid")
	session("cityname") = rs("CityName")
dim reduceenergylevel
dim orignallevel

	reduceenergylevel = cint(session("city")) - cint(rscity("cityno")) - 1
	
	rs.close
	set rs = Server.CreateObject("ADODB.RECORDSET")
	rs.open "select energylevel from userpettable where userpetid = " & session("petitemid"),conn
	
	orignallevel = rs("energylevel")
	
	if reduceenergylevel > 1 then
		orignallevel = orignallevel - reduceenergylevel 
	else
		orignallevel = orignallevel + reduceenergylevel 
	end if	
	if orignallevel > 0 then
		conn.execute "update userpettable set energylevel = " & orignallevel & ",cityid =" & cityy & " where userpetid = " & session("petitemid")
	else
		response.Redirect("category.asp?level=1")
	end if
	'Response.Write()

response.Redirect("citycategory.asp")
%>