e ai galera
se eu estiver no 1º registro nao pode aparecer o botao de anterioralguém pode me ajudar ???
estou usando recordeset para fazer essa paginação
obrigado galera!!
Botao Anterior
Started By Reluviari, 17/09/2003, 17:46
7 replies to this topic
#1
Posted 17/09/2003, 17:46
#2 camarão
Posted 17/09/2003, 18:35
q tal postar o seu codigo para q possamos incrementar a ele?!
#3
Posted 17/09/2003, 18:39
Talvez seja de paginação né?!?
Se for faça o seguinte...
Qualquer dúvida...
Se for faça o seguinte...
if pag>1 then ' seu link de "anterior" else end if
Qualquer dúvida...
#4
Posted 17/09/2003, 20:56
Simples..
É só usar algo como:
[]'s
É só usar algo como:
<% if rs.pagecount =< 1 then
proxima = 'comando..
else
prox = 'comando..
anterior = 'comando..
end if
[]'s
BLOG Touché Criação - Vamos trocar idéias? -> http://blog.touchecriacao.com.br/
// Links úteis: Busca || Regras
// Não respondo dúvidas via mensagem privada. Use o fórum para buscar ou perguntar.
// Links úteis: Busca || Regras
// Não respondo dúvidas via mensagem privada. Use o fórum para buscar ou perguntar.
#5
Posted 18/09/2003, 08:26
podem me ensinar ou indicar um artigo, seilah... q ensine basicamente como é que faz paginação? vlw!
#6
Posted 18/09/2003, 09:17
e ai camarão
como vc me disse o codigo é esse mais quero aprender como se faz também blzzz
obrigadom pela ajuda caras...
<%
id=request.QueryString("cliente")
RS = ""
Set RS = Server.CreateObject("adodb.recordset")
RS.PageSize = 1
SQL = "select * From Clientesender where cliente = '"& id &"' "
RS.Open SQL,Conn,3,3
IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
'Definindo em qual pagina o visitante está
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> RS.PageCount then
intpagina=RS.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF
RS.AbsolutePage=intpagina
intrec=0
While intrec < RS.PageSize and not RS.EOF
set RS2 = conn.execute("select * From TiposEndereco where TipoEndereco = ' "& RS("TipoEndereco") &" '")
%>
<body>
<div id="Layer1" style="position:absolute; left:150px; top:114px; height:px; z-index:5">
AQUI FICAM AS TABELAS ONDE MOSTRO OS DADOS
</DIV>
</BODY>
.................................AQUIE ESTAO OS BOTOES..........................
<a class="link" href="enderecos.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina-1%>">Anterior</a> -
<a class="link" href="enderecos.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina + 1%>">Próxima</a>
<%
RS.MoveNext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF RS.EOF then
response.write " "
END IF
Wend 'fim do loop
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
<%
END IF
'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<%
END IF
%>
como vc me disse o codigo é esse mais quero aprender como se faz também blzzz
obrigadom pela ajuda caras...
<%
id=request.QueryString("cliente")
RS = ""
Set RS = Server.CreateObject("adodb.recordset")
RS.PageSize = 1
SQL = "select * From Clientesender where cliente = '"& id &"' "
RS.Open SQL,Conn,3,3
IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
'Definindo em qual pagina o visitante está
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> RS.PageCount then
intpagina=RS.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF
RS.AbsolutePage=intpagina
intrec=0
While intrec < RS.PageSize and not RS.EOF
set RS2 = conn.execute("select * From TiposEndereco where TipoEndereco = ' "& RS("TipoEndereco") &" '")
%>
<body>
<div id="Layer1" style="position:absolute; left:150px; top:114px; height:px; z-index:5">
AQUI FICAM AS TABELAS ONDE MOSTRO OS DADOS
</DIV>
</BODY>
.................................AQUIE ESTAO OS BOTOES..........................
<a class="link" href="enderecos.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina-1%>">Anterior</a> -
<a class="link" href="enderecos.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina + 1%>">Próxima</a>
<%
RS.MoveNext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF RS.EOF then
response.write " "
END IF
Wend 'fim do loop
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
<%
END IF
'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<%
END IF
%>
#7
Posted 18/09/2003, 10:42
valeu cara era isso mesmo Foi um vacilo da minha parte não visualizar onde eu colocaria isso mais Obrigado mesmo cara
Eis aki o código completo(caso alguém tenha dúvida também)
<%
id=request.QueryString("cliente")
RS = ""
Set RS = Server.CreateObject("adodb.recordset")
RS.PageSize = 1
SQL = "select * From Clientesfone where cliente = '"& id &"' "
RS.Open SQL,Conn,3,3
IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
'Definindo em qual pagina o visitante está
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> RS.PageCount then
intpagina=RS.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF
RS.AbsolutePage=intpagina
intrec=0
While intrec < RS.PageSize and not RS.EOF
set RS2 = conn.execute("select * From Tipostelefone where Tipotelefone = ' "& RS("Tipotelefone") &" '")
%>
<LINK href="css/style.css" type=text/css rel=stylesheet>
<div id="Layer1" style="position:absolute; left:150px; top:114px; height:px; z-index:5">
<table width="98%">
<tr>
<td>
<a href="dadosgerais.asp?cliente=<%=request.QueryString("cliente")%>" class="Links"><img src="imagens/aba_dados.gif" border="0"></a>
<a href="enderecos.asp?cliente=<%=request.QueryString("cliente")%>" class="Links"><img src="imagens/aba_enderecos.gif" border="0"></a>
</td>
<td width="17%" align="right">
<a href="java script:history.go(-1)"><img src="imagens/aba_voltar.gif" border="0"></a>
</td>
</tr>
</table>
<table width="98%">
<tr>
<td align="center" bgcolor="#336699" height="16"><font color="#EFFF00" size="2" face="Verdana"><b>Telefones</b></font></td>
</tr>
</table>
<table width="98%">
<tr class="label">
<td>Tipo de Telefone</td>
</tr>
<tr class="dados">
<%do while not RS2.eof%>
<td>
<%response.write RS2("descricao")%>
</td>
</tr>
<%RS2.movenext
loop%>
</table>
<table width="98%">
<tr class="label">
<td>Ddd</td>
<td>Telefone</td>
<td>Ramal</td>
</tr>
<tr class="dados">
<td><%response.write RS("ddd")%></td>
<td><%response.write RS("telefone")%></td>
<td><%response.write RS("ramal")%></td>
</tr>
</table>
<table width="98%">
<tr class="label">
<td>Contato</td>
</tr>
<tr class="dados">
<td><%response.write RS("contato")%></td>
</tr>
<tr>
<td align="center">
</table>
</div>
</body>
<%
RS.MoveNext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF RS.EOF then
response.write " "
END IF
Wend 'fim do loop
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
<div id="Layer1" style="position:absolute; left:45%; top:280px; height:px; z-index:5">
<a class="linkmenuglobal" href="fones.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina-1%>"><< Anterior</a>
</div>
<%
END IF
'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<div id="Layer1" style="position:absolute; left:55%; top:280px; height:px; z-index:5">
<a class="linkmenuglobal" href="fones.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina + 1%>">Próxima >></a>
</div>
<%
END IF
%>
Eis aki o código completo(caso alguém tenha dúvida também)
<%
id=request.QueryString("cliente")
RS = ""
Set RS = Server.CreateObject("adodb.recordset")
RS.PageSize = 1
SQL = "select * From Clientesfone where cliente = '"& id &"' "
RS.Open SQL,Conn,3,3
IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
'Definindo em qual pagina o visitante está
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> RS.PageCount then
intpagina=RS.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF
RS.AbsolutePage=intpagina
intrec=0
While intrec < RS.PageSize and not RS.EOF
set RS2 = conn.execute("select * From Tipostelefone where Tipotelefone = ' "& RS("Tipotelefone") &" '")
%>
<LINK href="css/style.css" type=text/css rel=stylesheet>
<div id="Layer1" style="position:absolute; left:150px; top:114px; height:px; z-index:5">
<table width="98%">
<tr>
<td>
<a href="dadosgerais.asp?cliente=<%=request.QueryString("cliente")%>" class="Links"><img src="imagens/aba_dados.gif" border="0"></a>
<a href="enderecos.asp?cliente=<%=request.QueryString("cliente")%>" class="Links"><img src="imagens/aba_enderecos.gif" border="0"></a>
</td>
<td width="17%" align="right">
<a href="java script:history.go(-1)"><img src="imagens/aba_voltar.gif" border="0"></a>
</td>
</tr>
</table>
<table width="98%">
<tr>
<td align="center" bgcolor="#336699" height="16"><font color="#EFFF00" size="2" face="Verdana"><b>Telefones</b></font></td>
</tr>
</table>
<table width="98%">
<tr class="label">
<td>Tipo de Telefone</td>
</tr>
<tr class="dados">
<%do while not RS2.eof%>
<td>
<%response.write RS2("descricao")%>
</td>
</tr>
<%RS2.movenext
loop%>
</table>
<table width="98%">
<tr class="label">
<td>Ddd</td>
<td>Telefone</td>
<td>Ramal</td>
</tr>
<tr class="dados">
<td><%response.write RS("ddd")%></td>
<td><%response.write RS("telefone")%></td>
<td><%response.write RS("ramal")%></td>
</tr>
</table>
<table width="98%">
<tr class="label">
<td>Contato</td>
</tr>
<tr class="dados">
<td><%response.write RS("contato")%></td>
</tr>
<tr>
<td align="center">
</table>
</div>
</body>
<%
RS.MoveNext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF RS.EOF then
response.write " "
END IF
Wend 'fim do loop
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
<div id="Layer1" style="position:absolute; left:45%; top:280px; height:px; z-index:5">
<a class="linkmenuglobal" href="fones.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina-1%>"><< Anterior</a>
</div>
<%
END IF
'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<div id="Layer1" style="position:absolute; left:55%; top:280px; height:px; z-index:5">
<a class="linkmenuglobal" href="fones.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina + 1%>">Próxima >></a>
</div>
<%
END IF
%>
#8
Posted 18/09/2003, 11:47
legal Reluviari... isso pode ajudar muitos users! (inclusive eu.. sduhfshdua) em casa vou pegar esse código pra estudar paginação, apesar de jah ter achado um artigo ótimo, mas... enfim. seilah.. sdhuhfuda flwz!
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)