---
title: "Bild klick +1"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12408-bild-klick-1"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jboy_87"
published: "2001-10-29T23:24:00.000Z"
updated: "2001-11-01T22:13:00.000Z"
replies: 19
views: 234
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/12408-bild-klick-1"
---

# Bild klick +1

## #1 — jboy_87, 2001-10-29T23:24Z

Hur gör man för att det ska + 1 i databasen när man klickar på bilden?????

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

## #2 — jorgen, 2001-10-29T23:33Z

Hej **jboy_87**!

Det är ingen som svarar fortare för att du masspostar inlägg. Jag har raderat alla utom ett. 

Vi är tacksamma om du bara postar 1 inlägg "av samma sort".

mvh Jörgen
Moderator wF

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

## #3 — jboy_87, 2001-10-29T23:40Z

ops förlåt sidan e trög så jag råcka klicka två gånger

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

## #4 — SPiN, 2001-10-30T00:20Z

```
If Request.QueryString("bild") <> "" Then
    set connectionObjekt = Server.CreateObject("ADODB.Connection")
    connectionObjekt.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\mapp\mapp\databas.mdb"

    connectionObjekt.Execute("UPDATE falt SET klick = klick + 1 WHERE bild = '" & Request.QueryString("bild") & "'")

    connectionObjekt.Close()
    set connectionObjekt = Nothing
End If

Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & ""?bild=minbild"><img src=""bild.gif""></a>"
```

Hoppas du förstår hur du ska göra, för jag orkar inte förklara just nu... Tyckte det blev rätt lättförståeligt, ivf :)

Red} Eh, råkade få med ett par semikolon... :r

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

## #5 — jboy_87, 2001-10-30T00:53Z

nope funkar inte!!!

Bild.asp:

\<html\>

\<head\>
\<meta http-equiv="Content-Type" content="text/html; charset=windows-1252"\>
\<meta name="GENERATOR" content="Microsoft FrontPage 4.0"\>
\<meta name="ProgId" content="FrontPage.Editor.Document"\>
\<title\>Ny sida 1\</title\>
\</head\>

\<body\>

\<p\>\<a href="bild2.asp?bild=minbild"\>Bild\</a\>\</p\>

\</body\>

\</html\>

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

Bild2.asp:
\<html\>

\<head\>
\<meta http-equiv="Content-Type" content="text/html; charset=windows-1252"\>
\<meta name="GENERATOR" content="Microsoft FrontPage 4.0"\>
\<meta name="ProgId" content="FrontPage.Editor.Document"\>
\<title\>Ny sida 1\</title\>
\</head\>

\<body\>

\<p\>\<%If Request.QueryString("bild") \<\> "" Then
    set connectionObjekt = Server.CreateObject("ADODB.Connection")
    connectionObjekt.Open "driver={Microsoft Access Driver (\*.mdb)}; DBQ=C:\\mapp\\mapp\\databas.mdb"
    connectionObjekt.Execute("UPDATE falt SET klick = klick + 1 WHERE bild = '" & Request.QueryString("bild") & "'")

    connectionObjekt.Close()
    set connectionObjekt = Nothing
End If

Response.Write "\<a href=""" & Request.ServerVariables("SCRIPT_NAME") & ""?bild=minbild"\>\<img src=""bild.gif""\>\</a\>"%\>

\</p\>

\</body\>

\</html\>

Får fel meddelandet:

Kompileringsfel i Microsoft VBScript (0x800A0408)
Ogiltigt tecken
/bild2.asp, line 21, column 73
Response.Write "\<a href=""" & Request.ServerVariables("SCRIPT_NAME") & ""?bild=minbild"\>\<img src=""bild.gif""\>\</a\>"
\------------------------------------------------------------------------^

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

## #6 — SPiN, 2001-10-30T01:19Z

Ooops, så här bör det vara:

```
Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?bild=minbild""><img src=""bild.gif""></a>"
```

Plus att du måste ändra en del grejjer i scriptet, som t.ex. din sökväg till databasen.

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

## #7 — crisse6, 2001-10-30T10:34Z

jboy_87, kan du försöka använda 

> ```
>
> ```

 runt dina koder, som sagt du får nog mer svar då när det ser lite mer orörigt... ;)

mvh crisse6

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

## #8 — jboy_87, 2001-10-30T11:27Z

Jag vill att när man ska klicka på bilden så ska det + 1 i databasen 
när användaren klickar så ska + 1 till hans tabell.

```
<%
If Request.QueryString("bild") <> "" Then
    set connectionObjekt = Server.CreateObject("ADODB.Connection")
    connectionObjekt.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\Database\members.mdb"
  
    connectionObjekt.Execute("UPDATE members SET poang = poang + 1 WHERE ID = " & RecSet("id") = '" & Request.QueryString("bild") & "'")

    connectionObjekt.Close()
    set connectionObjekt = Nothing
End If

Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?bild=minbild""><img src=""bild.gif""></a>"
%>
</p>
```

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

