<%@ Language=VBScript %>
<%
Response.Expires = 0
%>

<html>
<head>
<title>SWP-Einführung ASP: Verzweigung mit If, Zufallszahl</title>
</head>
<body>
<%
'Variablen deklarieren
Dim sngzufallszahl, strvergleich
'Zufallsgenerator anstossen
Randomize()
'Zufallszahl erzeugen
sngzufallszahl = Rnd() 

'Verzweigung mit Wenn
If sngzufallszahl < 0.5 Then 
  strvergleich = "kleiner"
Else 
  strvergleich = "grösser"
End If 

Response.Write("Die Zufallszahl " & sngzufallszahl & " ist " & _
  strvergleich & " als 0.5!" & vbCrLf)
%>


<!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
</body>
</html>

Demo: uebungen/uebung03if.asp

Letzter Update: 26.12.2021 16:48

Zurück zur Liste mit ASP-Übungen auf  www.ecotronics.ch