提交表单和接收表单在同一页面，怎样才能接收表单中的下拉菜单和文本域中的初值？

<%@ 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&"，所需要的各配件的总数如下："
%>


运行后，输出的类型和数量都是空，何故？用另一个网页接收却没有问题。请问如何在一个页面里做到和异面接收一样的效果？