Dim RetString as string = ""
Dim vinkstring as string = "<img src=""http://www.project-blue.nl/images/checkboxja.gif"" border=0> "

Dim extrainfoindex as integer = cint(FieldName_AdditionalInfo.substring(16,2))
Dim ActueleString as string = pbw.Shop_Get_Product_Property(pbw.Get_Parameter_Value(pbw.Get_Shop_cookie(session), ShopRowIndex), 3 + extrainfoindex)

Dim subartikelarray(10) as string
Dim subartikelarrayoms(10) as string
Dim subartikelarrayid(10) as string
Dim subartikelarraykol(10) as string
Dim subartikelarrayaan(10) as string

Dim vulling as integer = 0

while ActueleString.indexof("\\@v@")>=0
   subartikelarray(vulling) = ActueleString.substring(0,ActueleString.indexof("\\@v@"))
   vulling = vulling + 1
   ActueleString = ActueleString.SubString(ActueleString.indexof("\\@v@")+2,ActueleString.Length-ActueleString.indexof("\\@v@")-2)
End while

If ActueleString.length>0 then
  subartikelarray(vulling) = ActueleString
  Vulling = vulling + 1
end if

Dim i as integer
For i=0 to vulling-1
  Dim artstr as string = subartikelarray(i)
  if artstr.indexof("^")>0 then
    subartikelarrayoms(i) = artstr.substring(0,artstr.indexof("^")).replace("@v@",vinkstring)
    artstr = artstr.substring(artstr.indexof("^")+1,artstr.length-artstr.indexof("^")-1)
    if artstr.indexof("^")>0 then
      subartikelarrayid(i) = artstr.substring(0,artstr.indexof("^"))
      artstr = artstr.substring(artstr.indexof("^")+1,artstr.length-artstr.indexof("^")-1)
      if artstr.indexof("^")>0 then
        subartikelarraykol(i) = artstr.substring(0,artstr.indexof("^"))
        artstr = artstr.substring(artstr.indexof("^")+1,artstr.length-artstr.indexof("^")-1)
        if artstr.length>0 then
          subartikelarrayaan(i) = artstr
        else
          subartikelarrayaan(i) = "1"
        end if
      else
        subartikelarraykol(i) = ""
        subartikelarrayaan(i) = ""
      end if
    else
      subartikelarrayid(i) = ""
      subartikelarraykol(i) = ""
      subartikelarrayaan(i) = ""
    end if
  else
    subartikelarrayoms(i) = ""
    subartikelarrayid(i) = ""
    subartikelarraykol(i) = ""
    subartikelarrayaan(i) = ""
  end if

  RetString = Retstring & subartikelarrayoms(i)

next

return retstring