---
title: "Söker förbättrad uppdate..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/65620-söker-förbättrad-uppdate"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SannyW"
published: "2003-01-21T08:56:51.000Z"
updated: "2003-01-21T11:28:59.000Z"
replies: 11
views: 254
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/65620-söker-förbättrad-uppdate"
---

# Söker förbättrad uppdate...

## #1 — SannyW, 2003-01-21T08:56Z

Då var det dax igen, jag och mina problem. Jo jag har ett uppdateringsscript som jag vill förbättra men jag hittar inte riktigt rätt. Jag har idag en default.sida och en uppdate????.asp för att uppdatera varje kolumn. 

Någon som känner sig mogen att komma men synpunkter på hur man kan lösa detta så man typ har två sidor istället för åtta?

Vill på något sätt sända en givare till update att det gäller just den kolumen.

Jag vill men inte hjärnan  :q , se lösningen.............

Är tacksam för synpunkter, ev. även lösningar. Om någon ger sig på detta så förklara gärna som man förklarar för en ettåring. Jag känner att jag är på den nivån just nu när det gäller asp :)

Har precis lärt mig krypa, försöker nu resa mig upp.......

default.asp

```
<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("stat.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
   Visa = "SELECT * FROM stat ORDER BY namn"
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

<p>Klicka bara på Plus och Minus</p>

<table border="0" cellpadding="3" cellspacing="3"> 

<tr>
<td>Namn</td>
<td></td>
<td>Matcher</td>
<td></td>
<td></td>
<td>Mål</td>
<td></td>
<td></td>
<td>Ass</td>
<td></td>
<td></td>
<td>Utv</td>
<td></td>
</tr>
<%	Do Until RecSet.EOF %>

<tr>
<td><% =RecSet("namn") %></td>
<td><a href="updatematcher1.asp?ID=<% =RecSet("id") %>"><img src="_.gif" border="0"></A></td>
<td align="center"><% =RecSet("matcher") %></td>
<td><a href="updatematcher.asp?ID=<% =RecSet("id") %>"><img src="+.gif" border="="></A></td>
<td><a href="updatemal1.asp?ID=<% =RecSet("id") %>"><img src="_.gif" border="0"></A></td>
<td align="center"><% =RecSet("mål") %></td>
<td><a href="updatemal.asp?ID=<% =RecSet("id") %>"><img src="+.gif" border="="></A></td>
<td><a href="updateass1.asp?ID=<% =RecSet("id") %>"><img src="_.gif" border="0"></A></td>
<td align="center"><% =RecSet("ass") %></td>
<td><a href="updateass.asp?ID=<% =RecSet("id") %>"><img src="+.gif" border="="></A></td>
<td><a href="updateutv1.asp?ID=<% =RecSet("id") %>"><img src="_.gif" border="0"></A></td>
<td align="center"><% =RecSet("utv") %></td>
<td><a href="updateutv.asp?ID=<% =RecSet("id") %>"><img src="+.gif" border="="></A></td>

</tr>

<%	RecSet.MoveNext
	Loop
	RecSet.Close %>
</table>
```

updateass.asp

```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("stat.mdb")
SQL = "UPDATE stat SET ass = ass--1 WHERE ID = "&Request.Querystring("ID")&""
Conn.Execute(SQL)

Conn.Close

Response.Redirect "default.asp" 
%>
```

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

## #2 — firstchoice, 2003-01-21T09:13Z

har du 8 olika uppdate sidor?
är det SQL uttrycket som är olika?

ge ett par exempel på update sidor!

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

## #3 — SannyW, 2003-01-21T09:18Z

Jag har en + och en - för varje kolumn. Se nedan:

För att lägga till ett i kolumnen ass.

```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("stat.mdb")
SQL = "UPDATE stat SET ass = ass--1 WHERE ID = "&Request.Querystring("ID")&""
Conn.Execute(SQL)

Conn.Close

Response.Redirect "default.asp" 
%>
```

För att ta bort 1 från kolumnen ass.

```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("stat.mdb")
SQL = "UPDATE stat SET ass = ass-1 WHERE ID = "&Request.Querystring("ID")&""
Conn.Execute(SQL)

Conn.Close

Response.Redirect "default.asp" 
%>
```

Tänkte att man eventuellt kunde lägga allt i 
\<a href="update.asp?ID=\<% =RecSet("id") %\>"\>&Kolumn=ass&value=--1

