Ir para conteúdo
Fórum Script Brasil
  • 0

Autonumeração

[ GuTo ]

Perguntado por [ GuTo ],

 Share

Pergunta

[ GuTo ]

[ GuTo ]

Postado
Postado

Ae gurizada, vortei!olha só que merda...

eu coloquei este código na célula ó, eu que fiz.

<%dim numero

numero = 1 %>

<%numero = numero + 1%>

<%=numero%>

Só que ele não dá um next nem nada, ou seja, exibe sempre o resultado 2 em todas as células.

HELP-ME! PLEASE!

é barbada mas não consigo acertar esta merda!

http://www27.brinkster.com/chatcanoas/lista.asp

Link para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 0
resopi

resopi

Postado
Postado

aham!!!! esse codigo não ten do while ou for!!!

vou te passar como você deveria ter feito

<%dim numero

numero = 1

do until numero = 10 'esse aki voi listar numero de 1 a 9

numero = numero + 1%>

<%=numero%>

<%loop%>

isse aki q eu te pasei vai coocar os numero dentro de uma mesma cedula caso você queria q cada numero fique em uma cedula o codigo é o seguinte

<table>

<tr>

<%dim numero

numero = 1

do until numero = 10 'esse aki voi listar numero de 1 a 9

numero = numero + 1%>

<td><%=numero%><td>

<%loop%>

</tr>

<table>

olha eu não testei mas se tiver errado de um toque pra eu =)

:D

Link para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
  • Autor
Postado

Ae resopi

<%

Option Explicit

Dim Sexo, Comeca, Intervalo, i

Sexo = 0

Comeca = 1

Intervalo = 10

If UCase(Request.QueryString("s")) = "H" then Sexo = 1

If Request.QueryString("start") <> "" then Comeca = CInt(Request.QueryString("start"))

If Request.QueryString("show") <> "" then Intervalo = CInt(Request.QueryString("show"))

Dim Connection, SQLquery, RS, Total

Set Connection = Server.CreateObject("ADODB.Connection")

Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\cadastros.mdb")

SQLquery = "SELECT count(*) AS total FROM tblCad WHERE MascFem=" & Sexo & " and Adicionado=1"

Set RS = Connection.Execute(SQLquery)

Total = RS("total").Value

%><html>

<head>

<title>Chat Canoas</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="http://www.chatcanoas.kit.net/styles.css" rel="stylesheet" type="text/css">

<link href="http://www.chatcanoas.kit.net/favicon.ico" rel="shortcut icon">

</head>

<body topmargin="0">

<p align="center" class="titulo">MEMBROS<br>

<%If Sexo = 1 then %><font class="cor3">Garotos</font>

<%Else %><font class="cor4">Garotas</font><%End If %>

- <font class="cor1"><b>Página <%=Round((Comeca+Intervalo-1)/Intervalo) %> de <%=Round((Total+Intervalo-1)/Intervalo)%></b></font></p>

<table width="100%" border="0" cellspacing="0" cellpadding="0">

 <tr>

   <td class="subtitulo">Confira o perfil e tudo mais <%

   if Sexo = 1 then response.write("dos garotos") else response.write("das garotas")

   %>.

   </td>

   <td class="cor1">Mostrando de: <b><%=Comeca %> a <%

If (Comeca+Intervalo-1 < Total) then

 Response.Write(Comeca+Intervalo-1)

else

 Response.Write(Total)

end if

%></b></td>

 </tr>

</table>

<br>

<table align="center" border="0" cellspacing="0" cellpadding="0" width="100%">

 <tr valign="top">

<td align="right"><img src="http://www.chatcanoas.kit.net/ag2.gif" width="12" height="12"></td>

<td background="http://www.chatcanoas.kit.net/lateral_pt1.gif"><img height=1 src="" width=1 border=0></td>

