Les résultats d'une requête ne sont pas conservés sur l'ensemble de la page Web

Question

Je suis très nouveau à VB, et on m'a demandé de regarder un problème avec des valeurs ne remplissant pas un menu déroulant. Le code ci-dessous remplit le premier menu déroulant, mais le second menu déroulant est vide. Si je copie et colle l'exécution sql pour recréer la variable rs, mes menus déroulants peupleront.

Je suis sûr que je ne préserve pas la variable correctement, mais comme je l'ai dit, je suis très nouveau à 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> 

Alors, quand je vais créer ma deuxième menu déroulant en utilisant le même code, à boucle à travers rs, mes options sont vides.

Answer 1

Le problème peut se situer dans ce code -

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

Au moment où vous atteignez votre deuxième liste déroulante la condition rs.EOF sera vrai si le rs.moveFirst() ne se produira pas et la boucle se terminera immédiatement.