ordenar resultados en tabla asp

petronilo · #1 (**permalink**) 07/05/2009, 02:51

hola, estoy intentando ordenar registros en una tabla y la forma en que lo hice es la siguiente:

Código:

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>

<% if rscatcont1.bof  or rscatcont1("total") < 9 then%> <% 
	while not rs.eof 
%>
<% catcont=rs("idcategoria")%>
		<img height="15"  src="../images/flecha_izquierda.gif"  width="14" align="absmiddle" /><a href="<%=rs("nombrepag")%>?idcat=<%=rs("idcategoria")%>" class="sub" ><%=rs("nombre")%></a>>
<%
	rs.movenext
	wend
%>
<% else%>
  <% Do While Not rs.EOF %>
  <td white="34%"><% catcont=rs("idcategoria")%>
		<img height="15"  src="../images/flecha_izquierda.gif"  width="14" align="absmiddle" /><a href="<%=rs("nombrepag")%>?idcat=<%=rs("idcategoria")%>" class="sub" ><%=rs("nombre")%></a>
		<% end if %></td>
  <% counter=counter+1
  If counter Mod 3=0 Then Response.Write "</tr><tr>"
  rs.MoveNext
  Loop %>
  <% end if%>
</tr>
</table>

todo esta correcto y me muestra los resultados en una tabla pero no de la forma que quiero...

forma en que me muestra los datos:

a - b - c
d - e - f

forma en que los necesito:

a - d
b - f
c - g

como no controlo demasiado no se como solucionarlo, se les ocurre algo?

Gracias!!!

orchating · #2 (**permalink**) 07/05/2009, 04:53

mete los registros de la A a la D cada uno en una variable y el value de cada td o tr le dices que lo recoja de la base de datos

Adler · #3 (**permalink**) 07/05/2009, 07:10

Hola

Trabaja con esto

Código asp:

Ver original<% 
Dim Arr
Redim Arr(10,2)        
 
For i = 1 to 10
if i <= 5 then
              Arr(i,0) = i
else
j= CInt(i -5)
     Arr(j,1) = i
end if           
            
 Next 'i
%> 
 
<table border="1">
 <%
For x=1 to 5
 %> 
<tr><td><%=Arr(x,0)%></td><td><%=Arr(x,1)%></td></tr>
<%
Next
%> 
</table>

Suerte

petronilo · #4 (**permalink**) 08/05/2009, 01:48

Muchas gracias, les cuento como me fue mas tarde

!

petronilo · #5 (**permalink**) 08/05/2009, 02:42

Lo intente pero me pierdo, entiendo la sentencia y lo que le decis pero no se como unirlo a mi consulta. Tengo una base de datos con categorias y lo que quiero es ordenar esas categorias alfabeticamente en tres columnas, con el codigo que te mostre antes lo hago pero me lo ordena mal....

seguire viendo como unir ese codigo con lo que yo tengo pero no lo tengo muy claro...

Saludos

orchating · #6 (**permalink**) 08/05/2009, 04:18

cuando haces la consulta en sql le dices select () from () order by o algo parecido no me hagas mucho caso de sql no ando muy haya, el order by t elo ordena alfabeticamente

Adler · #7 (**permalink**) 08/05/2009, 06:05

Hola

Prueba y modifica este script

Código asp:

Ver original<%
Sub Ordenar_Array(byRef arr)
Dim hilera, i, pos, p_valor, n_valor, arrDivision
For hilera = 0 To UBound(arr) - 1
p_valor = arr(hilera)
n_valor = arr(hilera)
pos = hilera
            
For i = hilera + 1 to UBound(arr)
If arr(i) < n_valor Then
pos = i
n_valor = arr(i)
End If
Next
        
If pos <> hilera Then
arr(pos) = p_valor
arr(hilera) = n_valor
End If  
Next
 
End Sub
%>
<html><body>
 
 
<form method=post id=form1 name=form1 action="./ordenar_array.asp">
Introduce una cadena<br>
<textarea name="elementos" cols=50 rows=5><%=Request.Form("elementos")%></textarea>
<p><input type=submit value="Ordenar" id=submit1 name=submit1>
</form>
 
<p><hr><P>
 
<% If Len(Request("elementos")) > 0 then
 
      arrDivision = split(Request.Form("elementos"), " ")
    
      Response.Write "Desordenado -- " & join(arrDivision, ", ") & "<br />"
 
       Call Ordenar_Array(arrDivision)
      
     
      Response.Write "Ordenado -- " & join(arrDivision, ", ")
      
      Response.Write "<p><hr><p>"
   End IF
%>

Suerte

petronilo · #8 (**permalink**) 08/05/2009, 09:46

Gracias Adler, voy a probar el codigo que me pasaste!

Saludos