<%
strList = ""
For Each strKey in Request.Form
strList = strList & strKey & "/" & Request.Form( strKey ) & "<br>"
Next
aRadio = Array("","","")
aRadio(Request.Form("Radio")) = "checked"
Dim Selected(3)
Selected(Request.Form("Select")) = "selected"
%>
<HTML>
<BODY>
<FORM method="post">
<INPUT type="text" name="Field" value="<%= Request.Form("Field") %>">
<INPUT
type="checkbox"
name="Check1"
<% if Request.Form("Check1") = "on" then Response.Write "checked" end if %>
>
<INPUT
type="checkbox"
name="Check2"
value="checked"
<%= Request.Form("Check2") %>
>
<INPUT type="radio" name="Radio" value="0" <%= aRadio(0) %>>
<INPUT type="radio" name="Radio" value="1" <%= aRadio(1) %>>
<INPUT type="radio" name="Radio" value="2" <%= aRadio(2) %>>
<SELECT name="Select">
<OPTION value="1" <%= Selected(1) %>>値1
<OPTION value="2" <%= Selected(2) %>>値2
<OPTION value="3" <%= Selected(3) %>>値3
</SELECT>
<TEXTAREA name="Textarea"><%= Request.Form("Textarea") %></TEXTAREA>
<INPUT type="submit" name="send" value="送信">
</FORM>
<HR>
<%= strList %>
</BODY>
</HTML>