paginação depois de uam busca

[Davide Ricardo 0]

Boas pessoal..

 

É assim depois de uma procura efectuada pelo utilizador, gostaria que depois tivesse a opção de mostrar xx registos por página...

 

Mas o problema é que eu no meu main.asp tou a usar mts sub-menus como podem reparar aqui

admin.asp?menu=administracao&menu_admin=aae&accao=criar

e depois quando eu vou fazer página seguinte ele volta para a parte da pesquisa e só mostra a página seguinte se clicar no botão pesquisar.

 

Algures no código tenho isto: (desculpem colocar este montão de código mas é para analisarem)

 

Como faço?

 

Case else	if Request.Form("enviado") = "sim" then 'faz a pesquisa e mostra resultados		cod_cae = trim(Request.Form("cod_cae"))		designacao = trim(Request.Form("DESIGNACAO"))			strpesq ="SELECT * FROM CAE "		IF cod_cae <> "" THEN 			strpesq = strpesq & "WHERE COD_CAE LIKE '" & cod_cae & "%'" 		END IF		IF designacao <> "" THEN			IF cod_cae ="" then				strpesq = strpesq & " WHERE DESIGNACAO LIKE '" & designacao & "%'"			else				strpesq = strpesq & " AND DESIGNACAO LIKE '" & designacao & "%'"			END IF		END IF		Set rs = Con.Execute(strpesq)				'Recordset para total de Noticias		set objTotal=server.createobject("adodb.recordset")		sql="select count(cod_cae) as total from cae where Cod_Cae Like '" & cod_cae & "%'"		objTotal.open sql,con,3,3%>						<Table align="center"><tr><td class=titulogd>.:: Actividades Económicas ::. </td></tr><TR><TD> </TD></TR></table>			<table align="center"><tr><td class=linktext> <a href="admin.asp?menu=administracao&menu_admin=aae">Voltar</a> | 				<a href="admin.asp?menu=administracao&menu_admin=aae&accao=criar">Criar</a> | 				<a href="admi/imprimecae.asp" target="_blank">Imprimir</a><BR></td></tr></table>			<table border="2" align="center">			<tr><td><table><tr><td width="55"> </td>			<td width="40" class=titulo align="left">Código</td>			<td width="200" class=titulo align="center">Designação</td></tr></table></td></tr>						<%'Paginação na página			RegistosPorPagina = 10			NomPagina = "admin.asp?menu=administracao&menu_admin=aae" 			VarPagina = "&"			RegistosPorPagina = RegistosPorPagina			If rs.EOF = true or rs.BOF = true then%>			<Table align="center"><tr><td class=titulo>Não foram encontradas Actividades !</td></tr>				<tr><td align="center"><a href="admin.asp?menu=administracao&menu_admin=aae">Voltar</a></td></tr></Table>			</table>			<%Else						If TotRecord < RegistosPorPagina Then			Pagine = 1			Else			Pagine = TotRecord / RegistosPorPagina			End If						ArrPagine = Round(Pagine)			If Pagine > ArrPagine then			Pagine = ArrPagine + 1			Else			Pagine = ArrPagine			End If						Pagina = Request("pagina")			If Pagina = "" Then Pagina = 1 End If			PrimoRecord = (Pagina * RegistosPorPagina) - (RegistosPorPagina - 1)			UltimoRecord = PrimoRecord + RegistosPorPagina						rs.Move(PrimoRecord - 1)			For Conteggio = 1 to RegistosPorPagina			If rs.Eof then			Conteggio = RegistosPorPagina			Else												IF cod_cae <> "" THEN 				session("cod_cae") = cod_cae			END IF			IF designacao <> "" THEN				IF cod_cae ="" then					session("designacao") = designacao				else					session("cod_cae") = cod_cae					session("designacao") = designacao				END IF			END IF		%>						<tr><td>			<table>				<%'do while not rs.EOF %>				<TR><TD><a onclick='return rusure()' href="admin.asp?menu=administracao&menu_admin=aae&accao=apagar&COD_CAE=<%=rs("COD_CAE")%>">Apagar-</a></TD>				<td class=bodytext><input type="text" disabled value="<%=rs("COD_CAE")%>" name="cod_cae" size="4"></td>				<td class=bodytext><input type="text" disabled value="<%=rs("DESIGNACAO")%>" name="DESIGNACAO" size="65"></td></tr>			</table></td></tr>			<% rs.MoveNext				'loop				end if				Next%>			<tr valign="bottom">				<td colspan="2">					<table width="100%">						<tr valign=bottom>							<td align=right valign=bottom>								<b class=preto>Total: </b> <%=objTotal("total")%> registos(s)								<img width=10 src="../imagens/invisivel.gif" border=0 height=1>													<%								Anterior = Pagina - 1								Seguinte = Pagina + 1								Primeira = 1								Ultima = (rs.PageCount + 2)																fddmais = "<img src=imagens/seguinte_on.gif border=0 alt=""Seguinte"">"								fddmenos = "<img src=imagens/anterior_on.gif border=0 alt=Anterior>"								fddprimeira = "<img src=imagens/primeira.gif border=0 alt=""Primeira Página"">"								fddultima = "<img src=imagens/ultima.gif border=0 alt=""Última Página"">"																Response.write "</b>Página " & Pagina & " de " & Pagine & "<b> "%>								<img width=5 src="imagens/invisivel.gif" border=0 height=1>								<%								If pagina <> 1 Then								Response.Write "<A HREF =" & "'" & NomPagina & VarPagina & "pagina=" & primeira & "'" & ">" &fddprimeira& "</a>"								end if																If Pagina > 1 then								Response.write " <A HREF =" & "'" & NomPagina & VarPagina & "pagina=" & Anterior & "'" & ">" &fddmenos& "</a>"								End If																If not rs.EOF then								Response.write " <A HREF =" & "'" & NomPagina & VarPagina & "pagina=" & Seguinte & "'" & ">" &fddmais& "</a> "								End If																If Not rs.EOF Then								Response.Write " <A HREF =" & "'" & NomPagina & VarPagina & "pagina=" & ultima & "'" & ">" &fddultima& "</a> "								End If%>								<img width=10 src="imagens/invisivel.gif" border=0 height=1>							</td>						</tr>					</table>				</td>			</tr>			</table>					<% end if

