Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

kania

Página esta extremamente lenta

Por , em ASP Clássico

Recommended Posts

kania    0

kania
Postado

Hehehe, pois é, vai entender, como pode localmente a mesma página funcionar e on-line dar estes paus loucos, vai saber agora onde que é o problema, ou melhor o que é, pq problema de programação com certeza não é senão localmente também estaria dando pau.

Compartilhar este post

Link para o post
Compartilhar em outros sites

kania    0

kania
Postado

Mas do jeito que ela esta agora, qual é sua dica? Como eu poderia retirar ou otimizar alguns selects de forma a deixar ela mais dinâmica e rápida?

 

<!--#include file="bd/config.asp"-->
<script src="SpryAssets/SpryCollapsiblePanel.js" type="text/javascript"></script>
<link href="SpryAssets/SpryCollapsiblePanel.css" rel="stylesheet" type="text/css" />
<%
	PaginaAtual = Cint(Request.Querystring("Pagina"))
	CF = Request.Querystring("CF")'VERIFICA SOMENTE COM FOTOS
	Session("CF") = CF
	SC = Request.Form("SC")'VERIFICA SOMENTE POR SUBCATEGORIAS
	SF = request.Form("SF")'VERIFICA SOMENTE POR FACILIDADES
	SE = Request.Form("SE")'VERIFICA SOMENTE POR ESTADOS
	PC = Request.Form("PC")'VERIFICA SOMENTE POR CIDADES
	PB = Request.Form("PB")'VERIFICA SOEMNTE POR BAIRROS
	Link = Request.ServerVariables("HTTP_REFERER") 
	IdCat = Request.QueryString("IdCat")

	'===============================================
	'VERIFICO O FILTRO BAIRROS
	'===============================================
		If PB <> "" Then
		PB = Split(PB, ";")
			For PBs = 0 to ubound(PB)
				PBsS = PBsS & PB(PBs)
			Next
			Session("PB") = PBsS
			
			SelPB = "AND cadastro_usuarios.bairro IN ("&Session("PB")&")"
			'Response.Write SelPB
		End IF
	
	'===============================================
	'VERIFICO O FILTRO CIDADES
	'===============================================
		If PC <> "" Then
		PC = Split(PC, ";")
			For PCs = 0 to ubound(PC)
				PCsS = PCsS & PC(PCs)
			Next
			Session("PC") = PCsS
			
			SelPC = "AND cadastro_usuarios.cidade IN ("&Session("PC")&")"
		End IF
	
	
	'===============================================
	'VERIFICO O FILTRO ESTADOS
	'===============================================
		If SE <> "" Then
		SE = Split(SE, ";")
			For SEs = 0 to ubound(SE)
				SEsS = SEsS & SE(SEs)
			Next
			Session("SE") = SEsS
			
			SelSE = "AND cadastro_usuarios.estado IN ("&Session("SE")&")"
		End IF
	
	
	'===============================================
	'VERIFICO O FILTRO FACILIDADES
	'===============================================
		If SF <> "" Then
		SF = Split(SF, ";")
			For FA = 0 to ubound(SF)
				SFs = SFs & SF(FA)
			Next
			Session("SF") = SFs
			
			Conn.CursorLocation = 3
			Set RS = Server.CreateObject("adodb.recordset")
			SQL = "SELECT * FROM facilidades_anunciantes WHERE id_facilidade in ("&Session("SF")&")"
			RS.Open SQL,Conn,3,3
			
			TotalSF = RS.recordcount
	
			TSF = 0
			While Not RS.Eof
				TSF = TSF + 1
				If TotalSF = TSF Then
					IdSF = IdSF & RS("id_anunciante")&";"
				else
					IdSF = IdSF & RS("id_anunciante")&";"&","
				End If
			
			RS.MOVENEXT
			WEND
			
			IdSF = Split(IdSF, ";")
			For IdSF2 = 0 to ubound(IdSF)
				IdSF1 = IdSF1 & IdSF(IdSF2)
			Next
			
			RS.close()
			Set RS = Nothing
			
			SelSF = "AND facilidades_anunciantes.id_facilidade IN ("&Session("SF")&")"
			SelUsuarios = "AND cadastro_usuarios.id_cadastro IN ("&IdSF1&")"		
		End IF
	
	'===============================================
	'VERIFICO O FILTRO SUB CATEGORIAS
	'===============================================
		If SC <> "" Then
			SC = Split(SC, ";")
			For sb = 0 to ubound(SC)
				SCs = SCs & SC(sb)
			Next
			Session("SC") = SCs
			
			Conn.CursorLocation = 3
			Set RS = Server.CreateObject("adodb.recordset")
			SQL = "SELECT * FROM sub_categorias_anunciantes WHERE id_sub_categoria in ("&Session("SC")&")"
			RS.Open SQL,Conn,3,3
			
			TotalCad = RS.recordcount
	
			Total = 0
			While Not RS.Eof
				Total = Total + 1
				If TotalCad = Total Then
					IdCad = IdCad & RS("id_anunciante")&";"
				else
					IdCad = IdCad & RS("id_anunciante")&";"&","
				End If
			
			RS.MOVENEXT
			WEND
			
			IdCad = Split(IdCad, ";")
			For Id = 0 to ubound(IdCad)
				IdCad1 = IdCad1 & IdCad(Id)
			Next
			
			RS.close()
			Set RS = Nothing
			
			SelSubCat = "AND sub_categorias_anunciantes.id_sub_categoria IN ("&Session("SC")&")"
			SelUsuarios = "AND cadastro_usuarios.id_cadastro IN ("&IdCad1&")"
		End IF
	
	'SELECIONA TODOS OS REGISTRO ENCOTNRADOS
	Conn.CursorLocation = 3
	Set RS1 = Server.CreateObject("adodb.recordset")
	SQL1 = "SELECT cadastro_usuarios.id_cadastro, cadastro_usuarios.nome_fantasia, cadastro_usuarios.endereco,"&_
	" cadastro_usuarios.numero, cadastro_usuarios.complemento, cadastro_usuarios.bairro, cadastro_usuarios.cidade,"&_
	" cadastro_usuarios.estado, cadastro_usuarios.fone_celular, cadastro_usuarios.fone_fixo, cadastro_usuarios.produto,"&_
	" cadastro_usuarios.fone_comercial, cadastro_usuarios.fone_fax, cadastro_usuarios.logo, cadastro_usuarios.categoria, cidades.nome_cidade, estados.sgl_estado "&_
	" FROM cadastro_usuarios"&_
	" INNER JOIN categorias ON cadastro_usuarios.categoria = categorias.IdCategoria"&_
	" INNER JOIN estados ON estados.id_estado = cadastro_usuarios.estado"&_
	" INNER JOIN cidades ON cidades.id_cidade = cadastro_usuarios.cidade"&_
	" WHERE categorias.IdCategoria = '"&IdCat&"' AND cadastro_usuarios.id_nivel = 4"&_
	" "&SelUsuarios&""&_
	" ORDER BY cadastro_usuarios.produto DESC, cadastro_usuarios.nome_fantasia ASC"
	RS1.Open SQL1,Conn,3,3
	TotalId1 = RS1.recordcount
	
	Contar = 0
	While Not RS1.Eof
		Contar = Contar + 1
		If TotalId1 = Contar Then
			ArrId1 = ArrId1 & RS1("id_cadastro")&";"
			ArrUf1 = ArrUf1 & RS1("estado")&";"
			ArrCI = ArrCI & RS1("estado")&";"
			ArrBa1 = ArrBa1&"'" & RS1("bairro")&"'"&";"
		else
			ArrId1 = ArrId1 & RS1("id_cadastro")&";"&","
			ArrUf1 = ArrUf1 & RS1("estado")&";"&","
			ArrCI = ArrCI & RS1("estado")&";"&","
			ArrBa1 = ArrBa1&"'" & RS1("bairro")&"'"&";"&","
		End If
	
	RS1.MOVENEXT
	WEND
	
	ArrId1 = Split(ArrId1, ";")
	For i1 = 0 to ubound(ArrId1)
		ArrIds1 = ArrIds1 & ArrId1(i1)
	Next
	
	RS1.close()
    Set RS1 = Nothing
	
	'===============================================
	'VERIFICO SE FOI SELECIONADO ALGUM DOS FILTROS
	'===============================================	
	Conn.CursorLocation = 3
	Set RS = Server.CreateObject("adodb.recordset")
	Rs.Pagesize = 15
	
		If CF = "1" Then
			Set RsCF = Server.CreateObject("adodb.recordset")
			SQLCF = "SELECT cadastro_usuarios.id_cadastro"&_
			" FROM cadastro_usuarios"&_
			" INNER JOIN fotos_anunciantes ON cadastro_usuarios.id_cadastro = fotos_anunciantes.id_anunciante"&_
			" WHERE cadastro_usuarios.id_nivel = 4 AND fotos_anunciantes.id_anunciante IN ("&ArrIds1&")"&_
			" GROUP BY fotos_anunciantes.id_anunciante"&_
			" ORDER BY cadastro_usuarios.produto DESC, cadastro_usuarios.nome_fantasia"
			RsCF.Open SQLCF,Conn,3,3
				Filtro = RsCF.recordcount
			
				Filtrar = 0
				While Not RsCF.Eof
					Filtrar = Filtrar + 1
					If Filtro = Filtrar Then
						Fil = Fil & RsCF("id_cadastro")&";"
					else
						Fil = Fil & RsCF("id_cadastro")&";"&","
					End If
				RsCF.MOVENEXT
				WEND
				
				Fil = Split(Fil, ";")
				For f = 0 to ubound(Fil)
					fs = fs & Fil(f)
				Next
					If IsEmpty(fs) = True Then 
						fs = 0
					End If
				RsCF.close()
				Set RsCF = Nothing
				SelFotos = "AND cadastro_usuarios.id_cadastro IN ("&fs&")"
		End If
	
		SQL = "SELECT cadastro_usuarios.id_cadastro, cadastro_usuarios.nome_fantasia, cadastro_usuarios.endereco,"&_
		" cadastro_usuarios.numero, cadastro_usuarios.complemento, cadastro_usuarios.bairro, cadastro_usuarios.cidade,"&_
		" cadastro_usuarios.estado, cadastro_usuarios.fone_celular, cadastro_usuarios.fone_fixo, cadastro_usuarios.produto,"&_
		" cadastro_usuarios.fone_comercial, cadastro_usuarios.fone_fax, cadastro_usuarios.logo, cadastro_usuarios.categoria, cidades.nome_cidade, estados.sgl_estado "&_
		" FROM cadastro_usuarios"&_
		" INNER JOIN categorias ON cadastro_usuarios.categoria = categorias.IdCategoria"&_
		" INNER JOIN estados ON estados.id_estado = cadastro_usuarios.estado"&_
		" INNER JOIN cidades ON cidades.id_cidade = cadastro_usuarios.cidade"&_
		" INNER JOIN sub_categorias_anunciantes"&_
		" INNER JOIN facilidades_anunciantes"&_
		" WHERE categorias.IdCategoria = '"&IdCat&"' AND cadastro_usuarios.id_nivel = 4"&_
		" "&SelFotos&""&_
		" "&SelSubCat&""&_
		" "&SelUsuarios&""&_
		" "&SelSF&""&_
		" "&SelSE&""&_
		" "&SelPC&""&_
		" "&SelPB&""&_
		" GROUP BY cadastro_usuarios.id_cadastro"&_
		" ORDER BY cadastro_usuarios.produto DESC, cadastro_usuarios.nome_fantasia ASC"
	
	RS.Open SQL,Conn,3,3
	TotalId = RS.recordcount
	
	Conte = 0
	While Not Rs.Eof
		Conte = Conte + 1
		If TotalId = Conte Then
			ArrId = ArrId & Rs("id_cadastro")&";"
			ArrUf = ArrUf & Rs("estado")&";"
			ArrCI = ArrCI & Rs("cidade")&";"
			ArrBa = ArrBa&"'" & RS("bairro")&"'"&";"
		else
			ArrId = ArrId & Rs("id_cadastro")&";"&","
			ArrUf = ArrUf & Rs("estado")&";"&","
			ArrCI = ArrCI & Rs("cidade")&";"&","
			ArrBa = ArrBa&"'" & RS("bairro")&"'"&";"&","
		End If
	Rs.MOVENEXT
	WEND
