<%

if vipdj=0 then
if clng(getvip(myjb+bank,myjy))<=0 then
conn.Execute("update Users set vipface=0 Where id=" & myid)
elseif clng(getvip(myjb+bank,myjy))>0 and clng(getvip(myjb+bank,myjy))<=5 then
conn.Execute("update Users set vipface=1 Where id=" & myid)
END IF
else
if vipdate="" then vipdate="2050-1-1 11:11:11"
if now()>vipdate or vipdate="" then
conn.Execute("update Users set vipface=0,vipdj=0 Where id=" & myid)
end if
END IF




%>
<!--#include file="sever.asp"-->
