que estoy haciendo mal ?????

[hugorei]

NO sigue sin funcionar

Mira te pongo la pagina que lo levanta mas detallada

<%
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
categoria = Request.querystring("categoria")
numero= request.querystring("numero")
fecha = request.querystring("fecha")
beneficiario= request.querystring("beneficiario")
palabras= request.querystring("palabras")
orden = request.querystring("orden")
alf = request.querystring("alf")
cantidad = request.querystring("cantidad")
if cantidad="10" then
mostrar = 10
elseif cantidad="20" then
mostrar = 20
elseif cantidad="30" then
mostrar = 30
end if
if orden = "" then
response.redirect "buscador2.asp"
end if

' IF para saber que página mostrar
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If

strsql = "SELECT * FROM buscador where categoria = '" & Request.Form("categoria") & "' AND UCase(numero) like '%" & UCase(Request("numero")) & "%' AND UCase(fecha) like '%" & UCase(Request("fecha")) & "%' AND UCase(beneficiario) like '%" & UCase(Request("beneficiario")) & "%' AND UCase(palabras) like '%" & UCase(Request("palabras")) & "%' order by "& orden & " "&alf

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("buscador.mdb")

' creo el RecordSet y defino la cantidad de registros a mostrar
Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar

' Abro la tabla...
RS.Open strSQL, oConn,3,1
'cuento las páginas que se formaron con la variable mostrar
cant_paginas = RS.PageCount