<%
Dim age
age = Request.Form("age")
%>
<form
name="form1" method="post" action="<%=ScriptName
& "?submit=form" %>">
<table width="9%" border="0" cellspacing="0"
cellpadding="0">
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica,
sans-serif"><18</font></td>
<td><font size="2" face="Verdana, Arial, Helvetica,
sans-serif">
<input type="radio" name="age" value="<18"
<% if age = "<18" then Response.write
"checked" %> >
</font></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica,
sans-serif">18-21</font></td>
<td><font size="2" face="Verdana, Arial, Helvetica,
sans-serif">
<input type="radio" name="age" value="18-21"
<% if age = "18-21" then Response.write
"checked" %> >
</font></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif"
size="2">22 ></font></td>
<td><font size="2" face="Verdana, Arial, Helvetica,
sans-serif">
<input type="radio" name="age" value="22>"
<% if age = "22>" then Response.write
"checked" %> >
</font></td>
</tr>
<tr>
<td colspan="2">
<input type="submit" name="Submit" value="Submit">
<%
If
Request.QueryString("submit") = "form"
If
NOT age = "" Then ' Lets make sure the
form wasn't submited with nothing checked.
Response.write "You are in the "
& age & " age range!
End
If
End
if
%>
</td>
</tr>
</table>
</form>
|