Problemas com Paginacao

[sr.silva 1]

Ola

 

Estou tendo problemas com esse codigo abaixo.

 

pesquisa = Request("pesquisa")campo	= Request("campo")acao	 = Request("acao")ordem	= Request("ordem")desc	 = Request("desc")Set RS = Server.CreateObject("ADODB.RecordSet")SQL =	"select	*, " & _		"( select count(*) from tCotacaoUsuario tCU where tCU.IdCotacao = tC.IdCotacao ) as QtdeUsu, " & _		"( select count(*) from tCotacaoItem tCI where tCI.IdCotacao = tC.IdCotacao ) as QtdeItem, " & _		"(select count(*) from tPergunta where IdCotacao = tC.IdCotacao) as QtdPerg " & _		"from	tCotacao tC " & _		" WHERE IDCLIENTE = 92 ORDER BY dtcotacao DESC "'		"where	IdCliente = " & Session("IdCliente") & " " & _'		"Order By DtCotacao desc"'Response.Write SQLRS.CursorLocation = 3RS.CacheSize = 1RS.PageSize = 10 RS.Open SQL, Conn, 1'RS.Open SQL, Conn, 1, 3'*******************************************************************  if request("pg") = "" or Not Isnumeric(request("pg")) or request("pg") = "0" then	pg = 1  else	pg = request("pg")  end If  totalPgs = RS.PageCount  if cint(pg) > cint(totalPgs) then 	  pg = totalPgs	if RS.recordcount > 0 then		RS.AbsolutePage = pg	end if  end if

O problema e o seguite, a pagina nao esta correta.

Nao consigo fazer com que seje mostrado determinada quantidade de registro em cada pagina...

Como faco isso???

[jrcardozo 4]

veja essa parte do código retirada do laboratório de scripts

RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros	RS.MoveFirst				'Move o RecorSet para o início 	RS.PageSize = NumPorPage	'Coloca a quantidade de páginas	total = RS.recordcount	Dim TotalPages			  'Pega o número total de páginas	TotalPages = RS.PageCount	RS.AbsolutePage = PagAtual  'Configura a página atual

utilize o pagecount

[sr.silva 1]

Ola Jonathan...

 

Eu ja estou utilizando a logica que voce colocou acima..

 

totalPgs = RS.PageCount  if cint(pg) > cint(totalPgs) then 	  pg = totalPgs	if RS.recordcount > 0 then		RS.AbsolutePage = pg	end if  end if

so que mesmo assim nao funciona.....

[sr.silva 1]

Opa!! Jonathan..consegui fazer!!

 

So que outro detalhes..quando eu clico nos links pra mudar a pagina...os registros continuam os mesmo...

 

segue os codigos dos links

 

<%if totalPgs > 1 then%>					<font face="<%=nomefonte%>" size="1"><%						URLPri = "java script:document.formulario.pg.value='1';document.formulario.submit();"						URLAnt = "java script:document.formulario.pg.value='" & pg - 1 & "';document.formulario.submit();"						URLPro = "java script:document.formulario.pg.value='" & pg + 1 & "';document.formulario.submit();"						URLUlt = "java script:document.formulario.pg.value='" & totalPgs & "';document.formulario.submit();"					if pg = 1 then%>						<< <					<%else%>						<a href="<%=URLPri%>" class="link2"><font color="#2e73be"><<</font></a>						<a href="<%=URLAnt%>" class="link2"><font color="#2e73be"><</font></a>					<%end if%>					<%if pg <= 5 then						x_from = 1						for_to = 10					else						for_to = pg + 5						x_from = pg - 5					end if					if for_to > totalPgs then						for_to = totalPgs						x_from = totalPgs - 11					end if					if x_from < 0 then x_from = 1						for x = x_from to for_to							URL = "java script:document.formulario.pg.value='" & x & "';document.formulario.submit();"							if cint(x) = cint(pg) then%>								<%=x%>							<%else%>								<a href="<%=URL%>" class="link2"><font color="#2e73be"><b><%=x%></b></font></a>							<%end if						next%>						<%						if CStr(pg) = CStr(totalPgs) then%>							> >>						<%else%>							<a href="<%=URLPro%>" class="link2"><font color="#2e73be">></font></a>							<a href="<%=URLUlt%>" class="link2"><font color="#2e73be">>></font></a>						<%end if%></font>					<%end if%>					<%select case RS.recordcount						case 0							corenc = "#FF0000"							encontrados = "Nenhum registro encontrado"						case 1							corenc = "#000099"							encontrados = RS.recordcount & " registro encontrado"						case else							corenc = "#000099"							final = ((Pg) * RS.PageSize)							if final > RS.recordcount then final = RS.recordcount							encontrados = RS.recordcount & " registros - Exibindo de " & (((Pg - 1) * RS.PageSize) + 1) & " até " & final						end select%>

[jrcardozo 4]

o formulário está sendo submetido ao clicar?eu utilizo javascript e não java script e costumo colocar no evento onclick e não no hrefescreva no browser a variavel pg pra ver se o valor está sendo enviado correto quando clicaprocure converter essa variavel pg para inteiro pra forçar o cálculo numérico pois no request ele chega como textopg = cint(pg)

[sr.silva 1]

Mais tudo isso que voce falou.

Eu fiz!! E funcionou!!!

 

O grande detalhe agora, e que ao clicar po exemplo na pagina 2, os registros nao estao mudando!!

 

O que ha de errado!!

[sr.silva 1]

Resolvido!! Pessoal !! ;)

 

Segue a parte onde estava errando..

totalPgs = RS.PageCount	if cint(pg) > cint(totalPgs) then pg = totalPgs	if RS.recordcount > 0 then		RS.AbsolutePage = pg	end if