readcontents = textbox1.text
Dim textdelimiter as String
textdelimiter = ","
Dim splitout = Split(readcontents, textdelimiter)
lblplaintext.text = readcontents & "
"
dim i as integer
for i=0 to Ubound(splitout)
response.write(splitout(i)& "
")
next