<html>
<head>
</head>
<body>
<table border="0" cellspacing="0" cellpadding="10">
<tr>
<td>
<form
method="GET" action="test_aspvrml.asp" name="form">
<table border="0" width="100%" cellspacing="0"
cellpadding="3">
<tr>
<td align="center">
<select size="1" name="shapeField">
<option <% if
Request.QueryString("shapeField")="Box" then%>selected<%end if%>>Box</option>
<option <% if Request.QueryString("shapeField")="Cone"
then%>selected<%end if%>>Cone</option>
<option <% if
Request.QueryString("shapeField")="Cylinder" then%>selected <%end if%>>Cylinder</option>
<option <% if Request.QueryString("shapeField")="Sphere"
then%>selected <%end if%>>Sphere</option>
</select>
</td>
<td align="center">
<select size="1" name="colorField">
<option value="1 0 0" <% if Request.QueryString("colorField")="1 0 0"
then%> selected <%end if%>>Red</option>
<option value="0 1 0" <% if Request.QueryString("colorField")="0 1 0"
then%> selected <%end
if%>>Green</option>
<option value="0 0 1" <% if Request.QueryString("colorField")="0 0 1"
then%> selected <%end if%>>Blue</option>
</select>
</td>
<td align="center">
<input type="submit" value="Go" name="Go" >
</td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td>
<embed
src="scene.asp?shape=<% =Request.QueryString("shapeField")%>
&color=<% =Request.QueryString("colorField")%>"
type="model/vrml"
width="400"
height="265"
>
</td>
</tr>
</table>
</body>
</html>