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.