For

filipeflc00 · Junho 20, 2006

olha so pessoal

fiz esse FOR

que quando conta de uma nomeração ate 100


<%



StrSql = "Select * from t_ultimos_event where cd_utl = '"&cd_utl&"'"
Set ObjRs = ObjConn.Execute(StrSql)


link_foto = ObjRs("link")

for x = 1 to 100
numero = right("000"&x,2)
numero_fo = right("000"&x,3)

   %><img border='0' src="<%=numero%>.jpg" width='100px' ></a>
<%
   if x mod 5 = 0 then
      %>
      
      <br>
<%
   else
   end if
next


%>

entraum aparece 100 fotos numa pagina

queria saber se tem como mudar para 2º pagina ou algo assim

dividir esses numero em 2 de 50

se algguem souber poste ai

Obrigado

filipeflc00 · Junho 21, 2006

alguém ai tem uma sugestão pra me dar???

.Andreia. · Junho 21, 2006

tente usar a mesma ideia de paginaçao

filipeflc00 · Junho 21, 2006

mas como??

dividr isso em duas paginas?

tenho nem ideia como vou fazer ele continuar contando omde paro

falw

filipeflc00 · Junho 21, 2006

pessoal ajuda ai

poste ai quem souber como eu faço

.Andreia. · Junho 21, 2006

eu não tenho os scripts ASP aqui, mais a noite quando estiver no meu pc dou uma olhada e posto

nem vo arriscar um codigo agora porque eu to mexendo com outra linguagem e então acaba confundindo...

filipeflc00 · Junho 21, 2006

hehe

Obrigado

vou esta esperando

t+

.Andreia. · Junho 21, 2006

Eu não tenho nenhum exemplo aqui sem ser por paginação (forma dinamica), bom se servir uma gambiarra rssss:

<%
pagina = request.querystring("pagina")

if pagina = "1" or pagina = "" then
    x = 1
    cont = 50
elseif pagina = 2 then
    x = 51
    cont = 100
end if


for i = x to cont
    response.write i & "-<br>"
next
%>

<a href="teste.asp?pagina=1">Pagina 1</a>-<a href="teste.asp?pagina=2">Pagina 2</a>

Bicicleta · Junho 22, 2006

Dá pra fazer isso também, caso queira colocar mais páginas...

<%

reg_pagina = 25

pagina = Request.QueryString("pagina")

If IsEmpty(pagina) Then
  pagina = 1
Else
  pagina = Cint(pagina)
End If

reg_ini = (pagina * reg_pagina) - reg_pagina + 1
reg_fim = (pagina * reg_pagina)

For i = reg_ini To reg_fim
    Response.Write "<img border='0' src='"& i &".jpg' width='100px'> "
Next

Response.Write "<p><a href='?pagina=1'>Pág. 01</a> - <a href='?pagina=2'>Pág. 02</a> - <a href='?pagina=3'>Pág. 03</a> - <a href='?pagina=4'>Pág. 04</a>"

%>

[]s

filipeflc00 · Julho 6, 2006

olha so

funciono

mas ele sempre pega se for = 100

eú precisaba que ele pegasse qualquer valor do banco e quando for = 50 de mais uma pagina

se for = 100

mas uma pagina

e assim por diante

se alguém souber algo pelo menos que xege perto disso

ao cod ai

pagina = request.querystring("pagina")


foto_qtd = 100
link_foto = teste
if pagina = "1" or pagina = "" Then
x2 = 1

foto_qtd = 50
elseif pagina = 2 then
    x2 = 51
    foto_qtd = 100
End if
for x = x2 to foto_qtd
numero = right("000"&x,2)
numero_fo = right("000"&x,3)

   %><a  style="cursor:hand" onClick="WinMail=window.open('afoto.asp?foto1=<%=numero_fo%>.jpg&link_fo=<%=link_foto%>&numero=<%=numero_fo%>&foto_qtd=<%=foto_qtd%>','Festa', 'top=2,left=50,toolbar=no,status=yes,width=670,height=530');"  ><img border='0' src="<%=link_foto%>pfoto/p<%=numero%>.jpg" width='90px' ></a>&nbsp;
<%
   if x mod 4 = 0 then
      %>
      
      <br>
<%
   Else
   
   end if
next

valw

filipeflc00 · Julho 6, 2006

??

filipeflc00 · Julho 6, 2006

alguém me ajuda por favor

filipeflc00 · Julho 10, 2006

por favor

alguém me ajude

victormartins · Julho 10, 2006

Acho que eu tenho esse script que você está querendo em casa, como não estou em casa, quando eu chegar em casa eu t passo :D

filipeflc00 · Julho 10, 2006

