Problemer med variabler i min webshop.

Du erklære en Session variabel!

Session["din_kurv"] = Request.Form["Valgtvare"]

//>Rune

Hej Rune

På denne måde er det kun det sidste produkt der blivet gemt i min session variabel?

Session["din_kurv"] = Request.QueryString["fabrikatID"];
Response.Write(Session["din_kurv"]);

Hvordan mener du jeg skal gøre det så alle klikkede produkter bliver gemt?

Så laver du en For Each løkke der kører alle dine inputboxe igennem.
I ASP ville det se sådan her ud:

For Each Item In Request.Form
  strStreng = strStreng & "," & Request.Form(Item)
Next

Ved ik' helt hvordan det vil se ud med C#, men det skulle nu være til at finde ud af!

Det der sker er at den laver en kommaspepareret streng med alle bestillingerne i!

Jeg har engang laver en shop, sig lige til hvis det er du vil ha' den (den er skrevet i Klasisk ASP, så har du jo hvordan det kan stilles op)

//>Rune

Problemet er at jeg ikke bruger inputfelter men QueryStrings - altså hvis man klikker på det øverste produkt (billede), kommer fabrikatID oppe i adresselinien: http://whyweb.dk/shop.aspx?fabrikatID=1, her vil jeg gerne gemme de valgte produkter, fx. fabrikatID=1 og fabrikatID=3

Hmm det var nu en lidt underlig måde at gøre det på, men du kunne jo så gøre sådan her:

intDinKurv = intDinKurv & "," & Request.QueryString["fabrikatID"]

//>Rune

Okay, hvordan ville du foreslå jeg skulle gøre det istedetfor de QueryStrings - måtte jeg se din shop?

alpapa

If Request.QueryString("Device") <> "" Then
   
        If Request.QueryString("Empty") = "TrashCan" Then
            Session("StockID") = ""
            Session("Types") = ""
            Session("Stk") = ""
            Session("Price") = ""
            Session("strStkTotal") = ""
            Session("strPriceTotal") = ""
        End If
       
    If Request.QueryString("Delete") = "Order" Then
        strTypes = Session("Types") 'Tilføj en start karakter |
        strStk = Session("Stk")
        strPrice = Session("Price")
                                                                                       
        strDeleteTypes    = Request.QueryString("Type")
        strDeletePrice    = Request.QueryString("Price")
        strDeleteStk    = Request.QueryString("Stk")
                                                                       
        '__________________________________________
        'Sletning af Produkttype
        strTypes = Left(strTypes, Len(strTypes)-1)
                                                                       
        arrTypes = Split(strTypes, "|")
                                                                       
        For i = LBound(arrTypes) To UBound(arrTypes)
            If Not strDeleteTypes = CStr(arrTypes(i)) Then
                strTypesNew = strTypesNew & arrTypes(i) & "|"
            ElseIf strDeleteTypes = CStr(arrTypes(i)) Then
                DeleteIndex = i
            End If
        Next
       
        'Response.Write("<script language=""VBScript"">MsgBox(""" & DeleteIndex & """)</script>")
                                                                       
        '__________________________________________
        'Sletning af Prisen
        strPrice = Left(strPrice, Len(strPrice)-1)
        arrPrice = Split(strPrice, "|")
                                                                       
        For i = LBound(arrPrice) To UBound(arrPrice)
            If Not DeleteIndex = i Then
                strPriceNew = strPriceNew & arrPrice(i) & "|"
            End If
        Next
                                                                       
        '__________________________________________
        'Sletning af antal stk
        strStk = Left(strStk, Len(strStk)-1)
        arrStk = Split(strStk, "|")
                                                                       
        For i = LBound(arrStk) To UBound(arrStk)
            If Not DeleteIndex = i Then
                strStkNew = strStkNew & arrStk(i) & "|"
            End If
        Next
                                                                       
        '__________________________________________
        'Lagering af sessions                           
        Session("Types") = strTypesNew
        Session("Stk") = strStkNew
        Session("Price") = strPriceNew
    End If
                                                                   
    If Request.QueryString("AddTo") = "ShoppingCart" Then                                                               
        strStockID = Session("StockID")
        strTypes = "|" & Session("Types") 'Tilføj en start karakter |
        strStk = Session("Stk")
        strPrice = Session("Price")
                                                                                                                                   
        For Each Item In Request.Form
            If Request.Form(Item) <> "" Then
                strSQL = "SELECT * FROM tblProducts WHERE StockID =" & Item
                Set objRs = objConn.Execute(strSQL)
                                                                       
                If (Not Request.Form(Item) = "") And (InStr(1,strTypes, "|" & objRs("Type") & "|") = 0) Then
                    strStockID = strStockID & Item & "|"
                    strTypes = strTypes & objRs("Type") & "|"
                    strStk = strStk & Request.Form(Item) & "|"
                    strPrice = strPrice & objRs("Price") & "|"
                Else
                    If InStr(1,strTypes,"|" & objRs("Type") & "|") > 0 Then
                        'Der er for en vare, ændre på antallet....
                        tmpStr = Mid(strTypes,2)
                        tmpArr = Split(tmpStr,"|")
                                                                                       
                        For i = LBound(tmpArr) To UBound(tmpArr)
                            If CStr(tmpArr(i)) = CStr(objRs("Type")) Then
                                index = i
                                Exit For
                            End If
                        Next
                                                                               
                        tmpArr = Split(Left(strStk, Len(strStk)-1), "|")
                        strStk = ""
                                                                               
                        For i = LBound(tmpArr) To UBound(tmpArr)
                            If i = index Then
                                strStk = strStk & Request.Form(Item) & "|"
                            Else
                                strStk = strStk & tmpArr(i) & "|"
                            End If
                        Next
                                                                                       
                        tmpArr = Split(Left(strPrice, Len(strPrice)-1), "|")
                        strPrice = ""
                                                                               
                        For i = LBound(tmpArr) To UBound(tmpArr)
                            If i = index Then
                                strPrice = strPrice & objRs("Price") & "|"
                            Else
                                strPrice = strPrice & tmpArr(i) & "|"
                            End If
                        Next
                                                                                       
                    End If
                End If
            End If
        Next
                                                                       
        strTypes = Mid(strTypes,2) 'Fjern start karakter |
                                                                       
        Session("StockID") = strStockID
        Session("Types") = strTypes
        Session("Stk") = strStk
        Session("Price") = strPrice
       
    End If

//>Rune

Great - den kigger jeg lidt på, VB-script uhhhaa. Tak for hjælpen ;-)
alpapa

Anytime...
Thx 4 Poinz

//>Rune