Site Fica Lento Quando Mais Pessoas Acessam!

[victormartins]

Desenvolvi um site pra uma Igreja [ , o problema é quando mais pessoas acessam o site, tipo 4 pessoas, quando ele vai acessar as noticias que estao no banco de dados o site demora muito pra abrir, isso acontece quando ele acessa o banco e quando tem 2 ou mais pessoas acessando o site.

alguém sabe como resolver esse problema?

editado: o link aparecia no google

[.Andreia.]

depende, nesse arquivo de noticias tem muito uso do banco? você está fechando a conexao e destruindo os objetos?

[victormartins]

fechei com rs.close, agora destruir?

[.Andreia.]

set conexao = nothing

e com os recordsets que você criou

[victormartins]

e com os recordsets que você criou

não entendi!

não sou pioneiro em ASP mas sei um pouco, então no sei algumas coisas que com o tempo aprendo

[.Andreia.]

por exemplo, você fez consultas ao banco nesse arquivo ne? então no final você faz assim (exemplo):

sql = "select ........

set tab = conexao....

set conexao = nothing

set tab = nothing

outra coisa também, evite usar *(todos os campos) em uma consulta, procure chamar somente os campos da tabela que você vai usar.

select * from tabela

por

select nome, endereco from tabela

[victormartins]

vê se o que eu fiz está cero:

<!--#include file="config.asp"-->
<table border="1" cellpadding="4" cellspacing="0" width="363" bordercolor="#000000" align="center">

    <tr>
      <td bgcolor="#FFFFFF" width="363">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td><a name= "scrollingCode"></a> 
<table width="98%" cellpadding="0" cellspacing="0" align="center">
  <%      sqlstmt = "SELECT * FROM noticias2 ORDER BY id DESC"
          Set rs = Server.CreateObject("ADODB.Recordset")
          rs.Open sqlstmt, Dados, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 9999
    If rs.eof then
        Exit For
    Else
        date1 = rs("data")
        id = rs("id")
        name1 = rs("titulo")
          link = "<a href='view.asp?id=" & id & "' class='g'>" & name1 & "</a>"
        description = name1
   %>
  <tr> 
    <td height="2" valign="top"><font face="Geneva, Arial, Helvetica, san-serif" size="2"> 
      <img src="Imagens/apontar.gif"> <%=rs("data")%> - <% =link%>
</font> 
  </tr>

  <%
rs.MoveNext
End If
Next
rs.close
set conexao = nothing
set rs = nothing%>
</table></td>
          </tr>
        </table>
      </td>
    </tr>
  </table>

Ele chama todos os campos porque usa todos os campos :D

[.Andreia.]

creio que seja por causa disso:

For x = 1 to 9999

[victormartins]

tem que tirar essas linhas?

x = 0
For x = 1 to 9999
    If rs.eof then
        Exit For

?????

[.Andreia.]

não sei se tem que tirar... não entendi porque você usou isso

[victormartins]

também não sei

lembrei, é para exibir todos os dados do banco,

como faz então para listar todos os dados, porque se eu tirar ou colocar outro valor ele exibe só um dado, você tem alguma sugestao ou codigo?

[.Andreia.]

<!--#include file="config.asp"-->

<table border="1" cellpadding="4" cellspacing="0" width="363" bordercolor="#000000" align="center">

<tr>

<td bgcolor="#FFFFFF" width="363">

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

<tr>

<td><a name= "scrollingCode"></a>

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

<% sqlstmt = "SELECT * FROM noticias2 ORDER BY id DESC"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sqlstmt, Dados, 3, 3

TotalRecs = rs.recordcount

If rs.eof then

response.write "não existem dados para exibir"

Else

while not rs.eof

date1 = rs("data")

id = rs("id")

name1 = rs("titulo")

link = "<a href='view.asp?id=" & id & "' class='g'>" & name1 & "</a>"

description = name1

%>

<tr>

<td height="2" valign="top"><font face="Geneva, Arial, Helvetica, san-serif" size="2">

<img src="Imagens/apontar.gif"> <%=rs("data")%> - <% =link%>

</font>

</tr>

<%

rs.MoveNext

wend

End If

rs.close

set conexao = nothing

set rs = nothing%>

</table></td>

</tr>

</table>

</td>

</tr>

</table>

[victormartins]

vlw Andreia, você me ajudou muito!

[.Andreia.]

blza, melhorou a performance?

[victormartins]

melhorou muito!

muito obrigado!

[marcos_804]

Bem, eu entendi por que ele usou este "9999".

Há algum tempo atras, quando eu estava começando a aprender asp eu peguei um codigo aqui no scriptbrasil que era este mesmo.

mas se quiser exibir todos os registros do banco de dados faca assim:

mude "9999" para "rs.RecordCount"

[victormartins]

é mesmo não é? nem tinha pensado nisso, ele pega todos os valores do bd!

Vlw