---
title: "Öka fältet med +1"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/120966-öka-fältet-med-1"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hallmert"
published: "2005-01-24T20:16:28.000Z"
updated: "2005-01-25T04:08:25.000Z"
replies: 6
views: 238
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/120966-öka-fältet-med-1"
---

# Öka fältet med +1

## #1 — hallmert, 2005-01-24T20:16Z

Hallå där!

Håller på att scriptar lite. När man skriver i gästboken ska fältet "gb" i tabellen members ökas med +1, så man kan få fram antalet skrivna gästboksinlägg för varje registrerad individ. Varför funkar inte detta?

```
<!-- #include file="adovbs.inc" -->

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/fanclub.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members update gb+1 where ID = "& request.querystring("fromID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.Update
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>

<%

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/fanclub.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From gb where id="&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew

	RecSet("namn") = Session("namn")
	RecSet("datum") = Now()
	RecSet("text") = Request.Form("text")
	RecSet("tillID") = Request.QueryString("ID")
	RecSet("fromID") = Session("id")
	RecSet("readed") = 0
	
	Connect.Execute("update members gb+1 where ID = "& request.querystring("fromID") )

	RecSet.Update
	RecSet.Close
	Connect.Close
	Set RecSet = nothing
	Set Connect = nothing

	If Request.Querystring("typ") = "popup" then
	Response.Redirect "gastbok_svara.asp?meddelande=skickat"
	Else
	Response.Redirect "default.asp?visaSida=gastbok_lasa&ID=" &Request.QueryString("ID")
	End If

%>
```

Det är fel på första SQL-strängen va? 
Tack på förhand!

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

## #2 — Jesper T, 2005-01-24T20:27Z

update members gb=gb+1 where ID = "& request.querystring("fromID")

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

## #3 — Jesper T, 2005-01-24T20:30Z

Detta kan du väl ta bort helt:

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/fanclub.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members update gb+1 where ID = "& request.querystring("fromID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.Update
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
```

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

## #4 — hallmert, 2005-01-24T20:32Z

Hur menar du? Den översta "delen" ska ju uppdatera gb-fältet i tabellen members. Den undre ska ju mata in gästboksinlägget i tabellen gb.

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

## #5 — Jesper T, 2005-01-24T20:35Z

Byt ut resten mot något liknande:

```
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/fanclub.mdb")

Connect.Execute("INSERT INTO gb (namn,datum,text,tillID,fromID,readed) VALUES('"& Session("namn") &"','"& Now() &"','"& Request.Form("text") &"',"& Request.QueryString("ID")& ","& Session("id") &",0)"),,128

Connect.Execute("update members gb=gb+1 where ID = "& request.querystring("fromID") ),,128

	Connect.Close
	Set Connect = nothing

	If Request.Querystring("typ") = "popup" then
	Response.Redirect "gastbok_svara.asp?meddelande=skickat"
	Else
	Response.Redirect "default.asp?visaSida=gastbok_lasa&ID=" &Request.QueryString("ID")
	End If
```

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

## #6 — Jesper T, 2005-01-24T20:37Z

> **hallmert skrev:**
>
> Hur menar du? Den översta "delen" ska ju uppdatera gb-fältet i tabellen members. Den undre ska ju mata in gästboksinlägget i tabellen gb.

Det gör du ju i den andra delen.

```
update members gb=gb+1 where ID = "& request.querystring("fromID")
```

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

## #7 — @nders, 2005-01-25T04:08Z

> **Jesper T skrev:**
>
> ```
> update members gb=gb+1 where ID = "& request.querystring("fromID")
> ```

Jesper har glömt ett *set* mellan tabell- och fältnamnet i SQL-frågan. :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/120966-öka-fältet-med-1