---
title: "Redigerings probbs"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13887-redigerings-probbs"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Steveking"
published: "2002-01-19T19:51:00.000Z"
updated: "2002-01-20T08:36:00.000Z"
replies: 14
views: 242
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/13887-redigerings-probbs"
---

# Redigerings probbs

## #1 — Steveking, 2002-01-19T19:51Z

Tjena.
Ja har en sida me ca 450 filmer som jag listar upp.

Nu är det så att jag vill lägga alla i en kategori. Tex Action,extreem,drama osv. Då har jag gjort så att jag har lagt en dropdown meny breve varje film.
Alltså 450 dropdowns blir det.
Så det går snabbare att lägga in alla i en kategori.

Sen vill jag ju att den skall lägga in varje vald kategori till varje film.

Men hur gör jag så den förstår vilken film den ska lägga in på?

Kan ju inte köra en 

ppdatera = "SELECT \* FROM list WHERE ID = " & Request.Form("ad") & " "

Eftersom jag skall uppdatera alla sammtidigt?

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

## #2 — Steveking, 2002-01-19T20:38Z

Ni förstår nog bättre när ni kollar här: <http://www.uppdaterad.com/hellfire/hek/index1.asp?ordning=Filmer>

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

## #3 — Steveking, 2002-01-19T21:29Z

Jag har testat med detta

index.asp

```

        <select id="myselect@<%=ID%>" name="myselect@<%=ID%>">
          <option value="Action">Action</option>
          <option value="Extreem">xtrem</option>
          <option value="Drama">Dram</option>
          <option selected>V&auml;lj kategori</option>
        </select>
```

Redigera.asp

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

for each item in request.form
If left(item,7) = "select@" Then
SQL = SQL & ("UPDATE tbl_list ")
SQL = SQL & ("Set kategori = " & Request(item) & " ")
SQL = SQL & ("Where ID = " & Right(item,Len(Item)-7) & "; " & vbCrLf)
End If
next
conn.execute(sql)
%>
```

Men får felet

Microsoft OLE DB Provider for ODBC Drivers error '80040e0c' 

Command text was not set for the command object. 

On line 16

och line 16 är conn.execute(sql)

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

## #4 — icaaq, 2002-01-19T22:03Z

Skriv ut SQL-satsen med response.Write

```
<% DBPath = "DBQ=" & Server.MapPath("hekbeta1.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
for each item in request.form
If left(item,7) = "select@" Then
SQL = SQL & ("UPDATE tbl_list ")
SQL = SQL & ("Set kategori = " & Request(item) & " ")
SQL = SQL & ("Where ID = " & Right(item,Len(Item)-7) & "; " & vbCrLf)
End If
next
Response.Write "sql: "& sql
conn.execute(sql)
%>
```

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

## #5 — Steveking, 2002-01-19T22:13Z

sql: 
Microsoft OLE DB Provider for ODBC Drivers error '80040e0c' 

Command text was not set for the command object. 

On line 16

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

## #6 — LarsG, 2002-01-19T22:18Z

Du har döpt din dropdown till myselect@\<id\> men du jämför med select.

Sen så måste du också lägga connect.execute innaför din for each loop annars så kommer du bara att uppdatera en film. 

Du kommer alltså att göra 450 olika update-anrop. Du kan ju bygga ett statement per kategori

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

## #7 — Steveking, 2002-01-19T22:23Z

Kan du visa ?

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

## #8 — icaaq, 2002-01-19T22:24Z

Sen har du lagt in varje Select i en egen \<form\>-tag då kommer ju bara den som du har submit-knappen kopplad till att gå till "submit-sidan"....

Jag säger som nån annan har sagt tidigare...

Gör om, Gör rätt

Tyvärr kan **jag** inte hjälpa dig men det finns nog flera vänliga själar som vet hur man kan göra :)

mvh icaaq

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

## #9 — Steveking, 2002-01-19T22:27Z

Ok.
Klurigt detta.

\[Redigerat av Steveking den 19 jan 2002\]

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

## #10 — LarsG, 2002-01-19T22:29Z

```
<% DBPath = "DBQ=" & Server.MapPath("hekbeta1.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
for each item in request.form
If left(item,9) = "myselect@" Then
SQL = "UPDATE tbl_list "
SQL = SQL & "Set kategori = '" & Request(item) & "'"
SQL = SQL & " Where ID = " & Right(item,Len(Item)-9) & 
conn.execute sql,,128
End If
next

%>
```

Det där med form vet jag inget om då jag inte sett den koden.

red: Lade till apostrofer om kategori då det låter som om det är ett textfält.

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

## #11 — icaaq, 2002-01-19T22:30Z

> <http://www.uppdaterad.com/hellfire/hek/index1.asp?ordning=Filmer>

 :)

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

## #12 — Steveking, 2002-01-19T22:43Z

Syntax error 

line 12 

SQL = SQL & " Where ID = " & Right(item,Len(Item)-9) &
\------------------------------------------------------^

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

## #13 — LarsG, 2002-01-19T22:48Z

```
<% DBPath = "DBQ=" & Server.MapPath("hekbeta1.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
for each item in request.form
If left(item,9) = "myselect@" Then
SQL = "UPDATE tbl_list "
SQL = SQL & "Set kategori = '" & Request(item) & "'"
SQL = SQL & " Where ID = " & Right(item,Len(Item)-9)
conn.execute sql,,128
End If
next
%>
```

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

## #14 — icaaq, 2002-01-19T22:52Z

Om du kollar koden som den där sidan producerar så kommer du att se att det inte kommer med något id .... :OO

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

## #15 — icaaq, 2002-01-20T08:36Z

Hur ser koden ut för visningen av alla filmer??
 asso

 <http://www.uppdaterad.com/hellfire/hek/index1.asp?ordning=Filmer>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13887-redigerings-probbs