comma in query + læg i databasen

Istedet for at identificere brugeren med hans ip adr. ville jeg foreslå du bruger hans session id ( Session.SessionID ).

Det er vel bare at lave et query

UPDATE kurv_tabel SET Vare_antal = " & nyt_vare_antal & " WHERE vare_nummer = " & varenummer & " AND User_id = '" & Session.SessionID & "';


?

Jamen hvad hvis der er to vare_antal fra kurven..

Vare_nummer=1 + nyt_antal=4
Vare_nummer=2 + nyt_antal=2

Det er her hele problemet ligger.. jeg har lavet en udgave der kan opdatere et varenummer... men lige så snart der er mere end et varenummer i kurven får jeg fejlen

Syntax error (comma) in query expression 'ID = 72, 79'.

what to do.. ???

Er der nogen der kan hjælpe ???

Jeg har prøvet noget i retning af...

Dim arr_antal, i, arr_id
arr_antal = spilt(request("vare_antal"), ",")
arr_Id = Spilt(Request("ID"), ",")

For i = 0 to uBound(Arr_antal)

    SQL="Select * from kurv Where ID = " & arr_Id & ""
    Set Rs=Conn.Execute(SQL)
    Set Recordset1 = Server.CreateObject("ADODB.Recordset")

        Recordset1.Open SQL, Conn, 2, 3
    Recordset1.update
    Recordset1("Vare_antal") = arr_antal
  Recordset1.Update
Recordset1.Close

Nextdim arr_antal, i, arr_id

Men jeg kan ikke få det til at virke...

Ares

Jeg mener at du skal gennemløbe VARE-ID i stedet for antal og så opdatere med antal i stedet for. Sådan:

Dim arr_antal, i, arr_id
arr_antal = spilt(request("vare_antal"), ",")
arr_Id = Spilt(Request("ID"), ",")

For i = 0 to uBound(Arr_ID) ' RETTET

    SQL="Select * from kurv Where ID = " & i ' RETTET
    Set Rs=Conn.Execute(SQL)
    Set Recordset1 = Server.CreateObject("ADODB.Recordset")

    Recordset1.Open SQL, Conn, 2, 3
    Recordset1.update
    Recordset1("Vare_antal") = Recordset1("Vare_antal") + arr_antal(i) ' RETTET
    Recordset1.Update
    Recordset1.Close

Next

Sorry Sådan:

Dim arr_antal, i, arr_id
arr_antal = spilt(request("vare_antal"), ",")
arr_Id = Spilt(Request("ID"), ",")

For i = 0 to uBound(Arr_ID) ' RETTET

    SQL="Select * from kurv Where ID = " & arr_id(i) ' RETTET
    Set Rs=Conn.Execute(SQL)
    Set Recordset1 = Server.CreateObject("ADODB.Recordset")

    Recordset1.Open SQL, Conn, 2, 3
    Recordset1.update
    Recordset1("Vare_antal") = Recordset1("Vare_antal") + arr_antal(i) ' RETTET
    Recordset1.Update
    Recordset1.Close

Next

Jeg får stadigvækk fejlen...

Type mismatch: 'spilt'

i linjen
arr_antal = spilt(request("vare_antal"), ",")

Hvorfor laver du den her...

Recordset1("Vare_antal") + arr_antal(i) ' RETTET

den trækker vel det nuværende antal ud af databasen og lægger det nye indtastet ind... ikke sandt... ????

Du kan evt. tjekke det på

http://62.242.254.9/string/

Prøv at lægge en vare i kurven... og derefter vælge vis kurv. fejlen opstår når man prøver at opdatere vare antallet...

Jeg ved hvad fejlen er: Din Dim-sætning mangler et tal:
Dim arr_antal(20), i, arr_id(20)
Det havde jeg ikke set.

Min sætning ser også således ud:
Recordset1("Vare_antal") = Recordset1("Vare_antal") + arr_antal(i)
Denne sætning opdatere antallet i databasen. Skal den ikke det. ?

Lige nu ser det således ud...

Dim arr_antal(20), i, arr_id(20)
arr_antal = spilt(request("vare_antal"), ",") 'dette er linje 8
arr_Id = Spilt(Request("Vare_ID"), ",")

For i = 0 to uBound(Arr_ID)

    SQL="Select * from kurv Where ID = " & arr_id(i)
    Set Rs=Conn.Execute(SQL)
    Set Recordset1 = Server.CreateObject("ADODB.Recordset")

    Recordset1.Open SQL, Conn, 2, 3
    Recordset1.update
    Recordset1("Vare_antal") = Recordset1("Vare_antal") + arr_antal(i)
    Recordset1.Update
    Recordset1.Close

Next

Men det giver stadigvæk fejlen

Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'spilt'
/string/vare_update.asp, line 8

HvoooorFoooooorrrrrrrrrrrr.    : )

Jeg bliver snart sindsyg... nu har jeg bøvlet med det her side lørdag aften...

Hvilken effekt har (20) efter arr_antal og arr_id ???

Håber virkelig du kan hjælpe...

Rolig - rolig
Det ser bare ud til at ordet 'spilt' er stavet forkert.
Det hedder SPLIT

Ja.. det har jeg set... men det er heller ikke det..

tjek evt. http://exp.dk/spm/186705

så har du mulighed for at score 100 point mere... : ))