Pedro
|
GUARULHOS
SP - BRASIL
|
|
Postada em 21/06/2004 01:10 hs
Fiz um contador de acessos com banco de dados access e coloquei na página default.asp. Acontece que o contador conta de dois em dois. Isso só ocorre ém páginas com o nome default.asp. Alguém sabe pq isso acontece, e como solucionar? valeu... |
|
|
|
|
|
|
|
Postada em 21/06/2004 17:42 hs
Pedro, não me lembro se já usei em default, mas com certeza fazendo o script numa página counter.asp ou counter.inc e depois fazendo um include na default.asp, vai que é um dodge v8. Abraço e boa sorte. Márcio Puntel. |
|
|
|
Pedro
|
GUARULHOS
SP - BRASIL
|
|
Postada em 22/06/2004 00:23 hs
Eu já coloquei na default.asp direto, e já coloquei um include tbm, dá a mesma coisa... e que é essa parada de dodge v8? |
|
|
|
Márcio
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 23/06/2004 08:44 hs
Pedro,
então é o teu script que não tá legal... dá uma conferida nele ou tenta fazer outra forma de incremento. Se quiser posso te mandar o que eu uso e que funciona bem.
E dodge v8, é uma brincadeira. Quer dizer que vai "voar" como os dodge de motor v8 antigos (meu pai teve um). Cara aquilo sai do chão literalmente.
Márcio Puntel.
|
|
|
|
Pedro
|
GUARULHOS
SP - BRASIL
|
|
Postada em 24/06/2004 04:57 hs
Bom, acredito que não seja o código... Então, por favor, mande-me um código por email!? pedro.f@bol.com.br Valeu... |
|
|
|
Márcio
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/06/2004 08:29 hs
Pedro,
vou colocar aqui pois possa servir para outras pessoas que entrarem no fórum também aproveitarem...
Segue abaixo.
PS.: usei esse código como include na default.asp. Porém nada impede que redirecione para essa página, faça a contagem e depois redirecione para página de seu interesse.
<%
Dim Conn, RsQuery, Counter
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath("../dados/banco_de_dados.mdb")&";"
Set RsQuery = Conn.Execute("SELECT * FROM acessos)
Counter = RsQuery.fields("acesso") + 1
Set RsQuery = Conn.Execute("UPDATE acessos SET acessos = " & Counter & ")
'Se quiser exibir o número de acesso acrescido da visita atual:
Set RsQuery = Conn.Execute("SELECT * FROM acesso")
Counter = RsQuery("acesso")
Response.write Counter
Conn.Close
Set Conn = Nothing
%>
Barbada né!?
Espero que funcione.
Abraço.
|
|
|
|
