<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<%Call head()
Call saycarda("宠物还魂丹购买")

dim sl


sl=request.form("sl")


if pz=0 then
response.write"您暂时还没有领养宠物哦`~"
else
if cwhh="" or cwhh=0 then
response.write"您还没有购买还魂丹哦~"
else

                sql="update users set cwhh=cwhh-"& sl &",cwrq=cwrq+150 where [id] ="&myid 
			conn.execute sql

response.write"使用成功!!您的宠物复活了!!"
end if
end if

	conn.close
	set rs=nothing
	set conn=nothing
%>
<br/>--------<br/><a href='/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>社区</a>-<a href='/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>首页</a>







<%Call headsay()%>
