contador de visitas

[zanelati2002 0]

olhem o codigo

<%SET Con = Server.CreateObject("ADODB.Connection")Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("login/db/banco/siteusers.mdb") &";Persist Security Info=False;Jet OLEDB:Database Password=0tryagain89"set conta_visitas = Con.execute("SELECT * FROM contador")IF NOT Session("on") = TRUE THENCon.Execute("UPDATE contador SET visitas="& conta_visitas("visitas")+1 &"")	Session("on") = TRUE	Session.TimeOut = 30END IFResponse.Write "" & conta_visitas("visitas")%>

olhem o erro

 

Visitas ao Site [ error '80020009' Ocorreu uma exceção. /minhas webs/Default.asp, line 146

porque este erro aspas onde me ajudem

[roberio 0]

Tenta assim:

 

set conta_visitas = Con.execute("SELECT * FROM contador")contador1 = rs("visitas")+1IF NOT Session("on") = TRUE THENCon.Execute("UPDATE contador SET visitas="& contador1 &"")Session("on") = TRUESession.TimeOut = 30END IFResponse.Write " & contador1 & "

[Mário Monteiro 179]

qual a linha do erro??

[roberio 0]

1 <%2 SET Con = Server.CreateObject("ADODB.Connection")3 Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("login/db/banco/siteusers.mdb") &";Persist Security Info=False;Jet OLEDB:Database Password=0tryagain89"45 set conta_visitas = Con.execute("SELECT * FROM contador")67 IF NOT Session("on") = TRUE THEN8 Con.Execute("UPDATE contador SET visitas="& conta_visitas("visitas")+1 &"")9 Session("on") = TRUE10 Session.TimeOut = 3011 END IF12 13 Response.Write "" & conta_visitas("visitas")14 %>

O erro tá na linha 8. O símbolo "& &", refere-se a uma variável e, portanto, todas as operações devem ser feitas separadamente, incluíndo apenas o resultado.

 

Ok???

[Mário Monteiro 179]

este update você pode fazer diretamente caraCon.Execute("UPDATE contador SET visitas = visitas + 1")