## #9 — jboy_87, 2001-10-30T16:24Z

Jag vill att när man ska klicka på bilden så ska det + 1 i databasen 
när användaren klickar så ska + 1 till hans tabell.
Kod:

\--------------------------------------------------------------------------------
\<%
If Request.QueryString("bild") \<\> "" Then
set connectionObjekt = Server.CreateObject("ADODB.Connection")
connectionObjekt.Open "driver={Microsoft Access Driver (\*.mdb)}; DBQ=C:\\Inetpub\\wwwroot\\Database\\members.mdb"

connectionObjekt.Execute("UPDATE members SET poang = poang + 1 WHERE ID = " & RecSet("id") = '" & Request.QueryString("bild") & "'")
connectionObjekt.Close()
set connectionObjekt = Nothing
End If

Response.Write "\<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?bild=minbild""\>\<img src=""bild.gif""\>\</a\>"
%\>
\</p\>

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

## #10 — jboy_87, 2001-11-01T00:24Z

hallå hjälp nån

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

## #11 — LarsG, 2001-11-01T09:24Z

```
connectionObjekt.Execute("UPDATE members SET poang = poang + 1 WHERE ID = " & Request.QueryString("bild") )
```

Om du testar den sql-satsen, vad händer då?

Om det inte fungerar så beskriv vad som är fel, om du får något felmeddelande så skicka med det. Annars så är det ganska svårt att hjälpa till.

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

## #12 — jorgen, 2001-11-01T09:32Z

```
connectionObjekt.Execute("UPDATE members SET poang = poang + 1 WHERE ID = " & RecSet("id") [b]=[/b] '" & Request.QueryString("bild") & "'")
```

Du kan inte bara sätt ett likamed tecken till så.

```
connectionObjekt.Execute("UPDATE members SET poang = poang + 1 " & _
" WHERE ID = " & RecSet("id")& " " & _
" AND [i]Image[/i] = '" & Request.QueryString("bild") & "'")
```

mvh Jörgen :)

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

## #13 — jboy_87, 2001-11-01T18:30Z

får felmeddelandet:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\]Allmänt fel Det går inte att öppna registernyckeln 'Temporary (volatile) Jet DSN for process 0x85c Thread 0x8c8 DBC 0x109af0c Jet'.
/Default.asp, line 26

```
<%If Request.QueryString("bild") <> "" Then
set connectionObjekt = Server.CreateObject("ADODB.Connection")
connectionObjekt.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=database.mdb"
connectionObjekt.Execute("UPDATE falt SET klick = klick + 1 WHERE bild = '" & Request.QueryString("bild") & "'")

connectionObjekt.Close()
set connectionObjekt = Nothing
End If

Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?bild=minbild""><img src=""bild.gif""></a>"
%>
```

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

## #14 — jboy_87, 2001-11-01T18:36Z

asså hur måga filer ska man göra ???????

fattar ingenting

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

## #15 — LarsG, 2001-11-01T18:48Z

Det fel du får (volatile) beror oftast på att det är fel sökväg (dvs DBQ=database.mdb) till databasen eller att IUSR\_\<servername\> inte har tillräckliga rättigheter på den katalog som innehåller databasen (Det krävs rxwd.)

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

## #16 — jboy_87, 2001-11-01T20:41Z

jag använder bara denna fil nu:
index.asp:

ser ut så :

%If Request.QueryString("bild") \<\> "" Then
set connectionObjekt = Server.CreateObject("ADODB.Connection")
connectionObjekt.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("Database/database.mdb")&";pwd=losen"
connectionObjekt.Execute("UPDATE falt SET klick = klick + 1 WHERE bild = '" & Request.QueryString("bild") & "'")
connectionObjekt.Close()
set connectionObjekt = Nothing
End If

Response.Write "\<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?bild=minbild""\>\<img src=""bild.gif""\>\</a\>"
%\>

när jag klickar på bilden så får jag detta felmeddelande

> Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
> \[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] För få parametrar angavs. 1 förväntades.
> /WWW/Test/klick/index.asp, line 15

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

## #17 — icaaq, 2001-11-01T20:45Z

har du verkligen en tabell som heter falt och ett fält som heter klick?

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

## #18 — LarsG, 2001-11-01T20:46Z

Då är det något kolumnnamn som inte finns i tabellen falt, t.ex. bild

```
UPDATE falt SET klick = klick + 1 WHERE bild = '" & Request.QueryString("bild") & "'")
```

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

## #19 — jboy_87, 2001-11-01T21:38Z

ops glömde en kolumn men när man klickar så plussas inte 1 :-\<

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

## #20 — jboy_87, 2001-11-01T22:13Z

ops glömde en kolumn men när man klickar så plussas inte 1 :-\<

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12408-bild-klick-1