<% dim rec,colum,cant_reg,obj,html set obj = Server.CreateObject("ComValero.consultas")%>

">    <% set rec=Consulta_categoria("0","0",cstr(Session("conecc"))) do while not rec.eof %> <% rec.movenext loop rec.close set rec=nothing %> Categorías Edad Solo/Duo/Trio TiempoMaximo Grupo TiempoMaximo <%=rec("nom_categoria")%> <%=rec("edades")%> <%=rec("tmp_max_SDT")%>  minutos <%=rec("tmp_max_grupo")%>  minutos