If TotalId = 0 Then
%>

<div id="ErroSelect">
<p>Nenhum registro encontrado com os filtros solicitados</p>
<p><a href="<%=Link%>">Clique aqui para retornar</a></p>
</div>

<%else%>
<div id="GeralCategorias">
	<div id="ListaCategorias">
    	<div id="BarraInfoTopo">
        	<div id="QtdTotal">
            	<p>Encontrado(s): <strong><%=TotalId%></strong> anúncio(s)</p>
            </div>
            <div id="QtdPaginas">
            	<p>Exibindo <strong>15</strong> por página</p>
            </div>        
        </div>
<%	
			PaginaAtual = Cint(Request.Querystring("Pagina"))
		
			If PaginaAtual = 0 Then
				PaginaAtual = 1
			End If
			
			Rs.AbsolutePage = PaginaAtual
	        Num = Rs.PageCount
			
			Cont = 0
			While Not Rs.Eof And Rs.AbsolutePage = PaginaAtual
			Cont = Cont + 1
			
			If Rs("produto") = "2" OR Rs("produto") = "3" Then
			
				if Rs("logo") = "0" Then
					Logo = """imagens/sem_logo.png"""
				Else
					Logo = "imagens/"&Rs("logo")&""
				End IF
			
		%>
    	<div id="Business">
        	<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="85" rowspan="3" valign="top">
                    <div id="Logo">
                        <table width="85" height="85" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td valign="middle"><a href="?pg=detalhes.asp&IdCli=<%=Rs("id_cadastro")%>" title="Ver HotSite de: <%=Rs("nome_fantasia")%>" title=""><img src=<%=Logo%> width="85"/></a></td>
                          </tr>
                        </table>
                    </div>
                </td>
                <td colspan="2" valign="top">
               	  <div id="NomeEmpresa"><a href="?pg=detalhes.asp&IdCli=<%=Rs("id_cadastro")%>" title="Ver HotSite de: <%=Rs("nome_fantasia")%>"><%=Rs("nome_fantasia")%></a></div>
                </td>
              </tr>
              <tr>
                <td valign="top">
                	<div id="Dados">
                    	<p><%=Rs("endereco")%>, <%=Rs("numero")%></p>
              <p><%=Rs("bairro")%> - <%=Rs("nome_cidade")%>/<%=Rs("sgl_estado")%></p>
                        <p>Fone: <%=Rs("fone_fixo")%></p>
                        <p>Celular: <%=Rs("fone_celular")%></p>
                    </div>
                </td>
                <td valign="top">
                	<div id="Cat">
                    	<h4>Categorias:</h4>
                        <%
						Set RSCat = Server.CreateObject("adodb.recordset")
						SQL = "select * from sub_categorias AS A, sub_categorias_anunciantes AS B WHERE A.IdSubCategoria = B.id_sub_categoria and IdCategoria  = '"&Rs("categoria")&"' and B.id_anunciante = '"&RS("id_cadastro")&"'" 
						RSCat.Open SQL,Conn,3,3
						
							TotalCat = RSCat.recordcount
							X = 0
							
							WHILE NOT RsCat.EOF
							
							X = X + 1
								If TotalCat = X Then
						%>
                        		<a href="" title="<%=Lcase(RsCat("SubCategoria"))%>"><%=Lcase(RsCat("SubCategoria"))%></a>
                        <%							
								Else
						%>
                        		<a href="" title="<%=Lcase(RsCat("SubCategoria"))%>"><%=Lcase(RsCat("SubCategoria"))%></a>, 
                        <%		
								End If
						
                        RsCat.MOVENEXT
						WEND
						RsCat.close()
						set RsCat = nothing
						%>
                  </div>
                </td>
              </tr>
              <%
			  	Set RSDica = Server.CreateObject("adodb.recordset")
				SQL = "select * from dica_dia WHERE id_anunciante  = '"&Rs("id_cadastro")&"'" 
				RSDica.Open SQL,Conn,3,3
				
				If Not RSDica.eof Then
				
				WHILE NOT RSDica.EOF
				
				TxtDica = RSDica("texto_dica")
				ImgDica = RSDica("img_dica")
				
				RSDica.MOVENEXT
				WEND
				RSDica.close()
				set RSDica = nothing
			  %>
              <tr>
                <td colspan="2" valign="top">
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="50"><img src="imagens/dica.png" width="45" height="26" /></td>
                    <td width="72">
                   	  <div id="ImgDica"></div>
                    </td>
                    <td>
                    	<div id="TxtDica">
                        	<p>Lorem ipsum dolor sit amet, consectetur adipiscing elit. Fusce tincidunt tortor sit amet massa gravida egestas. Ut id mattis lectus. Nam molestie elementum egestas. Integer.</p>
                        </div>
                    </td>
                  </tr>
                </table></td>
              </tr>
              <%End IF%>
            </table>
	  </div>
        <%Else%>
