Større array

Hej med jer,

Jeg har lavet en indkøbskurv med flere "typer" at ligge i kurven.

Jeg har gjort det ved at lave 3 arrays der kører parallelt..

Hvis jeg nu skal sortere og samle de arrays der er ens, hvordan gør jeg så det ?

Min kode:

<%
ID = Request("ID")
mode = Request.Querystring("mode")

If mode = "addProd" Then

    strProd    = Request("prod")
    strSize = Request("size")
    strColour = Request("colour")
    strBasketProd = Session("basketProd")
    strBasketSize = Session("basketSize")
    strBasketColour = Session("basketColour")

    If IsNumeric(strProd) AND Int(strProd) > 0 Then

        If Not IsNumeric(strSize) AND strSize = "" Then
            strSize = "0"
        End if

        If Not IsNumeric(strColour) AND strColour = "" Then
            strColour = "0"
        End if

        If strBasketProd = "" Then

            strBasketProd     = strProd
            strBasketSize     = strSize
            strBasketColour = strColour

        Else

            strBasketProd     = strBasketProd & "," & strProd
            strBasketSize     = strBasketSize & "," & strSize
            strBasketColour = strBasketColour & "," & strColour

        End if

        Session("basketProd") = strBasketProd
        Session("basketSize") = strBasketSize
        Session("basketColour") = strBasketColour

    End if

    Response.Redirect "default.asp"

ElseIf mode = "clearBasket" Then

    Session("basketProd") = ""
    Session("basketSize") = ""
    Session("basketColour") = ""

End if


%>

Prod: <%=Session("basketProd")%><br/>
Size: <%=Session("basketSize")%><br/>
Colour: <%=Session("basketColour")%><br/>

<br/><br/>

<form method="post" action="default.asp?mode=addProd">
Produkt:<br/>
<select name="prod">
<option value="1">Sko</option>
<option value="2">Støvler</option>
<option value="3">Gummisko</option>
<option value="4">Sandaler</option>
<option value="5">Vaders</option>
</select><br/><br/>

Størrelse:<br/>
<select name="size">
<option value="1">30</option>
<option value="2">32</option>
<option value="3">34</option>
<option value="4">36</option>
<option value="5">38</option>
</select><br/><br/>

Farve:<br/>
<select name="colour">
<option value="1">Blå</option>
<option value="2">Rød</option>
<option value="3">Grøn</option>
<option value="4">Gul</option>
<option value="5">Orange</option>
</select><br/><br/>

<input type="submit" value="Læg i kurven"> <input type="button" value="Ryd kurv" onclick="document.location.href='default.asp?mode=clearBasket';">
</form>





<%
strBasketProd = Session("basketProd")
strBasketSize = Session("basketSize")
strBasketColour = Session("basketColour")

arrBasketProd = Split(strBasketProd,",")
arrBasketSize = Split(strBasketSize,",")
arrBasketColour = Split(strBasketColour,",")


For i = LBound(arrBasketProd) TO UBound(arrBasketProd)

    Response.Write "Produkt: " & arrBasketProd(i) & " - " & "Størrelse: " & arrBasketSize(i) & " - " & "Farve: " & arrBasketColour(i) & "<br/>"

Next
Response.Write "<hr>"
%>