<td align="left"><img src="http://www.chatcanoas.kit.net/ag1.gif" width="12" height="12"></td>

 </tr>

 <tr>

   <td background="http://www.chatcanoas.kit.net/lateral_pt3.gif" width="12" height="1">&nbsp;</td>

<td><!-- TABELA INÍCIO -->

<table border="0" align="center" cellpadding="2" cellspacing="1" width="100%">

<tr valign="top" class="bg1">

<td align="center" width="5%">#</td>

<td align="center" width="20%">Apelido</td>

<td align="center" width="10%">Sexo</td>

<td align="center" width="10%">ICQ#</td>

<td align="center" width="10%">Email</td>

<td align="center" width="10%">Status</td>

</tr><%

SQLquery = "SELECT * FROM tblCad WHERE Adicionado=1 AND MascFem=" & Sexo & " ORDER BY ID"

Set RS = Connection.Execute(SQLquery)

if Total > 0 then RS.Move(Comeca - 1)

For i = 1 to Intervalo

 If Not RS.EOF Then

%><!-- INÍCIO DOS DADOS DO MEMBROS -->

<%dim numero

numero = 0

do until numero = Intervalo 'esse aqui vai listar até o número igual da váriavel Intervalo (a principio é 10)

numero = numero + 1%><tr valign="top" class="bg2">

<td align="center"><%=numero%></td>

<td align="center"><a href="perfil.asp?id=<%=RS("ID").Value %>"><%=RS("nicknome").Value %></a></td>

<td align="center"><%if Sexo = 1 then Response.Write("H") else Response.Write("M")%></td>

<td align="center"><%=RS("icq").Value %></td>

<td align="center"><a href="mailto:<%=RS("email").Value %>"><img src="http://www.chatcanoas.kit.net/icons/mail.gif" border="0" width="15" height="11" alt="Envie um e-mail para <%=RS("nicknome").Value %>"></a></td>

<td align="center"><img src="http://web.icq.com/whitepages/online?icq=<%=RS("icq").Value %>&img=5" width="16" height="14" border="0" alt="Status de <%=RS("nicknome").Value %>"></a></td>

</tr> <%loop%> <!-- FIM DOS DADOS DO MEMBROS --><%

   RS.MoveNext

 End If

Next %>

</table>

<!-- TABELA FIM --></td>

   <td background="http://www.chatcanoas.kit.net/lateral_pt2.gif" width="12" height="1">&nbsp;</td>

 </tr>

 <tr valign="bottom">

   <td align="right"><img src="http://www.chatcanoas.kit.net/ag4.gif" width="12" height="12"></td>

   <td background="http://www.chatcanoas.kit.net/lateral_pt4.gif"><img height=1 src="" width=1 border=0></td>

   <td align="left"><img src="http://www.chatcanoas.kit.net/ag3.gif" width="12" height="12"></td>

 </tr>

</table>

<br>

<table align="center" border="0" cellpadding="2" cellspacing="1" width="80%">

<tr>

<td align="center">

<% if (Comeca - Intervalo) > 0 and (Comeca - Intervalo) < Total then

%><a href="lista.asp?s=<%

if Sexo = 1 then Response.Write("H") else Response.Write("M")

Response.Write("&start=" & (Comeca - Intervalo) & "&show=" & Intervalo)

%>" title="Anterior"><img src="http://www.chatcanoas.kit.net/icons/seta_left.gif" border="0" width="10" height="09"></a><%

else

%><img src="http://www.chatcanoas.kit.net/icons/seta_left.gif" border="0" width="10" height="09"><%

end if

%> |</td>

<%

for i = 0 to ((Total+Intervalo-1)/Intervalo) %>

<td align="center" width="2%"><a href="lista.asp?s=<%

if Sexo = 1 then Response.Write("H") else Response.Write("M")

Response.Write("&start=" & ((i * Intervalo) + 1) & "&show=" & Intervalo)

%>"><img src="http://www.chatcanoas.kit.net/icons/<%

