Page Visit <%=Application("qt") %>
<%if Application("qt")-Application("qt1")=10 then set con =server.CreateObject("ADODB.Connection") con.Open "DSN=Ai" hit=Application("qt") Application.Lock Application("qt1")=Application("qt") Application.UnLock sql="update data set counter ="&hit&" where key ='6'" con.Execute sql end if Session("quota")=Session("quota")+1 %>