Aparecendo espaço no meio de alguns links

[Diego Ronan 1]

Pessoal

 

O sisteminha aqui envia por email alguns links para que a pessoa possa baixar alguns arquivos através deste.

 

O problema é que tal link está chegando com um "%20" no meio; esta aparecendo "do nada" um espaço no meio do link, tanto que se remove a pessoa consegue baixar.

 

Alguem tem ideia que pode estar acontecendo?

 

A variavel que monta o link esta setada manualmente, e da esse problema no meio do link, como se tivesse um espaço que não existe. E tambem esse erro na maioria das vezes acontece ou no primeiro link, ou no ultimo (geralmente o email chega com uma relação com 5 links).

 

Pode ser componente? Estou usando o CDONTS...

[xanburzum 169]

use a função Replace para remover os espaços

[Diego Ronan 1]

Tentei usar replace, trim, mas não adianta... o espaço persiste :/

[Vinicius Ianni 189]

De onde vem a informação que cria o link ?

Precisa verificar se onde essa informação é armazenada não foi cadastrado com um espaço, ou se está entendendo um quebra de linha como espaço ou algo desse tipo.

[Diego Ronan 1]

A info vem do banco, seria o nome do arquivo... o problema que o "espaço" entra aletoriamente no endereço, ora é no meio do nome da variavel, que é sempre a mesma, ora no nome do arquivo... e somente como comentei no primeiro e/ou ultimo link

 

O negocio é estranho heheheh

[Mário Monteiro 179]

não o nome do arquivo que tem o espaço mesmo?

 

o replace deveria resolver mostre como fez

[Patrique 0]

Estranho, certamente você esta cometendo algum erro, sugiro que ao invés fazer a gambiarra do replace, você tente verificar o porque deste erro.

[Diego Ronan 1]

a parte do código que gera a zica é essa:

 

o "X" é a variável que faz o bendito %20 (espaço) aparecer no meio da url (sempre em posição aleatória)

 

do until rs.eof					
					
  urldown = urldowns&"?Caminho="&rs("caminho")&"&nome_arquivo="&rs("nome_arquivo")
  x = "http://www.x.com.br/download/baixaarquivo.asp?down="&rs("arquivo")
					
  Verifica = fs.FileExists(rs("caminho"))
  if Verifica then
     if tipoArqs <> "" then 
	virgula = ","
     end if
    
     links = links & virgula &  rs("tipo_Arquivo") & ": " & "<a href='"&trim(replace(x, " ", ""))&"' target='_blank'>Clique aqui para baixar o arquivo.</a>"

     tipoArqs = tipoArqs & virgula & rs("tipo_Arquivo")
     caminhoArqs = caminhoArqs & virgula & rs("Caminho")
						
   end if
				
   rs.movenext
loop

[augustoclaro 2]

dá replace em %20 então para ver se funciona.

[Diego Ronan 1]

hum, num pensei nisso ainda... rs

 

vou tentar! :)

[Patrique 0]

se não der certo, utilize uma function

 

Function URLDecode(sConvert)
    Dim aSplit
    Dim sOutput
    Dim I
    If IsNull(sConvert) Then
       URLDecode = ""
       Exit Function
    End If
	
    ' convert all pluses to spaces
    sOutput = REPLACE(sConvert, "+", " ")
	
    ' next convert %hexdigits to the character
    aSplit = Split(sOutput, "%")
	
    If IsArray(aSplit) Then
      sOutput = aSplit(0)
      For I = 0 to UBound(aSplit) - 1
        sOutput = sOutput & _
          Chr("&H" & Left(aSplit(i + 1), 2)) &_
          Right(aSplit(i + 1), Len(aSplit(i + 1)) - 2)
      Next
    End If
	
    URLDecode = sOutput
End Function

[]'s

[xanburzum 169]

um Replace normal, como falado no post #2 resolve, tirando os %20

e antes de criar a variavel X, dá um replace nela

[Diego Ronan 1]

Vou fazer os testes, como é esporádico acontecer pode demorar um pouco para ver se deu certo, ou não.

 

Aviso qdo tiver novidades :)