18. december 2002 - 23:24Der er
16 kommentarer og 1 løsning
[slet] virker men [opdater] virker ikke ????
slet delen virker med opdater delen skriver ikke i databasen.
Hvorfor??? --------- <% if request("kode")= "slet" then ' SQL forespørgsel strSQL = "Delete * from kurv Where Id = " & Request("Id") ' Udfør forespørgsel (rs indeholder nu resultatet) Conn.Execute(strSQL) else end if %> <% if request("kode")= "opdater" then ' SQL forespørgsel strSQL = "update kurv set antal = '"&request.form("antal")&"' Where Id = " & Request("Id") Conn.Execute(strSQL) ' Udfør forespørgsel (rs indeholder nu resultatet) Conn.Execute(strSQL) else end if %> ----------
Jeg får denne fejl : Der opstod en Microsoft VBScript-kørselsfejl fejl '800a000d'
<% if request("kode")= "slet" then ' SQL forespørgsel strSQL = "Delete * from kurv Where Id = " & Request("Id") ' Udfør forespørgsel (rs indeholder nu resultatet) Conn.Execute(strSQL) else end if %> <% if request("kode")= "opdater" then ' SQL forespørgsel strSQL = "update kurv set antal = "&request.form("antal")&" Where Id = " & Request("Id") Conn.Execute(strSQL) ' Udfør forespørgsel (rs indeholder nu resultatet) Conn.Execute(strSQL) else end if %>
' Gennemløb Recordset (rs) med en løkke if rs.eof OR rs.bof then Response.Write "<b><center>Din indkøbskurv er tom<br><br>" else Do While not rs.eof %>
du får et andet problem det er at du har kun en form... og hvis du har mange "vare" med hvert deres antal vil du få en komma seperete liste med antals for hvor vare da input feltet hedder det samme <input type="text" name="antal" ..>
Det jeg mener er dette, på siden ordreseddel kendes Session("telefonnummer") så den kan få fat i alle vare igen så der er ingen behov for at havde en form som sender alle data vidre. Der er derimod behov for en form når der skal opdaters med antal... Prøv dette:
if request("kode")= "slet" then ' SQL forespørgsel strSQL = "Delete * from kurv Where Id = " & Request("Id") ' Udfør forespørgsel (rs indeholder nu resultatet) Conn.Execute(strSQL) else end if %> <% if request("kode")= "opdater" then ' SQL forespørgsel strSQL = "update kurv set antal = "&request.form("antal")&" Where Id = " & Request("Id") Conn.Execute(strSQL) ' Udfør forespørgsel (rs indeholder nu resultatet) Conn.Execute(strSQL) else end if %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.