<%@ Language=VBScript %>
<!--#include virtual="asppages/silvi/_include/preheader.inc" -->
<html>
<head>
<title>ASP Kontrollstrukturen: Varianten des Do-Loops</title>
<!--#include virtual="asppages/silvi/_include/header.inc" -->
</head>
<body>
<%
Dim intcounter

'Version 1.1 Do mit While und Einstiegsbedingung
intcounter = 1
Do While intcounter <= 3 
  Response.Write("While Einstieg: Dies ist der " & intcounter &_    
    "-te Durchlauf<br />" & vbCrLf)
  intcounter = intcounter + 1
Loop
Response.Write("&nbsp;<br />" & vbCrLf)

'Version 1.2 Do mit Until und Einstiegsbedingung
intcounter = 1
Do Until intcounter = 3 
  Response.Write("Until Einstieg: Dies ist der " & intcounter &_    
    "-te Durchlauf<br />" & vbCrLf)
  intcounter = intcounter + 1
Loop
Response.Write("&nbsp;<br />" & vbCrLf)

'Version 2.1 Do mit While und Ausstiegsbedingung
intcounter = 1
Do 
  Response.Write("While Ausstieg: Dies ist der " & intcounter &_    
    "-te Durchlauf<br />" & vbCrLf)
  intcounter = intcounter + 1
Loop While intcounter <= 3 
Response.Write("&nbsp;<br />" & vbCrLf)

'Version 2.2 Do mit Until und Ausstiegsbedingung
intcounter = 1
Do 
  Response.Write("Until Ausstieg: Dies ist der " & intcounter &_    
    "-te Durchlauf<br />" & vbCrLf)
  intcounter = intcounter + 1
Loop Until intcounter = 3 
%>

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

Demo: beispiele/020vbsdoloop.asp

Letzter Update: 26.12.2021 16:48

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