if i <= 8 then Response.Write("0" & i+1) else Response.Write(i+1)

%>.gif" border="0" width="12" height="5"></a></td>

<% next %>

<td align="center"> | <%

if (Comeca + Intervalo) <= Total and (Comeca + Intervalo) > 0 then

%><a href="lista.asp?s=<%

if Sexo = 1 then Response.Write("H") else Response.Write("M")

Response.Write("&start=" & (Comeca + Intervalo) & "&show=" & Intervalo)

%>" title="Próxima"><img src="http://www.chatcanoas.kit.net/icons/seta_right.gif" border="0" width="10" height="09"></a><%

else

%><img src="http://www.chatcanoas.kit.net/icons/seta_right.gif" border="0" width="10" height="09"><%

end if

%></td>

</tr>

</table>

<script language=JavaScript src="http://www.webcount.com.br/webcount.asp?siteid=375"></script>

<%

Connection.Close

Set RS = Nothing

Set Connection = Nothing

%>

</body>

</html>

o código tá ae, agora confira a página... http://www27.brinkster.com/chatcanoas/lista.asp e veja o erro... e ME AJUDE... eu á tentei muita coisa, mas não consigo... :angry: :angry: :angry:

Link para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
  • Autor
Postado

o código ASP tá em colorido... ali é q está o erro

vejam no link q eu dei... tá repetindo todos os dados de cada membro 10 vezes...

na célula da esquerda deveria aparecer 1, depois na seguinte 2, na seguinte 3, e assim por diante...

é uma autonumeração, tipo como se fosse a ordem de resultados encontrado s nakela página...

tá dando pra entender?!

Link para o comentário
Compartilhar em outros sites
  • 0
resopi

resopi

Postado
Postado

Facil!!!!

só tirar o laço feito por for e colocar o rs.movenext antes do loop!!!

'For i = 1 to Intervalo <=virou comentario ntaum não faz mais efeito

If Not RS.EOF Then

%><!-- INÍCIO DOS DADOS DO MEMBROS -->

<%dim numero

numero = 0

do until numero = Intervalo 'esse aqui vai listar até o número igual da váriavel Intervalo (a principio é 10)

numero = numero + 1%><tr valign="top" class="bg2">

<td align="center"><%=numero%></td>

<td align="center"><a href="perfil.asp?id=<%=RS("ID").Value %>"><%=RS("nicknome").Value %></a></td>

<td align="center"><%if Sexo = 1 then Response.Write("H") else Response.Write("M")%></td>

<td align="center"><%=RS("icq").Value %></td>

<td align="center"><a href="mailto:<%=RS("email").Value %>"><img src="http://www.chatcanoas.kit.net/icons/mail.gif" border="0" width="15" height="11" alt="Envie um e-mail para <%=RS("nicknome").Value %>"></a></td>

<td align="center"><img src="http://web.icq.com/whitepages/online?icq=<%=RS("icq").Value %>&img=5" width="16" height="14" border="0" alt="Status de <%=RS("nicknome").Value %>"></a></td>

</tr>

<%

RS.MoveNext '<=movido para antes do loop

loop

%>

<!-- FIM DOS DADOS DO MEMBROS --><%

  RS.MoveNext

End If

'Next <=virou comentario entaun não faz mais efeito

%>

ai tah o codigo + ou - explicando como fazer =)

:D

falou!

Link para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
  • Autor
Postado

Ae resopi

muito obrigado mesmo!

mas tu saberia fazer pra q nossa página continuasse esse contagem?

tipo, 11, depois 12, e etc...

se puder responder tudo bem, se não der, tudo bem também...

um abraço e muito obrigado!

Link para o comentário
Compartilhar em outros sites
  • 0
resopi

resopi

Postado
Postado

:D Cara é só você passsar um parametro de quantos já foram supomos:

contador = request("contador")

