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