<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
On Error Resume Next

Dim strwochentag
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>ASP Kontrollstrukturen: Select case</title>
<body>
<%
'*****************************************************************
'Code innerhalb der HTML-Seite

'Montag als erster Tag der Woche
Select Case Weekday(Date(),2) 
  Case 1 
    strwochentag = "Mäntig"
  Case 2 
    strwochentag = "Dschiischtig"
  Case 3 
    strwochentag = "Mittwuch"
  Case 4 
    strwochentag = "Donnschtig"
  Case 5 
    strwochentag = "Fritig"
  Case 6 
    strwochentag = "Samschtig"
  Case 7 
    strwochentag = "Sunntig"
End Select 
Response.Write(Date() & " " & strwochentag & vbCrLf) 
%>

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

Demo: uebungen/uebung2_2.asp

Letzter Update: 26.12.2021 16:48

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