Simulare il lancio di un dado

Questo semplice script permette la simulazione del lancio di un dado:

<%
randomize()
function dado()
intFaccia = cint ( ( 6 - 1 ) rnd() + 1 )
dado = "<img src='" &amp; intFaccia &amp; ".gif'>"
end function
response.write dado()
%>