<%
' Select a random number from one to five
randomize
random_number=int(rnd*12)+1
' Assign the variable page_to_read with
' the file being requested
' (incorporating the random number into the file name
page_to_read="casestud/random/case"& random_number &".htm"
' Open the document to be read
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath(page_to_read))
'read all the text on the document
read_text = act.readall
' Close the document
act.close
' Write out the contents of the document
' to the browser
response.write read_text
%>
