set rs5=server.CreateObject("adodb.recordset")
sql="select * from huiyuaninfo where hyname='"&username&"'"
rs5.open sql,conn,1,3
if not rs5.eof then
if rs5("fanum")>=1 then
bianhao=trim(request("bianhao"))
sql="select * from tzzjinfo where tzbianhao='"&bianhao&"' and syxs>0"
rs.open sql,conn,1,1
rs5("chanum")=rs5("chanum")-1