Ted k'

não entendi? você quer um loop?

o que você pode fazer é tentar usar javascript!!

Entendi agora... isso vai ser dificil

veja bem, vou ser bem claro... por exemplo você entro na página "teste.asp" dentro da "teste.asp" coloque isso: session("URLVoltar") = Request.ServerVariables("URL") e dentro da erro.asp coloca: <a href="<%=session("URLVoltar")%>">Voltar</a> tomara que funcione!! quando ele tiver na página teste.asp e for digitar outra qualquer a session já vai está com um valor, e aiquando você for pra erro.asp a session já vai está preenchida... faça o teste em uma página, se funcionar coloque esse código em todo o site! que pena que um javascript não funciona, ou funciona? na página erro.asp: <a href="java script:history.back(-1);">Voltar</a> já testou isso?

vem assim? Nome Ator 01, Nome Ator 02? se vinher por virgula você faz um replace nas virgulas: <%=Replace(rs("ator"), ",", "<br>")%>

não tinha prestado o lance do redirecionamento, só se você desativar essa opção, ou quando for redirecionar você fazer uma função para guardar o caminho dentro de um cookie o session e usar lá no erro.asp

existem métodos em ajax que você faz essa condição mais creio eu que pelo meno você tenha que dar a ação para que isso acontecça!!

muito bom... hehehe olha o meu Uóxiton é demais (heehehe)

æ... aqui funciona no IE e no FF function click(){ if (event.button == 2 || event.button == 3){ oncontextmenu = 'return false'; } } document.onmousedown = click document.oncontextmenu = new Function("return false;") mais como o colega falou, é javascript!!!!

você fez assim? <%=Request.ServerVariables("URL")%> pois aqui eu teste e ele voltou o endereço que digitei possa não está vindo a querystring, mais ai você coloca o querystring <%=Request.ServerVariables("URL")%>?<%=Request.ServerVariables("QueryString")%> ai retorna tudo!!

que bom, qualquer coisa pode postar... desculpa não resolver antes, me confundir com o sinal... mais beleza!!!

Bem tranquilo, se eu ficar tranquilo demais eu durmo... (hehe) Poxa que pena, gosto de notícias de fórum, as pessoas dão palpites, falam muito a respeito do assunto, a interatividade é fundamental, que pena mesmo!!! Tomara que volte... vlw irmão Roberto!!!

Olá galeram porque não tem uma área de notícias de informática, web, essas coisas, se tem onde está???

ahuhauahuah boa mesmo

desculpa, coloque errado, agora vai... coloca assim: </tr> <% If Trim(rs("extra")) <> "" Then %> <tr> <td valign="top"><font color="#000000"><strong>Extra</strong></font></td> <td><%=rs("extra")%></td> </tr> <% End If rs.close Controle.close%> </table>

servidor de e-mail não tem nada haver esse mail... acho que deve ser seu acesso de webmail mais tudo bem verifique que componente você tem instalado no servidor para envio de e-mail, geralmente o CDO já está instalado!!! qualquer coisa olha aqui: http://forum.imasters.uol.com.br/index.php?showtopic=26556 tem vários nesse link!

WEbSan, exatamente o que passei para o usuário (boa)!!

