'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