[QUOTE]<%
dim IntI,VarStr
IntI = 1
Select Case IntI
Case 1
VarStr = "a"
Case 2
VarStr = "b"
Case 3
VarStr = "c"
End Select
Response.Write(VarStr)
%>[/QUOTE]