
Muskito
Membros-
Total de itens
4 -
Registro em
-
Última visita
Sobre Muskito

Muskito's Achievements
0
Reputação
-
O Problema é o seguinte. Este primeiro código que postei eu consegui resolver, encontrei um outro escrip e consegui adaptar. Obrigasdo aos que ajudaram. Mas agora tem outra página que qero paginar: Ela exibe: Trabalho 1 de 5 Primeiro Anterior [1] 2 3 4 5 Próximo Último usei o mesmo código que na anterior mas não da certo. Meu código: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> <style type="text/css"> <!-- .style1 { font-size: 12px; font-family: Tahoma; } .style6 {font-size: 10px; font-family: Tahoma; } .style10 { color: #BE7F5E; font-weight: bold; } .style16 {font-size: 11px; font-family: Tahoma; } a:link { color: #BE7F5E; } a:visited { color: #BE7F5E; } a:hover { color: #FF9900; } a:active { color: #BE7F5E; } body { margin-left: 10px; margin-top: 10px; margin-right: 10px; margin-bottom: 10px; } .style20 {color: #333333} .style22 {font-size: 11px; font-family: Tahoma; color: #000000; } .style23 {color: #000000} .style29 { color: #FFFFFF; font-family: Tahoma; font-size: 11px; } .style39 {color: #999999} --> </style> </head> <body> <% Busca = Trim(Request.form("buscando")) %> <table width="100%" border="0" cellspacing="0" cellpadding="5"> <tr> <td height="44" scope="row"><div align="left" class="style1 style10">Lista de Arquitetos em <%response.write " <b>"&Busca&"</b>" %> .</div> <hr size="1" noshade="noshade" color="#BE7F5E" /></td> </tr> </table> <% PagAtual = Request.QueryString("PagAtual") 'página atual set DB = createobject("adodb.connection") constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("contato.mdb") DB.open constr Set objRS = Server.CreateObject("ADODB.Recordset") Busca=TiraAspas(Busca) strSql = "SELECT * FROM contato WHERE cidade LIKE '%"&TiraAcento(Replace(busca, "'", "''"))&"%'" objRS.Open strSQL,DB,3 '############## paginacao Introdução ################# '------- Coloque aqui a quantidade de registros que você deseja por página -------- SELECT CASE np CASE "1" NumPorPage = "1" CASE "15" NumPorPage = "5" CASE ELSE NumPorPage = "8" END SELECT 'Const NumPorPage = 20 'Verifica qual a página solicitada Dim PagAtual IF Request.QueryString("PagAtual") = "" Then PagAtual = 1 'Primeira página Else PagAtual = Request.QueryString("PagAtual") End If objRS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros objRS.MoveFirst 'Move o RecorSet para o início objRS.PageSize = NumPorPage 'Coloca a quantidade de páginas Dim TotalPages 'Pega o número total de páginas TotalPages = objRS.PageCount objRS.AbsolutePage = PagAtual 'Configura a página atual '############## paginacao Introdução - FIM ################# Count = 0 'Zera o contador i = 0 DO WHILE NOT objRS.EOF And Count < objRS.PageSize 'paginacao And Count < objRS.PageSize ' ----- linhas coloridas ------- if i mod 2<>0 then cor = "#B67C54" else cor = "#B67C54" end if '------------------------------- %> <table width="100%" border="0" cellspacing="0" cellpadding="5"> <tr> <td align="left" valign="middle" scope="row"><div align="right"><a href="java script:window.print()"><img src="../../global_imagens/imprimir_icon.gif" width="19" height="21" border="0" align="absmiddle" /><span class="style16">Imprimir esta lista</span> </a></div></td> </tr> </table> <span class="style16"> <% if (len(busca)<2) then Response.write("Selecione uma cidade.") ElseIf (Busca = "") then Response.write("Selecione uma cidade.") ElseIf (objRS.EOF = true) then response.write ("Desculpe-nos. As empresas de <b>"&Busca&"</b> ainda não se cadastraram em nosso Banco de Dados.") Else do While not objRS.EOF %> </span> <table width="100%" border="1" cellpadding="2" cellspacing="0" bordercolor="#f0f0f0"> <tr> <td colspan="3" align="left" background="../../layout_busca/fundo_tab_listas.jpg" scope="row"><span class="style29">Empresa: <b><%=objRS(TiraAspas("nome"))%><b/></span></td> </tr> <tr> <td width="33%" align="left" bgcolor="f6f6f6" scope="row"><span class="style29 style23"><span class="style22"><span class="style39">Cidade:</span> <%=objRS(TiraAspas("cidade"))%></span></span></td> <td width="33%" align="left" bgcolor="f6f6f6" ><span class="style22"><span class="style39">Estado:</span> <span class="style22"><%=objRS(TiraAspas("estado"))%></span></span></td> <td width="33%" align="left" bgcolor="f6f6f6" ><span class="style22 style39">Website: </span><a href="http://<%Response.write objRS("site")%>" target="_blank" class="style16"><%=objRS(TiraAspas("site"))%></a></span></td> </tr> <tr> <td width="33%" align="left" bgcolor="f6f6f6" scope="row"><span class="style22"><span class="style39">Telefone:</span> <%=objRS(TiraAspas("telefone"))%></span></td> <td width="33%" align="left" bgcolor="f6f6f6"><span class="style22"><span class="style39">E-mail:</span><a href="mailto:<%Response.write objRS("email")%>" class="style16"> <%=objRS(TiraAspas("email"))%></a></span></td> <td width="33%" align="left" bgcolor="f6f6f6" > </td> </tr> </table> <span class="style20"><span class="style22"><span class="style6"> <% '################## paginacao 01 ##################### 'Coloca o Nº página atual / Nº Total de páginas Response.Write("<font color=""#000000"" size=""1"" face=""Arial""> Trabalho " & PagAtual & " de " & TotalPages & "</font>") 'Mostra os botões: Anterior e Próxima, utilizando da opção de IF %> </div></th> </tr> <tr> <td align="left" valign="middle" scope="row"><div align="left"> <% i = i+1 Count = Count + 1 'paginacao objRS.MoveNext LOOP 'também paginacao %> <% IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima Response.Write("<font color=""#000000"" size=""1"" face=""Arial"">") Response.Write("<a href='resultado.asp?PagAtual=" & 1 & "'>") Response.Write("Primeira") Response.Write("</a></font> ") Response.Write("<font color=""#000000"" size=""1"" face=""Arial"">") Response.Write("<a href='resultado.asp?PagAtual=" & PagAtual - 1 & "'>") Response.Write("Anterior") Response.Write("</a><font color=""#000000"" size=""1"" face=""Arial""> ") Else Response.Write("<font color=""#000000"" size=""1"" face=""Arial"">") Response.Write("Primeira") Response.Write("</font> ") Response.Write("<font color=""#000000"" size=""1"" face=""Arial"">") Response.Write("Anterior") Response.Write("</font> ") End If %> <% '------------------- numero ------------------------- '---------- Numero de numeros para ser mostrados ---- max_n_mostrados = 9 intervalo = Int(max_n_mostrados /2) inicio = PagAtual - intervalo final = PagAtual + intervalo If CInt(inicio) <1 Then inicio = 1 final = 10 END IF If CInt(final) > CInt(TotalPages) Then final = TotalPages For i = inicio To final If CInt(i)=CInt(PagAtual) Then Response.Write "<font color=""#FF0000"" size=""1"" face=""Arial"">[ " & i & "<font color=""#FF0000""> ]</font> " END IF If CInt(i) < CInt(PagAtual) Then Response.Write "<a href='resultado.asp?PagAtual=" & i & "'>" & i & "</a> " END IF If CInt(i) > CInt(PagAtual) Then Response.Write "<a href='resultado.asp?PagAtual=" & i & "'>" & i & "</a> " END IF Next '------------------------------------------------------ IF CInt(PagAtual) <> CInt(TotalPages) THEN 'Se estiver na última página, mostra apenas o botão Anterior e Primeira Response.Write("<font color=""#000000"" size=""1"" face=""Arial"">") Response.Write("<a href='resultado.asp?PagAtual=" & PagAtual + 1 & "'>") Response.Write("Próxima") Response.Write("</a></font> ") Response.Write("<font color=""#000000"" size=""1"" face=""Arial"">") Response.Write("<a href='resultado.asp?PagAtual=" & TotalPages & "'>") Response.Write("Ultima") Response.Write("</a></font> ") Else Response.Write("<font color=""#CCCCCC"" size=""1"" face=""Arial"">") Response.Write("Próxima") Response.Write("</font> ") Response.Write("<font color=""#999999"" size=""1"" face=""Arial"">") Response.Write("Ultima") Response.Write("</font> ") End if %> </span></span></span> <p> </p> </body> </html> O erro que apresenta é: Erro de compilação do Microsoft VBScript (0x800A03FB) 'End' esperado .../resultado.asp, line 316 A linha 316 é o Último "End If" que aparece no código O que estou fazendo errado? Por favor, alguém me ajude!
-
Ainda não consegui... Os codigos de paginação que encontrei geravam conflitos, varios conflitos, mesmo eu adaptando as informações do BD e coisas do genero. Eu goastaria apenas de algo tipo: Pagina 1 de 5 << Anterior | Próxima >> aqui esta meu código sem paginação: <% '#Função que tira todos os acentos das palavras function TiraAcento(StrAcento) for i = 1 to len(StrAcento) Letra = mid(StrAcento, i, 1) Select Case Letra Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä" Letra = "A" Case "é","É","ê","Ê","Ë","ë","È","è" Letra = "E" Case "í","Í","ï","Ï","Ì","ì" Letra = "I" Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò" Letra = "O" Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û" Letra = "U" Case "ç","Ç" Letra = "C" Case "não" Letra = "N" End Select texto = texto & Letra next TiraAcento = texto end function %> <style type="text/css"> <!-- .style1 { font-size: 12px; font-family: Tahoma; } .style6 {font-size: 10px; font-family: Tahoma; } .style10 { color: #BE7F5E; font-weight: bold; } .style16 {font-size: 11px; font-family: Tahoma; } a:link { color: #BE7F5E; } a:visited { color: #BE7F5E; } a:hover { color: #FF9900; } a:active { color: #BE7F5E; } body { margin-left: 10px; margin-top: 10px; margin-right: 10px; margin-bottom: 10px; } .style20 {color: #333333} .style22 {font-size: 11px; font-family: Tahoma; color: #000000; } .style23 {color: #000000} .style29 { color: #FFFFFF; font-family: Tahoma; font-size: 11px; } .style39 {color: #999999} --> </style> </head> <body> <% Busca = Trim(Request.form("buscando")) %> <table width="100%" border="0" cellspacing="0" cellpadding="5"> <tr> <td height="44" scope="row"><div align="left" class="style1 style10">Lista de Arquitetos em <%response.write " <b>"&Busca&"</b>" %> .</div> <hr size="1" noshade="noshade" color="#BE7F5E" /></td> </tr> </table> <% Busca = Trim(Request.form("buscando")) %> <% set DB = createobject("adodb.connection") constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("contato.mdb") DB.open constr Set objRS = Server.CreateObject("ADODB.Recordset") %> <% function TiraAspas(str) str = replace(str,"'","""") TiraAspas = str End function %> <% Busca=TiraAspas(Busca) strSql = "SELECT * FROM contato WHERE cidade LIKE '%"&TiraAcento(Replace(busca, "'", "''"))&"%'" objRS.Open strSQL,DB,1,1 %> <table width="100%" border="0" cellspacing="0" cellpadding="5"> <tr> <td align="left" valign="middle" scope="row"><div align="right"><a href="java script:window.print()"><img src="../../global_imagens/imprimir_icon.gif" width="19" height="21" border="0" align="absmiddle" /><span class="style16">Imprimir esta lista</span> </a></div></td> </tr> </table> <span class="style16"> <% if (len(busca)<2) then Response.write("Selecione uma cidade.") ElseIf (Busca = "") then Response.write("Selecione uma cidade.") ElseIf (objRS.EOF = true) then response.write ("Desculpe-nos. As empresas de <b>"&Busca&"</b> ainda não se cadastraram em nosso Banco de Dados.") Else do While not objRS.EOF %> </span> <table width="100%" border="1" cellpadding="2" cellspacing="0" bordercolor="#f0f0f0"> <tr> <td colspan="3" align="left" background="../../layout_busca/fundo_tab_listas.jpg" scope="row"><span class="style29">Empresa: <b><%=objRS(TiraAspas("nome"))%><b/></span></td> </tr> <tr> <td width="33%" align="left" bgcolor="f6f6f6" scope="row"><span class="style29 style23"><span class="style22"><span class="style39">Cidade:</span> <%=objRS(TiraAspas("cidade"))%></span></span></td> <td width="33%" align="left" bgcolor="f6f6f6" ><span class="style22"><span class="style39">Estado:</span> <span class="style22"><%=objRS(TiraAspas("estado"))%></span></span></td> <td width="33%" align="left" bgcolor="f6f6f6" ><span class="style22 style39">Website: </span><a href="http://<%Response.write objRS("site")%>" class="style16"><%=objRS(TiraAspas("site"))%></a></span></td> </tr> <tr> <td width="33%" align="left" bgcolor="f6f6f6" scope="row"><span class="style22"><span class="style39">Telefone:</span> <%=objRS(TiraAspas("telefone"))%></span></td> <td width="33%" align="left" bgcolor="f6f6f6"><span class="style22"><span class="style39">E-mail:</span><a href="mailto:<%Response.write objRS("email")%>" class="style16"> <%=objRS(TiraAspas("email"))%></a></span></td> <td width="33%" align="left" bgcolor="f6f6f6" > </td> </tr> </table> <span class="style20"><span class="style22"><span class="style6"> <% objRS.MoveNext Loop End IF %>
-
Bom velho, valeu pelo link, mas não cdonsegui adaptar o meu código, como disse, sou iniciante em ASP. Alguém ai conseguiria adaptar para min? Obrigado
-
Estou com problemas para paginar dados em ASP de um BD. Os dados carregam corretamente mas gostaria que aparecesse somente 1 registro por página, e apoarecer aqeles 2 botoes (<< anterior | Próximo>>"). Alguém ai poderia me ajudar? Código: <!--#include file="config.asp"--> <% sqlstmt = "SELECT * FROM noticias ORDER BY data, 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 = date1 description = name1 %> <tr> <td height="2" valign="top"><p><font face="Geneva, Arial, Helvetica, san-serif" size="1" class="home"><span class="home"><img src="imagens/<%=rs("foto")%>" border="0" align="left" hspace="8" vspace="2"> <% =link %> -- <% =description%> </span></font> </p> </tr> <tr> <% rs.MoveNext End If Next%> Valeu desde já. http://www.segermidia.com