Este artigo server para iniciaintes e avançados! Dificuldades de colocar a data por extenso? Ex: Não tem nada de difícil, é simples o código é esse: <% Response.Write(UCase(Left(WeekDayName(WeekDay(Now)),1)) + Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1) &", "& Day(Date)&" de "&MonthName(Month(Now))&" de "&Year(Date)) %> Vamos separar os códigos para facilitar o entendimento! 1º Bloco de Instrução: UCase(Left(WeekDayName(WeekDay(Now)),1)) - WeekDayName pega o "Nome da Semana"; - WeekDay(Now) pega o valor numerico do "Nome da Semana" ficando assim : domingo(1), segunda-feira(2), etc... Juntando os dois faz um parâmetro desse tipo WeekDay(Now) vem o valor "4" que é quarta-feira a resposta dentro do WeekDayName aparece assim: WeekDayName(1) que é igual a quarta-feira (por extenso e letra minuscula) - Left(WeekDayName(WeekDay(Now)),1), o "Left(INSTRUCAO,1)" ele vai pegar o primeiro caractere a instrução desejada que é a letra "q"; - UCase(Left(WeekDayName(WeekDay(Now)),1)) o "UCase()" vai transformar o caractere desejado em Maiúsculo, que no nosso caso é a letra "q", ficando assim: UCase("q") Resposta sai: "Q" 2º Bloco de Instrução: Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1) - Len(WeekDayName(WeekDay(Now))) o "Len()" está fazendo a função de "contador de caracteres", ele irá contar a quantidade de caracteres que tem na palavra "quarta-feira" ficando assim: Len("quarta-feira") Total: 12 caracteres - Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1) o "Right" e o oposto do "Left", ele tira o último caractere da palavra que é a letra "a" mais no nosso caso com o "Len" isso não irá acontecer. Se colocarmos o "quarta-feira" dentrodo "Right" olha o que acontecer: Right("quarta-feira", 1) Resposta: quarta-feir Mais com o "Len" que o total deu 12 menos 1 que é para ele não cortar o nome todo fica assim Right("quarta-feira", 12 - 1) Resposta: uarta-feira E pronto! Mais um assunto resolvido e o resto do código é só formatação de data Day(Date), pega o valor do dia MonthName(Month(Now)), o nome do mês Year(Date), pega o ano atual Juntando tudo fica: <% Response.Write(UCase(Left(WeekDayName(WeekDay(Now)),1)) + Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1) &", "& Day(Date)&" de "&MonthName(Month(Now))&" de "&Year(Date)) %> e fim de papo Abraços, qualquer coisa podem postar!!!

<% Dim a, b, c, d, e, f, g, h( 900 ), i( 6 ), j( 6 ), k, l i( 1 ) = "rea" i( 2 ) = "mil" i( 3 ) = "milh" i( 4 ) = "bilh" i( 5 ) = "trilh" h( 1 ) = "um" h( 2 ) = "dois" h( 3 ) = "tres" h( 4 ) = "quatro" h( 5 ) = "cinco" h( 6 ) = "seis" h( 7 ) = "sete" h( 8 ) = "oito" h( 9 ) = "nove" h( 10 ) = "dez" h( 11 ) = "onze" h( 12 ) = "doze" h( 13 ) = "treze" h( 14 ) = "quatorze" h( 15 ) = "quinze" h( 16 ) = "dezesseis" h( 17 ) = "dezessete" h( 18 ) = "dezoito" h( 19 ) = "dezenove" h( 20 ) = "vinte" h( 30 ) = "trinta" h( 40 ) = "quarenta" h( 50 ) = "cinquenta" h( 60 ) = "sessenta" h( 70 ) = "setenta" h( 80 ) = "oitenta" h( 90 ) = "noventa" h( 100 ) = "cento" h( 200 ) = "duzentos" h( 300 ) = "trezentos" h( 400 ) = "quatrocentos" h( 500 ) = "quinhentos" h( 600 ) = "seiscentos" h( 700 ) = "setentos" h( 800 ) = "oitocentos" h( 900 ) = "novecentos" Function Extenso( e ) e = FormatNumber( e , 2 ) a = right( e , 2 ) j( 0 ) = 0 f = Int( ( len( e ) + 1 ) / 4 ) For b = 1 to f j( b ) = "" Next b = 1 c = 1 For d = len( e ) - 3 to 1 step -1 j( c ) = mid( e , d , 1 ) & j( c ) If b / 3 = Int( b / 3 ) Then c = c + 1 d = d - 1 End If b = b + 1 next g = 0 Extenso = "" For b = f to 1 step -1 g = g + Int( j( b ) ) If Int( j( b ) ) <> 0 or ( Int( j( b ) ) = 0 And b = 1 )Then If Int( j( b ) = 0 And Int( j( b + 1 ) ) = 0 And b = 1 )Then Extenso = Extenso & ExtCentena( j( b ) , g ) & " de " & i( b ) Else Extenso = Extenso & ExtCentena( j( b ) , g ) & " " & i( b ) End If If Int( j( b ) ) <> 1 or ( b = 1 And g <> 1 ) Then Select Case b Case 1 Extenso = Extenso & "is" Case 3, 4, 5 Extenso = Extenso & "ões" End Select Else Select Case b Case 1 Extenso = Extenso & "l" Case 3, 4, 5 Extenso = Extenso & "ão" End Select End If End If If Int( j( b - 1 ) ) = 0 Then Extenso = Extenso Else If ( Int( j( b + 1 ) ) = 0 And ( b + 1 ) <= f ) or ( b = 2 ) Then Extenso = Extenso & " e " Else Extenso = Extenso & ", " End If End If Next If a > 0 Then If Int( a ) = 1 Then Extenso = Extenso & " e " & ExtDezena( a ) & " centavo" Else Extenso = Extenso & " e " & ExtDezena( a ) & " centavos" End If End If Extenso = UCase( Left( Extenso , 1 ) )&right( Extenso , len( Extenso ) - 1 ) End Function Function ExtDezena( k ) ExtDezena = "" If Int( k ) > 0 Then If Int( k ) < 20 Then ExtDezena = h( Int( k ) ) Else ExtDezena = h( Int( Int( k ) / 10 ) * 10 ) If ( Int( k ) / 10 ) - Int( Int( k ) / 10 ) <> 0 Then ExtDezena = ExtDezena & " e " & h( Int( right( k , 1 ) ) ) End If End If End If End Function Function ExtCentena( k, l ) ExtCentena = "" If Int( k ) > 0 Then If Int( k ) = 100 Then ExtCentena = "cem" Else If Int( k ) < 20 Then If Int( k ) = 1 Then If l - Int( k ) = 0 Then ExtCentena = "hum" Else ExtCentena = h( Int( k ) ) End If Else ExtCentena = h( Int( k ) ) End If Else If Int( k ) < 100 Then ExtCentena = ExtDezena( right( k , 2 ) ) Else ExtCentena = h( Int( Int( k ) / 100 )*100 ) If ( Int( k ) / 100 ) - Int( Int( k ) / 100 ) <> 0 Then ExtCentena = ExtCentena & " e " & ExtDezena( right( k , 2 ) ) End If End If End If End If End If End Function response.write Extenso(20.30) %>

