<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<%Call head()
Call saycarda("宠物逛街")

dim lx,sl,msg

lx=request.form("lx")
sl=request.form("sl")


if pz=0 then
response.write"你暂时还没有领养宠物哦`~"
else

	select case lx
	     case "rou"	                        
            if cwxq<3000 then response.redirect"/bbs/cw/22.asp?sid="&sid&"&saytk="&saytk&""
                sql="update users set cwzt=1 where [id] ="&myid 
			conn.execute sql

			msg="您的宠物成功带在身旁!如果不需要带.请在宠物页面点击关回笼子."          
            case "th"
  
           	      sql="update users set cwzt=0 where [id] ="&myid
			conn.execute sql

			msg="您的宠物已成功的关在了宠物森林的笼子中!~"
		 case "fs"
  
           	      sql="update users set cw=0 where [id] ="&myid
			conn.execute sql

			msg="您的宠物已成功放生!~"

              
		end select
response.write msg
end if
	conn.close
	set rs=nothing
	set conn=nothing
%>
<br/>--------<br/><a href='/bbs/cw/indexcw.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>喂食</a>-
<a href='index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>宠物</a>-<a href='/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>社区</a>-<a href='/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>首页</a>





<%Call headsay()%>
