This is the ASP code for the random quote generator

<script runat=server language=VBScript>
function randommessage
dim iMessage
Randomize
iMessage = Int((3*Rnd)+1)

select case iMessage
case 1
randommessage="Beware the Bandersnatch"
case 2
randommessage="Only connect"
case 3
randommessage="Nothing is real"
case else
randommessage="You what?" 
end select
end function
</script>
<% sThought=randommessage %>
<h2>Pause for thought</h2>
<p>Today's thought is: <b><%= sthought %></b></p>
<p><i>Reload the page to see a different message</i></p>

Now try the ASP version.

Thanks to CIX for supplying this ASP space