<%@ LANGUAGE="VBSCRIPT" %>
random name gen
Good Afternoon! Here's a random name generator.
<%
Dim ran
Dim name
randomize
ran = Int((6 * Rnd) + 1)
Select Case ran ' Evaluate Number.
Case 1
name = "1bob"
Case 2
name = "2joe"
Case 3
name = "3jeff"
Case 4
name = "4prince"
Case 5
name = "5jake"
Case 6
name = "6erik"
Case Else
name = "other"
End Select
%>
The random name is <%=name%>