[Davide Ricardo 0]

Pessoal, eu axo que o problema está so na parte do NomPagina...

 

Pk se repararem ele so vai fazer a pesquisa se o input hidden com o name "enviado" tiver o value =sim..

 

Por isso quando ele faz a operação seguinte ele como nao toma o valor do request.form("enviado")=sim, retorna p a parte da pesquisa...

 

Será que me fiz entender...??

 

Ajuda ai...sem isto a minha página fica mto mal organizada..pk em alguns casos mostra 990 registos...

Dá mau aspecto ter esse montão de registos numa so pagina..

 

Agradecido...

[natalia fernandes 0]

eu tambem gostava de saber como se faz.. tenho o mesmo erro e não consigo solucionar :wacko:

[Davide Ricardo 0]

alguem ajuda ai?....eu consigo fazer a pesquisa e fazer a paginação, mas o problema é quando clico para página seguinte, ele em vez de ir p a página seguinte automaticamente, vai outra vez p o sistema de busca, e ai se eu clicar em pesquisar ele passa p a pagina seguinte,,Eskisito ne?ajudem ai

[Davide Ricardo 0]

Será que ninguem tem um sistema de Busca com paginação? ta dificil hein?ajudem...

[Davide Ricardo 0]

pessoal eu ja coloquei o sistema a fazer paginação..mas so tem um proleminha..eu faço a busca e utilizo request.form..pronto tudo ok..mostra a primeira página c deve ser..depois no meu ficheiro.asp desactivo o request.form e coloco request.querystring e AÍ se fizer SEGUINTE passa direitinho p a página seguinte c a busca correcta...Ou seja c/o é q eu posso utilizar as duas coisas simultaneamente..pk p fazer a busca tnh k ir buscar ao formulário de preenhimento (request.form) e depois p fazer paginação tnh que utilizar o request.querystring..ajudem ai...Ah o exemplo que ta lá em CIMA não é o final, esse ta incorrecto