<div id="Livre">
        	<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="85" rowspan="3" valign="top">
                    <div id="Logo"></div>
                </td>
                <td colspan="2" valign="top">
               	  <div id="NomeEmpresa"><%=Rs("nome_fantasia")%></div>
                </td>
              </tr>
              <tr>
                <td valign="top">
                	<div id="Dados">
                    	<p><%=Rs("endereco")%>, <%=Rs("numero")%></p>
                        <p><%=Rs("bairro")%> - <%=Rs("nome_cidade")%>/<%=Rs("sgl_estado")%></p>
                        <p>Fone: <%=Rs("fone_fixo")%></p>
                    </div>
                </td>
                <td valign="top">
                	<div id="Cat">
                    	<h4>Categorias:</h4>
                        <%
						Set RSCat = Server.CreateObject("adodb.recordset")
						SQL = "select * from sub_categorias AS A, sub_categorias_anunciantes AS B WHERE A.IdSubCategoria = B.id_sub_categoria and IdCategoria  = '"&Rs("categoria")&"' and B.id_anunciante = '"&RS("id_cadastro")&"'" 
						RSCat.Open SQL,Conn,3,3
						
							TotalCat = RSCat.recordcount
							X = 0
							
							WHILE NOT RsCat.EOF
							
							X = X + 1
								If TotalCat = X Then
						%>
                        		<a href="" title="<%=Lcase(RsCat("SubCategoria"))%>"><%=Lcase(RsCat("SubCategoria"))%></a>
                        <%							
								Else
						%>
                        		<a href="" title="<%=Lcase(RsCat("SubCategoria"))%>"><%=Lcase(RsCat("SubCategoria"))%></a>, 
                        <%		
								End If
						
                        RsCat.MOVENEXT
						WEND
						RsCat.close()
						set RsCat = nothing
						%>
                  </div>
                </td>
              </tr>
              
            </table>
        </div>
        <%
			End IF
			rs.MOVENEXT
            WEND
		%>
