<%@ 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