Erro em contador de acessos

[Damage inc. 0]

Olá pessoal,

estou tentando usar este código para contar os acessos as paginas do site, só que esta aparecendo um erro de compilação do Microsoft VBScript, apontando um "Caractere inválido" na linha 24, coluna 26, ao acessar o bd.

A referida linha do código é:

rsContador.Open strSQL, _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\database\contador.mdb") & ";", adOpenKeyset, adLockPessimistic, adCmdText

 

Será que alguém poderia me ajudar a resolver isso?

Abaixo, segue o código.

 

Vlw

 

<%' Usando uma função evitamos o conflito com nome de variaveis que' porventura o usuario esteja usando em seu códigoFunction Retorna_Acessos() 'variáveis ADO Const adOpenKeyset = 1 Const adLockPessimistic = 2 Const adCmdText = &H0001  ' Variáveis locaisDim strArquivo Dim strSQL Dim rsContador Dim iContador ' cria uma consulta SQL usando o nome do scriptstrArquivo = Request.ServerVariables("SCRIPT_NAME")strSQL = "SELECT pagina, n_acessos FROM Acessos WHERE pagina='" & strArquivo & "';" ' abre um recordsetSet rsContador = Server.CreateObject("ADODB.Recordset")' acesso a uma base de dados AccessrsContador.Open strSQL, _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\database\contador.mdb") & ";", adOpenKeyset, adLockPessimistic, adCmdText'Se não existe registro ainda vamos incluir um registroIf rsContador.EOF Then rsContador.AddNewiContador = 0rsContador.Fields("pagina").Value = strArquivoElse'Se já existe registro le o registro a atualiza o contadorrsContador.MoveFirst iContador = rsContador.Fields("n_acessos").ValueEnd If ' incrementa o contador e atualiza a base de dadosrsContador.Fields("n_acessos").Value = iContador + 1rsContador.Update' fecha a conexaorsContador.CloseSet rsContador = Nothing' retorna o contadorRetorna_Acessos = iContador + 1End Function%>

Código retirado de: http://www.macoratti.net/indasp.htm

[Damage inc. 0]

Amigos, consegui resolver o problema! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

O erro tava no "traço baixo" antes do "Provider=Microsoft.Jet.OLEDB.4.0.........". Não estava entendendo a função dele no código, então retirei e fiz os includes nas páginas. Agora esta funcionando legal.

 

O trecho ficou assim:

rsContador.Open strSQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\database\contador.mdb") & ";", adOpenKeyset, adLockPessimistic, adCmdText