Está ocorrendo este erro:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.
/links/url.asp, line 17
Código fonte:
<%@ Language="VBScript" %>
<% Option Explicit %>
<% Response.buffer = true %>
<%
Dim ID
Dim conLinks
Dim recLinks
Dim cliques
Dim cliques2
Set conLinks = Server.CreateObject("ADODB.Connection")
Set recLinks = Server.CreateObject("ADODB.Recordset")
Set ID = Request.QueryString("ID")
conLinks.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../bd/Links.mdb")
recLinks.Open "SELECT * FROM Links where Id=" & ID & " ",conLinks
cliques = recLinks.fields("cliques")
cliques2 = cliques+1
conLinks.Execute("UPDATE links SET cliques = " & cliques2 & " where Id =" & ID)
response.redirect replace(reclinks.fields("url"),"#","")
%>
tdelgrande
Veterano
Registrado
1.1K Mensagens
1 Curtida