ok vou esta esperando preciso mtu dissu

valw cara

se alguém souber poste ai também

abraços

victormartins · Julho 10, 2006

vai demorar uns 2 ou 3 dias, porque toh viajando

filipeflc00 · Julho 10, 2006

beleza cara

vou espera

mas se alguém tiver poste ai

victormartins · Julho 10, 2006

Fiz um FTP aqui de um site que eu fiz eu fiz um mural de recados, vamo v se ajuda!

<!--#include file="conexao_mural.asp"-->
<html>
<style type="text/css">
    A:link {text-decoration: none}
    A:visited {text-decoration: none}
        A:hover {text-decoration: none}
</style>
<head><title> - Mural de recados</title>
</head>
<body bgcolor="#EEF5FB" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">
<table width="100%" cellpadding="0" cellspacing="0" style="border: 2px dotted #000000"><td bgcolor="#0099CC" align="center"><strong><b><font size="4" color="#ffffff" face="Arial, Helvetica, sans-serif">Mural de recados da<br><img src="../imagens/titulo_novoJC3.gif"></font></b></strong></td></table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="100%" height="2" bgcolor="#000000"><img src="imagens\SEPARADOR.gif" width="1" height="2"></td>
  </tr>
  <tr>
    <td background="../imagens/bg_02.jpg" height="13"> 
      <div align="center"><b><font face="Arial, Helvetica, sans-serif" size="1" color="black"> 
<%=mensagemtempo%>
<%=data_hoje%> 
        </font></b></div>
    </td>
  </tr>
  <tr>
    <td width="753" height="2" bgcolor="#000000"><img src="imagens\SEPARADOR.gif" width="1" height="2"></td>
  </tr>
</table>
<center>
<a href="add_msg_form.asp" style="font-family: verdana; font-size: 9pt; color: #000000;">
<u>Adicionar minha mensagem</u></a><br><br>
<%
Dim botao1, botao2
'--------------------------------------------------------------------------------------------
                ' INICIO DA PAGINAÇÃO
    
    ' Estou criando uma condição para que quando a 
    ' variável page for igual a 0, a variavel pagina
    ' será igual a 1.
'--------------------------------------------------------------------------------------------
    if Request("page") = "" then
        pagina = 1
    else
        pagina = Request("page")
    end if
'--------------------------------------------------------------------------------------------
    ' Agora vou chamar a SubFunção que está no 
    ' arquivo conexao_mural.asp para abiri o 
    ' banco de dados
'--------------------------------------------------------------------------------------------
Call AbrirMural
'--------------------------------------------------------------------------------------------
    ' Estou dando a variável argumento o comando sql
    ' para a conexão com o Banco de dados e configurando
    ' o objeto de conexão (mural_conn.CursorLocation)
'--------------------------------------------------------------------------------------------
argumento = "SELECT nome , email , mensagem , data FROM Mural ORDER BY number DESC"
mural_conn.CursorLocation = 3
'--------------------------------------------------------------------------------------------
    ' Chamando SubFunção contida no arquivo conexao_mural.asp
    ' para abrir o RecordSet e setando as configurações dos mesmos
    ' A configuração RS.PageSize é a quantidade de registros por página.
'--------------------------------------------------------------------------------------------
Call OpenRS 
if RS.RecordCount > 0 then
RS.PageSize = 7 '<<-- Aqui é o numero de recados que aparece por pagina
RS.CacheSize = RS.PageSize
RS.AbsolutePage = cInt(pagina)
'--------------------------------------------------------------------------------------------
    ' Condições de segurança
'--------------------------------------------------------------------------------------------
if cInt(pagina) > cInt(RS.PageCount) then RS.AbsolutePage = cInt(RS.PageCount) end if 
if cInt(pagina) < 1 then RS.AbsolutePage = 1 end if
'--------------------------------------------------------------------------------------------
    ' Criação dos botões
    ' BOTÃO 1    
'--------------------------------------------------------------------------------------------
if cInt(pagina) > 1 then 
botao1 = "<a href='?page=" & RS.AbsolutePage - 1 & "' style='font-family: verdana; font-size: 7pt; color: #000000;'><< Anterior</a>" 
else 
botao1 = "<a style='font-family: verdana; font-size: 7pt; color: #000000;'><< Anterior</a>" 
end if
'--------------------------------------------------------------------------------------------
    ' BOTÃO 2
'--------------------------------------------------------------------------------------------
if cInt(pagina) < cInt(RS.PageCount) then 
botao2 = "<a href='?page=" & RS.AbsolutePage + 1 & "' style='font-family: verdana; font-size: 7pt; color: #000000;'>Próxima >></a>" 
else 
botao2 = "<a style='font-family: verdana; font-size: 7pt; color: #000000;'>Próxima >></a>" 
end if
'--------------------------------------------------------------------------------------------
    ' Inicio dos dados
