Solution 1: page HTML.
Solution 2: page ASP.
<%@ LANGUAGE = "VBScript" %>
<html>
<head>
<title>bonjour.asp</title>
</head>
<body>
<% For i = 3 To 7 %>
<font size=<% = i %>>Bonjour !</font>
<% Next %>
</body>
</html>
(les pages ASP doivent avoir l'extension .asp).
Un premier exemple :
<html>
<head>
<title>zone_de_texte.asp</title>
</head>
<body>
form action="reponse.asp" method="GET">b
<p>Nom : <input NAME="Nom" size="10"></p>
<p>Prenom : <input NAME="Prenom" size="10"></p>
</form>
</body>
</html>
<html>
<head>
<title>reponse_zone_de_texte.asp</title>
</head>
<%Nom=request.Form("Nom")
Pays=request.Form("Prenom")%>
<body>
<p>Vous etes<%=Nom%> <%=Prenom%> </p>
</body>
</html>
Un deuxième exemple avec un menu déroulant:
<html>
<head>
<title>menu_deroulant.asp</title>
</head>
<body>
<form method="POST" action="reponse_menu_deroulant.asp">
<p>Voici le menu </p>
<select name="Menu1" size="1">
<option selected value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option></select>
<p>
<input type="submit" value="Envoyer" name="Envoyer">
<input type="reset" value="Effacer" name="Effacer">
</p>
</form>
</body>
</html>
Avec comme réponse :
<html>
<head>
<title>reponse_menu_deroulant.asp</title>
</head>
<body>
<% choix1 = request.form("Menu1")
%>
<%Select Case ucase (Choix1)
Case "1"
response.write "Chiffre 1 sélectionné"
Case "2"
response.write "Chiffre 2 sélectionné"
Case "3"
response.write "Chiffre 3 sélectionné"
Case "4"
response.write "Chiffre 4 sélectionné"
End Select
%>
</body>
</html>
Remarque: les 2 lignes suivantes ont exactement la même signification.
<%response.write "Chiffre 4 sélectionné"%>
<%="Chiffre 4 sélectionné"%>
Voici un solution élégante pour s'assurer que tous les champs d'un formulaire sont remplis.
<%ENVOY = Left(UCase(Request("ENVOYER")),5)
If ENVOY = "ENVOY" Then
for each item in request.form
if request.form(item) = "" then
alert = "Tous les champs doivent avoir une réponse valide"
end If
Next
If alert = "" Then
alert = "Tous les champs sont remplis"
End IF
End IF%>
<html>
<head>
<title>Validation des champs d'un formulaire</title>
</head>
<body>
<%If alert <> "" then%> onload="alert('<%response.write alert%>')" <%End IF%>>
<form method="post" action="validation.asp" name="Validation">
<p>Nom <input type="text" name="Nom" size="20"></p>
<p>Prénom <input type="text" name="Prenom" size="20"></p>
<p>
<input type="submit" name="ENVOYER" value="Envoyer">
<input type="reset" name="EFFACER" value="Effacer">
</p>
</form>
</body>
</html>
Ce type de code permet de rajouter un champ sans avoir à modifier le code de test de validité des champs.