Esse código você visualiza todos os componentes instalados!!! <%@ Language="VBScript" %> <% Option Explicit %> <% Dim theComponent(14) Dim theComponentName(14) ' Lista dos Componentes theComponent(0) = "ADODB.Connection" theComponent(1) = "SoftArtisans.FileUp" theComponent(2) = "AspHTTP.Conn" theComponent(3) = "AspImage.Image" theComponent(4) = "LastMod.FileObj" theComponent(5) = "Scripting.FileSystemObject" theComponent(6) = "SMTPsvg.Mailer" theComponent(7) = "CDONTS.NewMail" theComponent(8) = "Jmail.smtpmail" theComponent(9) = "SmtpMail.SmtpMail.1" theComponent(10) = "Persits.Upload.1" theComponent(11) = "UnitedBinary.AutoImageSize" theComponent(12) = "aspSmartUpload.SmartUpload" theComponent(13) = "DAO.DBEngine.35" ' Apelido dos Componentes theComponentName(0) = "ADODB" theComponentName(1) = "SA-FileUp" theComponentName(2) = "AspHTTP" theComponentName(3) = "AspImage" theComponentName(4) = "LastMod" theComponentName(5) = "FileSystemObject" theComponentName(6) = "ASPMail" theComponentName(7) = "CDONTS" theComponentName(8) = "JMail" theComponentName(9) = "SMTP" theComponentName(10) = "Persits Upload" theComponentName(11) = "AutoImageSize" theComponentName(12) = "ASpSmartUpload" theComponentName(13) = "DBEngine" Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %> <html> <head> <title>O que tem aqui?</title> </head> <body> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes instalados:</b></font></td> </tr> <tr> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <% Dim i For i = 0 To UBound(theComponent) If Not IsObjInstalled(theComponent(i)) Then Else Response.Write "<tr>" & vbCrLf Response.Write "<td width=""100%"">" & vbCrLf Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf Response.Write "</td>" & vbCrLf Response.Write "</tr>" & vbCrLf End If Next %> </table> </font> </td> </tr> </table> </body> </html> Abraço a Todos!!!!!!!!

