
Dirija
Membros-
Total de itens
1 -
Registro em
-
Última visita
Sobre Dirija

Dirija's Achievements
0
Reputação
-
Olá pessoal, preciso de uma ajuda. Tenho um script em ASP mas não consigo colocar paginação nele, ou seja, gostaria de expor 15 registros por pagina e na medida que vai aumentando os cadastros vão surgindo em outra página, tipo, página 1 - página 2 e assim sucessivamente, abaixo o código em ASP que apresenta os registros, se alguém puder ajudar. Abraços Rogério Neste código ele mostra todos os registros do banco, gostaria de mostrar 15 registros por página. <script language="javascript"> <!-- function newWindow(mypage,myname,w,h) { if(screen.width){ var winl = (screen.width-w)/2; var wint = (screen.height-h)/2; }else{winl = 0;wint =0;} if (winl < 0) winl = 0; if (wint < 0) wint = 0; var settings = 'height=' + h + ','; settings += 'width=' + w + ','; settings += 'top=' + wint + ','; settings += 'left=' + winl + ','; //settings += 'toolbar=no,location=no,status=no,scrollbars=yes,resizable=no'; win = window.open(mypage,myname,settings); win.window.focus(); } --> </script><html> <head> <title>Concessionária Virtual | Semizeros do Grupo Dirija</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <meta name="robots" content="all"> <meta name="rating" content="general"> <meta name="copyright" content="Webmaster Dirija"> <meta name="expires" content="never"> <meta name="DC.Creator" content="Webmaster Dirija"> <link href="estilo.css" rel="stylesheet" type="text/css"> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); //--> </script> <style type="text/css"> <!-- .style1 {font-size: 10px} --> </style> </head> <body scroll="auto"> <tr> <td height="71" valign="top"> <p align="center"> <!-- #include file="db.inc" --> <!-- #include file="funcoes.inc" --> <HTML> <HEAD> <TITLE><%=nome_site%></TITLE> <META http-equiv=Content-Type content="text/html; charset=iso-8859-1"> <META content=ALL name=robots> <script language=JavaScript type=text/javascript> <!-- function abre_janela(width, height, nome, scrollbar) { var top; var left; top = ( (screen.height/2) - (height/2) ) left = ( (screen.width/2) - (width/2) ) window.open('',nome,'width='+width+',height='+height+',scrollbars='+scrollbar+',toolbar=no,location=no,status=no,menubar=no,resizable=no,left='+left+',top='+top); } //--> </SCRIPT> </HEAD> <BODY class=texto bgColor=#014E83 leftMargin=0 topMargin=0 rightMargin=0> </BODY> </HTML><!-- #include file="config.inc" --> <!-- #include file="db.inc" --> <!-- #include file="funcoes.inc" --> <%set RSConsulta = Server.CreateObject("AdoDB.RecordSet") categoria = request("categoria") subcategoria = request("subcategoria") valori = request("valori") valorf = request("valorf") anoi = request("anoi") anof = request("anof") combustivel = request("combustivel") CodigoOpcional = request("CodigoOpcional") CodigoMarca = request("CodigoMarca") CodigoModelo = request("CodigoModelo") SQL = "Select Vei.*, Mar.Marca, Mode.Modelo, Mode.Versao, Cor.cor " & chr(13) & _ "from Veiculos Vei, Marcas Mar, Modelos Mode, Cores Cor " & chr(13) & _ "where Vei.CodigoMarca = Mar.CodigoMarca " & chr(13) & _ "and Vei.CodigoModelo = Mode.CodigoModelo " & chr(13) & _ "and Vei.CodigoCor = Cor.CodigoCor " & chr(13) if CodigoMarca <> "" then SQL = SQL & "and Mar.CodigoMarca = " & CodigoMarca & " " & chr(13) end if if CodigoModelo <> "" then SQL = SQL & "and Mode.CodigoModelo = " & CodigoModelo & " " & chr(13) end if if Categoria <> "" then SQL = SQL & "and Mar.CodigoMarca = " & Categoria & " " & chr(13) end if if SubCategoria <> "" then SQL = SQL & "and Mode.CodigoModelo = " & SubCategoria & " " & chr(13) end if if valori <> "" then SQL = SQL & "and Vei.preço >= " & replace(replace(valori,".",""),",",".") & " " & chr(13) end if if valorf <> "" then SQL = SQL & "and Vei.preço <= " & replace(replace(valorf,".",""),",",".") & " " & chr(13) end if if anoi <> "" then SQL = SQL & "and Vei.AnoModelo >= " & anoi & " " & chr(13) end if if anof <> "" then SQL = SQL & "and Vei.AnoModelo <= " & anof & " " & chr(13) end if if combustivel <> "" then SQL = SQL & "and Vei.Combustivel = '" & combustivel & "' " & chr(13) end if if CodigoOpcional <> "" then SQL = SQL & "and ( select count(*) from VeiculosOpcionais where Vei.CodigoVeiculo = VeiculosOpcionais.CodigoVeiculo and VeiculosOpcionais.CodigoOpcional in ( " & CodigoOpcional & " ) ) > 0 " end if 'response.write "<pre>" & SQL & "</pre>" 'response.flush RSConsulta.open SQL, conn, 1%> <HTML> <HEAD> <TITLE><%=nome_site%></TITLE> <META http-equiv=Content-Type content="text/html; charset=iso-8859-1"> <META content=ALL name=robots> <script language=JavaScript type=text/javascript> <!-- function abre_janela(width, height, nome, scrollbar) { var top; var left; top = ( (screen.height/2) - (height/2) ) left = ( (screen.width/2) - (width/2) ) window.open('',nome,'width='+width+',height='+height+',scrollbars='+scrollbar+',toolbar=no,location=no,status=no,menubar=no,resizable=no,left='+left+',top='+top); } //--> </SCRIPT> <LINK href="estilo.css" type=text/css rel=stylesheet> </HEAD> <BODY class=texto bottomMargin=0 bgColor=#014E83 leftMargin=0 topMargin=0 rightMargin=0> <TABLE class=texto style="BORDER-RIGHT: black 1px solid" height="100%" cellSpacing=0 cellPadding=0 width=760 bgColor=#ffffff border=0> <TR> <TD vAlign=top colSpan=3 height="1%"> <!-- #include file="topo.asp" --> </TD> </TR> <TR> <TD vAlign=top width=150 bgColor=whitesmoke> <!-- #include file="menu.asp" --> </TD> <TD vAlign=top width=610> <TABLE class=texto cellSpacing=0 cellPadding=0 width="100%" border=0> <TR> <TD vAlign=top> <TABLE class=texto cellSpacing=0 cellPadding=4 width="95%" align=center border=0> <TR> <TD height=40> <FONT color=#0071C5> <STRONG>Nossos Veículos </STRONG> </FONT> </TD> </TR> <TR> <TD> Para ver detalhes do veículo, clique sobre o modelo. <BR> <HTML> Caso não tenha encontrado o que procura, <STRONG><A href="<%=root%>contato.asp"><script type="text/javascript"> var GB_ROOT_DIR = "./greybox/"; </script> <script type="text/javascript" src="greybox/AJS.js"></script> <script type="text/javascript" src="greybox/AJS_fx.js"></script> <script type="text/javascript" src="greybox/gb_scripts.js"></script> <link href="greybox/gb_styles.css" rel="stylesheet" type="text/css" media="all" /> <script type="text/javascript" src="static_files/help.js"></script> <link href="static_files/help.css" rel=+"stylesheet" type="text/css" media="all" /> </head> <body> <a href="http://estoquevu.dirija.com.br/carros/seminovos.htm" title="Estoque de Seminovos - Grupo Dirija" rel="gb_page_center[640, 460]"> Clique aqui </a> </body></STRONG> </html>e faça um anúncio de interesse de compra agora mesmo.<BR> </TD> </TR> <TR> <TD> <TABLE class=texto cellSpacing=2 cellPadding=3 width="100%" border=0> <TR bgColor=gainsboro> <TD class=titulo_grid noWrap width="1%"> Foto </TD> <TD class=titulo_grid width="60%"> Veículo </TD> <TD class=titulo_grid width="1%"> Ano/Modelo </TD> <TD class=titulo_grid width="1%"> Km </TD> <TD class=titulo_grid width="1%"> Valor </TD> </TR> <%while not RSConsulta.EOF%> <TR onMouseMove="this.style.background='#EAEAEA'" style="CURSOR: hand" onClick="abre_janela(600,450, 'popup_6', 'yes');window.open('detalhe.asp?id=<%=RSConsulta("CodigoVeiculo")%>','popup_6')" onMouseOut="this.style.background='whitesmoke'" bgColor=whitesmoke> <TD class=titulo3 noWrap><IMG height=45 src="<%=root%>central/veiculo/Imagem/<%=RSConsulta("FotoPrincipal")%>" width=60 border=0></TD> <TD class=titulo3 noWrap> <%=RSConsulta("Versao")%> </TD> <TD class=titulo3 noWrap> <%=RSConsulta("AnoFabricacao")%>/<%=RSConsulta("AnoModelo")%> </TD> <TD class=titulo3 noWrap align=right> <%=RSConsulta("KM")%> </TD> <TD class=titulo3 noWrap> R$ <%=FormatNumber(RSConsulta("preço"),2)%> </TD> </TR> <%RSConsulta.MoveNext wend%> </TABLE> </TD> </TR> <TR><TD> </TD></TR> </TABLE> <BR><BR> </TD> </TR> </TABLE> </TD> </TR> <TR> <TD vAlign=top colSpan=3 height="1%"> <!-- #include file="rodape.asp" --> </TD> </TR> </TABLE> </BODY> </HTML> <%RSConsulta.close set RSConsulta = nothing conn.close set conn = nothing%>