ウェブページ全体でクエリの結果が保存されない

Question

私はVBの新機能で、ドロップダウンメニューに値が入力されていない問題を調べるように求められました。次のコードは、最初のドロップダウンメニューを表示しますが、2番目のドロップダウンメニューは空白です。 SQLのコピーと貼り付けを実行してrs変数を再作成すると、ドロップダウンメニューが表示されます。

私は変数を正しく保存していないと確信していますが、私が言ったように、私はVBで非常に新しいです。私はrsをループに同じコードを使用してダウンボックス私の第二のドロップを、作成するために行くとき

<%  
    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> 

だから、私のオプションは空です。

Answer 1

問題は、このコードにあるのかもしれない -

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

をリストダウン2番目のドロップに達する時までにrs.moveFirst()が発生しないとループは即座に終了するのでrs.EOF条件が真となります。