修改程序取ID的异常

修改程序取ID的错误！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
  dim ID
  dim rs
  dim sql
  dim Conn
  ConnStr="driver={sql server};server=127.0.0.1;database=tire;uid=sa;pwd=111111"
  set Conn=server.createobject("adodb.connection")
  Conn.Open ConnStr
  Set rs=server.CreateObject("ADODB.recordset")
ID=request.QueryString("产品编号")
  Response.Write("产品编号ID为："&ID&" <br>")
  sql="select * from chanpin3 where 产品编号='"& ID &"'"
  if request("产品编号")<>"" and Submit<>"提交" then
  rs.Open sql,Conn,1,1
  if rs.EOF or rs.BOF then
  Response.Write("<hr>数据库中暂无资料！")
  Else
  do while not rs.EOF or rs.BOF
  %>
<% 
 rs.movenext
 loop
 end if
 set rs=nothing
 set conn=nothing
 %>
请问啊，我这个是在原表的一行后有个修改的按钮，点按钮后，为啥取不到ID值啊，显示ID为空啊！请教！！

------解决方案--------------------
这个ID值是通过get方式从地址栏发过来的，请问你有没有提交表单的时候是怎么传的