paginação

: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>