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:
num = CStr( rs("number") )
For i = 1 To 4
chunks(i) = Left(num,4)
num = Mid(num,5)
Then your four strings will be named chunks