Pessoal, estou tentando fazer um contador pro meu site com banco de dados e estou tendo dificuldades !! será que alguém pode me ajudar o código está abaixo:

 

<%
Dim valor

'***Declarando Conexões com Banco de Dados*
dsn="DBQ=" & Server.Mappath("./contador.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set conn=server.createObject("adodb.connection")
conn.open dsn

'***Lendo o registro para ver a quantidade de usuários***
sql = "select * from visitante"
set rs = conn.execute(sql)
valor = int(rs("qtd") + 1)
conn.close

 

'***Altera o registro na tabela***
sql = "update visitante SET qtd='"& valor &"'"
 'response.write sql'***debug
conn.execute(sql)
conn.close
set conn = nothing
%>

Banco: banco.mdb

Tabela: ContAcess - Campos: Arquivo (texto), acessos (número)

 

* Para exibir o número de Acessos use a Variavel AcessosArq (Ex.: <% = AcessosArq %> Visistas)

 

É um código que pode ser usado em qualquer página:

 

<%

NomePage = LCase(Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") +1)) 'NOME DO ARQUIVO DA PÁGINA
%>

 

<%

'ABERTURA DO BANCO
 Set banco = Server.CreateObject("ADODB.Connection")
 banco.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("dbanco.mdb")
%>

 

<%

'CODIGO DO CONTADOR
 Set oRsContAcess = Server.CreateObject("ADODB.RecordSet")
 
 orscontacess.open "select * from contacess where arquivo = '" & nomepage & "'", banco
 
 if orscontacess.bof and orscontacess.eof then
  banco.execute "insert into contacess (arquivo, acessos) values('" & nomepage & "', 1)"
 else
  banco.execute "update contacess set acessos = acessos + 1 where arquivo = '" & nomepage & "'"
 end if
 orscontacess.close
 
 orscontacess.open "select * from contacess where arquivo = '" & nomepage & "'", banco
 AcessosArq = string(5 - len(orscontacess("acessos")), "0") & orscontacess("acessos")
 orscontacess.close
 
 Response.Write "<b>ALERTA:</b> Use a variavel 'AcessosArq' para exibir o nº de acessos (Ex.: <% = AcessosArq %> Visistas)"

%>

 

<%

'FECHAMEN TO DO BANCO
 banco.close
 set banco = nothing
%>

 

falow...

<!--#include file="Conexao_bd.asp" --> 'arquivo que faz a conexao com o banco
<%
  on error resume next
  Dim MesAtual, AnoAtual, SQL, rst, SQL1, rst1
  MesAtual = month(now)
  AnoAtual = year(now)
  SQL = "SELECT Contador.Ano, Contador.Mes, Contador.Acessos FROM Contador WHERE (((Contador.Ano)=" & AnoAtual & ") AND ((Contador.Mes)="  & MesAtual &  "));"
  Set rst = server.createobject("adodb.recordset")
  rst.open SQL, vgdb, 2, 2
  if not rst.eof then 
   rst("Acessos") = rst("Acessos") + 1
    rst.update
    rst.close
    set rst = nothing
  else
  rst.close
  set rst = nothing
  SQL1 = "SELECT * FROM Contador"
  Set rst1 = server.createobject("adodb.recordset")
  rst1.open SQL, vgdb, 2, 2
  rst1.addnew
  rst1("Ano") = AnoAtual
  rst1("Mes") = MesAtual
  rst1("Acessos") = 1
  rst1.update
  rst1.close
  set rst1 = nothing
  end if  
%>