Guest ********BIOTECHNOLOGY*********** Postado Setembro 16, 2005 Denunciar Share Postado Setembro 16, 2005 (editado) PRECISO DE UMA ROTINA EM ASP PARA PAGINAÇÃO DO BANCO DE DADOS ACCESS, SOU INICIANTE E NÃO ESTOU SABENDO INCLUIR O CODIGO.AQUI ESTA O MEU CODIGO, E SO PRECISO ADAPTAR PARA A PAGINAÇÃO DESTA CONSULTA.POR GENTILEZA------------------------------------------------------------------------------------------------ <html> <head> <meta http-equiv="Content-Language" content="pt-br"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <base target="_self"> <script language="JavaScript"> function WinOpen(Pagina) { msg=open(Pagina,"DisplayWindow","toolbar=no,top=0,directories=no,menubar=no,scrollbars=yes,width=635,height=500"); } function ajustaimg(img) { maxh = 255 maxv = 255 fator = 1 tamh = img.width tamv = img.height if (tamh > tamv) { fator = (img.width / maxh) } else { fator = (img.height / maxv) } eval(img.width = (tamh / fator)) eval(img.height = (tamv / fator)) } </script><script Language="VBScript"> Function verifica() Verifica = true if Len(Entrada.Chave.value) < 4 then x= Msgbox("Favor informar a palavra com no minimo 4 digitos",vbExclamation,"Campo Invalido") Entrada.Chave.focus() Verifica = false ELse If instr(1,entrada.Chave.value,"'") > 0 then x= Msgbox("Não Utilize Apostrofe (') na Palavra Chave ",vbExclamation,"Campo Invalido") entrada.Chave.focus() Verifica = false End If End if End Function </script><% Response.buffer=true %> <!--#include file = "conection.asp"--> <% Sql_Oferta = "Select * From imoveis " & _ " Where Situacao = 'Internet' and Tipo = 'Apartamento' and venloc = 'VENDA' " & _ " Order by edificio ,preço" Set Rs_O = Conexao.execute(Sql_Oferta) %> <!-- function dynAnimation() {} function clickSwapImg() {} //--></script> <meta name="Microsoft Theme" content="none"> <title></title> </head> <body topmargin="0" leftmargin="0"><center> <table border="0" width="418" height="60" style="border-collapse: collapse" cellpadding="0" cellspacing="0" align="left"> </center> <tr> <td width="508" align="center" height="60"><div align="left"> <table border="0" cellspacing="0" height="30" style="border-collapse: collapse; border-left: .75pt solid black; border-right: .75pt solid black; border-top: 1.5pt solid black; border-bottom: 1.5pt solid black" cellpadding="0" align="left" fpstyle="7,111111101" width="267" bordercolor="#111111"> <tr> <td height="224" style="color: black; position: absolute; float: left; left: 1; top: 2; border-style: none; background-color: white" width="424"><div align="left"> <table border="1" width="417" style="border-collapse: collapse" cellpadding="0" cellspacing="0" height="49" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" bgcolor="#FFFFFF"> </u><tr> <% WSequencia = 0 %><u> <% Do While not rs_o.eof %> <td width="6" style="position: relative; border-left-style: solid; border-left-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#FFFFFF" height="49" align="left" bordercolor="#000000" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" valign="bottom"> <!-- URL's used in the movie--> <!-- text used in the movie--> <!--DESTAQUE DA SEMANA CONFIRA !!! --><b><font face="Arial" size="3"><blink><span style="letter-spacing: 0pt; vertical-align: middle; text-decoration: overline"> <font face="Tahoma" size="1" color="#000000"><a href="mailto:tanus@tanusimoveis.com" style="text-decoration: none"></a></font></span></blink></font></b> <td width="527" height="141" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" bgcolor="#FFFFFF"></b><strong><font face="Arial" size="2"> <%=Rs_o("Tipo")%> <%=Rs_o("venloc")%> <table border="2" width="421" height="167" style="border-collapse: collapse" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" bordercolor="#99CCFF" bordercolorlight="#99CCFF"> <tr> <% If ucase(Rs_o("Fotos")) = "N" Then %> <% Else %> <% End If %> <td width="250" height="169" bordercolor="#99CCFF" style="border-top-color: #99CCFF; border-top-width: 2; border-bottom-color: #99CCFF; border-bottom-width: 2"></u> </font><font face="Georgia" size="2"> <p align="center"><strong><img height="30" src="ico_titencontre.gif" width="26" align="left"><br> </strong><br> </font></font><b><font face="Times New Roman" size="2" color="#008080">EDIFICIO</font></b><font face="Arial" size="2"><font face="Times New Roman" size="2"><br> <b> </b><strong><%=Rs_o("edificio")%><br> <br> </strong></font> <font face="Times New Roman" size="2"><strong style="font-weight: 400"><font color="#008080">Area Util:</font>: </strong><strong> <%=Rs_o("areautil")%> <br> </strong></font> <font face="Times New Roman" size="2"><strong style="font-weight: 400"><font color="#008080">Area Total:</font>: </strong><strong> <%=Rs_o("areaTotal")%> <br> </strong></font> <font face="Arial" size="2"><font face="Times New Roman"><strong><font color="#008080"><br> Valor <% if (Rs_o("preço")) <> "R$ 0,00" then %></font><font color="#808000">R$</font> <%=FormatNumber(Rs_o("preço"))%> <br> </strong> </font><font face="Times New Roman" color="#008000"><strong style="font-weight: 400"> <% End if %></strong></font><strong style="font-weight: 400"><font face="Times New Roman" color="#800080"><br> </font></strong></font><a class="pi_link_la" href="javascript:pophotsite(438,9003);"><img height="8" src="img_setaofertas.gif" width="8" border="0"></a> <strong style="font-weight: 400"><font face="Times New Roman" size="2" color="#008080">Condicoes Pgto: <br></font></strong></font><strong><font face="Times New Roman" size="2" color="#800080"><br> <%=Rs_o("condicoes")%><br> </font></strong></font><font face="Arial" size="1"><td width="209" height="169" bordercolorlight="#000000" bordercolordark="#000000" bordercolor="#99CCFF" style="border-style: solid; border-width: 1"> <dl> <div align="left"> <dt><strong><font face="Arial" size="2"><b><font color="#FF0000"><img height="30" src="ico_titmeupl.gif" width="30" align="right"></font></b></font></strong></font><font face="Arial" size="2"><b><font color="#FF0000"><br> </font></b><br> </font><a class="pi_link_la" href="javascript:pophotsite(438,9003);"><img height="8" src="img_setaofertas.gif" width="8" border="0"></a><span style="vertical-align: text-top"><font face="Times New Roman" color="#008080" size="2"> Dormitorios</font><font face="Times New Roman" size="2">: </li> <%=Rs_o("dormitorio")%> </font></span></dt> <font style="font-size: 7pt"> </div> <dt><a class="pi_link_la" href="javascript:pophotsite(438,9003);"><img height="8" src="img_setaofertas.gif" width="8" border="0"></a><span style="vertical-align: text-top"><font size="2" face="Times New Roman"><font color="#008080"> Suites</font>: </li> <%=Rs_o("Suite")%> </font></span></dt> <dt><a class="pi_link_la" href="javascript:pophotsite(438,9003);"><img height="8" src="img_setaofertas.gif" width="8" border="0"></a><span style="vertical-align: text-top"><font size="2" face="Times New Roman"><font color="#008080"> Copa:</font> </li> <%=Rs_o("copa")%> </font></span></dt> <dt><a class="pi_link_la" href="javascript:pophotsite(438,9003);"><img height="8" src="img_setaofertas.gif" width="8" border="0"></a><span style="vertical-align: text-top"><font size="2" face="Times New Roman"><font color="#008080"> Sala:</font> </li> <%=Rs_o("sala")%> </font></span></dt> <dt><a class="pi_link_la" href="javascript:pophotsite(438,9003);"><img height="8" src="img_setaofertas.gif" width="8" border="0"></a><span style="vertical-align: text-top"><font size="2" face="Times New Roman"><font color="#008080"> Garagem:</font> </li> <%=Rs_o("vagas")%> </font></font></span></dt> </font><font face="Arial" size="2"></font></font> <dt><a class="pi_link_la" href="javascript:pophotsite(438,9003);"><img height="8" src="img_setaofertas.gif" width="8" border="0"></a><font face="Times New Roman"><span style="vertical-align: text-top"><font size="2"><font color="#008080"> Acabamento</font>:</font><font size="1"><br> <%=Rs_o("Acabamento_Imov")%> </li> </font></span></font><font size="1"><strong> <br> <br> <b><u><font color="#99CCFF"> </font><font color="#000080">Referencia: [</font><font color="#0000FF"> </font> <font color="#000080"><%=Rs_o("codigo")%>]</font></u></b></dt> </dl> </table> </font> </strong><strong><font face="Arial" size="2"><font face="Arial" size="2"> </u></b></u></u></u></font></font></strong></strong><tr> <% WSequencia = WSequencia + 1 %><u> <% rs_o.movenext %> <% Loop %> <% ' Completa a celula quando existirem menos de 4 ofertas %> <% Do While WSequencia < 4 %> <% WSequencia = WSequencia + 1 %> </u><tr> <% Loop %><u> <% 'Finaliza %> </u></font></td> </table> </div> </table> </div> </table> <% conexao.close set conexao = nothing %> </center> </body></html> Editado Setembro 16, 2005 por cyberalexxx Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 cyberalexxx Postado Setembro 16, 2005 Denunciar Share Postado Setembro 16, 2005 artigo sobre paginação:http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriaisuse a busca do forum q voce encontrara muitos topicos sobre paginação Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest ********BIOTECHNOLOGY***********
PRECISO DE UMA ROTINA EM ASP PARA PAGINAÇÃO DO BANCO DE DADOS ACCESS, SOU INICIANTE E NÃO ESTOU SABENDO INCLUIR O CODIGO.
AQUI ESTA O MEU CODIGO, E SO PRECISO ADAPTAR PARA A PAGINAÇÃO DESTA CONSULTA.
POR GENTILEZA
------------------------------------------------------------------------------------------------
<html> <head> <meta http-equiv="Content-Language" content="pt-br"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <base target="_self"> <script language="JavaScript"> function WinOpen(Pagina) { msg=open(Pagina,"DisplayWindow","toolbar=no,top=0,directories=no,menubar=no,scrollbars=yes,width=635,height=500"); } function ajustaimg(img) { maxh = 255 maxv = 255 fator = 1 tamh = img.width tamv = img.height if (tamh > tamv) { fator = (img.width / maxh) } else { fator = (img.height / maxv) } eval(img.width = (tamh / fator)) eval(img.height = (tamv / fator)) } </script><script Language="VBScript"> Function verifica() Verifica = true if Len(Entrada.Chave.value) < 4 then x= Msgbox("Favor informar a palavra com no minimo 4 digitos",vbExclamation,"Campo Invalido") Entrada.Chave.focus() Verifica = false ELse If instr(1,entrada.Chave.value,"'") > 0 then x= Msgbox("Não Utilize Apostrofe (') na Palavra Chave ",vbExclamation,"Campo Invalido") entrada.Chave.focus() Verifica = false End If End if End Function </script><% Response.buffer=true %> <!--#include file = "conection.asp"--> <% Sql_Oferta = "Select * From imoveis " & _ " Where Situacao = 'Internet' and Tipo = 'Apartamento' and venloc = 'VENDA' " & _ " Order by edificio ,preço" Set Rs_O = Conexao.execute(Sql_Oferta) %> <!-- function dynAnimation() {} function clickSwapImg() {} //--></script> <meta name="Microsoft Theme" content="none"> <title></title> </head> <body topmargin="0" leftmargin="0"><center> <table border="0" width="418" height="60" style="border-collapse: collapse" cellpadding="0" cellspacing="0" align="left"> </center> <tr> <td width="508" align="center" height="60"><div align="left"> <table border="0" cellspacing="0" height="30" style="border-collapse: collapse; border-left: .75pt solid black; border-right: .75pt solid black; border-top: 1.5pt solid black; border-bottom: 1.5pt solid black" cellpadding="0" align="left" fpstyle="7,111111101" width="267" bordercolor="#111111"> <tr> <td height="224" style="color: black; position: absolute; float: left; left: 1; top: 2; border-style: none; background-color: white" width="424"><div align="left"> <table border="1" width="417" style="border-collapse: collapse" cellpadding="0" cellspacing="0" height="49" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" bgcolor="#FFFFFF"> </u><tr> <% WSequencia = 0 %><u> <% Do While not rs_o.eof %> <td width="6" style="position: relative; border-left-style: solid; border-left-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#FFFFFF" height="49" align="left" bordercolor="#000000" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" valign="bottom"> <!-- URL's used in the movie--> <!-- text used in the movie--> <!--DESTAQUE DA SEMANA CONFIRA !!! --><b><font face="Arial" size="3"><blink><span style="letter-spacing: 0pt; vertical-align: middle; text-decoration: overline"> <font face="Tahoma" size="1" color="#000000"><a href="mailto:tanus@tanusimoveis.com" style="text-decoration: none"></a></font></span></blink></font></b> <td width="527" height="141" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" bgcolor="#FFFFFF"></b><strong><font face="Arial" size="2"> <%=Rs_o("Tipo")%> <%=Rs_o("venloc")%> <table border="2" width="421" height="167" style="border-collapse: collapse" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" bordercolor="#99CCFF" bordercolorlight="#99CCFF"> <tr> <% If ucase(Rs_o("Fotos")) = "N" Then %> <% Else %> <% End If %> <td width="250" height="169" bordercolor="#99CCFF" style="border-top-color: #99CCFF; border-top-width: 2; border-bottom-color: #99CCFF; border-bottom-width: 2"></u> </font><font face="Georgia" size="2"> <p align="center"><strong><img height="30" src="ico_titencontre.gif" width="26" align="left"><br> </strong><br> </font></font><b><font face="Times New Roman" size="2" color="#008080">EDIFICIO</font></b><font face="Arial" size="2"><font face="Times New Roman" size="2"><br> <b> </b><strong><%=Rs_o("edificio")%><br> <br> </strong></font> <font face="Times New Roman" size="2"><strong style="font-weight: 400"><font color="#008080">Area Util:</font>: </strong><strong> <%=Rs_o("areautil")%> <br> </strong></font> <font face="Times New Roman" size="2"><strong style="font-weight: 400"><font color="#008080">Area Total:</font>: </strong><strong> <%=Rs_o("areaTotal")%> <br> </strong></font> <font face="Arial" size="2"><font face="Times New Roman"><strong><font color="#008080"><br> Valor <% if (Rs_o("preço")) <> "R$ 0,00" then %></font><font color="#808000">R$</font> <%=FormatNumber(Rs_o("preço"))%> <br> </strong> </font><font face="Times New Roman" color="#008000"><strong style="font-weight: 400"> <% End if %></strong></font><strong style="font-weight: 400"><font face="Times New Roman" color="#800080"><br> </font></strong></font><a class="pi_link_la" href="javascript:pophotsite(438,9003);"><img height="8" src="img_setaofertas.gif" width="8" border="0"></a> <strong style="font-weight: 400"><font face="Times New Roman" size="2" color="#008080">Condicoes Pgto: <br></font></strong></font><strong><font face="Times New Roman" size="2" color="#800080"><br> <%=Rs_o("condicoes")%><br> </font></strong></font><font face="Arial" size="1"><td width="209" height="169" bordercolorlight="#000000" bordercolordark="#000000" bordercolor="#99CCFF" style="border-style: solid; border-width: 1"> <dl> <div align="left"> <dt><strong><font face="Arial" size="2"><b><font color="#FF0000"><img height="30" src="ico_titmeupl.gif" width="30" align="right"></font></b></font></strong></font><font face="Arial" size="2"><b><font color="#FF0000"><br> </font></b><br> </font><a class="pi_link_la" href="javascript:pophotsite(438,9003);"><img height="8" src="img_setaofertas.gif" width="8" border="0"></a><span style="vertical-align: text-top"><font face="Times New Roman" color="#008080" size="2"> Dormitorios</font><font face="Times New Roman" size="2">: </li> <%=Rs_o("dormitorio")%> </font></span></dt> <font style="font-size: 7pt"> </div> <dt><a class="pi_link_la" href="javascript:pophotsite(438,9003);"><img height="8" src="img_setaofertas.gif" width="8" border="0"></a><span style="vertical-align: text-top"><font size="2" face="Times New Roman"><font color="#008080"> Suites</font>: </li> <%=Rs_o("Suite")%> </font></span></dt> <dt><a class="pi_link_la" href="javascript:pophotsite(438,9003);"><img height="8" src="img_setaofertas.gif" width="8" border="0"></a><span style="vertical-align: text-top"><font size="2" face="Times New Roman"><font color="#008080"> Copa:</font> </li> <%=Rs_o("copa")%> </font></span></dt> <dt><a class="pi_link_la" href="javascript:pophotsite(438,9003);"><img height="8" src="img_setaofertas.gif" width="8" border="0"></a><span style="vertical-align: text-top"><font size="2" face="Times New Roman"><font color="#008080"> Sala:</font> </li> <%=Rs_o("sala")%> </font></span></dt> <dt><a class="pi_link_la" href="javascript:pophotsite(438,9003);"><img height="8" src="img_setaofertas.gif" width="8" border="0"></a><span style="vertical-align: text-top"><font size="2" face="Times New Roman"><font color="#008080"> Garagem:</font> </li> <%=Rs_o("vagas")%> </font></font></span></dt> </font><font face="Arial" size="2"></font></font> <dt><a class="pi_link_la" href="javascript:pophotsite(438,9003);"><img height="8" src="img_setaofertas.gif" width="8" border="0"></a><font face="Times New Roman"><span style="vertical-align: text-top"><font size="2"><font color="#008080"> Acabamento</font>:</font><font size="1"><br> <%=Rs_o("Acabamento_Imov")%> </li> </font></span></font><font size="1"><strong> <br> <br> <b><u><font color="#99CCFF"> </font><font color="#000080">Referencia: [</font><font color="#0000FF"> </font> <font color="#000080"><%=Rs_o("codigo")%>]</font></u></b></dt> </dl> </table> </font> </strong><strong><font face="Arial" size="2"><font face="Arial" size="2"> </u></b></u></u></u></font></font></strong></strong><tr> <% WSequencia = WSequencia + 1 %><u> <% rs_o.movenext %> <% Loop %> <% ' Completa a celula quando existirem menos de 4 ofertas %> <% Do While WSequencia < 4 %> <% WSequencia = WSequencia + 1 %> </u><tr> <% Loop %><u> <% 'Finaliza %> </u></font></td> </table> </div> </table> </div> </table> <% conexao.close set conexao = nothing %> </center> </body></html>
Editado por cyberalexxxLink 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.