26 - Order by (Ordenamiento de los registros por un campo)


Simulador (Cuando presiona el botón "ejecutar el programa" se graban todos los cuadros de texto y se ejecuta el primero de la lista mostrando en una página el resultado)

Problema:

<%option explicit%>
<html>
<head>
<title>problema</title>
</head>
<body>
<%
dim ordenado
if request.querystring("ord") is nothing Then
  ordenado=""
elseif request.querystring("ord")="a" Then
  ordenado=" order by precio"
elseif request.querystring("ord")="d" Then
  ordenado=" order by precio desc"
end if
dim conexion
set conexion = Server.CreateObject("ADODB.Connection")
conexion.ConnectionString = "Provider=SQLOLEDB.1;" & _
			    "Data Source=.;" & _
			    "Integrated Security=SSPI;" & _
			    "Persist Security Info=False;" & _
			    "Initial Catalog=wi630629_aspya"
conexion.Open
dim registros
set registros = Server.CreateObject("ADODB.RecordSet")  
registros.open "select descripcion,precio from articulos" & ordenado,conexion
response.write("<table border=""1"">")
response.write("<tr><th>Descripción</th><th>Precio" _
  & "<a href=""pagina1.asp?ord=a"">ASC</a>-<a href=""pagina1.asp?ord=d"">DESC</a></th></tr>")
do while not registros.eof
  response.write("<tr>")
  response.write("<td>")
  response.write(registros("descripcion"))
  response.write("</td>")
  response.write("<td>")
  response.write(registros("precio"))
  response.write("</td>")
  response.write("</tr>")
  registros.movenext
loop
response.write("</table>")
conexion.close
%>
</body>
</html>

Confeccionar un listado completo de la tabla articulos. Disponer dos hipervínculos de la columna precio que nos permitan ordenarlos de "menor a mayor" o de "mayor a menor".


Ver solución

pagina1.asp






Retornar