提交表单和接收表单在同一页面，怎样才能接收表单中的下拉菜单和文本域中的初值？
<%@ language=VBScript %>
<%
dim connstr
connstr="provider=Microsoft.jet.oledb.4.0;data source=" &server.mappath("mydata.mdb")
set conn=server.createobject("adodb.connection")
conn.open connstr
%>
<form method="post" name="form1" id="form1">
<table width="573" height="59" border="1">
<tr>
<td width="49" height="46" align="center">类型</td>
<td width="60"><span class="category">
<select name="Tlist">
<option value="经济型" selected="selected">经济型</option>
<%
sql="select * from type order by id"
set rs_type=conn.execute(sql)
do while rs_type.eof=false
%>
<option value="<%=rs_type("类型")%>"><%=rs_type("类型")%></option>
<%
rs_type.movenext
loop
%>
</select>
</span></td>
<td width="74">输入数量</td>
<td width="178"><input name="suliang" type="text" value="0" /></td>
<td width="178"><label>
<input type="submit" name="Submit" value="提交" />
</label></td>
</tr>
</table>
</form>
<%
dim TabelName,i,rs,typenum,num
typenum=Request.form("Tlist")
num=Request.form("suliang")
response.write "你选择的类型是："&typenum&"，"
response.write "数量是："&num&"，所需要的各配件的总数如下："
%>
运行后，输出的类型和数量都是空，何故？用另一个网页接收却没有问题。请问如何在一个页面里做到和异面接收一样的效果？