Ordenar registros via Query.string

[JuanRAPerez]

sera que orden = campo???

<%
dim mrs, sqlcode, Orden
campoordenar = trim(request.QueryString("campoordenar"))
formaorden = trim(request.QueryString("formaorden"))
'formaorden tiene que ser igual a asc o desc
set mrs = server.createobject("adodb.recordset")
sqlcode = "select * from Registros Order by " & campoordenar & " " & formaorden & ""
mrs.open sqlcode, mconn
While not mrs.EOF
%>