why don't you change this...
If rndNumber = 1 then
Session("KeyCheck") = rndKey1
End If
If rndNumber = 2 then
Session("KeyCheck") = rndKey2
End If
If rndNumber = 3 then
Session("KeyCheck") = rndKey3
End If
If rndNumber = 4 then
Session("KeyCheck") = rndKey4
End If
into this...
Select Case rndNumber
Case 1:
Session("KeyCheck") = rndKey1
Case 2:
Session("KeyCheck") = rndKey2
Case 3:
Session("KeyCheck") = rndKey3
Case 4:
Session("KeyCheck") = rndKey4
End Select
that makes it a little easier to read... btw... don't whine if it gives you an error... i'm not sure if you need the colin after the case 1... stuff