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