Select Case 48 to 57 doesn't work

[knovak]

The following block of code does not work in ASP, but works in a regular VB executable just fine. I get the following error message

Expected statement


Case 48 To 57
--------^


Here is the block of code...

While (intR <= 5)
intA = Int(Rnd * 93) + 33
Select Case intA
Case 48 To 57
str = str & Chr(intA)
intR = intR + 1
Case 65 To 90
str = str & Chr(intA)
intR = intR + 1
Case 97 To 122
str = str & Chr(intA)
intR = intR + 1
End Select
Wend

Any ideas why a Case 48 to 57 does not work?

Thanks,

Kyle

 

[rac2]

Maybe 48 To 57 is not an expression in VBScript.

Case (intA >= 48 AND intA <= 57)

See VBScript User's Guide

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vtoriVBScript.asp