<body>
<h1>Faktorielle&nbsp;</h1>
<p>
Aktuelles Datum:
<script language = "vbscript">
Document.Write Now() & "<br>"
f=1
For i=1 To 10
  f = f*i
  Document.Write i & "!=" & f & "<br>"
Next
</script>
</body>