Asp classic 未在整个网页中保留查询的结果

我对VB非常陌生，被要求查看一个值未填充下拉菜单的问题。下面的代码填充第一个下拉菜单，但第二个下拉菜单为空。如果复制并粘贴sql execute以重新创建

rs

变量，将填充我的下拉菜单

我确信我没有正确地保存变量，但正如我所说，我对VB非常陌生

<%    
     sql = ""    
     sql = sql & "EXECUTE dbo.web_FetchPlans @ID = " & ID    
     Set rs = objConn.execute(sql)    
%>

<select name="first" type="text" ">    
   <option value="">Please select ...</option>

    <%   if not rs.eof then
          rs.moveFirst()
          do while not rs.EOF
    %>

<%

if not rs.eof then    
    rs.moveFirst()    
    do while not rs.EOF
%>

<option value="<%=rs("productCode")%>"><%=rs("productName")%></option>

<%
rs.moveNext()  
loop
  end if    
%> 


 </select>

问题可能在于本守则—

<%   if not rs.eof then
      rs.moveFirst()

请将代码缩进四个空格来格式化。