%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%Option Explicit%> <% If Session("Identificacao")=0 Then Dim oAcessos : Set oAcessos = New nsContadorADO : oAcessos.Somar Application("Conexao"),"Acessos", 1 Set oAcessos = Nothing Session("Identificacao")=Session.LCID End If %>
|