<div id="BarraNavegacao">
        	<div id="Links">
            	<p>Navegue: </p>
                <div id="Pg">                    
                    <ul>
                    <%
					  Anterior = PaginaAtual - 1
					  Proximo = PaginaAtual + 1
					  If Anterior <= 0 Then
					  Anterior = 1
					  End If
					
					  If Proximo > Rs.PageCount Then
					  Proximo = Rs.PageCount
					  End If
					
					  Jo = 1
					  While Jo <= Rs.PageCount
					
					  If PaginaAtual = Jo Then
					%>
                        <li><a href="?pg=lista_categorias.asp&Pagina=<%=Jo%>&IdCat=<%=IdCat%>&CF=<%=Session("CF")%>&SC=<%=Session("SC")%>&SF=<%=Session("SF")%>&SE=<%=Session("SE")%>&PC=<%=Session("PC")%>&PB=<%=Session("PB")%>" title="Página" <%=Jo%>"><strong style="color:#00F;">[ <%=Jo%> ]</strong></a></li>
                     <%Else%>
                     	<li><a href="?pg=lista_categorias.asp&Pagina=<%=Jo%>&IdCat=<%=IdCat%>&CF=<%=Session("CF")%>&SC=<%=Session("SC")%>&SF=<%=Session("SF")%>&SE=<%=Session("SE")%>&PC=<%=Session("PC")%>&PB=<%=Session("PB")%>" title="Página" <%=Jo%>"><%=Jo%></a></li>
					<%
                      End If
                      Jo = Jo + 1
                      Wend
                    %>
                    </ul>
                </div>
            </div>
        </div>
        <%
		rs.close()
        set rs = nothing
		%>
    </div>
    <div id="Facilidades">
    	<p>Refine sua Busca</p>
      <div id="CollapsiblePanel1" class="CollapsiblePanel">
          <div class="CollapsiblePanelTab" tabindex="0">
			<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="24" valign="middle"><img src="imagens/mais.png" alt="Como Funciona" /></td>
                <td valign="middle">Como funciona</td>
              </tr>
            </table>
    </div>
          <div class="CollapsiblePanelContent">
          	<span>- Para utilizar o filtro, selecione uma opção e clique em filtrar a lista é atualizada com este novo filtro</span><br /><br />
          </div>
      </div>
     <%
    '===============================================
	'VERIFICO SE FOI SELECIONADO O FILTRO DE FOTOS
	'=============================================== 
	  If Session("CF") = "1" Then
	  %>
	  <div id="FiltrosSelecionados">
        	<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td colspan="2" valign="middle">
                <span>Somente anúncios com fotos</span>
                </td>
              </tr>
            </table>
      </div>
      <%
	'===============================================
	'CASO NÃO TENHA SIDO SELECIOANDO O FILTRO FOTO
	'=============================================== 
	Else
		ArrFo = Split(ArrId, ";")
                        
		For fo = 0 to ubound(ArrFo)
			ArrFos = ArrFos & ArrFo(fo)
		Next
		
		'Response.Write ArrFos
		
		Conn.CursorLocation = 2
		Set RS = Server.CreateObject("adodb.recordset")
		SQL = "Select * from fotos_anunciantes AS A, cadastro_usuarios AS B"&_
		" WHERE A.id_anunciante = B.id_cadastro"&_
		" and B.id_cadastro IN ("&ArrFos&") GROUP BY B.id_cadastro"
		RS.Open SQL,Conn,3,3
		
		If Not Rs.Eof Then
	  %>
        <div id="ComFotos">
            <a href="?pg=lista_categorias.asp&IdCat=<%=IdCat%>&CF=1&SC=<%=SCs%>&SF=<%=SFs%>&SE=<%=SEsS%>&PC=<%=PCsS%>&PB=<%=PBsS%>">
            <label>
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                        <td width="25" valign="middle"><img src="imagens/atualizar.png" /></td>
                        <td valign="middle"> Somente anúncios com fotos</td>
                    </tr>
                </table>
            </label>
            </a>
        </div>
      <%
	  Rs.Close()
	  Set Rs = Nothing
	  End IF'FINAL IF CSO NÃO ENCONTRE NENHUMA FOTO
	  End If
	'===============================================
	'VERIFICO SE FOI SELECIONADO O FILTRO SUB CATEGORIAS
	'=============================================== 
	  If Session("SC") <> "" Then
	  %>
	  <div id="FiltrosSelecionados">
        	<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td colspan="2" valign="middle"><span>Sub-Categorias selecionadas</span></td>
              </tr>
              <tr>
                <td colspan="2" valign="middle">
                <ul>
				<%
					Set RS = Server.CreateObject("adodb.recordset")
					SQL = "SELECT SubCategoria FROM sub_categorias WHERE IdSubCategoria in ("&Session("SC")&")"
					RS.Open SQL,Conn,3,3
                    
                    While Not Rs.Eof
				%>
                    	<li><%=Rs("SubCategoria")%></li>
				<%
                    RS.MOVENEXT
                    WEND
				%>
                	</ul>
                <%	
                    RS.close()
                    set RS = nothing
                %>
                </td>
              </tr>
            </table>
      </div>
      <%
	'===============================================
	'CASO NÃO TENHA SIDO SELECIONADO O FILTRO SUB CATEGORIAS
	'=============================================== 
		Else
		Set RS = Server.CreateObject("adodb.recordset")
		SQL = "SELECT sub_categorias.IdSubCategoria, sub_categorias.SubCategoria, sub_categorias.IdCategoria"&_
		" FROM sub_categorias"&_
		" INNER JOIN sub_categorias_anunciantes"&_
		" ON sub_categorias.IdSubCategoria = sub_categorias_anunciantes.id_sub_categoria"&_
		" WHERE sub_categorias.IdCategoria = "&IdCat&""&_
		" GROUP BY sub_categorias.SubCategoria"
		RS.Open SQL,Conn,3,3
		
		If Not Rs.Eof Then
	  %>
      <span class="TitulosFiltros">Sub-Categorias</span>
      <div id="fSubCat">
      	<form action="?pg=lista_categorias.asp&IdCat=<%=IdCat%>&CF=<%=Session("CF")%>&SC=<%=Session("SC")%>&SF=<%=Session("SF")%>&SE=<%=Session("SE")%>&PC=<%=Session("PC")%>&PB=<%=Session("PB")%>" method="POST" id="FormSC" name="FormSC">
          <div id="SubCat">
		<%
            While Not Rs.Eof
        %>
            <label>
            	<input name="SC" type="checkbox" id="SC" value="<%=RS("IdSubCategoria")%>;" /> <%=RS("SubCategoria")%>
            </label>
                     
                <%
                    RS.MOVENEXT
                    WEND
                    RS.close()
                    set RS = nothing
                 %>
          </div>
          		<table width="10px" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="21"><img src="imagens/btn_azul_esq.png" /></td>
                    <td>
                    	<input type="submit" value="filtrar" class="btnfiltro"/>
                    </td>
                    <td width="21"><img src="imagens/btn_azul_dir.png" /></td>
                  </tr>
                </table>
        </form>
      </div>
      <%
	  End If'FINAL IF CASO NÃO ENCONTRE NENHUMA SUB CATEGORIA
	  End If
	'===============================================
	'VERIFICO SE FOI SELECIONADO O FILTRO FACILIDADES
	'=============================================== 
	  If Session("SF") <> "" Then
	  %>
	  <div id="FiltrosSelecionados">
        	<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td colspan="2" valign="middle"><span>Facilidades selecionadas</span></td>
              </tr>
              <tr>
                <td colspan="2" valign="middle">
                <ul>
				<%
					Set RS = Server.CreateObject("adodb.recordset")
					SQL = "SELECT nome_facilidade FROM facilidades WHERE id_facilidade in ("&Session("SF")&")"
					RS.Open SQL,Conn,3,3
                    
                    While Not Rs.Eof
				%>
                    	<li><%=Rs("nome_facilidade")%></li>
				<%
                    RS.MOVENEXT
                    WEND
				%>
                	</ul>
                <%	
                    RS.close()
                    set RS = nothing
                %>
                </td>
              </tr>
            </table>
      </div>
      <%
	'===============================================
	'CASO NÃO TENHA SIDO SELECIONADO O FILTRO FACILIDADES
	'=============================================== 
	  else
	   ArrId = Split(ArrId, ";")
                        
		For i = 0 to ubound(ArrId)
			ArrIds = ArrIds & ArrId(i)
		Next

		Set RS = Server.CreateObject("adodb.recordset")
		SQL = "SELECT facilidades.nome_facilidade, facilidades.id_facilidade,"&_
		" facilidades_anunciantes.id_anunciante"&_
		" FROM facilidades_anunciantes"&_
		" INNER JOIN facilidades ON facilidades_anunciantes.id_facilidade = facilidades.id_facilidade"&_
		" WHERE facilidades_anunciantes.id_anunciante in ("&ArrIds&")"&_
		" GROUP BY facilidades.nome_facilidade"&_
		" ORDER BY facilidades.nome_facilidade"
		RS.Open SQL,Conn,3,3
		
		If Not Rs.eof Then
	%>
      
      
      <span class="TitulosFiltros">Por Facilidades</span>
      <div id="fSoFacilidades">	
        <form action="?pg=lista_categorias.asp&IdCat=<%=IdCat%>&CF=<%=Session("CF")%>&SC=<%=Session("SC")%>&SF=<%=Session("SF")%>&SE=<%=Session("SE")%>&PC=<%=Session("PC")%>&PB=<%=Session("PB")%>" method="post" id="FormSF" name="FormSF">
          <div id="SoFacilidades">
              
		<%
			While Not Rs.Eof
		%>
                    
            <label><input name="SF" type="checkbox" id="SF" value="<%=RS("id_facilidade")%>;" /> <%=RS("nome_facilidade")%></label>
        <%
            RS.MOVENEXT
            WEND
            
            RS.close()
            set RS = nothing
         %>
          </div>
          		<table width="10px" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="21"><img src="imagens/btn_azul_esq.png" /></td>
                    <td>
                    	<input type="submit" value="filtrar" class="btnfiltro" />
                    </td>
                    <td width="21"><img src="imagens/btn_azul_dir.png" /></td>
                  </tr>
                </table>
          </form>
      </div>
      <%
	  End IF'FINAL IF CASO NÃO ENCONTRE NENHUMA FACILIDADE
	  End IF
	'===============================================
	'VERIFICO SE FOI SELECIONADO O FILTRO ESTADO
	'=============================================== 
	  If Session("SE") <> "" Then
	  %>
	  <div id="FiltrosSelecionados">
        	<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td colspan="2" valign="middle"><span>Estados selecionados</span></td>
              </tr>
              <tr>
                <td colspan="2" valign="middle">
                <ul>
				<%
					Set RS = Server.CreateObject("adodb.recordset")
					SQL = "SELECT nome_estado FROM estados WHERE id_estado in ("&Session("SE")&")"
					RS.Open SQL,Conn,3,3
                    
                    While Not Rs.Eof
				%>
                    	<li><%=Rs("nome_estado")%></li>
				<%
                    RS.MOVENEXT
                    WEND
				%>
                	</ul>
                <%	
                    RS.close()
                    set RS = nothing
                %>
                </td>
              </tr>
            </table>
      </div>
      <%
	'===============================================
	'CASO NÃO TENHA SIDO SELECIONADO O FILTRO ESTADO
	'=============================================== 
	  else	
	  %>
      <span class="TitulosFiltros">Por Estados</span>
       <div id="fPorEstados">   
          <form action="?pg=lista_categorias.asp&IdCat=<%=IdCat%>&CF=<%=Session("CF")%>&SC=<%=Session("SC")%>&SF=<%=Session("SF")%>&SE=<%=Session("SE")%>&PC=<%=Session("PC")%>&PB=<%=Session("PB")%>" method="post" id="FormSE" name="FormSE">
              <div id="PorEstados">
                
                <%
                        ArrUf = Split(ArrUf, ";")
                        
                        For f = 0 to ubound(ArrUf)
                            ArrUfs = ArrUfs & ArrUf(f)
                        Next
                    
                        Set RS = Server.CreateObject("adodb.recordset")
                        SQL = "SELECT estados.nome_estado, estados.id_estado"&_
                        " FROM cadastro_usuarios"&_
                        " INNER JOIN estados ON cadastro_usuarios.estado = estados.id_estado"&_
                        " WHERE cadastro_usuarios.estado IN ("&ArrUfs&")"&_
                        " GROUP BY estados.nome_estado"
                        RS.Open SQL,Conn,3,3
                        
                        While Not Rs.Eof
                        
                    %>
                        <label><input name="SE" type="checkbox" id="SE" value="<%=RS("id_estado")%>;"/> <%=RS("nome_estado")%></label>
                    <%
                        RS.MOVENEXT
                        WEND
                        RS.close()
                        set RS = nothing
                     %>
              </div>
      			<table width="10px" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="21"><img src="imagens/btn_azul_esq.png" /></td>
                    <td>
                    	<input type="submit" value="filtrar" class="btnfiltro" />
                    </td>
                    <td width="21"><img src="imagens/btn_azul_dir.png" /></td>
                  </tr>
                </table>
            </form> 
       </div>
       <%
	   End IF
	'===============================================
	'VERIFICO SE FOI SELECIONADO O FILTRO CIDADE
	'=============================================== 
	  If Session("PC") <> "" Then
	%>  
	  <div id="FiltrosSelecionados">
        	<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td colspan="2" valign="middle"><span>Cidades selecionadas</span></td>
              </tr>
              <tr>
                <td colspan="2" valign="middle">
                <ul>
				<%
					Set RS = Server.CreateObject("adodb.recordset")
					SQL = "SELECT nome_cidade FROM cidades WHERE id_cidade in ("&Session("PC")&")"
					RS.Open SQL,Conn,3,3
                    
                    While Not Rs.Eof
				%>
                    	<li><%=Rs("nome_cidade")%></li>
				<%
                    RS.MOVENEXT
                    WEND
				%>
                	</ul>
                <%	
                    RS.close()
                    set RS = nothing
                %>
                </td>
              </tr>
            </table>
      </div>
      <%
	'===============================================
	'CASO NÃO TENHA SIDO SELECIONADO O FILTRO CIDADE
	'=============================================== 
	  ElseIf Session("SE") <> "" Then	
	  %>
      <span class="TitulosFiltros">Por Cidades</span>
      <div id="fPorCidades">
      	<form action="?pg=lista_categorias.asp&IdCat=<%=IdCat%>&CF=<%=Session("CF")%>&SC=<%=Session("SC")%>&SF=<%=Session("SF")%>&SE=<%=Session("SE")%>&PC=<%=Session("PC")%>&PB=<%=Session("PB")%>" method="post" id="FormPC" name="FormPC">
          <div id="PorCidades">
						<%
                        ArrCI = Split(ArrCI, ";")
                        
                        For C = 0 to ubound(ArrCI)
                            ArrCIs = ArrCIs & ArrCI(C)
                        Next
                    
                        Set RS = Server.CreateObject("adodb.recordset")
                        SQL = "SELECT cidades.nome_cidade, cidades.id_cidade"&_
                        " FROM cadastro_usuarios"&_
                        " INNER JOIN cidades ON cadastro_usuarios.cidade = cidades.id_cidade"&_
                        " WHERE cadastro_usuarios.cidade IN ("&ArrCIs&")"&_
                        " GROUP BY cidades.nome_cidade"
                        RS.Open SQL,Conn,3,3
                        
                        While Not Rs.Eof
                        
                    %>
                        <label><input name="PC" type="checkbox" id="PC" value="<%=RS("id_cidade")%>;"/> <%=RS("nome_cidade")%></label>
                    <%
                        RS.MOVENEXT
                        WEND
                        RS.close()
                        set RS = nothing
                     %>
                     </div>
          		<table width="10px" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="21"><img src="imagens/btn_azul_esq.png" /></td>
                    <td>
                    	<input type="submit" value="filtrar" class="btnfiltro" />
                    </td>
                    <td width="21"><img src="imagens/btn_azul_dir.png" /></td>
                  </tr>
                </table>
        </form>
      </div>
      <%
	  End If
	'===============================================
	'VERIFICO SE FOI SELECIONADO O FILTRO BAIRRO
	'=============================================== 
	  If Session("PB") <> "" Then
	%>  
	  <div id="FiltrosSelecionados">
        	<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td colspan="2" valign="middle"><span>Bairros selecionados</span></td>
              </tr>
              <tr>
                <td colspan="2" valign="middle">
                <ul>
				<%
					Set RS = Server.CreateObject("adodb.recordset")
					SQL = "SELECT bairro FROM cadastro_usuarios WHERE bairro in ("&Session("PB")&") GROUP BY bairro"
					RS.Open SQL,Conn,3,3
                    
                    While Not Rs.Eof
				%>
                    	<li><%=Rs("bairro")%></li>
				<%
                    RS.MOVENEXT
                    WEND
				%>
                	</ul>
                <%	
                    RS.close()
                    set RS = nothing
                %>
                </td>
              </tr>
            </table>
      </div>
      <%
	'===============================================
	'CASO NÃO TENHA SIDO SELECIONADO O FILTRO BAIRRO
	'=============================================== 
	  ElseIf Session("PC") <> "" Then
	  %>
      <span class="TitulosFiltros">Por Bairros</span>
      <div id="fPorBairros">
	      <form action="?pg=lista_categorias.asp&IdCat=<%=IdCat%>&CF=<%=CF%>&SC=<%=SCs%>&SF=<%=Session("SF")%>&SE=<%=Session("SE")%>&PC=<%=Session("PC")%>&PB=<%=Session("PB")%>" method="post" id="FormPB" name="FormPB">
              <div id="PorBairros">
                <%
                        ArrBa = Split(ArrBa, ";")
                        
                        For PBs = 0 to ubound(ArrBa)
                            ArrBas = ArrBas & ArrBa(PBs)
                        Next
					
                        Set RS = Server.CreateObject("adodb.recordset")
                        SQL = "SELECT bairro"&_
                        " FROM cadastro_usuarios"&_
                        " WHERE bairro IN ("&ArrBas&")"&_
                        " GROUP BY bairro"
                        RS.Open SQL,Conn,3,3
                        
                        While Not Rs.Eof
                        
                    %>
                        <label><input name="PB" type="checkbox" id="PB" value="'<%=RS("bairro")%>';"/> <%=RS("bairro")%></label>
                    <%
                        RS.MOVENEXT
                        WEND
                        RS.close()
                        set RS = nothing
                     %>
              </div>
				<table width="10px" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="21"><img src="imagens/btn_azul_esq.png" /></td>
                    <td>
                    	<input type="submit" value="filtrar" class="btnfiltro" />
                    </td>
                    <td width="21"><img src="imagens/btn_azul_dir.png" /></td>
                  </tr>
                </table>
        </form>
      </div>
      <%End If%>
  </div>
    <!--#include File="barra_banners_home.asp"-->
