Redigerings probbs

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

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)

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

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

Command text was not set for the command object.

On line 16

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

Kan du visa ?

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

Ok.
Klurigt detta.

[Redigerat av Steveking den 19 jan 2002]

<% 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.

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

Syntax error

line 12

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

<% 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
%>

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

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

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