<%
Dim ligacao, RS, Page, visitante, contador, proximo,visitas
Page=Request.ServerVariables("SCRIPT_NAME")
set ligacao=Server.CreateObject("adodb.connection")
'   Função do INCLUDE_FILE driver_bd.inc
abrir_bd
'--- Determinar qual a Chave do proximo registo
Set RS = ligacao.Execute("SELECT MAX(chave) FROM contador")
proximo=RS(0)+1
If Len(Session(Page)) = 0 Then
	Set RS = ligacao.Execute("SELECT * FROM contador WHERE pagina = '" & Page & "'")
	
	If RS.EOF = TRUE Then
		ligacao.Execute("INSERT INTO contador (chave, pagina, visitas) VALUES (" & proximo & ",'" & Page & "', 0)")
	End If
	
	Set RS = ligacao.Execute("SELECT * FROM contador WHERE pagina = '" & Page & "'")
	visitante=RS("visitas")+1
	Set RS =  ligacao.Execute("UPDATE contador SET visitas = " & visitante & " WHERE pagina = '" & Page & "'")
	Session(Page) = "something"
Else
	Set RS = ligacao.Execute("SELECT * FROM contador WHERE pagina = '" & Page & "'")	
	visitante=RS("visitas")
End If

'Set RS = ligacao.Execute("SELECT visitas FROM contador ORDER BY chave DESC")
Set RS = ligacao.Execute("SELECT visitas FROM contador WHERE pagina = '" & Page & "'")
'---- 1.º Contador
visitas=RS(0)
RS.MoveNext
'---- Fechar os Objectos Criados : ligacao e RS
rs.close
set rs = Nothing
ligacao.close
set ligacao = Nothing
%>