Quando Tá Sem Dados No Banco De Dados Some O Resto

[PhoEniXFirE]

        <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 = 10

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>
<%   Response.End
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
END IF

RS.AbsolutePage=intpagina

intrec=0

While intrec < RS.PageSize and not RS.EOF %>
          <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">1. 
            <% 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">&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; 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%">
<center><font face="Arial" size="1">

<% 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></font>
<% END IF %>

</center></font></td>
  </tr>
</table></center>
</div>

Este é o arquivo.

Quando tem dados no db funciona tudo perfeito, mas quando o database ta zerado então a partir da msg q avisa q o db está vazio não aparece o restante da página.

Este script n é meu, por isso n estou conseguindo resolver este problema, mas sei q tem uma galera aqui q sabe resolver esses detallhezinho.

Quem puder me ajude !!

ValewS!!!!!!

[Espartaco]

Experimenta tirar esse response end na linha 33

[PhoEniXFirE]

Experimenta tirar esse response end na linha 33

Não dá se tirar, quando eu tiro esta linha da o seguinte erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/forumeuclidense/rosa/default.asp, line 129

Mas já resolvi este problema.

Mudei a posição do end if pra depois de todo o código e funcionou, apenas tive q ajeitar as tabelas...

valeu pela atenção!!