<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
On Error Resume Next
Const intmaxwert = 36
Randomize()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>ASP Prozeduren und Funktionen: ASP-Funktionen verwenden
</title>
<body>
<%
Response.Write("Die zufällige Zahl " & Int(Rnd() * intmaxwert) + 1 &_
" ist " & " immer zwischen 1 und " & intmaxwert &vbCrLf)
%>
<!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
</body>
</html>
Demo: uebungen/uebung3_2.asp
Letzter Update:
26.12.2021 16:48
Zurück zur
Liste mit ASP-Übungen auf
www.ecotronics.ch