Ir para conteúdo
Fórum Script Brasil
  • 0

Paginação Randomica com repetição de resultados


webbatidos

Pergunta

Ola pessoal,

Estou com um probleminha tenho um sistema de busca que gera paginação dos resultados, coloquei em randomicos para não deixar o produto que foi cadastrado 3 meses atras aparecesse apenas na pagina 20 por exemplo, mudei algumas coisas com variaveis mais continua igual, e qd coloco em randomico o alguns produtos que aparecesse na 1 pagina, repeta na 2 ou 3 e assim por adiante nas outras paginas.

Como posso esta resolvendo isso ? infelizmente não sei quase nada em ASP apenas em PHP, abaixo segue o codigo:

<script language="JavaScript">
function addFav(){
    var url      = "http://www.webbatidos.com.br";
    var title    = "Veiculos Batidos - Carros, Motos, Caminhões, Caminhonetes";
    if (window.sidebar) window.sidebar.addPanel(title, url,"");
    else if(window.opera && window.print){
        var mbm = document.createElement('a');
        mbm.setAttribute('rel','sidebar');
        mbm.setAttribute('href',url);
        mbm.setAttribute('title',title);
        mbm.click();
    }
    else if(document.all){window.external.AddFavorite(url, title);}
}
</script>
&lt;script type='text/javascript'>
function iframeAutoHeight(quem){
    //by Micox - elmicox.blogspot.com - elmicox.com - webly.com.br  
    if(navigator.appName.indexOf("Internet Explorer")>-1){ //ie sucks
        var func_temp = function(){
            var val_temp = quem.contentWindow.document.body.scrollHeight + 10
            quem.style.height = val_temp + "px";
        }
        setTimeout(function() { func_temp() },100) //ie sucks
    }else{
        var val = quem.contentWindow.document.body.parentNode.offsetHeight + 10
        quem.style.height= val + "px";
    }    
}
</script>


<!--#include file="Connections/webacon_eagle.asp" -->
<%
dim VEICULO
VEICULO = request("VEICULO") & ""
VEICULO = replace(VEICULO,"'","")
VEICULO = replace(VEICULO,"*","")
VEICULO = replace(VEICULO,"&","")
Dim rs


VEICULO = REQUEST("VEICULO") & ""
MARCA = request("MARCA") & ""
MODELO = Request("MODELO") & ""

MARCA = REPLACE(MARCA,",","")

dim intpagina

if trim(VEICULO) <> "" AND trim(MARCA) <> "MARCA(TODAS)" then
        Set rs = Server.CreateObject("ADODB.Recordset")
        rs.ActiveConnection = MM_webacon_eagle_STRING
        rs.Source = "SELECT * FROM TBLVEICULOS where VEICULO='" & trim(VEICULO) & "' AND MARCA='" & TRIM(MARCA) & "' AND LIBERADO='SIM' AND ALTERADO='não' ORDER BY  Rnd(Int(Now()*[IDVEICULO])-Now()*[IDVEICULO])" 
        rs.CursorType = 1
        rs.CursorLocation = 2
        rs.LockType = 1
        rs.Open()
        

ELSE
        Set rs = Server.CreateObject("ADODB.Recordset")
        rs.ActiveConnection = MM_webacon_eagle_STRING
        rs.Source = "SELECT * FROM TBLVEICULOS where VEICULO='" & trim(VEICULO) & "' AND LIBERADO='SIM' ORDER BY  Rnd(Int(Now()*[IDVEICULO])-Now()*[IDVEICULO])" 
        rs.CursorType = 1
        rs.CursorLocation = 2
        rs.LockType = 1
        rs.Open()

        'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset

end if
    'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset
    rs.PageSize = 11

    'Criamos as Validações
    if rs.eof then
       response.Redirect("registro-não-encontrado.asp?MARCA=" & TRIM(MARCA) & "&VEICULO=" & TRIM(VEICULO))
       Response.End 
    else
       'Definimos em qual pagina o visitante está
       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
%>
&lt;script type="text/javascript" src="js/jquery-1.3.1.js"></script>
&lt;script type="text/javascript">
    $(function(){
        $('#tabelax tr')
            .mouseover(function(){
                $(this).addClass('over');
            })
            .mouseout(function(){
                $(this).removeClass('over');
            });
    });
</script>
<link href='http://www.webbatidos.com.br/favicon.gif' rel='shortcut icon' type='image/x-icon'/>
<link href='http://www.webbatidos.com.br/favicon.gif' rel='icon' type='image/x-icon'/>
</head>
<body>
<div id="header" >

<!--#include file="header.asp"-->    
<div id="menu_ext">
<!--#include file="menubnet.asp"--> 
</div>
             
     </div>
          
          
  
<div class="clear"></div>

<div id="tudo">


