<%
Option Explicit
Dim strSplit
strSplit = Split("1,2,3",",")
Response.write strSplit(0)&"<br>"
Response.write strSplit(1)&"<br>"
Response.write strSplit(2)&"<br>"
Response.write("<hr>")
Dim strSplit2,i
strSplit2 = Split("a,b,c,d,e",",")
For i = 0 To UBound(strSplit2)
Response.write strSplit2(i)&"<br>"
Next
'*** Split("a,b,c,d,e",",")(0)
'*** Split("a,b,c,d,e",",")(1)
'*** Split("a,b,c,d,e",",")(2)
'*** Split("a,b,c,d,e",",")(3)
'*** Split("a,b,c,d,e",",")(4)
%>