--- title: "Session problem" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/46698-session-problem/page2" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "pellsäter" published: "2002-06-26T16:37:56.000Z" updated: "2002-06-27T16:13:29.000Z" replies: 24 views: 506 page: 2 pages: 2 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/46698-session-problem" --- # Session problem _Sida 2 av 2._ ## #21 — pellsäter, 2002-06-26T22:31Z japp det gör jag! Permalänk: https://www.webforum.nu/p/706266 ## #22 — pellsäter, 2002-06-27T08:15Z är det någon som har några fler idéer?? Behöver er hjälp Permalänk: https://www.webforum.nu/p/706381 ## #23 — Vide, 2002-06-27T08:48Z Vad får du om du skriver ut sql? sql = "Insert Into tempKorg(sessionID,artikelID,antal) Values ('" & sSession & "', '" & sArtnr & "', '" & sAntal & "')" response.write sql Permalänk: https://www.webforum.nu/p/706389 ## #24 — pellsäter, 2002-06-27T08:57Z Det vrekar som den lägger in ordern i tempKorgen med ett SessionID men när jag vill plocka ut ordern och lägga den i orederRad så vill den ta fram en order med ett annat SessionID?? Bengt Permalänk: https://www.webforum.nu/p/706395 ## #25 — pellsäter, 2002-06-27T16:13Z Kan inte någon kika på mitt problem på siten Kolla på Dr längst ner så står det ett SessionID ,men det följer inte med under hela applikationen.... Snälla hjälp Koden för sidan ser ni här \ \ \M U S K E L B U T I K E N !!!!\ \<% sAction = Cstr(Request.Querystring("andra")) sAntal = Cint(Request.Querystring("antal")) sArtnr = Cint(Request.Querystring("artnr")) sBesk = Cstr(Request.Querystring("besk")) sSession = Session.Sessionid sLosen = Request.Querystring("los") sLogin = Request.Querystring("log") response.write sSession %\> \ \ \ \ \

\ \\ Kundkorg / \\\\ \<% Select Case sAction Case "tabort" TaBort VisaInnehall Case "laggtill" LaggTill VisaInnehall Case "login" Login Case "bestalla" Bestalla Case Else %\> Din kundvagn är tom \<% End Select %\>\ \ \<% Sub LaggTill() Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "xxxx" sql = "Select \* from tempKorg Where artikelID = " & sArtnr & "" set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,conn If(rs.Eof) then sql = "Insert Into tempKorg(sessionID,artikelID,antal) Values ('" & sSession & "', '" & sArtnr & "', '" & sAntal & "')" response.write (Sql) conn.Execute(sql) Else nAntal=rs("Antal") tAntal=sAntal+nAntal sql = "Update tempKorg Set Antal = " & tAntal & " Where artikelID = " & sArtnr & "" conn.Execute(sql) End if conn.close %\> \ Du har lagt till \<%=sAntal%\> st \<%=sBesk%\> \<%End Sub%\> \<% Sub TaBort() Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "xxxx" sql = "Delete \* from tempKorg Where artikelID = " & sArtnr & " And SessionID = " & sSession & "" conn.execute(sql) conn.close %\> Du tog bort \<%=sBesk%\> \<%End sub%\> \\\ \ \ \ \<% Sub VisaInnehall Set conn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") Conn.Open "xxxx" sql = "Select Produkter.besk,antal,artikelID,pris From tempKorg Inner Join Produkter On tempKorg.artikelID = Produkter.ProdID" rs.open sql,conn %\> \ \ \

\\Vara\\\ \ \ \

\\Antal\\\ \ \ \

\\Pris\\\ \ \ \<% Do until rs.eof ant=rs("Antal") prs=rs("Pris") tSumma=ant\*prs %\> \ \ \

\\<%=rs("Besk")%\>\\ \ \

\\<%=rs("Antal")%\>\\ \ \

\\<%=tSumma%\>:-\\ \ \

\ \ \\ \ \" name="besk"\> \ \ \" name="artnr"\> \ \ \ \ \ \ \<% rs.movenext loop rs.close conn.close %\> \ \

\ \\Gå till kassan\\\ \<%End sub%\> \ \ \ \ \ \ \<%Sub Login%\> \ Logga in:\ Användarnamn:\ Lösenord: \ \ \ \Registrera\ \ \<%End Sub%\> \<%Sub Bestalla Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "xxxx" sql = "Select \* From Kunder Where Losenord = '" & sLosen & "' And Logg = '" & slogin & "'" set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,conn If not (Rs.Eof) then sKid = rs("kundID") rs.close sql = "Select \* from tempKorg Where SessionID = " & sSession & "" response.write (Sql) rs.open sql,conn Do until rs.eof sAid = rs("artikelID") sAntal = rs("Antal") sdatum=date() sql="Insert Into orderRad(OrderID, Antal, KundID, artikelID, datum) Values ('"& sSession &"', '"& sAntal &"', '"& sKid &"', '"& sAid &"', '"& sdatum &"')" response.write (Sql) conn.execute(sql) sql = "Delete \* from tempKorg Where SessionID = " & sSession & "" conn.execute(sql) rs.movenext loop response.write (Sql) response.write "Tack för din beställning" Session.Abandon Else response.write "Du är inte kund" End If conn.close End sub%\> \ \ Permalänk: https://www.webforum.nu/p/706673 --- Tråden på webben: https://www.webforum.nu/amne/asp/46698-session-problem/page2 Föregående sida: https://www.webforum.nu/amne/asp/46698-session-problem.md