Script que gera senhas aleatórias <%@ Language="VBScript" %> <% Dim Consoantes, Numeral, Vogal Dim rConsoantes, rNumeral, rVogal Consoantes = "bcdfghjklmnpqrstvyxzw" Numeral = "1234567890" Vogal = "aeiou" lConsoantes = Len(Consoantes) lNumeral = Len(Numeral) lVogal = Len(Vogal) Randomize rConsoantes = (Rnd * lConsoantes + 1) rNumeral = (Rnd * lNumeral + 1) rVogal = (Rnd * lVogal + 1) Randomize rConsoantes = CInt(rConsoantes) rNumeral = CInt(rNumeral) rVogal = CInt(rVogal) Randomize PassWord = PassWord & Mid(Consoantes, rConsoantes, 1) & Mid(Numeral, rNumeral, 1) & Mid(Vogal, rVogal, 1) & Mid(Numeral, (Rnd * rNumeral + 1), 1) & Mid(Vogal, (Rnd * rVogal + 1), 1) & Mid(cConsoantes, (Rnd * rConsoantes + 1), 1) Randomize Response.Write PassWord %>

Mais um randomize de Imagens adaptado para as necessidade básicas: <%@ Language="VBScript" %> <% Option Explicit %> <html> <head> <% Function RandomDeImagens(strPath,strDefault) On Error Resume Next Randomize Timer Dim ObjDeFSO, objFolder, ObjDaPasta, ObjPasta02 Dim StrPastas, StrImagens, StrBase, StrPasta Const strValid = ".gif.jpg.png" If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47) StrBase = Server.MapPath(strPath) Set ObjDeFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = ObjDeFSO.GetFolder(StrBase) Set ObjDaPasta = objFolder.Files For Each ObjPasta02 In ObjDaPasta StrPasta = LCase(ObjPasta02.Name) If Instr(strValid,Right(StrPasta,4)) Then StrPastas = StrPastas & StrPasta & VbTab End If Next StrImagens = Split(StrPastas,VbTab) If UBound(StrImagens) > 1 Then RandomDeImagens = strPath & StrImagens(Int(Rnd(1)*UBound(StrImagens))) Else RandomDeImagens = strDefault End If End Function %> </head> <body> <div align="center"> <center> <table border="1" bordercolor="#000000"> <tr> <td bgcolor="#ffffff"> <!-- a pasta developercenter é relacionanda a sua pasta principal --> <img src="<%=RandomDeImagens("images/","/developercenter/images/default.gif")%>"> </td> </tr> </table> </center> </div> </body> </html>

