<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"--> 
<!--#include file="conn1.asp"--> 
<%call head()
call saycardd("合成轩辕圣甲")
ids=session("id")
%>
<%
Server.ScriptTimeout=999
set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select j2,bs,y6,hw1,hw2,hw3,d7,yz from wupin where cstr(ids)='"&myid& "'"
rs.open strsQL,liao,1,1
if rs("j2")<5 then
msg="您没有5个铜矿！"
else
if rs("bs")<1 then
msg="您没有宝石"
else
if rs("y6")<1 then
msg="您没有情人花"
else
if rs("hw1")<3 then
msg="您没有3个巨型号角"
else
if rs("hw2")<3 then
msg="您没有3个星光灭绝"
else
if rs("hw3")<3 then
msg="您没有3个魔皇粉星拳"
else
if rs("yz")<100000 then
msg="您的银两不够扣除手续费"
else
if rs("d7")<5 then
msg="您没有5件龙王甲"
else
sql="update wupin set d8=d8+1 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set j2=j2-5 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set bs=bs-1 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set y6=y6-1 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set hw1=hw1-3 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set hw2=hw2-3 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set hw3=hw3-3 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set yz=yz-100000 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set d7=d7-5 where cstr(ids)="&myid
  liao.Execute(sql)
msg="您成功合成物品<b><u>轩辕圣甲</u></b>"
END IF
end if
end if
end if
END IF
end if
end if
end if
Response.Write ""&msg&"<br/>========<br/>"
 rs.Close
	Set rs=Nothing
     liao.Close
      Set liao=Nothing
%>
<a href="mywp.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">我的物品</a><br/>
<a href="index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">江湖首页</a><br/>
<a href="/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">社区首页</a><br/>
<%call head1()%>