Reordenar listado por una columna con un click

[Leonardo A. Sanchez]

Hola, estoy colocando un lista en una tabla, uso Dreamwaver MX, y el asunto es que estoy colocando un codigo como este:

<%
Dim rsListadeUsuarios
Dim rsListadeUsuarios_numRows

Set rsListadeUsuarios = Server.CreateObject("ADODB.Recordset")
rsListadeUsuarios.ActiveConnection = MM_HelpCenterDB_STRING
rsListadeUsuarios.Source = "SELECT IdUser, Login, Password, Nombre, Perfil FROM dbo.UsersWeb WHERE (Activo=1) ORDER BY '" + Replace(rsListadeUsuarios__Orden, "'", "''") + "' ASC"
rsListadeUsuarios.CursorType = 0
rsListadeUsuarios.CursorLocation = 2
rsListadeUsuarios.LockType = 1
rsListadeUsuarios.Open()
rsListadeUsuarios_numRows = 0
%>

Y ese parametro Orden, lo traigo de un QueryString asi:

<%
Dim rsListadeUsuarios__Orden
rsListadeUsuarios__Orden = "IdUser"
If (Request.QueryString("Orden") <> "") Then
rsListadeUsuarios__Orden = Request.QueryString("Orden")
End If
%>

Ahora, coloque como links los titulos de la lista donde muestro estos datos asi:

<td><a href="usuariolista.asp?Orden=Login">Login:</a></td>

Y esto me recarga la pagina, pero no me reordena la tabla como yo esperaria sino que me la deja tal cual.

Que sera??

[ElAprendiz]

esta un poco complejo tu codigo pero yo lo hago asi:

'Pagina.asp

'genero los links
<a href="paginas.asp?campo=usuario">ordenar por usuario</a>
<a href="paginas.asp?campo=ciudad">ordenar por ciuidad</a>

sql="select * from tabla"

select case request("campo")
case "usuario"
sql=sql&" order by usuario"
case "ciudad"
sql=sql&" order by ciudad"
case else
sql=sql&"order by usuario"
end select




saludos