do until no muestra los datos

[engonga]

tengo diferentes do untils para que me saquen datos de una tabla

Código PHP:

  sub mail_general()
do until rs_mail_empresa.eof%><%
if rs_mail_empresa("mail_general") <>"" then
mail_general_ = rs_mail_empresa("mail_general")
mail_general_ = replace (mail_general_," ", "")
mail_general_= replace (mail_general_,"-","&minus;")
response.write (mail_general_&";")
else
end if
        rs_mail_empresa.movenext
  
          loop
    response.write("mail_general<br><br>")
 end sub
sub mail_gerent()
do until rs_mail_empresa.eof%><%
if rs_mail_empresa("gerent_mail") <>"" then
mail_gerent_ = rs_mail_empresa("gerent_mail")
mail_gerent_ = replace (mail_gerent_," ", "")
mail_gerent_ = replace (mail_gerent_,"-","&minus;")
response.write (mail_gerent_&";")
else
end if
        rs_mail_empresa.movenext
  
          loop 
    response.write("mail_gerent<br><br>")
 end sub
 
sub mail_rrhh() 
do until rs_mail_empresa.eof%><%
if rs_mail_empresa("resp_rrhh_mail") <>"" then
mail_rrhh_ = rs_mail_empresa("resp_rrhh_mail")
mail_rrhh_ = replace (mail_rrhh_," ", "")
mail_rrhh_ = replace (mail_rrhh_,"-","&minus;")
response.write (mail_rrhh_&";")
else
end if
        rs_mail_empresa.movenext
  
          loop 
    response.write("mail_rrhh<br><br>") 
      end sub
sub mail_dep1() 
do until rs_mail_empresa.eof%><%
if rs_mail_empresa("resp_dep1_mail") <>"" then
mail_resp1 = rs_mail_empresa("resp_dep1_mail")
mail_resp1 = replace (mail_resp1," ", "")
mail_resp1 = replace (mail_resp1,"-","&minus;")
response.write (mail_resp1&";")
else
end if
        rs_mail_empresa.movenext
  
          loop 
    response.write("mail_dep1<br><br>")  
      end sub
sub mail_dep2() 
do until rs_mail_empresa.eof%><%
if rs_mai2_empresa("resp_dep2_mail") <>"" then
mail_resp2 = rs_mail_empresa("resp_dep2_mail")
mail_resp2 = replace (mail_resp2," ", "")
mail_resp2 = replace (mail_resp2,"-","&minus;")
response.write (mail_resp2&";")
else
end if
        rs_mail_empresa.movenext
  
          loop  
    response.write("mail_dep2<br><br>") 
      end sub 
   

y los llamo

Código PHP:

  <%if mostra_mail = "total" then
mail_general()
mail_gerent()
mail_rrhh()
mail_dep1()
mail_dep2()
elseif mostra_mail = "gerencia" then
mail_gerent()
elseif mostra_mail = "dep_rrhh" then
mail_rrhh()
elseif mostra_mail = "departaments" then
mail_dep1()
mail_dep2()
elseif mostra_mail = "departaments_dep_rrhh" then
mail_rrhh()
mail_dep1()
mail_dep2()
elseif mostra_mail = "general" then
mail_general()
else
end if 
%> 
   

pero lo que pasa es que solo me ejecuta un sub los otros me los responde en blanco (me escupe el primero)


alguna ayuda?


gracias

[Myakire]

Eso es por que desde el primero ya estas en el EOF de rs_mail_empresa, debes de moverlo al inicio al entrar en cada procedimiento.

La verdad no he visto el código más allá de lo necesario para determinar por que solo entra al primero, pero definitivamente creo que puedes optimizar eso.

Saludos