Request.Form - Příklad

Zaškrtněte všechny jazyky, které znáte:
Angličtina
Němčina
Francouzština
Španělština
Italština
Výpis zdrojového textu souboru http://www12.brinkster.com:80/mibla/priklady/request_form.asp
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta http-equiv="Content-Type" content="text/html;charset=windows-1250">
  <title>Jemný úvod do ASP - Request.Form - Pøíklad</title>
</head>
<body>
     
<h1>Request.Form - Pøíklad</h1>

<!-- Formuláø -->
Zaškrtnìte všechny jazyky, které znáte:<BR>
<FORM ACTION="request_form.asp" METHOD="post">
  <INPUT TYPE="checkbox" NAME="jazyk" VALUE="Angliètina">Angliètina</INPUT><BR>
  <INPUT TYPE="checkbox" NAME="jazyk" VALUE="Nìmèina">Nìmèina</INPUT><BR>
  <INPUT TYPE="checkbox" NAME="jazyk" VALUE="Francouzština">Francouzština</INPUT><BR>
  <INPUT TYPE="checkbox" NAME="jazyk" VALUE="Španìlština">Španìlština</INPUT><BR>
  <INPUT TYPE="checkbox" NAME="jazyk" VALUE="Italština">Italština</INPUT><BR>
  <INPUT TYPE="submit" NAME="submit" VALUE="Odeslat">
</FORM>

<!-- Skript na zpracování formuláøe -->

<%
  If Request.Form("submit") <> "" Then
  'Pokud již byl formuláø odeslán, vyhodnotíme poèet zaškrtnutých možností
    If Request.Form("jazyk").Count <= 1 Then
      Response.Write "Mìl(a) byste na sobì ještì trochu zapracovat."
    Else
      Response.Write "Vaše jazykové znalosti jsou dobré.<BR>"
      Response.Write "Byly zaškrtnuty následující jazyky:<BR><UL>"
      For i = 1 To Request.Form("jazyk").Count
      'Vypíšeme všechny oznaèené možnosti
        Response.Write "<LI>" & Request.Form("jazyk")(i) & "</LI>"
      Next
      Response.Write "</UL>"
    End If
  End If
%>

 
</body>
</html>

Hlavní stránka