[Resolvido] Gravar nome da imagem após upload

[Reinaldo 0]

Bom dia!

Amigos, estou com um probleminha fiz um pequeno sitema onde cadastro os clintes de uma clinica a cada cadastro crio uma pasta no servidor com o nome de cada cliente, e faço o upload das fotos deles, o único e mais complicado é cadastrar o nome dessas fotos no banco, a inteção é após cadastrar eu posso incluir as fotos em outro momento então eu seleciono o nome do cliente e chma a pagina de upload após o o envio das fotos atualizar o banco com base no nome do cliente que crio uma sessão, mas o proeblema é salvar o nome das fotos.

 

Podem me ajudar nessa, estou usando o objUpload = server.CreateObject("Dundas.Upload.2")

 

Grato a todos.

[Ted k' 126]

usa isso aqui:

 

Dim CaminhoArquivo : CaminhoArquivo = Upload.Item("Nome_do_Campo").Item("FileName")
Dim NomeArquivo : NomeArquivo = Right(CaminhoArquivo,Len(CaminhoArquivo) - InstrRev(CaminhoArquivo,"\"))

Response.Write(NomeArquivo)

caso não resolva use esse:

 

Dim CaminhoArquivo : CaminhoArquivo = Upload.Form("Nome_do_Campo")
Dim NomeArquivo : NomeArquivo = Right(CaminhoArquivo,Len(CaminhoArquivo) - InstrRev(CaminhoArquivo,"\"))

Response.Write(NomeArquivo)

[Reinaldo 0]

usa isso aqui:

 

Dim CaminhoArquivo : CaminhoArquivo = Upload.Item("Nome_do_Campo").Item("FileName")
Dim NomeArquivo : NomeArquivo = Right(CaminhoArquivo,Len(CaminhoArquivo) - InstrRev(CaminhoArquivo,"\"))

Response.Write(NomeArquivo)

caso não resolva use esse:

 

Dim CaminhoArquivo : CaminhoArquivo = Upload.Form("Nome_do_Campo")
Dim NomeArquivo : NomeArquivo = Right(CaminhoArquivo,Len(CaminhoArquivo) - InstrRev(CaminhoArquivo,"\"))

Response.Write(NomeArquivo)

 

Estou usando dessa forma e funciona:

 

foto1 = objUpload.GetFileName(objUpload.Files(0).Path)

foto2 = objUpload.GetFileName(objUpload.Files(1).Path)

foto3 = objUpload.GetFileName(objUpload.Files(2).Path)

 

Agora o que eu quero e saber como faço pra cadatrar sem a extensão .jpg ?

[Ted k' 126]

olha aqui!

 

CaminhoArquivo = "imagem.jpg"
Dim NomeArquivo : NomeArquivo = Right(CaminhoArquivo,Len(CaminhoArquivo) - InstrRev(CaminhoArquivo,"\"))
NomeArquivoFinal = Left(NomeArquivo,Len(NomeArquivo) - 4)

Response.Write(NomeArquivoFinal)

[Reinaldo 0]

olha aqui!

 

CaminhoArquivo = "imagem.jpg"
Dim NomeArquivo : NomeArquivo = Right(CaminhoArquivo,Len(CaminhoArquivo) - InstrRev(CaminhoArquivo,"\"))
NomeArquivoFinal = Left(NomeArquivo,Len(NomeArquivo) - 4)

Response.Write(NomeArquivoFinal)

Ok obrigado pela ajuda!!

[Ted k' 126]

qualquer coisas estamos æ!