Site hosted by Angelfire.com: Build your free website today!
<% Dim intNumber, intHow_many, intRandom intHow_many = 1 ' Number of images to randomize Randomize intRandom = Rnd() intNumber = Int(intHow_many*intRandom + 1) Select Case intNumber Case 1 Response.Redirect("http://www.angelfire.com/dragon3/dragon-eater/SignatureBase.jpg") Case 2 Response.Redirect("http://www.angelfire.com/dragon3/dragon-eater/SignatureBase.jpg") Case 3 Response.Redirect("http://www.angelfire.com/dragon3/dragon-eater/SignatureBase.jpg") Case 4 Response.Redirect("http://http://www.angelfire.com/dragon3/dragon-eater/SignatureBase.jpg") End Select %>