...
<body> <h1>Faktorielle </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>