Men har inte hittat riktigt rätt ännu.... :q

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

## #4 — firstchoice, 2003-01-21T09:43Z

testa detta

```
<a href="update.asp?ID=<% =RecSet("id") %">&Kolumn=ass&value=--1
```

```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("stat.mdb")
SQL = "UPDATE stat SET " & Kolumn &" = " & Kolumn & value & " WHERE ID = "& Request.Querystring("ID") &""
Conn.Execute(SQL)

Conn.Close

Response.Redirect "default.asp" 
%>
```

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

## #5 — SannyW, 2003-01-21T09:53Z

Fan gillade inte alls smaken på det......

Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Syntaxfel i UPDATE-uttryck.
/ubk/admin/stat/updateass1.asp, line 6

Jag var inne på samma men skrev 

```
SQL = "UPDATE stat SET "&Request.Querystring("KOLUMN")&" = ("&Request.Querystring("KOLUMN")&"-"&Request.Querystring("VALUE")&")" WHERE ID = "&Request.Querystring("ID")&""
```

Hmm....

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

## #6 — @nders, 2003-01-21T09:55Z

Istället för att göra execute på SQL-frågan, skriv ut den med Response.Write, så du får se vad den innehåller.

mvh,

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

## #7 — SannyW, 2003-01-21T10:00Z

Vet inte riktigt om du menade detta men @nders:

ADODB.Connection (0x800A0BB9)
Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.
/ubk/admin/stat/updateass1.asp, line 6

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

## #8 — @nders, 2003-01-21T10:57Z

Huh?

Nej... Det jag menade var

```
SQL = "UPDATE stat SET "&Request.Querystring("KOLUMN")&" = ("&Request.Querystring("KOLUMN")&"-"&Request.Querystring("VALUE")&")" WHERE ID = "&Request.Querystring("ID")
Response.write SQL
'Conn.Execute(SQL)
```

Mvh,

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

## #9 — SannyW, 2003-01-21T11:12Z

Tack @nders, nu var jag med på vad som skulle göras. Kan bara skratt åt sig själv :)

Men problemen kvarstår.................

länken som startar allt är:

```
<a href="updateass1.asp?ID=<% =RecSet("id") %>&kolumn=ass&value=-1"><img src="_.gif" border="0"></A>
```

Om jag kör detta:

```
SQL = "UPDATE stat SET "&Request.Querystring("KOLUMN")&" = ("&Request.Querystring("KOLUMN")&"-"&Request.Querystring("VALUE")&")" WHERE ID = "&Request.Querystring("ID")
```

så får jag:
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
/ubk/admin/stat/updateass1.asp, line 4, column 129
SQL = "UPDATE stat SET "&Request.Querystring("KOLUMN")&" = ("&Request.Querystring("KOLUMN")&"-"&Request.Querystring("VALUE")&")" WHERE ID = "&Request.Querystring("ID")""
\--------------------------------------------------------------------------------------------------------------------------------^

Men om jag gör så här:

```
SQL = "UPDATE stat SET " & Kolumn &" = " & Kolumn & value & " WHERE ID = "& Request.Querystring("ID") &""
```

så funkar något och Response.write skriver:

UPDATE stat SET = WHERE ID = 2

men adressen är :updateass1.asp?ID=2&kolumn=ass&value=-1

Nu är jag förlorad, hittar inte vad som är fel? Vad är det jag missar ???

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

## #10 — @nders, 2003-01-21T11:16Z

Det blev lite konstigt med alla citationstecken. Prova detta:

```
Kolumn = Request.Querystring("kolumn")
value = Request.Querystring("value")
SQL = "UPDATE stat SET " & Kolumn &" = " & Kolumn & value & " WHERE ID = "& Request.Querystring("ID")
```

Du måste ge dina variabler värden innan du kan använda dem.

mvh,

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

## #11 — SannyW, 2003-01-21T11:24Z

TACK @nders!!! 

Det där med att ge variablerna ett värde innan var guldvärt :)

Nu har jag lärt mig något nytt igen!! Och slipper si sådär ca. 20 asp-filer.

Utveckling från :q till :o 

inte illa.....:) 

Tack än en gång till Alla som hjälper mig här inne....

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

## #12 — @nders, 2003-01-21T11:28Z

np!

> **SannyW skrev:**
>
> Utveckling från :q till :o

Kan vi förvänta oss :) om en vecka då? ;)

Lycka till!

mvh,

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/65620-söker-förbättrad-uppdate