[Resolvido] Upload de arquivos .psd

[wills 0]

é que fui fazendo outros testes....rs

 

então cara, se no arquivo dundas.htm eu alterar a seguinte linha

 

<form action="dundas.asp" name="frmteste" method="post" enctype="multipart/form-data">
[code/]

para

[code]
<form action="dundas.asp" name="frmteste" method="post">

eu coonsigo salvar os dados no bd ou fazer o upload mas, os dois ao mesmo tempo da erro

 

minto, apenas salvo no bd....

[Mário Monteiro 179]

Use

 

<form action="dundas.asp" name="frmteste" method="post" enctype="multipart/form-data">

para fazer o upload

 

os dados no DB para serem salvos precisa recupera-los

 

so que poara recuperar nao será usando o request.form("campo") e sim objUpload.form("campo")

[wills 0]

rolou!

 

em tese, porque o gozado é que na tabela tem uam coluna chamada psd...essa foi a única que foi em branco....

[Mário Monteiro 179]

nao entendi

 

funcionou ou nao?

[wills 0]

ele salvou no banco, mas há um campo que ele não salva.... mandei ele imprimir na tela o mesmo para eu ver se ele estava sendo recuperado, mas não....

[Mário Monteiro 179]

qual o campo?

 

esta realmente passando ele no formulario?

[wills 0]

sim, pois chegou um e-mail com o nome do arquivo que foi enviado....

 

o campo é o psd

 

da uma zoiada

 

dim arquivos, bd, mnome, mde, mpara, massunto, mmsg, corpo, pes, inseri

session.LCID = 1046

set bd = Server.CreateObject("ADODB.Connection")

bd.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=e:\domains\4vconnect.com\wwwroot\dundas\dados.mdb"

bd.open

 

arquivos = "e:\domains\4vconnect.com\wwwroot\dundas\"

Set objUpload = Server.CreateObject("Dundas.Upload.2")

objUpload.UseVirtualDir = False

objUpload.UseUniqueNames = True

objUpload.Save arquivos

Response.Write "Arquivo enviado com sucesso!"

 

 

set pes = bd.execute("select * from clientes where psd = '" & objUpload.Form("f1") & "'")

if pes.eof then

insert = "insert into clientes(nome,mail,telefone,psd)"

insert = insert & "values ('" & objUpload.Form("txtnome") & "','" & objUpload.Form("txtmail") & "',"

insert = insert & "'" & objUpload.Form("txttelefone") & "','" & objUpload.Form("f1") & "')"

set inseri = bd.execute(insert)

response.Write(objUpload.Form("f1"))

else

response.Write("duplicou!")

end if

bd.close

set bd = Nothing

[Mário Monteiro 179]

esse F1 é p campo file né?

[wills 0]

sim, esse mesmo!

 

é o dito cujo que não chega!

[wills 0]

realmente ele não recupera pois, inseri meu no na unha para ver se ele insiria no bd, e ele inseriu.

 

mas, como os outros dados são recuperados e o f1 não?

[Mário Monteiro 179]

For Each Arquivo in objUpload.Files
Path = Arquivo.Path 
NomeArquivo = objUpload.GetFileName(Path) 
Next

tente pegar assim

 

nao testei isso

[wills 0]

seria isso mesmo?

 

arquivos = "e:\domains\4vconnect.com\wwwroot\dundas\"	
	Set objUpload = Server.CreateObject("Dundas.Upload.2")
	objUpload.UseVirtualDir = False
	objUpload.UseUniqueNames = True
	objUpload.Save arquivos
	Response.Write "Arquivo enviado com sucesso!"

	'set pes = bd.execute("select * from clientes where psd = '" & objUpload.Form("f1") & "'")
	
		For Each arquivos in objUpload.Files
		Path = arquivos.Path
		NomeArquivo = objUpload.GetFileName(Path)
		Next
		'if not pes.eof then
			insert = "insert into clientes(nome,mail,telefone,psd)"
			insert = insert & "values ('" & objUpload.Form("txtnome") & "','" & objUpload.Form("txtmail") & "',"
			insert = insert &  "'" & objUpload.Form("txttelefone") & "','" & objUpload.Form("f1") & "')"
			set inseri = bd.execute(insert)
			response.Write(objUpload.Form("f1"))

[Mário Monteiro 179]

no lugar de

 

objUpload.Form("f1")

poe

 

NomeArquivo

[wills 0]

não acredito!

 

o dia inteiro e deu certo!

 

cara, valeu pela ajuda e paciência... posso fazer uma única observação?

 

há como verificar se o arquivo que estou fazendo upload já existe e não deixar que o mesmo seja realizado?

[Mário Monteiro 179]

sim

 

pode com FSO

 

alguns componentes fazem esta verificação, so nao sei se é o caso deste

[wills 0]

hum... então por enquanto fico nessa...

 

vou dar uma pesquisada nisto, assim que achar posto ae para rapaziado que podem vir a ter essa mesma dúvida!

 

valeu cara!

 

e boa noite!

[Mário Monteiro 179]

boa noite

 

que bom que resolveu tudo parabens