<div id="colesquerda">
<div>
<iframe src="busca_avancada.asp" width="158" height="180"  marginwidth="0" marginheight="0" frameborder="0" scrolling="no" > </iframe>
</div>
<div style="margin-top:5px;width:145px;background:#FFF url(images/coldireita.jpg) repeat-y;">
<iframe src="colesquerda.asp" width="155"  onload="iframeAutoHeight(this)"  marginwidth="0" marginheight="0" frameborder="0" scrolling="no" >
        </iframe>
      </div>
    </div>

  <div style="margin-right:5px;">
    <div style="margin-top:5px;"> <table width="820" border="0" align="right" cellpadding="0" cellspacing="0" id="tabelax">
                          
                           <tbody>

 <tr  >
   <td colspan="7"  align="left" bgcolor="#FFFFFF" style="font-family:Arial, Helvetica, sans-serif;font-size:12px;font-weight:bold;">VEÍCULOS ENCONTRADOS</td>
   </tr>
 <tr >
              <td width="100"  align="center" bgcolor="#FFFFFF"><div class="style1" style="padding-top:10px;padding-bottom:10px;"><font face="Verdana" size="2">FOTO</font></div></td>
                            <td bgcolor="#FFFFFF" ><div align="left"><span class="style1"><font face="Verdana" size="2">MODELO</font></span></div></td>
                            <td bgcolor="#FFFFFF" ><div align="left"><span class="style1"><font face="Verdana" size="2">COMB.</font></span></div></td>
                            <td bgcolor="#FFFFFF" ><div align="left"><span class="style1"><font face="Verdana" size="2">ANO</font></span></div></td>
                            <td bgcolor="#FFFFFF" ><div align="left"><span class="style1"><font face="Verdana" size="2">COR</font></span></div></td>
                            <td bgcolor="#FFFFFF" ><div align="left"><span class="style1"><font face="Verdana" size="2">PREÇO</font></span></div></td>
                            <td bgcolor="#FFFFFF" ><div align="left"><span class="style1"><font face="Verdana" size="2">SITUAÇÃO</font></span></div></td>
                          </tr>

<% 
  'Iniciamos o Loop
    rs.AbsolutePage = intpagina 
    intrec = 0
    While intrec < rs.PageSize and not rs.eof  

 %>

                          <tr  >
                          
                          <td width="100"  align="center" class="celula1"><div style="padding-top:10px;padding-bottom:10px;"><a href="consultar_veiculo.asp?IDVEICULO=<%= rs("IDVEICULO") %>" target="_parent"><font face="Arial" size="2" color="#333333"><img src= <%= "banco_veiculos" & "/" & rs("IMAGES").Value %> border="0" width="99" height="85"></font></a></div></td>
                          
                            <td  width="150" class="celula1" ><div align="left"><b></b><strong><font size="1" face="Arial" color="#000099" style="text-transform:uppercase"><a href="consultar_veiculo.asp?IDVEICULO=<%= rs("IDVEICULO") %>"><%= rs("MODELO") %></a></font></strong></div></td>
                            <td width="100" class="celula1"><div align="left"><font size="1" face="Arial" color="#000000"><%= rs("COMBUSTIVEL") %></font></div></td>
                            <td width="100" class="celula1"><div align="left"><font size="1" face="Arial" color="#000000"><%= rs("ANO") %></font></div></td>
                            <td width="80" class="celula1"><div align="left"><font size="1" face="Arial" color="#000000"><%= rs("COR") %></font></div></td>
                            <td width="115" class="celula1"><div align="left"><font size="1" face="Arial" color="#000000">R$ <%= rs("VALOR") %></font></div></td>
                            <td width="115" class="celula1"><div align="left"><strong><font size="1" face="Arial" color="#000000" style="text-transform:uppercase">
                              <%
                            Set conn = Server.CreateObject("ADODB.Connection")
                            conn.Open MM_webacon_eagle_STRING
                            set rstemp = conn.execute("SELECT * FROM USERSDETAILS WHERE CHAVEEMAIL = '" & rs("CHAVEEMAIL") & "'") 
                            
                            if not rstemp.eof then
                                  if rstemp("EMPRESA") = "" THEN
                                          RESPONSE.Write(" ")
                                  ELSE
                                          response.Write(rstemp("EMPRESA")) 
                                  END IF           
                            else
                                  response.Write(" ") 
                            end if      
                            
                            set conn = nothing
                            %>
                            </font></strong><strong><font size="1" face="Arial" color="#000000" style="text-transform:uppercase">
                            <%
                            Set conn = Server.CreateObject("ADODB.Connection")
                            conn.Open MM_webacon_eagle_STRING
                            set rstemp = conn.execute("SELECT * FROM USERSDETAILS WHERE CHAVEEMAIL = '" & rs("CHAVEEMAIL") & "'") 
                            
                            if not rstemp.eof then
                                  if rstemp("vendedor3") = "" THEN
                                          RESPONSE.Write(" ")
                                  ELSE
                                          response.Write(rstemp("vendedor3")) 
                                  END IF           
                            else
                                  response.Write(" ") 
                            end if      
                            
                            set conn = nothing
                            %>
                            </font></strong></div></td>
                          </tr>
                          
                          <tr>
                            <td colspan="7" class="celula1"></td></tr>
                          
                      <% 
   rs.MoveNext
    intrec = intrec + 1
    if rs.eof then 
       response.write " " 
    end if        
    wend
 %>    
          
          <tr ><td colspan="7" align="center" height="40">
<% 
    'Criamos as Validações para a navegação "Anterior" e "Próximo"  
    if intpagina>1 then 
    %> 
    <a href="result_busca2.asp?pagina=<%=intpagina-1%>&VEICULO=<%=VEICULO%>&MARCA=<%=MARCA%>"><< Anterior</a> || 
    <%  
    end if 
    if StrComp(intpagina,rs.PageCount)<>0 then    
    %> 
    <a href="result_busca2.asp?pagina=<%=intpagina + 1%>&VEICULO=<%=VEICULO%>&MARCA=<%=MARCA%>">Próximo >></a>    
    <% 
    end if 
    rs.close 
    Set rs = Nothing 
    %> 

</td></tr>
                          </tbody>
      </table> 
    </div>
  </div></div>
<div class="clear"></div>
<div style="bottom:0; width:100%;">
<iframe  src="rodape.asp" width=100% height=100  marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=no noresize ></iframe>
</div>

</div><!-- div#tudo -->
   <div class="clear"></div>
</body>
</html>
<%


set MM_webacon_eagle_STRING = nothing


%>

Vlw pela ajuda

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...