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

Dim strbtnlblmult
strbtnlblmult = "Abschicken"
%>
<!--#include virtual="asppages/silvi/_include/preheader.inc" -->
<html>
<head>
<title>ASP Formularverarbeitung: Verarbeitung eines einfachen Formulars</title>
<!--#include virtual="asppages/silvi/_include/header.inc" -->
</head>
<body>
<!--Formularverarbeitung erfolgt auf derselben Seite-->
<form action="030einfachesformular.asp" method="post">
  <input type="Text" name="frmfldtext" value="<%=Request.Form("frmfldtext")%>" />
  <input type="submit" value="<%=strbtnlblmult%>" name="btnsubmit" />
</form>
<%
'Abfragen, ob Formular überhaupt abgeschickt wurde 
If Request.Form("btnsubmit") = strbtnlblmult Then
  'Eingegebenen Wert anzeigen
  Response.Write("Eingabe: " & Request.Form("frmfldtext") & "<br />" & vbCrLf)
End If

%>
<!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
</body>
</html>
Demo: beispiele/030einfachesformular.asp
Letzter Update: 26.12.2021 16:48

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