<% f_codigo = request ("codigo") f_codigo = Replace(f_codigo, "'", "") if f_codigo = "" then queryselbon = "SELECT * FROM bonus ORDER BY bon_codigo DESC" set i_query = Conexao.Execute(queryselbon) do while not i_query.eof %> <% i_query.movenext loop else queryselregra = "SELECT * FROM bonus WHERE bon_codigo ="&f_codigo set i_query = Conexao.Execute(queryselregra) %>
  "> <%=i_query("bon_nome")%>
  " target="bon"> <%=i_query("bon_nome")%>


<%=replace(i_query("bon_bonus"), chr(13), "
")%>

« voltar
<% end if %>