Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
PhoEniXFirE

Nº Da Pergunta

Question

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.

Share this post


Link to post
Share on other sites

7 answers to this question

Recommended Posts

  • 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...

Share this post


Link to post
Share on other 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>

Share this post


Link to post
Share on other sites
  • 0
Ai é matematica:

olha a lógica

quando a pagina (intpagina) for > 1

quant = ((intpagina-1) * (Rs.Pagesize) + 1

tendeu??

Mas aonde coloco? Me guia aí no meu code.

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other 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

Share this post


Link to post
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.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148079
    • Total Posts
      643267
×
×
  • Create New...