Olá galera, por ver muito os usuários pedirem cálculos de CEP, está æ o script pronto e bem arrumado! Em primeira mão criei o arquivo Default.asp onde temos os campos de CEP de Destino, CEP de Origem e Peso (que será calculado com base nesse campo). Criei uma condição de Request só para chamar o Cálculo, (Busca = 1) Default.asp <html> <head> </head> <body> <form method="get" name="form1" id="Form1" action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME")) %>"> <input type="hidden" name="cepOrigem" value="40335620" id="Hidden1"> <input type="hidden" name="busca" value="1" id="Hidden3"> <table width="400" id="Table1"> <tr> <td width="131">Cep de Origem:</td> <td width="257">40335620</td> </tr><tr> <td>Cep de Destino:</td> <td><input type="text" name="cepDestino" value="" id="Text1"></td> </tr><tr> <td>Peso:</td> <td><input type="text" name="peso" value="1" id="Text2"></td> </tr><tr> <td>&nbsp;</td> <td><input type="submit" name="Submit" value="Calcular" id="Submit1"></td> </tr> </table> </form> </body> </html> <% If Request("busca") = 1 Then Dim UrlResposta '---------------- AQUI A SUA URL DE RESPOSTA ---------------------- UrlResposta = "http://localhost/respostacorreios.asp" '------------------------------------------------------------------ '---------------- URL DOS CORREIOS, enviando as querys para o site do correios ---------------------- Response.Redirect("http://www.correios.com.br/encomendas/precos/calculo.cfm?cepOrigem=" & Request("cepOrigem") & "&cepDestino=" & Request("cepDestino") & "&peso=" & Request("peso") & "&resposta=" & UrlResposta & "") End If %> Nessa outra página criei o recebimento das variáveis da query. Pequei campos báscios como - CEP de Origem - CEP de Destino - Peso - Serviço - Tarifa - UF de Origem - UF de Destino Segue o código abaixo bem simples! RespostaCorreios.asp <style type="text/css"> <!-- .style1 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; } --> </style> <span class="style1"> <% '---------------- AQUI, recebe o resultado da URL, tem mais dados só coloquei o báscio ---------------------- Response.Write("<strong>CEP de Origem :</strong> "&Request.QueryString("cepOrigem")&"<br>") Response.Write("<strong>CEP de Destino :</strong> "&Request.QueryString("cepDestino")&"<br><br>") Response.Write("<strong>Peso :</strong> "&Request.QueryString("Peso")&"<br>") Response.Write("<strong>Serviço :</strong> "&Request.QueryString("Servico")&"<br>") Response.Write("<strong>Tarifa :</strong> "&Request.QueryString("Tarifa")&"<br><br>") Response.Write("<strong>UF de Origem :</strong> "&Request.QueryString("UFOrigem")&"<br>") Response.Write("<strong>UF de Destino :</strong> "&Request.QueryString("UFdestino")&"/"&Request.QueryString("LocalDestino")&"<br>") %> </span> Qualquer crítica, sugestão de código será sempre bem vinda! Abraços a Todos!!!!!

æ galera: segue um exemplo muito simples e fácil de "bricar" com o xml Vamos começar com a nossa página Default.asp PÁGINA : Index.asp <%@ Language="VBScript"%> <html><body> <form action="Index.asp?Tedk=Cadastrar" method="post"> <b>Seu nome:</b><input type="text" name="nome"><input type="hidden" name="link" value="&amp;Tedk=Deletar"><br> <b>Seu e-mail:</b><input type="text" name="email"><br> <input type="submit" value="Cadastrar"> </form> <% '--------------------- Início - CADASTRANDO ---------------------' If Request.QueryString("Tedk") = "Cadastrar" Then nome=request.form("nome") email=request.form("email") link=request.form("link") set doc=server.createobject("microsoft.xmldom") doc.load(server.mappath("cadastro.xml")) set raiz=doc.documentElement set registro=doc.createelement("usuario") raiz.appendchild(registro) set campo=doc.createelement("nome") campo.text=nome registro.appendchild(campo) set campo=doc.createelement("email") campo.text=email registro.appendchild(campo) set campo=doc.createelement("link") campo.text=link registro.appendchild(campo) doc.save(server.mappath("Cadastro.xml")) response.write"Cadastro realizado com sucesso!<a href='Index.asp?Tedk=Ver'>Acessar Dados</a>" '--------------------- Final - CADASTRANDO ---------------------' '--------------------- Início - VISUALIZANDO ---------------------' ElseIf Request.QueryString("Tedk") = "Ver" Then set xsldoc=server.createobject("microsoft.xmldom") set xmldoc=server.createobject("microsoft.xmldom") xmldoc.load(server.mappath("cadastro.xml")) xsldoc.load(server.mappath("Visualizar.xsl")) response.write(xmldoc.transformnode(xsldoc)) '--------------------- Final - VISUALIZANDO ---------------------' '--------------------- Início - DELETANDO ---------------------' ElseIf Request.QueryString("Tedk") = "Deletar" Then response.buffer="true" set xmldoc=server.createobject("microsoft.xmldom") xmldoc.load(server.mappath("cadastro.xml")) set raiz=xmldoc.documentElement set registro=raiz.selectsinglenode("usuario[nome='"&request.querystring("nome")&"']") raiz.removechild(registro) xmldoc.save(server.mappath("cadastro.xml")) Response.Write("Deletado com Sucesso") End If '--------------------- Final - DELETANDO ---------------------' %> </body></html> PÁGINA : Cadastro.xml <?xml version="1.0" encoding="ISO-8859-1"?> <cadastro> <Usuario> <nome>thiago</nome> <email>adamisongs@hotmail.com</email> <link>&amp;Tedk=Deletar</link> </Usuario> </cadastro> PÁGINA : Visualizar.xsl <?xml version="1.0"?> <xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl"> <xsl:template match="/"> <center> <font color="#000000" size="2" face="MS Sans Serif">Visualizando Dados</font> <table width="283" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="107"><div align="center"><strong>Nome</strong></div></td> <td width="176"><div align="center"><strong>Email</strong></div></td> <td width="176"><div align="center"><strong>Apagar</strong></div></td> </tr> <xsl:for-each select="cadastro/usuario"> <tr> <td><div align="center"><xsl:value-of select="nome"/></div></td> <td><div align="center"><xsl:value-of select="email"/></div></td> <td><div align="center"><a><xsl:attribute name="href">Index.asp?nome=<xsl:value-of select="nome"/><xsl:value-of select="link"/></xsl:attribute>Apagar</a></div></td> </tr> </xsl:for-each> </table> </center> </xsl:template> </xsl:stylesheet> é básio, é fácil mais eu gosto!!! espero que isso seja adotado como exemplo para que está começando com XML!!!! abraços!!!

