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

" & vbCrLf html=html & " " & vbCrLf html=html & " " & vbCrLf html=html & " " & vbCrLf html=html & " " & vbCrLf 'html = html & "" & vbCrLf 'html = html & ""& vbCrLf 'html = html & "" & vbCrLf 'html = html & " "& vbCrLf 'response.write (html) rec.movenext loop rec.close response.write (html) set rec=nothing %>   <% html = "" html = html & "" & vbCrLf html = html & "" & vbCrLf html = html & " " & vbCrLf html = html & ""& vbCrLf 'html = html & " " & vbCrLf html = html & "              Modalidad " %> <% set rec=Consulta_Modalidad("0",cstr(Session("conecc"))) do while not rec.eof %> <% html=html & "  " & rec("id_modalidad") & "  " & rec("nom_modalidad")& "  " & rec("gls_modalidad") & " "& rec("id_modalidad")"-" & rec("nom_modalidad") " " & rec("gls_modalidad")& "