6 replies to this topic

[direisc]

agora nao da mais erro no if so que ainda nao envia ta dando erro agora dizendo q nao pode criar o componente especificado mas eu ja usei ele outrora, so que sem mandar email so fazia o upload mesmo
alguem tem aguma solução

<%
'inicia o componente de upload
Set upload = Server.CreateObject("Persists.Upload")

'faz o upload para o diretório online
upload.Save "\\caminho\para\servidor\new\updown"

'pega os dados do arquivo para ser resgatados posteriormente
Set arquivo = upload.files("file")

'verifica se tem um arquivo, caso positivo ele recolhe os dados.
If Not arquivo Is Nothing Then
	Set remetente = upload.Form("remetente")
	Set assunto = upload.Form("assunto")
	Set mensagem = upload.Form("mensagem")
	Set filename = arquivo.ExtractFilename
	Set link = "<a href='http://www.site.com.br/new/updown/"&filename&"'>"&filename&"</a>"
	Set agrupamento = mensagem&"<br><br>------------------------------Arquivo enviado para o servidor:<br>"&link
	'comeca o envio do email agora
	set objMail = server.createobject("CDONTS.NewMail")
	objMail.From = remetente
	objMail.To = "contato@site.com.br"
	objMail.Subject = assunto
	objMail.Body = agrupamento
	objMail.BodyFormat = 0
	objMail.MailFormat = 0
	objMail.Send
	Response.Write "Mensagem e arquivo enviado com sucesso!<br><a href='form_up.asp'>clique aqui para retornar ao formulário de uploads.</a><br>"
	Response.Write "Caso já tenha enviado o(s) arquivo(s) que pretendia <a href='close.asp'>clique aqui para fechar esta janela</a>"
	set objMail = Nothing
Else
	Response.Write "Erro no envio do arquivo."
End If
%>

Edição feita por: direisc, 02/06/2005, 16:22.

[direisc]

alguem agora eu editei pq o erro anterior eu descobri foi erro que faltou um espaco no end if

[direisc]

eu andei fazendo milhoes de testes nesse servidor lerdo aqui e cheguei a conclusão de fazer assim mandar o arquivo e se mandado dar um redirect com algumas informacoes na url do tipo vai.asp?varia=ssssss

até ai tudo bem
cheguei nesse codigo aqui

<%
Set Upload = Server.CreateObject("Persits.Upload")

Upload.Save ("\\terraempresas.com.br\cluster2\azero\wwwroot\new\updown")

Set arquivo = Upload.files("file")

If Not arquivo Is Nothing Then
	Set remetente = Upload.Form("remetente")
	Set assunto = Upload.Form("assunto")
	Set mensagem = Upload.Form("mensagem")
	Set filename = arquivo.ExtractFileName
	Set link = "<a href='http://www.azero.com.br/new/updown/"&filename&"'>"&filename&"</a>"
	Set agrupamento = mensagem&"<br><br>------------------------------Arquivo enviado para o servidor:<br>"&link
	
	Set redirectLink = "avisar.asp?remetente="&remetente&"&assunto="&assunto&"&mensagem="&agrupamento
	Response.redirect (redirectLink)
Else
	Response.Write "Erro no envio do arquivo."
End If
%>

so que a linha que comtem o

set filename = arquivo.ExtractFileName

esta acusando erro um erro que eu não sei o que pode ser
no manual do aspupload da persist, existem duas maneiras de pegar o nome do arquivo ali ou usa FileName ou o ExtractFileName (este pelo manual é obsoleto e é o unico que aceita no meu servido) so que eu ja testei ja liguei pra la eles me disseram que o componente é uma versao mas nova (logo seria pra aceitar o fileName - mas este retorno como sintaxe invalida)
ja o extract que é obsoleto funcionou ja uma outra vez so que agora como eu estou tentando salvar ele em uma variável pra usa-lo outrora ele retona uma pagina com o seguinte erro

Microsoft VBScript runtime error '800a01a8' 

Object required: '[string: "fundo.jpg"]' 

/new/config/upload.asp, line 12 

esse erro é relacionado a linha que eu disse la em cima alguem tem ideia de como proceder pois eu ja estou testando desde ontem essa joça e não consigo fazer funcionar..... alguem ae tem ideia ou ja usou o aspupload da persist

[Generation]

Isso vai lhe ajudar e funciona...

  Set Upload = Server.CreateObject("Persits.Upload")
    Upload.Save ("\\terraempresas.com.br\cluster2\azero\wwwroot\new\updown")
    Set File = Upload.Files("CAMPOIMAGEM")
    Filename = file.extractfilename

    remetente = Upload.Form("remetente")
    assunto = Upload.Form("assunto")
    mensagem = Upload.Form("mensagem")

Preste atenção em alguns erros que voce esta cometendo no codigo...somo Set em tudo..


T+


Generation

[direisc]

generation ou Joao Paulo é eu sou inesoeriente em ASP queria saber pra que esse set?
e tem outras coisas tb que nao sei pra que sao mas este set principalmente...

mas ae vlw pelo code ae

[Agente Linhares]

se vc se refere aqui:

  Set Upload = Server.CreateObject("Persits.Upload")
   

o set, vc esta "setando ou criando", neste caso, o componente q irá usar.

a partir daí, vc setou aquela criação do objeto se chamará "upload", no qual qd precisar requisitar propriedades ou ações do componente, irá utilizar este nome "upload" p/ o msmo.

ex.:

Upload.Form("remetente")

ao inves de request.form, q seria empregado em outro caso.

[direisc]

a ta entendi então quando eu uso o set em alguma variavel normalmente é pra criar uma especie de objeto então....

vlw agora acho que eu ja sei quais são os problemas.

na verdade eu ja consegui parcialmente meu problema agora ta no servidor terra que bloqueia algumas coisas do nada e da pau nas aplicacoes.