Ummm...ClassicASP: That would produce the string "56789012" in the variable MyNumber.
In VBScript, MID's third argument is the *length* of the string, not the ending position as it is in other languages.
*******
If you put the 4 pieces into 4 elements of an array, it's neater code:
Code:
Dim chunks(4)
Dim num
num = CStr( rs("number") )
For i = 1 To 4
chunks(i) = Left(num,4)
num = Mid(num,5)
Next
Then your four strings will be named
chunks[1] through
chunks[4]