11 lines
299 B
Plaintext
11 lines
299 B
Plaintext
|
<%
|
||
|
|
Dim strText , arrText , intCount
|
||
|
|
'sample string with commas in it
|
||
|
|
strText = "This,is,our,sample,string"
|
||
|
|
'split the string and store in arrText
|
||
|
|
arrText = Split(strText,",")
|
||
|
|
'display all items
|
||
|
|
For intCount = 0 to UBound(arrText)
|
||
|
|
Response.Write arrText(intCount) & "<br>"
|
||
|
|
Next
|
||
|
|
%>
|