'For i = contador to contador + 10  <=virou comentario ntaum não faz mais efeito

If Not RS.EOF Then

%><!-- INÍCIO DOS DADOS DO MEMBROS -->

<%dim numero

numero = 0

do until numero = Intervalo 'esse aqui vai listar até o número igual da váriavel Intervalo (a principio é 10)

numero = numero + 1%><tr valign="top" class="bg2">

<td align="center"><%=numero%></td>

<td align="center"><a href="perfil.asp?id=<%=RS("ID").Value %>"><%=RS("nicknome").Value %></a></td>

<td align="center"><%if Sexo = 1 then Response.Write("H") else Response.Write("M")%></td>

<td align="center"><%=RS("icq").Value %></td>

<td align="center"><a href="mailto:<%=RS("email").Value %>"><img src="http://www.chatcanoas.kit.net/icons/mail.gif" border="0" width="15" height="11" alt="Envie um e-mail para <%=RS("nicknome").Value %>"></a></td>

<td align="center"><img src="http://web.icq.com/whitepages/online?icq=<%=RS("icq").Value %>&img=5" width="16" height="14" border="0" alt="Status de <%=RS("nicknome").Value %>"></a></td>

</tr>

<%

RS.MoveNext '<=movido para antes do loop

loop

%>

<!-- FIM DOS DADOS DO MEMBROS --><%

  RS.MoveNext

End If

'Next <=virou comentario entaun não faz mais efeito

%>

e quando você for mudar para a proxiam pagina você coloca

contador = contador +10

pagina.asp?contador=contador

espero ter te ajdado!

Link para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
  • Autor
Postado

putz, não consegui fazer isso... achu q não entendi direito.. se puder ajudar... :( :P

Link para o comentário
Compartilhar em outros sites
  • 0
resopi

resopi

Postado
Postado

eu errei nba hoera de postar o codigo :lol: mas vou tentyar te ajudar:

pra fazer o laço va vai utilizar assim:

contador = request("contador")

do until contador = contador +10

bla...

bla..

bla..

loop

no codigo fica assim:

contador = request("contador")

'For i = contador to contador + 10  <=virou comentario ntaum não faz mais efeito

If Not RS.EOF Then

%><!-- INÍCIO DOS DADOS DO MEMBROS -->

<%dim numero

numero = 0

do until contador = contador +10 'esse aqui vai listar até o número igual da váriavel Intervalo (a principio é 10)

numero = numero + 1%><tr valign="top" class="bg2">

<td align="center"><%=numero%></td>

<td align="center"><a href="perfil.asp?id=<%=RS("ID").Value %>"><%=RS("nicknome").Value %></a></td>

<td align="center"><%if Sexo = 1 then Response.Write("H") else Response.Write("M")%></td>

<td align="center"><%=RS("icq").Value %></td>

<td align="center"><a href="mailto:<%=RS("email").Value %>"><img src="http://www.chatcanoas.kit.net/icons/mail.gif" border="0" width="15" height="11" alt="Envie um e-mail para <%=RS("nicknome").Value %>"></a></td>

<td align="center"><img src="http://web.icq.com/whitepages/online?icq=<%=RS("icq").Value %>&img=5" width="16" height="14" border="0" alt="Status de <%=RS("nicknome").Value %>"></a></td>

</tr>

<%

RS.MoveNext '<=movido para antes do loop

loop

%>

<!-- FIM DOS DADOS DO MEMBROS --><%

  RS.MoveNext

End If

'Next <=virou comentario entaun não faz mais efeito

%>

no final da pagina (no lugar do next) você faz uma chamada para proprtia pagani certo ou seja um response.redirect pra propria pagina certo???(pelo menos é o normal de se fazer em paginaçao!)

emtaun na ohra de fazer o link da poaginaçao é só colocar é só colocar:

contador = contador +10

response.rediorect("pagina.asp?contador=" & contador)

espero q entenda.....

falou

:D

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...