'--------------------------------------------------------------------------------------------
%>

<a style="font-family: verdana; font-size: 7pt; color: #000000;">
Total de Mensagens: <%=RS.RecordCount%><br>
Mostrando Página <%=RS.AbsolutePage%> de <%=RS.PageCount%><br><br>
<%=botao1%> | <%=botao2%></a>
<hr size="1" width="90%" color="#000000">
<%
Dim contador
For contador = 1 to RS.PageSize
%>
<table width="70%">
<td style="border:solid; border-color: #000000; border-width: 1;" bgcolor="#FFFFFF">
<table width="100%"><tr>
<caption style="border-style: solid; border-color: #000000; border-width: 0; font-family: verdana; font-size: 8pt; color: #ffffff; background-color: #0099CC;">
<b>Mensagem postada no dia: <%=RS("data")%></b>
</caption>
<td style="border-style: solid; border-color: #000000; border-width: 0; font-family: verdana; font-size: 8pt; color: #000000">
<font style="font-size: 8pt" color="#ff0000" face="Verdana, Arial, Helvetica, sans-serif">
<b>Nome: </b></font><%=RS("nome")%>
</td></tr>
<tr><td style="border-style: solid; border-color: #000000; border-width: 0; font-family: verdana; font-size: 8pt; color: #000000">
<font style="font-size: 8pt" color="#ff0000" face="Verdana, Arial, Helvetica, sans-serif">
<b>Email: </b></font>
 <a href="mailto:<%=RS("email")%>"><%=RS("email")%></a>

</tr><tr>
<td style="border-style: solid; border-color: #000000; border-width: 0; font-family: verdana; font-size: 8pt; color: #000000">
<font style="font-size: 8pt" color="#ff0000" face="Verdana, Arial, Helvetica, sans-serif">
<b>Mensagem:</b></font><br>
<div  align="justify" cols="65" rows="10" style="border-color: #000000; border-width: 0; border-style: solid; color: #000000; font-family: verdana; font-size: 8pt;">

<%=RS("Mensagem")%>

</div>
</td></tr>
</table>
</td></table>
<br>
<%
'--------------------------------------------------------------------------------------------
    ' Fim dos dados
    ' Movendo cursor para o próximo registro
'--------------------------------------------------------------------------------------------
RS.MoveNext
'--------------------------------------------------------------------------------------------
    'Condição Final
'--------------------------------------------------------------------------------------------
if RS.EOF then exit For
    Next
%>
<hr size="1" width="90%" color="#000000">
<a style="font-family: verdana; font-size: 7pt; color: #000000;"><%=botao1%> | <%=botao2%></a>
<%else%>
<center>Nenhuma mensagem neste mural.</center>
<%
end if 
'--------------------------------------------------------------------------------------------
                    'FIM DA PAGINAÇÃO
'--------------------------------------------------------------------------------------------
%>


</center>
<%
Call CloseRS
Call FecharMural
%>

<br>
<!--#include file="../baixo.asp"--><br><br>
</body></html>

filipeflc00 · Julho 11, 2006

cara não intendi esse seu cod

rs

você num tem algo simplificado não??/

valw

victormartins · Julho 11, 2006

isso dae é um cod que eu usei pra fazer um mural de recados

filipeflc00 · Julho 11, 2006

a sim

mas ai você esta paginando um for??

no mesmo estilo que eu to querendo??

olha so como que e o meu

eu pego um valor do bancon de dados

ex:100

eu preciso fazer um for de 1 a 100

mas quando xegar em 50 ele acrescentar mais uma pagina

e continuar contando onde parou

valw

se souber me da uma dica ai

esse que a andreia fez

e do jeito que preciso

mas preciso que ele pegue o valor de contagem do banco de dados


<%
pagina = request.querystring("pagina")

if pagina = "1" or pagina = "" then
    x = 1
    cont = 50
elseif pagina = 2 then
    x = 51
    cont = 100
end if


for i = x to cont
    response.write i & "-<br>"
next
%>

<a href="teste.asp?pagina=1">Pagina 1</a>-<a href="teste.asp?pagina=2">Pagina 2</a>

mas eu preciso que ele pegue o valor do banco de dados

valw

victormartins · Julho 11, 2006

é exatamente o que isso faz, ele pega abre o banco e pagina, quando chegar a 51 e cria outra pagina

Entrar

For

Pergunta

Link para o comentário

Compartilhar em outros sites

21 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns