Jump to content


Photo

Salvar A Imagem Sem Espaço Em Branco


  • Faça o login para participar
Nenhuma resposta neste tópico

#1 giovaniriolli

giovaniriolli

    Turista

  • Usuários
  • 38 posts
  • Sexo:Masculino

Posted 28/07/2009, 18:14

Boa tarde a todos.

Tenho uma programação que salva a imagem na pasta e seu nome no banco access, ate ai tudo bem.
Em teste fiz com a função "replace" salvar o nome da imagem no banco sem espaços em branco (ex. meu banner = meubanner), meu problema é que não estou conseguindo fazer a mesma coisa com o arquivo salvo na pasta, ou seja o nome salvar com o nome meu banner.

Segue meu script.

Set Upload = server.CreateObject("Dundas.Upload.2")

Upload.UseVirtualDir = False
Upload.UseUniqueNames = True

Upload.Save CaminhoUpload

If Upload.Files.Count > 0 Then
Varimagem = LocalIMG & Upload.GetFileName(Upload.Files(0).Path)

Else

Varimagem = LocalIMG & "SemFoto.gif"
End If

End If

Set AltBd = Server.CreateObject("ADODB.Recordset")
AltBd.CursorLocation = adUseServer
AltBd.CursorType = adOpenForwardOnly
AltBd.LockType = adLockOptimistic

AltBd.Open "SELECT * FROM topo WHERE Cod = "& Vartopo &"", Banco, , , adCmdText
AltBd("imagem") = Varimagem

AltBd.Update
AltBd.Close
Set AltBd = Nothing


Em teste ja fiz de tudo, coloquei trim, replace e nada, peço a ajuda de voceis.

Obrigado.

Giovani




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq