dim GL_0,GL_1,GL_2,GL_3,GL_4,GL_5
GL_0 = Rs1("User_RTime")
GL_1 = int(datediff("d",GL_0,"2007-11-5")/365)
if GL_1>3 then
GL_5 = datediff("d",GL_0,"2007-11-5")-int(GL_1/4)
GL_2 = int(GL_5/365)
else
GL_2 = GL_1
end if
GL_3 = Request.Form("GZ_Day")
Select Case GL_3
case 21,22,23,24,25,26,27,28,29,30,31
GL_4=GL_2*15
case 14,15,16,17,18,19,20
GL_4= int(GL_2*15/2)
case else
GL_4=0
end select