Using Select Case

RANDOMIZE
Choice = Int(4+1)*RND)
'will Return a random number between 0 And 4.

Select Case Choice
Case 0
Response.Redirect "http://www.aspsites.com"
Case 1
Response.Redirect "http://www.refsnesdata.no"
Case 2
Response.Redirect "http://www.aspin.com"
Case 3
Response.Redirect "http://www.tcp-ip.com"
Case 4
Response.Redirect "http://www.actionjackson.com"
End Select