<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