Indkøbskurv - hjælp med ekstra parameter

Hej eksperter

Jeg har fundet en indkøbskurv på nettet, som jeg har integreret i en shop. Nu vil jeg så gerne have mulighed for at lave varianter (fx størrelser eller forskellige farver) på produkterne. Men jeg kan ikke rigtig få det til at fungere i kurven. Kurven ser sådan ud:

'*************************
Sub AddItemToCart(iItemID, iItemCount)
'*************************

Dim aParameters
aParameters = GetItemParameters(iItemID)
   
    'Først skal vi lige hente varen, så vi kan se, om der er en mere på lager
    Set RS = Server.CreateObject("ADODB.RecordSet")
    Sql = "SELECT * FROM tblVarer WHERE varenummer = " & iItemID

    RS.CursorType = 2
    RS.LockType = 3
    RS.Open Sql, cString
   
    If RS("lagerAntal") >= dictCart(iItemID) + iItemCount then
   
        If dictCart.Exists(iItemID) Then
            dictCart(iItemID) = dictCart(iItemID) + iItemCount
        Else
            dictCart.Add iItemID, iItemCount
        End If
        Response.Write "<p class=""broed"">" & iItemCount & txtStk & aParameters(1) & txtTilfojet & vbCrLf
    Else
        Response.Write "<p class=""errorText"">" & txtUdsolgt & "</p>" & vbCrLf
    End if
   
End Sub


Det skal siges, at aParameters henter oplysninger om varen. Jeg har forsøgt at lave en ekstra iVariant, men det går i koks. Nogen som kan hjælpe med at omskrive koden, så jeg kan sende en variant med til sub'en?