Para o bem de todos segue a Paginação que funciona no MySQL, Testada e Aprovada ------------------------- <table width="100%" border="0" cellspacing="2" cellpadding="0"> <tr> <td width="44%" height="30" bgcolor="#EBEBEB" class="classFonte01">&nbsp;<strong>Nome</strong>&nbsp;</td> <td width="47%" bgcolor="#EBEBEB" class="classFonte01">&nbsp;<strong>E-Mail</strong>&nbsp;</td> </tr> <% TedkBanco.CursorLocation = 3 Set TedkDados = Server.CreateObject("Adodb.RecordSet") TedkDados.Pagesize = 30 TedkDados.Open "Select NomeNewsletterEMail, EMailNewsletterEMail From adminNewsletterEMail Order By NomeNewsletterEMail Asc",TedkBanco If TedkDados.Eof Then Response.Write("") Else PaginaAtual = CInt(Request.Querystring("Pages")) If PaginaAtual = 0 Then PaginaAtual = 1 End If TedkDados.AbsolutePage = PaginaAtual Num = TedkDados.PageCount While Not TedkDados.Eof And TedkDados.AbsolutePage = PaginaAtual %> <tr> <td height="22" bgcolor="#F7F7F7" class="classFonte01">&nbsp;<% Response.Write(TedkDados("NomeNewsletterEMail")) %>&nbsp;</td> <td bgcolor="#F7F7F7" class="classFonte01">&nbsp;<% Response.Write(TedkDados("EMailNewsletterEMail")) %>&nbsp;</td> </tr> <% TedkDados.MoveNext : Wend Anterior = PaginaAtual - 1 Proximo = PaginaAtual + 1 If Anterior <= 0 Then Anterior = 1 End If If Proximo > TedkDados.PageCount Then Proximo = TedkDados.PageCount End If %> <tr> <td height="30" colspan="2" align="right" bgcolor="#EBEBEB" class="classFonte01"><strong>Paginas:</strong>&nbsp;<% Jo = 1 While Jo <= TedkDados.PageCount If PaginaAtual = Jo Then Response.Write("["&Jo&"]&nbsp;&nbsp;") Else Response.Write("<a href=""Default.asp?Pages="&Jo&""" class=""classFonte01"" title=""P&aacute;gina "&Jo&""">"&Jo&"</a>&nbsp; ") End If Jo = Jo + 1 Wend End If %></td> </tr> </table> Aproveitem... 100% Testado no MySQL