<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<%Call head()
Call saycarda("开垦土地")

if myid=<0 or vipdj=0 then 
response.write "开垦土地目前仅对VIP会员开放或该功能升级中!"
else
conn.execute("update users set huazhang=huazhang+1,zhongzi=zhongzi-1 where id="&myid)
response.write "尊贵的VIP会员,成功开垦土地!"
response.write "<br/><a href='/bbs/jia/hua.asp?sid="&sid&"'>返回花园</a>"
end if
conn.close
set conn=nothing
%>
<!--#include file="../fanhui.asp"--><%
Call headsay()
%>