---
title: "count klick .. updaterar inte"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/78039-count-klick-updaterar-inte"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Frexuz"
published: "2003-05-25T15:17:08.000Z"
updated: "2003-05-26T08:05:04.000Z"
replies: 8
views: 231
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/78039-count-klick-updaterar-inte"
---

# count klick .. updaterar inte

## #1 — Frexuz, 2003-05-25T15:17Z

SUB count(id) 

  ' Räkna klick på länken 
  Set Con = Server.CreateObject("ADODB.Connection") 
  Con.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("dl_count.mdb")&";" 
  SQL  = "Select link From dl Where id = " & id 
  Set RS  = Con.Execute(SQL) 
  
  If Request.Cookies(Request.Querystring("id")) = "true" Then 
  strRedirLink = RS("link") 
  Response.Redirect(strRedirLink) 

  Else 

  SQL = "Update dl Set nr_dl = (nr_dl + 1) Where id = " & id 
  Con.Execute(SQL) 

  Response.Cookies(Request.Querystring("id")) = "true" 
  Response.Cookies(Request.Querystring("id")).Expires = DateAdd("n", 1, now) 

  strRedirLink = RS("link") 
  
  SQL  = "Select link From dl Where id = " & id 
  Set RS  = Con.Execute(SQL) 
  strRedirLink = RS("link") 
  RS.Close 
  Set RS = nothing 
  Con.Close 
  Set Con = nothing 
  
  Response.Redirect(strRedirLink) 
End if 
End SUB 

\------------

länken updateras inte.. kan nån se varför?
får inget felmeddelande eller annat
 :l

Permalänk: https://www.webforum.nu/p/78039

## #2 — dahlgren, 2003-05-25T15:27Z

Kan det vara så att du redan planterat kakan medans du testat?
Edit: Varmt välkommen till webforum.

Permalänk: https://www.webforum.nu/p/1063870

## #3 — solbulle, 2003-05-25T17:59Z

Hur kallar du på subben?

Osså välkommen till wF!

Permalänk: https://www.webforum.nu/p/1063977

## #4 — Frexuz, 2003-05-25T19:13Z

tar jag bort:

If Request.Cookies(Request.Querystring("id")) = "true" Then 
strRedirLink = RS("link") 
Response.Redirect(strRedirLink) 

Else 

SQL = "Update dl Set nr_dl = (nr_dl + 1) Where id = " & id 
Con.Execute(SQL) 

Response.Cookies(Request.Querystring("id")) = "true" 
Response.Cookies(Request.Querystring("id")).Expires = DateAdd("n", 1, now) 

strRedirLink = RS("link")

Permalänk: https://www.webforum.nu/p/1064049

## #5 — crisse6, 2003-05-25T19:48Z

testa att skriva ut cookisen da? skriv ut sql sats? :D

Permalänk: https://www.webforum.nu/p/1064075

## #6 — Frexuz, 2003-05-25T20:32Z

hur? :)

Permalänk: https://www.webforum.nu/p/1064103

## #7 — Frexuz, 2003-05-25T20:39Z

hm..
sa åt min polare att testa o klicka runt..
sen efter 1 minut göra det igen..

båda gångerna plussade den
\------

grejen e att den inte plussar när jag klickar :D
vad kan vara fel?

Permalänk: https://www.webforum.nu/p/1064114

## #8 — crisse6, 2003-05-25T22:22Z

okej? och det vill vi inte? :D

response.write request.cookies(request.querystring("id"))
response.write SQL 'satts innan du kor sql fragan

r/ 
Testa att kanske byta vardet i kakan till "sant" istallet for "true", bara for att testa.... :)

Permalänk: https://www.webforum.nu/p/1064198

## #9 — Engine^, 2003-05-26T08:05Z

Nu har jag bara skrivit om din kod en smula, men jag ser dock inga fel i den. Nu har jag iofs inte druckit allt nödvändigt morgonkaffe, så jag kan ha missat något enkelt ;)

```
Sub count(id) 
  [blue]' Räkna klick på länken [/blue]
  Set Con = Server.CreateObject("ADODB.Connection")

  Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dl_count.mdb")&";" 

  SQL = "Select link From dl Where id = " & id 
  Set RS = Con.Execute(SQL, , 1) 
  strRedirLink = RS("link") 

  [b]Response.Write "Current cookie: " & Request.Cookies(Request.QueryString("id"))[/b]
  If Not Request.Cookies(Request.Querystring("id")) = "true" Then 
    SQL = "Update dl Set nr_dl = nr_dl + 1 Where id = " & id 
    Con.Execute(SQL, intRA, 128)
    [b]Response.Write "Records affected: " & intRA & "<br>SQL: " & SQL[/b]

    Response.Cookies(Request.Querystring("id")) = "true" 
    Response.Cookies(Request.Querystring("id")).Expires = DateAdd("n", 1, now) 
  End if 

  Set RS = nothing 
  Set Con = nothing 

  Response.Redirect strRedirLink
End Sub
```

Permalänk: https://www.webforum.nu/p/1064311

---

Tråden på webben: https://www.webforum.nu/amne/asp/78039-count-klick-updaterar-inte