<html><body>
<%
'Initialisiert den Zufallsgenerator
Randomize() Response.Write("Aktuelles Datum: " & _
Date() & "<br />" & vbCrLf)
Response.Write("Wochentag: " & _
WeekdayName(Weekday(Date())) & "<br />" & vbCrLf)
Response.Write("Zufallszahl: " & _
FormatNumber(Rnd(),2,-1) & "<br />" & vbCrLf)
%>
</body></html>
Ganzer Code: vbsfunct.asp