Operation must use an updateable query.

Håller på och pular lite med en toplist men jag får error:
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

Den hänvisar till rad
Set reffer = connection.Execute(SQLin)

<%
ip = request.servervariables("remote_addr")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\cgi-bin/toplist.mdb")

sql = "select ip from banned where ip = '" & ip & "' "
set rs = connection.execute(sql)
%>

<%
if rs.eof then 

SQLin = "SELECT * FROM users where id = " & Request("Id") & ""
set reffer = connection.execute(SQLin)

incoming = reffer("incoming")
incoming = incoming + 1

SQLin = "UPDATE users set incoming=" & incoming & " where id=" & Request("id") & " "
Set reffer = connection.Execute(SQLin)

sqlTemp = "Insert into banned " &_
"(ip) " &_
"values('" & ip & "'); "
connection.execute(sqlTemp)

dim strTime
strTime = date() -0.5 'hämtar dagens datum och går ett halvt dygn tillbaka, dvs 12 timmar
nySql = "delete from banned where deadtime <  #" & strTime & "#  "
connection.execute(nySql)

response.redirect("http://www.adress.nu")
%>
<% else
response.redirect("http://www.adress.nu")
%>
<% end if %>

Andra problemet är att datum saken som gör att ett ip skall tas bort efter 12h inte fungerar, varför?

Hoppas på hjälp
Andreas

[Redigerat av AG den 15 jun 2000]

Hello,

De gånger jag fått detta felmeddelande:

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

så har det handlat om rättigheterna på katalogen där databasen ligger.
Den katalogen måste ha Läs och Skriv rättigheter, annars kan du ej lägga till någonting nytt i databasen utan bara hämta information som redan finns i databasen.

//PatrikB

------------------
=================================
** ZWGdesign **
=================================

OK verkar som mina skriv rättigheter har försvunnit, konstigt.
Jag testade lokalt och då fungerade de, alltså inget fel på koden.

Dock strulade en annan fil till sig
det gäller en redirect där en adress skall hämtas från en databas och bli iväg skickad

SQLout = "SELECT * FROM users where id = " & Request("Id") & ""
set out = connection.execute(SQLout)

url = out("url")
outgoing = out("outgoing")
outgoing = outgoing + 1

SQLout = "UPDATE users set outgoing=" & outgoing & " where id=" & Request("id") & " "
response.redirect("url")

Varför fungerar inte följande?
Den vill inte redirecta helt enkelt

Andreas

Det ska vara:

response.redirect(url)

utan "-tecken. Detta för att du anropar en variabel.

------------------
Fredrik Klarqvist
fredrik.klarqvist@swipnet.se
www.streetwise.se/fredrik/

...sen ser jag nu att du inte executar update satsen....fast det kanske du har koll på?

------------------
Fredrik Klarqvist
fredrik.klarqvist@swipnet.se
www.streetwise.se/fredrik/

Skall testa det du sa, ja att den inte var avslutat hade jag koll på, klippte bara in endel utav koden.

Tack för hjälpen
Andreas

En liten sak till ...

jag brukar alltid använda mig av:

Response.Buffer = True

dvs, den kör all kod på servern innan den skickas iväg.

då blir "huvudet" rätt och inga fel uppkommer .... förhoppningsvis ;)

//Patrikb

------------------
=================================
** ZWGdesign **
=================================