[red]<table border="1">
<%
str = "112, Lampa, 120: 134, Sko, 400:"
arr1 = Split(str, ":")
For i = 0 To UBound(arr1)-1
arr2 = Split(arr1(i), ",")
If IsArray(arr2) Then
Response.Write "<tr>"& vbcrlf
For x = 0 To UBound(arr2)
Response.Write "<td style=""width: 100px;"">"& arr2(x) &"</td>"& vbcrlf
Next
Response.Write "</tr>"& vbcrlf
End If
Next
%>
</table>[/red]