rothen ecotronics Bern: ASP-Skript "ASP Kontrollstrukturen: Select case"

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

</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