Can you not just add a line break after each character?
<
Search is your friend “I was having a mildly paranoid day, mostly due to the fact that the mad priest lady from over the river had taken to nailing weasels to my front door again.”
i use this in a numbers pool script I have. I changed the variable names to make it a little more clear.
Dim strToVert 'Text to turn vertical
Dim iCnt 'Count the letters
Dim strVert 'Resulting vertical text
Dim i ' The counter
strToVert = "Vertical"
iCnt = Len(strToVert)
strVert = ""
for i = 1 to iCnt
strVert = strVert & " " & Mid(strToVert,i,1) & " "
if i < iCnt then strVert = strVert & "<br />"
next
Response.Write strVert
Thanks Shaggy! I was able to do that for static text, but I also needed the vertical text to work with variables.
Thanks cripto9t! That's cleaner than what I came up with! My version does same thing, but yours is much quieter.
The following made the characters align straighter for my needs:
'#### BEGIN Vertical Text MOD by cripto9t ####'
Dim strToVert 'Text to turn vertical
Dim iCnt 'Count the letters
Dim strVert 'Resulting vertical text
Dim i 'The counter
strToVert = "Vertical"
iCnt = Len(strToVert)
strVert = ""
for i = 1 to iCnt
strVert = strVert & Mid(strToVert,i,1)
if i < iCnt then strVert = strVert & "<br />"
next
Response.Write strVert
Vertical content?
Posted - 30 October 2007 : 11:40:40
. I use it in a table cell that spans multiple rows, so...