Skumt fel, men lite mellanslag saknades ( i alla fall här)
SQL = "INSERT INTO tblorder"
SQL = SQL & " (anvid, ProdId, Antal)"
SQL = SQL & " VALUES(" & Session.SessionId & "," & Request.Form("ProdId") & ", " & Request.Form("Antal") & ")"
Trådstart#1
Har en sida där varor ska läggas i en tabell som heter tblorder. Det har funkat att lägga in varorna, men på sistone så strular det. Ibland går det att lägga in en vara, ibland inte. Finns ingen konsekvens vilka varor som inte går, det är helt slumpartat.
Tips... någon?!?!
Tror inte att det är fel på koden, men här är den ändå:
' Öppna databasen och uppdatera tblorder om produkten redan finns.
'-------------------------------------------------------------------
set rst = connect.execute("Select * from tblorder where prodid=" & request.form("prodid"))
if not rst.eof then
SQL = "UPDATE tblorder SET antal=" & Request.Form("Antal") & " WHERE tblorder.prodid = " & Request.Form("prodid")
Connect.Execute(SQL)
Else
' Skriver in i tblorder om produkten inte finns.
'-------------------------------------------------------------------
SQL = "INSERT INTO tblorder"
SQL = SQL & "(anvid, ProdId, Antal)"
SQL = SQL & "VALUES(" & Session.SessionId & "," & Request.Form("ProdId") & ", " & Request.Form("Antal") & ")"
Connect.Execute(SQL)
End if
rst.close
set rst = nothing
Connect.Close
Set Connect = nothing