Hej jag undrar om någon kan hjälpa mig med dessa problem. Kör du mot en MS-Access-db så kan jag titta på sidorna. Har just nu avslutat en E-handelslösning. Du kan laborera lite med detta som jag använt i en beställningsfunktion!Uppdatera order
1. Jag vill kunna uppdatera en tidigare order med att lägga till en ny orderrad.
2. Förändra oderrad.
Så här fungerar det nu. Lista företag, lista ordrar, visa orderrader.
Men jag har inte kunnat uppdaterat eller förändra orderraderna.
Sidorna som behandlar detta senario är: add_order.asp, add_orderrad.asp, new_oderrad.asp, edit_oderrad.asp, visaorderrader.asp, order_frame.asp.
Vill någon titta på dessa sidor?
Tacksam om någon kunde hjälpa mig.
StefanSv: Uppdatera order
Maila mig på petercyrillus@telia.com Sv: Uppdatera order
' Hämtar värden från formulär
<%
BokID = Request.Form("BokID")
SID = Session.SessionID
ISBN = Request.Form("ISBN")
BokTitel = Request.Form("BokTitel")
Pris = CCur(Request.Form("Pris"))
Antal = Request.Form("Antal")
Set Connection=Server.CreateObject("ADODB.Connection")
'Connection.Open ("driver={Microsoft Access Driver (*.mdb)};dbq=C:\inetpub\wwwroot\sd\GruppC\bok\data\testdatabas.mdb")
Connection.Open "bokshop"
SQLStmt = "SELECT * FROM tbOrderRad WHERE SID ='" & SID & "' AND BokID = " & BokID
Set RS = Connection.Execute(SQLStmt)
If Not RS.EOF Then
Antal = Antal + RS("Antal")
Summa = Pris * Antal
' Uppdaterar orderradsposten om den finns
SQLStmt ="UPDATE tbOrderRad SET Antal ='" & Antal & "', Summa ='" & Summa & "' WHERE BokID =" & BokID
Set RS = Connection.Execute(SQLStmt)
Else
Summa = Pris * Antal
' Skapar ny orderrad om den inte finns
SQLStmt = "INSERT INTO tbOrderRad (SID, BokID, ISBN, BokTitel, Pris, Antal, Summa ) VALUES ('" & SID & "','" & BokID & "','" & ISBN & "','" & BokTitel & "', '" & Pris & "','" & Antal & "', '" & Summa & "' )"
Set RS = Connection.Execute(SQLStmt)
End If
Response.Redirect "viewcart.asp"
%>
mvh
Torbjörn