VB Script

<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>