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

Nº Da Pergunta


PhoEniXFirE

Pergunta

eu to com fórum simples bem diferente do convencional e nele eu queria colocar uma numeração nas perguntas, só q n da p usar o id, porque se eu apaga uma coluna o id n repõe o nº anterior, então ficaria fora da ordem tipo: 1 2 3 6 7 10 11 14 15, e quero colocar uma contagem certa: 1 2 3 4 5 6 7 8 9 10. Tipo um nº pra pergunta, alguém sabe como posso fazer isso?

as pesrguntas estam todas assim 1. ...pergunta....

1. ...pergunta....

1. ...pergunta....

tenho q substituir o 1 q está aí, pelo um 'tipo' de número da pergunta ao invés de 1 em todas, seria como o id, mas o id n serve.

Lembrando q eu estou paginando as perguntas então quando ele passar ou voltar pra a outra pagina ele tem q continuar contando certo.

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

Você ta puxando essas perguntas de um bd né?

entaum faz assim no loop:

qtde = 0
'faz o recordset
...
do while not rs.eof
qtde = qtde + 1
response.write(qtde &"."& rs("Pergunta"))
rs.movenext
loop

se não der posta ai como você ta fazendo ou como você quer...

Link para o comentário
Compartilhar em outros sites

  • 0

Você ta puxando essas perguntas de um bd né?

entaum faz assim no loop:

qtde = 0
'faz o recordset
...
do while not rs.eof
qtde = qtde + 1
response.write(qtde &"."& rs("Pergunta"))
rs.movenext
loop
se não der posta ai como você ta fazendo ou como você quer...
Cara o código ficou bom, mas quando eu avanço a página ele perde a contagem e começa tudo de novo. O q devo fazer pra continuar contando quando avanço a página. p.s.: no meu script eu n utilizo o loop, veja meu code:
    <tr>
    <td width="100%" style="border: 1px solid #C0C0C0">
        <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<% 

Set Conn = Server.CreateObject("AdoDb.Connection") 
Conn.provider="Microsoft.Jet.OLEDB.4.0" 
Conn.connectionstring=Server.Mappath("database.mdb") 
Conn.open 

Set RS = Server.CreateObject("adodb.recordset")
RS.PageSize = 5

SQL = "select * from rosa" 
RS.Open SQL,Conn,3,3

%>          <tr>
            <td width="4" background="table_bg.gif" style="border-left: 1px solid #FFFFFF; border-top: 1px solid #FFFFFF; border-bottom: 1px solid #FFFFFF" bgcolor="#6595D6">
            <span style="font-weight: 700">
            <font face="Arial" style="font-size: 9pt" color="#FFFFFF">&nbsp;</font></span></td>
            <td width="200%" background="table_bg.gif" style="border-right: 1px solid #FFFFFF; border-top: 1px solid #FFFFFF; border-bottom: 1px solid #FFFFFF" bgcolor="#6595D6">
            <font color="#FFFFFF" face="Arial" style="font-size: 9pt; font-weight: 700">
            Perguntas enviadas </font>
            <font color="#FFFFFF" face="Arial" style="font-size: 9pt; ">
            (<% Response.Write rs.RecordCount %>)</font><font color="#FFFFFF" face="Arial" style="font-size: 9pt; font-weight: 700">:</font></td>
          </tr>
<%
IF RS.EOF then %>
          <tr>
            <td width="4" bgcolor="#F8F8FC" style="border-left: 1px solid #FFFFFF; border-top: 1px solid #FFFFFF; border-bottom: 1px solid #FFFFFF">&nbsp;</td>
            <td width="100%" bgcolor="#F8F8FC" style="border-right: 1px solid #FFFFFF; border-top: 1px solid #FFFFFF; border-bottom: 1px solid #FFFFFF">
            <font face="Arial" style="font-size: 8pt;" color="#21303F">Nenhum pergunta foi encontrada.
     <font size=1><br>Caso queria enviar uma pergunta, clique no botão &lt;Envie uma pergunta&gt;.</font></font></td>
          </tr>  </table>
    <tr>
    <td width="100%">
&nbsp;</td>
  </tr>
<%  
ELSE
   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

RS.AbsolutePage=intpagina

intrec=0
qtde = 0

While intrec < RS.PageSize and not RS.EOF 
qtde = qtde + 1
%>
          <tr>
            <td width="4" bgcolor="#E6E7F2" style="border-left: 1px solid #FFFFFF; border-top: 1px solid #FFFFFF; border-bottom: 1px solid #FFFFFF">
            <font face="Arial" style="font-size: 9pt; font-weight: 700" color="#465584">&nbsp;</font></td>
            <td width="100%" bgcolor="#E6E7F2" style="border-right: 1px solid #FFFFFF; border-top: 1px solid #FFFFFF; border-bottom: 1px solid #FFFFFF">
            <b>
            <font face="Arial" style="font-size: 9pt" color="#465584"><%response.write(qtde)%>. <% response.write RS("pergunta") %><br>
            </font>
            <font face="Arial" color="#465584" size="1">por 
            <a href="mailto:<% response.write RS("email") %>" title="Idade: <% response.write RS("idade") %> / Ocupação: <% response.write RS("ocupacao") %>">
            <font color="#465584"><% response.write RS("nome") %></font></a> (<% response.write RS("cidade") %>)</font></b></td>
          </tr>
          <tr>
            <td width="4" bgcolor="#F8F8FC" style="border-left: 1px solid #FFFFFF; border-top: 1px solid #FFFFFF; border-bottom: 1px solid #FFFFFF"></td>
            <td width="100%" bgcolor="#F8F8FC" style="border-right: 1px solid #FFFFFF; border-top: 1px solid #FFFFFF; border-bottom: 1px solid #FFFFFF">
            <font face="Arial" style="font-size: 8pt; font-weight:700" color="#21303F"><% response.write RS("resposta") %></font></td>
          </tr>
<% 
RS.MoveNext

   intrec=intrec+1

   IF RS.EOF then 
      response.write " " 
   END IF
Wend
%>  </table>
    <tr>
    <td width="100%">
&nbsp;</td>
  </tr>
  <tr>
    <td width="100%">
<font face="Arial" size="1"><center>

<% IF intpagina > 1 then %> 
<a href="./?pagina=<%=intpagina-1%>"><font color="#21303F">[anterior]</font></a>
<% END IF %>

<font color="#465584">[<%=intpagina%>]</font>

<% IF strcomp(intpagina,RS.PageCount) <> 0 then %> 
<a href="./?pagina=<%=intpagina+1%>"><font color="#21303F">[seguinte]</font></a>
<% END IF %>
<% END IF %></center></font></td>
  </tr>

Link para o comentário
Compartilhar em outros sites

  • 0
coloca antes do loop de exibição la onde voce define quant=0

Eu tinha testado em um monte de lugar, depois do

While intrec < RS.PageSize and not RS.EOF , fiz até um

<% IF intpagina > 1 then

qtde = (intpagina-1) * (Rs.Pagesize)

END IF %>

Mas o cálculo só dava certo se fosse lugar certo, óbvio.

valeu pela força especialista em programas de áudio dry.gif

Link para o comentário
Compartilhar em outros sites

  • 0
Guest TIO CARNEGO

ph34r.gif

Senta no colo do pai criançada.

Tabela: Perguntas

Campos:

IdPergunta: Autonumeração

Pergunta:Texto

Consulta:

SELECT IdPergunta, Pergunta,1+DCount('IdPergunta','Perguntas','[idPergunta]<'+Str(IdPergunta)) AS NumeroDaPergunta

FROM Perguntas

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.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...