<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