Opdater antal i kurv

Jeg har en lille shop hvor man kan tilføje, slette, slette alle varer i kurven.

Fjern 1
Fjern alle
Tilføj 1

Det holder jo ikke hvis man vil købe 50 stykker, så skal man trykke 50 gange på tilføj 1

Er der nogen der har en bedre løsning, evt. met et felt hvor man kan skrive 50 og så opdaters kurven ?

min kode:

<%
Sub AddItemToCart(iItemID, iItemCount)
    If dictCart.Exists(iItemID) Then
        dictCart(iItemID) = dictCart(iItemID) + iItemCount
    Else
        dictCart.Add iItemID, iItemCount
    End If
End Sub

Sub RemoveItemFromCart(iItemID, iItemCount)
    If dictCart.Exists(iItemID) Then
        If dictCart(iItemID) <= iItemCount Then
            dictCart.Remove iItemID
        Else
            dictCart(iItemID) = dictCart(iItemID) - iItemCount
        End If
    Else
        Response.Write "Der er ingen varer i din indkøbskurv.<BR><BR>" & vbCrLf
    End If
End Sub

<a href="default.asp?action=del&amp;item=<%= Key %>&amp;count=1">Fjern
              1</a>&nbsp;<a href="default.asp?action=del&amp;item=<%= Key %>&amp;count=<%= dictCart(Key) %>">Fjern
              alle</a><br>
              &nbsp;<a href="default.asp?action=add&amp;item=<%= Key %>&amp;count=1">Tilføj
              1</a>