1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Dim I, J As Integer
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
I = 0
J = 5
Response.Write("<form name=toto action=test.aspx method=get>")
Do While (I < J)
I = I + 1
Response.Write("Résultat " & "A" & I & " : " & Request.QueryString("A" & I) & "</br>")
Response.Write("Boite " & I & " : <input name=" & Chr(34) & "A" & I & Chr(34) & " type=text /></br>")
Loop
Response.Write("<input name=bouton type=" & Chr(34) & "submit" & Chr(34) & "/>")
Response.Write("</form>")
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Page sans titre</title>
</head>
<body>
<table border="1">
<tr>
<td>1
</td>
<td>2
</td>
<td>3
</td>
</tr>
</table>
</body>
</html> |
