Le prometi a mi jefe que lo tendria acabado para mañana, pero no logro que la paginacion de las busquedas me salga correctamente. Se que no es la mejor manera de pedir ayuda, pero necesito acabarlo o me caera una bronca de las gordas, asi que voy a pegar el codigo para que porfavor me echeis una mano para ver donde me estoy equivocando.
Muchas gracias a todos y gracias por la comprension:
-Buscar_2.asp : (archivo problematico)
<%
set conexio = server.CreateObject("ADODB.Connection")
cami = "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("webs.mdb")
conexio.open cami
set rs=server.CreateObject("ADODB.recordset")
rs.CursorType = 1
rs.LockType = 3
SQL = "Select * from twebs"
rs.open SQL, cami
'''''''''''''''''''''''''''''''''''''
cantidadregistros = 3
rs.cachesize=60
rs.pagesize=cantidadregistros
maxpagina=cint(rs.pagecount)
maxregistros=cint(rs.pagesize)
if request.querystring("pa")<>"" then
mostrarpagina=request.querystring("pa")
rs.absolutepage=mostrarpagina
else
mostrarpagina=1
end if
contreg=0
resultats=0
if int(mostrarpagina)<>int(maxpagina) then '-- Si no es la última página.
hasta=mostrarpagina*30
desde=hasta-29
else
hasta=rs.recordcount
desde=(maxpagina*30)-29
end if
ninguno = ninguno + 1
''''''''''''''''''''''''''''''''''''''''''''''''
Do While NOT rs.EOF and contreg < maxregistros
ninguno = ninguno + 1
valorA_1 = instr(Ucase(rs("nom")),Ucase(request.form("buscar" )))
valorA_2 = instr(Ucase(rs("link")),Ucase(request.form("buscar ")))
valorA_3 = instr(Ucase(rs("descripcio")),Ucase(request.form(" buscar")))
if valorA_1 <> 0 or valorA_2 <> 0 or valorA_3 <> 0 then
%>
<link href="web.css" rel="stylesheet" type="text/css">
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% resultats = resultats + 1 %>
<table width="500" height="100" border="1" cellpadding="0" cellspacing="0" class="web">
<tr>
<td width="120" height="100" rowspan="3"><a href="visites.asp?id_visites=<%=rs("id_web")%>" target='_blank'><img src="imatges/<%=(rs("foto"))%>" alt="Visitar <%=(rs("nom"))%>" width="120" height="100" border="0"></a></td>
<td width="10" height="100" rowspan="3"> </td>
<td width="94" height="15"><a href="visites.asp?id_visites=<%=rs("id_web")%>" target='_blank'><%=rs("nom")%></a> </td>
<td width="94" height="15" align="center"><a href="mod_form.asp?identificador=<%=rs("id_web")%> ">Modificar</a></td>
<td width="94" height="15" align="center"><a href="borrar_condicional.asp?identificador=<%=rs(" id_web")%>&nomweb=<%=rs("nom")%>">Borrar</a></td>
<td width="94" height="15" align="center"><img src="estrelles/<%=(rs("estrelles"))%>.gif" alt="Tienes <%=(rs("estrelles"))%> estrellas" width="70" height="10" border="0"></td>
</tr>
<tr>
<td height="70" colspan="4"><%=(rs("descripcio"))%></td>
</tr>
<tr>
<td width="94" height="15" align="left"><%=(rs("data"))%></td>
<td width="94" height="15" align="center">Idioma: <%=(rs("idioma"))%></td>
<td width="94" align="left">Visites: <b><%=(rs("visites"))%></b></td>
<td width="94" height="15" align="center"><a href="iframe_comentaris.asp?id_webcoment=<%=rs("id _web")%>&id_archiu=<%=request.QueryString("id_arch iu")%>"> <%=rs("numcomentaris")%> Comentaris </a></td>
</tr>
</table>
<br>
<%
end if
contreg=contreg+1
rs.movenext
loop
rs.close
response.write("Se encontraron " & resultats & " resultados")
%>
<%
'''''''''''''''''''''''''''''''''''''''''''''''
cero="0"
nombrescript=request.servervariables("script_name" )
'Flexa ESQUERRA
if int(mostrarpagina)<>1 then '--si no es la primer página mostrar botón atrás
ref="<a class=menu href='" & nombrescript & "?opcio=" & request.QueryString("opcio") & "&id_archiu=mostra_tot"
ref=ref & "&pa=" & mostrarpagina-1
ref=ref & "'><<</a> "
end if
'NUMEROS
for contador=1 to maxpagina
If contador>9 then
cero=""
end if
if maxpagina <> 1 then
ref=ref & " <a href='" & nombrescript & "?pa=" & contador & "&id_archiu=mostra_tot"
if int(contador)=int(mostrarpagina) then '-- pone en negrita pagina actual
ref=ref & "'class=numeros><u>" & cero & contador & "</u></a>"
else
ref=ref & "'class=numeros>" & cero & contador & "</a>"
end if
end if
next
'FLEXA DRETA
if ninguno = "1" then
else
if int(mostrarpagina)<>int(maxpagina) then
ref=ref & " <a class=numeros href='" & nombrescript & "?opcio=" & request.QueryString("opcio")
ref=ref & "&pa=" & mostrarpagina+1 & "&id_archiu=mostra_tot"
ref=ref & "'>>></a>"
end if
response.write ref
end if
''''''''''''''''''''''''''''''''''''''''''''''''
%>