paginação

[nostrinkes 0]

:ph34r: Olá.Eu consegui fazer o tal codigo, mais queria uma ajuda pra melhorar ele, eu ia fazer com array mais não manjo nada do papo.<% SET db = Server.CreateObject("ADODB.Connection") connString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("banco.mdb") db.Open ConnString %> <!--#INCLUDE FILE="ADOVBS.INC"--><//------------------------------------------------------------><%set rs = Server.CreateObject("ADODB.Recordset")teste="SELECT nomes,letras FROM tabela order by letras ASC" rs.open teste,db,3,3 %> <center><script LANGUAGE="JavaScript"> function Menu() { document.forms.vogal.submit(); } </SCRIPT> <table border="1" cellpadding="0" cellspacing="0" width="398" bgcolor="#B5DBD3"><% do while NOT rs.EOF %> <tr> <td align="center"><a href="ALFABETICA.asp?ler=<%=rs("nomes")%>"><%=rs("nomes")%></a>                  <%=rs("letras")%> </b> </td> </tr><%rs.movenextloop RS.close set RS = nothing '------------------------------------------------//////////////////----------------------------- STRnome = Lcase(request("ler"))'letras de MAIUSCULA para minuscula. Duas=left(STRnome,2)'duas letras da esquerdaTRES=left(STRnome,3) 'tres letras da esquerda'----------------------------------------------------------------------E1=left((STRnome),1) '------A primeira letra da esquerda do nome.E2=right((duas),1) '------B Pega a variavel ("DUAS") e tira uma letra da direita.E3=right((TRES),1) '-------C Pega a variavel ("TRES") e tira uma da direita.'----------------------------------------------------------------------RESPOSTA = letrasSTR(E1)&letrasSTR(E2)&letrasSTR(E3)function letrasStr(alfa)response.write "<FORM method='post' action='#' name='vogal'>"select case alfa'-----------------------------------------------------------case "a" letra = "01"'-----------------------------------------------------------case "b"letra = "02"'-----------------------------------------------------------case "c"letra = "03"'-----------------------------------------------------------case "d"letra = "04" '-----------------------------------------------------------case "e"letra = "05" '-----------------------------------------------------------case "f"letra = "06" '-----------------------------------------------------------case "g"letra = "07" '-----------------------------------------------------------case "h"letra = "08" '-----------------------------------------------------------case "i"letra = "09" '-----------------------------------------------------------case "j"letra = 10 '-----------------------------------------------------------case "l"letra = 11 '-----------------------------------------------------------case "m"letra = 12 '-----------------------------------------------------------case "n"letra = 13 '-----------------------------------------------------------case "o"letra = 14 '-----------------------------------------------------------case "p"letra = 15 '-----------------------------------------------------------case "q"letra = 16 '-----------------------------------------------------------case "r"letra = 17'-----------------------------------------------------------case "s"letra = 18'-----------------------------------------------------------case "t"letra = 19 '-----------------------------------------------------------case "u"letra = 20 '-----------------------------------------------------------case "v"letra = 21 '-----------------------------------------------------------case "x"letra = 22 '-----------------------------------------------------------case "w"letra = 23 '-----------------------------------------------------------case "y"letra = 24 '-----------------------------------------------------------case "z"letra = 25'----------------------------------------------------------- end select response.write "<INPUT TYPE='HIDDEN' VALUE="& letra &" name='numero'>" End function teste=request("numero") response.write "<input type='submit' onclick='Menu();' value='letras transformadas em numeros'" response.write "</form>__"&(request("numero")) Response.write "<br>As tres primeiras letras:<font color='red' size='4'> "& tres &"</font><p>" '-------------------------------------------------------------- If not teste= empty then preparaPalavra = replace(teste,",",empty)' Aqui Troca a virgula por empty "vazio" letra = replace(preparaPalavra," ",empty)' aqui troca espacos por empty "vazio" response.write letra&" = Letras transformadas em numeros" end if '----------------------------------------- LerNome = Request("ler") If not letra= empty then Executar ="UPDATE TABELA SET letras = "&letra&" WHERE nomes like '%"& LerNome &"%' " db.Execute(Executar) end if%><//------------------------------------------------------------------------><% db.close set db= nothing%></table></center>

[nostrinkes 0]

Kara... Você quer listar em ordem alfabética ou fazer assim:A | B | C | D | E | F ...Tipo, quando clicar na letra exibir os registros que começam com essa letra?

Então bike hehehe,,, este codigo esta funcionando beleza, ele lista os nomes do campo nome por ordem alfabetica contando as tres primeiras letras ele está tipo assimabc vai ser o primeiro da tb ok?a=01b=02c=03Que eu queria era melhorar este codigo... acho que deve ter uma forma mais fácil....tipo arrayem vez de select case.