rothen ecotronics Bern: ASP-Skript "ASP Prozeduren und Funktionen: Prozedur fï¿½r den Nachspann"

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

'*****************************************************************
'Variablendeklarationen

'*****************************************************************
'Variableninitialisierung

'*****************************************************************
'Lokale Prozeduren und Funktionen
Sub procwritenachspann(ByVal strvorname, ByVal strnachname)
  Response.Write("<hr />" & vbCrLf)
  Response.Write("Erstellt von: " & strvorname & " " & strnachname & _
    "<br />" & vbCrLf)
  Response.Write(Weekdayname(Weekday(Date())) & ", " & Date() & _
    "<br />" & vbCrLf)
End Sub

'*****************************************************************
'Anfang Code

'*****************************************************************
'Anfang <html>
%>
<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
    <title>ASP Prozeduren und Funktionen: Prozedur für den Nachspann</title>
    <meta name="description" content="" />
    <meta name="keywords" content="" />
  </head>
<body>
<p>Hier ist die normale Seite</p>

Nun kommt der Nachspann:
<%
'*****************************************************************
'Code innerhalb der HTML-Seite

call procwritenachspann("Silvia", "Rothen")
%>

</body>
</html>

Demo: uebungen/uebung3_3.asp

Letzter Update: 26.12.2021 16:48

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