Unnamed

<%


'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")
lines = split(orderdata,"¤¤")

Dim productArray(), i

i = 0

Redim productArray(lines.count)

Do while not lines.EOF
	aryTmp = Split(lines("columnName"), ";")
	productArray(i) = aryTmp(0)

	i = i + 1
	lines.MoveNext
Loop



For Each x In productArray()
	response.write x
Next

%>