Contador de vistantes

[fmsjilha 0]

tenho um contador de vistantes no meu site, so q ele nao esta atualizando, nao soma mais uma visita qdo alguem entra no site!o codigo eh esse:If Session("Number_of_Visits") = "" Then ' Create ADO Connection Component to connect with database Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "DSN=midiatronics_loganc" ' Create ADO Recordset Component, and associate it with ADO connection Set oRs = Server.CreateObject("ADODB.Recordset") oRs.Source = "Visitantes" oRs.ActiveConnection = oConn oRs.CursorLocation = adUseClient oRs.CursorType = adOpenStatic ' use a cursor other than Forward Only oRs.LockType = adLockOptimistic ' use a locktype permitting insertions ' Get Record Id="Visitantes" oRs.Open "SELECT * FROM Visitantes WHERE Visitantes = '"& Id &"'", oConn ' Verificar se o registro é válido If not oRs.RecordCount = 0 Then oRs("Number_of_Visits") = oRs("Number_of_Visits") + 1 'Soma 1 no numero de visitas oRs.Update oRs.Close Session("Number_of_Visits") = oRs("Number_of_Visits") Else Session("Number_of_Visits") = "" oRs.Close End If Session("Data_Sessao")= Date Session("Hora_Sessao")= Time oConn.Close Set oRs = Nothing Set oConn = Nothinge a msg de erro eh essa:Error Type:Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.como faço para ele funcionar normalmente????grato

[silas_i 0]

Amigo,

 

Provavelmente o erro é nesta linha, certo !?

 

ASP

[*]oRs.Update

 

Isso pode ser pq você não tem permissão de escrita em sua pasta no IIS. Verifique suas configurações, ok !?

[fmsjilha 0]

mas ja verifiquei isso, esta normal,e agora o q pode ser????me ajudem!!!!

[Mário Monteiro 179]

mas ja verifiquei isso, esta normal,

e agora o q pode ser????

me ajudem!!!!

mas este erro eh de permissão verifica teu iis

[Marcelo Barcellos 0]

É o recordset...

 

Ele "setou" o recordset para "UseClient", e "FowardOnly" portanto, não poderá atualiza-lo

 

Colega substitua o seu código

ASP

[*]

 

[*]' Create ADO Recordset Component, and associate it with ADO connection

 

[*]Set oRs = Server.CreateObject("ADODB.Recordset")

 

[*]oRs.Source = "Visitantes"

 

[*]oRs.ActiveConnection = oConn

 

[*]oRs.CursorLocation = adUseClient 

 

[*]oRs.CursorType = adOpenStatic ' use a cursor other than Forward Only

 

[*]oRs.LockType = adLockOptimistic ' use a locktype permitting insertions

 

[*]

 

[*]' Get Record

 

[*]Id="Visitantes"

 

[*]oRs.Open "SELECT * FROM Visitantes WHERE Visitantes = '"& Id &"'", oConn

 

[*]

 

[*]

 

Por esse

 

ASP

[*]

 

[*]' Create ADO Recordset Component, and associate it with ADO connection

 

[*]Set oRs = Server.CreateObject("ADODB.Recordset")

 

[*]Id="Visitantes"

 

[*]oRs.Open "SELECT * FROM Visitantes WHERE Visitantes = '"& Id &"'",oConn,2,2,1

 

[*]