simpelt streng kombination

Jeg har denne kode, den udskriver nogen id´er fra en streng som den så finder i en database, og så udskriver den id og navn...men jeg vil gerne have den til at skrive fx (2) hvis der er 2 af den samme id...

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "driver={MySql};server=***;database=***;uid=***;pwd=***"
Conn.Open DSN
                                    response.Write session(shop & "_kurv")
                                   
                                    ArrStreng = split(session(shop & "_kurv"), "|") 'ArrStreng = split(streng, "|")
  for i = 0 to ubound(ArrStreng) 'for each VARER in streng
      ArrVarer = split(ArrStreng(i), ",") 'VARER = split(VARER, ",")

      for n = 0 to ubound(ArrVarer) 'for each OPTION in VARER
      if n = 0 then
     
   

Set objRecordset=Conn.Execute("SELECT * FROM products WHERE id='" & ArrVarer(n) & "'")

If Not objRecordset.EOF Then

response.Write "<tr><td class=""subitem""><a href=""produkt.asp?id=" & objRecordset("id") & """ class=""sublink"">" & objRecordset("name") & "</td></tr>"



    Else
response.Redirect "index.asp"


 
End If

     
     
      end if
     
      next 'next
  next 'next
  Conn.Close
Set Conn = Nothing