Ejercicios resueltos

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.)

Confeccionar una página que muestre una tabla con todos los artículos. Disponer un hipervínculo en los títulos de precio y descripción, al ser presionados ordenarlos por el campo respectivo.

pagina1.asp

<%option explicit%>
<html>
<head>
<title>problema</title>
</head>
<body>
<%
dim ordenado
if request.querystring("ord") is nothing Then
  ordenado=""
elseif request.querystring("ord")="descripcion" Then
  ordenado=" order by descripcion"
elseif request.querystring("ord")="precio" Then
  ordenado=" order by precio"
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><a href=""pagina1.asp?ord=descripcion"">Descripción</a></th><th><a href=""pagina1.asp?ord=precio"">Precio</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>

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

Retornar