Hola, esto me tiene al borde no se si es que estoy ciego de la rabia y no veo mi error o que. Les pido ayuda en este script.
Resulta que tengo una pagina que extrae los datos de una BD y luego los muestra en un listado, el problema es que yo coloco los encabezados de los campos como vinculos con una variable que hace link con la misma pagina de manera que cuando haga click en determinado vinculo me ordene la consulta deacuerdo a el valor de esa variable, aqui coloco un poco de este codigo para que alguien lo revise por favor gracias de antemano.
----------
<%
Dim mostrar 'cantidad de registros a mostrar por página
Dim cant_paginas 'cantidad de páginas que recibimos
Dim pagina_actual 'La página que mostramos
Dim registro_mostrado 'Contador utilizado para mostrar las páginas
Dim I 'Variable Loop
dim dia_nu
'dim orden
dia_nu = 18
mostrar = 10 ' Pueden modificar este número para cambiar la cantidad de registros por página
Response.Write dia_nu
' IF para saber que página mostrar
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\database\database.mdb"))
---
'aqui es donde realizo mi primera condicion
---
'pero me trae la consulta y se salta el if no los ordena por el nombre.
----
if orden = nombre then
sql = "SELECT datos_personal.nomb_empl, datos_departamento.nomb_dpto, datos_fecha.dia, datos_fecha.mes, datos_fecha.hora FROM datos_personal INNER JOIN (datos_fecha INNER JOIN (datos_departamento INNER JOIN tbl_fecha ON datos_departamento.id_dpto = tbl_fecha.id_dpto) ON datos_fecha.id_fecha = tbl_fecha.id_fecha) ON datos_personal.id_empl = tbl_fecha.id_empl ORDER BY datos_personal.nomb_empl desc;"
else
'sql = "SELECT datos_personal.nomb_empl, datos_departamento.nomb_dpto, datos_fecha.dia, datos_fecha.mes, datos_fecha.hora FROM datos_personal INNER JOIN (datos_fecha INNER JOIN (datos_departamento INNER JOIN tbl_fecha ON datos_departamento.id_dpto = tbl_fecha.id_dpto) ON datos_fecha.id_fecha = tbl_fecha.id_fecha) ON datos_personal.id_empl = tbl_fecha.id_empl ORDER BY datos_personal.nomb_empl;"
end if
---
esta es la parte donde llamo a la pagina
Response.Write "<TD><B>"
Response.Write "<a href=./pruebadepag.asp?orden=nombre>Nombre</a>"
Response.Write "<B></TD>"
Response.Write "<TD><B>"
Response.Write "<a href=./pruebadepag.asp?orden=departamento>Departamento</a>"
Response.Write "<B></TD>"
-------
Hay mas codigo pero este es elñ que me interesa mostrar
Que me dicen
