% if isempty(session("connected")) then application.lock application("counter")=application("counter")+1 application.unlock end if session("connected")=true function gcounter(counter) dim s,i,g s=cstr(counter) for i= 1 to len(s) g=g&"" next gcounter=g end function %>
|