</div>

<script type="text/javascript">
<!--
var CollapsiblePanel1 = new Spry.Widget.CollapsiblePanel("CollapsiblePanel1", {contentIsOpen:false});
//-->
</script>
<%End IF%

Compartilhar este post

Link para o post
Compartilhar em outros sites

desisto    0

desisto
Postado

nao deu pra ver o cog. todo, nao vi se você fechou as conexoes

 

guardar as categorias e sub. junto com os registros pra nao ter que fazer select dentro de loop - isso mata o sistema, pode ser o principal motivo da lentidão

 

faça um teste

 

execute a pagina sem essa conexao das categorias e veja se a algum ganho de performance

 

ponha no inicio - Dim marca_tempo : marca_tempo = (timer())

 

ponha no fim - response.write(round(timer-marca_tempo,4))

 

isso vai dizer APROXIMADAMENTE o tempo de execução da pagina, ponha antes da alteração e veja um antes e depois

Compartilhar este post

Link para o post
Compartilhar em outros sites

kania    0

kania
Postado

Fera, vou te contar, hoje este sistema esta com a urucubaca, agora estou testando e o tempo está dando aqui para mim 0,1367 sem mecher em anda do código, dá uma testada ai para ver se ai também fica com este tempo, fazendo um favor

Compartilhar este post

