Foros del Web - do until no muestra los datos

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