disculpen muchachos es que soy medio nuevo en esto
el codigo que tengo es el siguiente
<%
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
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 "buscador.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 UCase(numero) like '%" & UCase(Request("numero")) & "%' AND UCase(fecha) like '%" & UCase(Request("beneficiario")) & 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
' Si el pedido de página cae afuera del rango,
' lo modifico para que caiga adentro
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
%>
<body style="background-color: #FFFFF4">
<%
' Si la cantidad de páginas da 0 es que no hay registros... por eso este IF
If cant_paginas = 0 Then%>
<p><font face="Arial">Se encontraron <font color="#FF0000"> <b>0</b> resultados</font></font></p>
<ul>
<li><font face="Arial"><a href="buscador.asp">Buscar nuevamente</a></font></li>
<li><font face="Arial">
<a href="resultados.asp?orden=Artista&titulo=<%=titul o%>&cantidad=10">Repetir la búsqueda sin restricciones</a></font></li>
</ul>
<%
'sino, si es que encuentra registros
Else
' Nos movemos a la página elegida
RS.AbsolutePage = pagina_actual
' muestra el dato de la página en la que estamos...
%>
lo que quiero es agregarle la categoria que viene en un select combo ,esta categoria figura en un campo en la base de datos , en el formulario al desplegar la categoria 1 me mostraria todos los resultados de la base de datos de esa categoria -
SI ALGUIEN ME PUEDE DECIR COMO INSERTARLA EN ESTE CODIGO ESTARIA MUY AGRADECIDO , DESDE YA PIDO DISCULPAS Y MUCHISIMAS GRACIAS