Link para o post
Compartilhar em outros sites

PF Webmaster    0

PF Webmaster
Postado

Fera, vou te contar, hoje este sistema esta com a urucubaca, agora estou testando e o tempo está dando aqui para mim 0,1367 sem mecher em anda do código, dá uma testada ai para ver se ai também fica com este tempo, fazendo um favor

 

Você fechou os objetos e sub-objetos utilizados?

 

Set nome_do_objeto = Nothing

Compartilhar este post

Link para o post
Compartilhar em outros sites

PF Webmaster    0

PF Webmaster
Postado

Sim fechei todos

 

Eu estava lendo seu código, se você "quebrasse" seus códigos em partes menores, colocasse-os em includes, e de jeito nenhum, NENHUM fazer código espaguete[1].

 

Nota: [1] Código Espaguete, é quando você alterna constantemente entre HTML e ASP, ex:

<!-- Código de PÉSSIMA performance -->
<tr>
<% Do Until Registro.EOF %>
     <td>Nome: <% = Registro("Nome") %></td>
<% Registro.MoveNext %> 
<% Loop %>
</tr>


<%
'código de ALTA performance'
Response.Write("<tr>")
   Do Until Registro.EOF
      Response.Write("<td>" & "Nome: " & Registro("Nome") & "</td>")
      Registro.MoveNext
   Loop
Response.Write("</tr>")
%>

Dúvidas, pergunte.

 

[]'s

 

Pedro Felipe.

Compartilhar este post

Link para o post
Compartilhar em outros sites

desisto    0

desisto
Postado

kania, as vezes eu acesso alguns sites e parecem LENTOOOOOOOS, ai eu vou ver o codigo fonte, e pra surpresa, esta todo montado

 

meu painel ADM aconteceu isso ontem, retornvava menos de 0.5 pra carregar a pagina, mas nao montava a tela, nao sei pq

 

quando ficar lento ai, veja se é isso que acontece

Compartilhar este post

Link para o post
Compartilhar em outros sites

PF Webmaster    0

PF Webmaster
Postado

Valeu, vou melhor esta questão do código, eu acabo usando em html porque é mais rápido de fazer. Preguiça

 

Eu sei bem como é, mas a preguiça é maior causa de termos que reescrever sistemas inteiros do zero.

 

[]'s

 

Pedro Felipe.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Vai entender, devia ser algo no servidor da LocaWeb, pq voltou a funcionar, se quiserem testar agora http://www.grupoeagl...versaobeta2010/ ai para um teste use a categoria Serviços Públicos a útima

pode ser uma instabilidade no server...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito