Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marcelinho

Problemas com SoftArtesians(FileUp)

Recommended Posts

Fala ai Galera beleza?

 

É o seguinte estou com uma dúvida que esta tirando o sono e o problema da locaweb é esse componente de upload!

 

Eu preciso fazer upload de ate 10 imagens!!

 

quando tento fazer upload de 2 imagens ao mesmo tempo, ele nao faz o upload de uma das imagens!

 

e ainda salva com o nome errado a imagem que ele salva!!

 

fiz de varios jeitos o ultimo que ficou foi esse

 

ó meu codigo:

 

Set Obj_Upload = Server.CreateObject("SoftArtisans.FileUp") 'Caminho onde vai salvar as fotos	 	Obj_Upload.Path = "caminho da imagem"		'Cria o Obj_File para a foto 1		Str_Teste = Obj_Upload.form("foto1")		IF LEN(Str_Teste) > 0 THEN			Str_Filename = Obj_Upload.form("foto1").ShortFileName		 	Str_Foto_1 = geraNomeArq(Str_Filename)			IF LEN(Str_Filename) > 0 THEN		 		Obj_Upload.SaveAs Str_Filename				'Int_Largura = Obj_Upload.Width				'Int_Altura = Obj_Upload.Height				IF LEN(Str_Foto_1) > 0 THEN					Str_SQL_Cmd = "INSERT INTO tbCadastro_Album(idcadastro,foto_original" &_					", foto_modificada, largura, altura) VALUES " &_					"(" & Session("Rev_ID") & ",'" & Str_Filename &_					"','" & Str_Foto_1 & "'," & Int_Largura & ", " & Int_Altura &_					")"					Session("Conn").Execute(Str_SQL_Cmd)				END IF			ELSE				Str_Foto_1 = ""			END IF		END IF			'Cria o Obj_File para a foto 2		Str_Teste_2 = Obj_Upload.form("foto2")		IF LEN(Str_Teste_2) > 0 THEN			Str_Filename_2 = Obj_Upload.form("foto2").ShortFileName		 	Str_Foto_2 = geraNomeArq(Str_Filename_2)			IF LEN(Str_Filename_2) > 0 THEN		 		Obj_Upload.form("foto2").Save Str_Filename_2				IF LEN(Str_Foto_2) > 0 THEN					Str_SQL_Cmd = "INSERT INTO tbCadastro_Album(idcadastro,foto_original" &_					", foto_modificada, largura, altura) VALUES " &_					"(" & Session("Rev_ID") & ",'" & Str_Filename_2 &_					"','" & Str_Foto_2 & "'," & Int_Largura_2 & ", " & Int_Altura_2 &_					")"					Session("Conn").Execute(Str_SQL_Cmd)				END IF			ELSE				Str_Foto_2 = ""			END IF		END IF

espero que me ajudem

 

Obrigado

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.