<%@ Language=VBScript %>
<%
Option Explicit
Response.Expires = 0
On Error Resume Next
Dim strfield
%>
<html>
<head>
<title>ASP Formularverarbeitung: Typen von Formularfeldern und ihre Verarbeitung
</title>
</head>
<body>
<%
If Request.Form("btnsubmit") = "Abschicken" Then
Response.Write("<h2>Vielen Dank für Ihre Eingaben</h2>" & vbCRLf)
Response.Write("<b>Geschlecht:</b> " & Request.Form("frmfldgeschlecht") & "<p />")
Response.Write("<b>Vorname:</b> " & Request.Form("frmfldvorname") & "<br />")
Response.Write("<b>Passwort:</b> " & Request.Form("frmfldpasswort") & "<br />")
Response.Write("<b>Programmierkenntnisse?</b> " & _
Request.Form("frmfldvorkenntnisse") & "<br />")
'Für Mehrfachauswahl
Response.Write("<b>Kenntnisse in: </b><br />")
For Each strfield In Request.Form("frmfldsprachen")
Response.Write(strfield & "<br />")
Next
Response.Write("<br />")
Response.Write("<b>Interesse an DB-Anbindung: </b>" & request.form("frmflddb") & "<p />")
'join(split.. braucht es, um Zeilenumbrüche in HTML anzuzeigen
Response.Write("<p><b>Kommentar: </b><br />"&_
join(split(request.form("frmfldcomment"),vbCrLf),"<br />") & "</p>")
End If
%>
<!--#include virtual="asppages/silvi/_include/inchtmlnachspann.asp" -->
</body>
</html>
Demo: uebungen/uebung4_2form2.asp
Letzter Update:
26.12.2021 16:48
Zurück zur
Liste mit ASP-Übungen auf
www.ecotronics.ch