Jump to content
Fórum Script Brasil
  • 0

Nº Da Pergunta

PhoEniXFirE

Asked by PhoEniXFirE,

 Share

Question

PhoEniXFirE

PhoEniXFirE

Posted
Posted

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 to comment
Share on other sites

7 answers to this question

Recommended Posts

  • 0
Principe

Principe

Posted
Posted

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 to comment
Share on other sites
  • 0
PhoEniXFirE

PhoEniXFirE

Posted
  • Author
Posted

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 to comment
Share on other sites
  • 0
PhoEniXFirE

PhoEniXFirE

Posted
  • Author
Posted
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 to comment
Share on other sites
  • 0
Guest TIO CARNEGO

Guest TIO CARNEGO

Posted
Posted

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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing


  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      651.8k
×
×
  • Create New...