count klick .. updaterar inte

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

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

Hur kallar du på subben?

Osså välkommen till wF!

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")
------------------

så funkar koden fint

men vill inte att man ska kunna klicka på 1 länk som fan

d e ngt fel med cookie'n

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

hur? :)

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?

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.... :)

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