'The information in the cell orderdata = 3;890;ID117;K¤¤3;890;ID117;K¤¤3;890;ID117;K¤¤3;890;ID117;K
'The information in lines (obviously lol): 3;890;ID117;K
orderdata = rs("orderdata")
Dim productArray(), i
i = 0
lines = split(orderdata,"¤¤")
redim productarray(5) 'test
For Each x In lines
arrayTemp = split(x, ";")
prodLength = UBound(productArray)
redim productarray(UBound(arrayTemp) + prodLength)
productArray(i) = arrayTemp(0)
i = i + 1
Next
For Each x In productArray
response.write x 'this only shows 1 string when it should show 3
Next