<% '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 %>