upload

marcelocardoso · Setembro 27, 2005

Grande GALERA!

Estou quebrando a cabeça para resolver este upload com o componente FREEASPUPLOAD!

Andei modificando o código original, e está funcionando tudo direitinho, mas na hora de tentar adaptar a este código do formulário abaixo, não sei como: Por isso estou aqui para pedir aos colegas que são mais espertos que EU, pois eu não consegui mesmo.

Tentei de tudo quanto é jeito que eu sabia, mas nada!

Vejam meus códigos, e vejam se conseguem me ajudar a fazer funcionar este formulário com upload:

form_upload.htm

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento sem título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript1.2" type="text/JavaScript">
function validaForm(){
 d = document.recrutamento;

//validar Nome
 if (d.Nome.value == ""){
     alert("O campo " + d.Nome.name + " deve ser preenchido!");
     d.Nome.focus();
return false;
}
//validar email
 if (d.Email.value == ""){
      alert("O campo " + d.Email.name + " deve ser preenchido!");
     d.Email.focus();
return false;
}
//validar email(verificao de endereco eletrônico)
 parte1 = d.Email.value.indexOf("@");
 parte2 = d.Email.value.indexOf(".");
 parte3 = d.Email.value.length;
 if (!(parte1 >= 3 && parte2 >= 6 && parte3 >= 9)) {
		   alert ("O campo " + d.Email.name + " deve conter um endereco válido!");
		   d.Email.focus();
return false;
}
//validar telefone
 if (d.DDD.value == ""){
       alert ("O campo " + d.DDD.name + " deve ser preenchido!");
     d.DDD.focus();
return false;
}
//validar telefone
 if (d.Telefone.value == ""){
      alert ("O campo " + d.Telefone.name + " deve ser preenchido!");
     d.Telefone.focus();
return false;
}
//validar Anexar Curriculo
 if (d.attach1.value == ""){
      alert ("O campo " + d.attach1.name + " deve ser preenchido!");
     d.attach1.focus();
return false;
}
}
</script>
</head>

<body>
<FORM action=form_upload_envia.asp method=post encType=multipart/form-data name="recrutamento" id="recrutamento" onSubmit="return validaForm()">
 <table width="64%"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FDFCDF" class="BORDER3">
   <tr> 
     <td width="6%" height="26"> </td>
     <td width="88%"> </td>
     <td width="6%"> </td>
   </tr>
   <tr> 
     <td> </td>
     <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
         <tr> 
           <td width="32%">Nome:</td>
           <td width="68%"><label> 
             <input name="Nome" type="text" size="30" maxlength="30">
             <em class="small"></em></label></td>
         </tr>
         <tr> 
           <td>E-mail:</td>
           <td><label> 
             <input name="Email" type="text" id="Email3"  size="30">
             <em class="small"></em></label></td>
         </tr>
         <tr> 
           <td>Telefone:</td>
           <td><input name="DDD" type="text" id="DDD2" size="3"  maxlength="3">
             - 
             <input name="Telefone" type="text" id="Telefone3"  size="8"  maxlength="8"> 
           </td>
         </tr>
         <tr> 
           <td valign="top">Observações:</td>
           <td><textarea name="Observacoes" rows="4"></textarea></td>
         </tr>
         <tr> 
           <td>Anexar curriculo:</td>
           <td><label>
             <input name="attach1" type="file" id="attach1">
             </label> </td>
         </tr>
         <tr> 
           <td> </td>
           <td><label> 
             <input name="Input" type="image" src="arq-imagens/imagens_botao_03.gif" width="17" height="17">
             </label></td>
         </tr>
       </table></td>
     <td> </td>
   </tr>
   <tr> 
     <td> </td>
     <td> </td>
     <td> </td>
   </tr>
 </table>
</FORM>
</body>
</html>

form_send.asp

ASP

[*]

[*]

[*]<%

[*]'Resgatando valores do FORM

[*] Nome = Request.Form("Nome")

[*] Email = Trim(LCase(Request.Form("Email")))

[*] DDD = Request.Form("DDD")

[*] Telefone = Request.Form("Telefone")

[*] Observacao = Replace(Request.Form("Observacoes"),Chr(13)," ")

[*]NomeDoArquivo = Aqui teria que pegar o CAMINHO e o NOME do arquivo Uploadiado...

[*]

[*]'Criando conexão com o Banco Dados para Guardar Dados da Mensagem

[*] SQL = "INSERT INTO RH (RHNome,RHEmail,RHTelefone,RHObservacoes,RHArquivo) VALUES ('"&Nome&"','"&Email&"','"&Telefone&"','"&Observacoes&"','"Arquivo&"')"

[*] ObjCX.Execute(SQL)

[*]

[*]'Criando conexão com o CDONTS para enviar mensagens

[*] Set eObjMail1 = Server.CreateObject("CDONTS.NewMail")

[*] Set eObjMail2 = Server.CreateObject("CDONTS.NewMail")

[*]

[*]'Mensagem Padrão - Ao Destinatário

[*] Destinatario = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"

[*] Destinatario = Destinatario & "<html>"

[*] Destinatario = Destinatario & "<head>"

[*] Destinatario = Destinatario & "<title></title>"

[*] Destinatario = Destinatario & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"

[*] Destinatario = Destinatario & "</head>"

[*] Destinatario = Destinatario & "<body>"

[*] Destinatario = Destinatario & "Foi recebido mais um curriculo!"

[*] Destinatario = Destinatario & " "

[*] Destinatario = Destinatario & "Pegue o arquivo DOC, AQUI, (aqui teria que vir o link com o arquivo que foi feito o upload)"

[*] Destinatario = Destinatario & " "

[*] Destinatario = Destinatario & "Atenciosamente;"

[*] Destinatario = Destinatario & " "

[*] Destinatario = Destinatario & "" & Nome & ""

[*] Destinatario = Destinatario & "</body>"

[*] Destinatario = Destinatario & "</html>"

[*]

[*]'Configuração do CDONTS, para envio da mensagem strMsg01

[*] eObjMail1.To = "teste@teste.com.br"

[*] eObjMail1.From = Email

[*] eObjMail1.Subject = "[ Cadastro de Curriculo ]"

[*] eObjMail1.Importance = 2

[*] eObjMail1.BodyFormat = 0

[*] eObjMail1.MailFormat = 0

[*] eObjMail1.Body = Destinatario

[*] eObjMail1.Send

[*]

[*]'Liberando recursos depois de enviada as mensagens

[*] Set eObjMail1 = Nothing

[*] Set SQL = Nothing

[*]

[*]%>

[*]

[*]<%

[*]'Redirecionamento após o envio total da mensagem

[*] Server.Transfer "resposta.asp"

[*]%>

Até aqui está funcionando tudo direitinho, mas somente é que não sei como adaptar neste código FORM_SEND.ASP para também enviar o upload e gravar no BANCO.

Oque quero fazer é igual a este código deste endereço aqui.... POR FAVOR COLEGAS NÃO SEI MEXER DIREITO COM UPLOAD, e GOSTARIA DE FAZER UM FORM IGUAL A ESTE, CONSEGUEM ME AJUDAR....POIS já tentei de tudo...

Curriculo Anexado por Email

Este foi um exemplo que achei e gostaria de aprender fazer também.

Conseguem me ajudar?

Fico grato!

CarlosNet · Setembro 27, 2005

amigoenviando anexado por email você nao esta necessariamente fazendo upload (como fazemos qdo usamos um componente)você quer enviar o curriculo anexo por e-mail, é isso ?abs

marcelocardoso · Setembro 27, 2005

Sim CARLOS!

Oque realmente quero com o código daquele formulario que postei, é de fazer com que o cara digite seu EMAIL, NOME, E PEGUE O SEU ARQUIVO WORD DA SUA MÁQUINA ATRAVÉS DO INPUT FILE, e mande através do arquivo asp que postei?

Consegue me ajudar colega!.

Obrigado!

CarlosNet · Setembro 27, 2005

Olha esse exemplo e ve se te ajuda:

ASP

[*]

[*]<%

[*]Set myMail=CreateObject("CDO.Message")

[*]myMail.Subject="Sending email with CDO"

[*]myMail.From="mymail@mydomain.com"

[*]myMail.To="someone@somedomain.com"

[*]myMail.TextBody="This is a message."

[*]myMail.AddAttachment "c:\mydocuments\test.txt"

[*]myMail.Send

[*]set myMail=nothing

[*]%>

[*]

Abs

Salgado · Setembro 27, 2005

Joque seu form para o Script de Upload, resgate os campos de texto e salve o arquivo, depois redirecione para o Script de envio de e-mail passando como parametro os campo de texto e o caminho do arquivo. Dai é só mandar o e-mail.

marcelocardoso · Setembro 28, 2005

OK CARLOS.NET e SALGADO!

CARLOS?

Então posso usar o ATTACHFILE, ou seja; posso enviar meu form já com o arquivo setado no campo que busca o arquivo na pasta do usuario, e guardar o caminho do arquivo em uma variavel e colocar no EobjMail.AttachFile?????

SALGADO!

Então eu posso enviar meu form assim:

<FORM action=uploadenvia.asp method=post encType=multipart/form-data name="recrutamento" onSubmit="return validaForm()">

E primeiro resgato todos os valores do form, e em seguida no mesmo código gravo o arquivo com o FREEASPUPLOAD no diretorio desejado, e depois acrescento no código do do freeaspupload uma linha no final redirecionando agora para a página responsável pelo gravamento dos dados no BD, e em seguinda envio os emails com o uso do CDONTS, certo?

Obrigado a todos!

explore · Setembro 28, 2005

Sim você pode usar o AttachFile!

mousard · Setembro 28, 2005

Cara, só ta faltando você usar "encType=multipart/form-data" no form...dai funciona...Manda ver lá....Falow

marcelocardoso · Setembro 30, 2005

PESSOAL!

Agradeço a ajuda de todos que postaram, mas fiz estes dois arquivos abaixo, mas acho que não estão funcionando, pois testo e nada acontece!

Vejam só:

Arquivo: teste1.htm

<form action=send.asp method="post" encType=multipart/form-data name="rh" id="rh">
 <table width="75%"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FDFCDF" class="BORDER3">
               <tr> 
                 <td width="6%" height="26"> </td>
                 <td width="88%"> </td>
                 <td width="6%"> </td>
               </tr>
               <tr> 
                 <td> </td>
                 <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
         <tr> 
           <td width="32%">Nome:</td>
           <td width="68%"><label> 
             <input name="Nome" id="Nome" type="text" size="35" maxlength="30">
             <em class="small"></em></label></td>
         </tr>
         <tr> 
           <td>E-mail:</td>
           <td><label> 
             <input name="Email" type="text" id="Email"  size="35" maxlength="45">
             <em class="small"></em></label></td>
         </tr>
         <tr> 
           <td><font color="#FF6600"><strong>Anexar Curriculo:</strong></font></td>
           <td><label> 
             <input name="Arquivo" type="file" id="Arquivo">
             </label> </td>
         </tr>
         <tr> 
           <td> </td>
           <td><label> 
             <input name="Input" type="image" src="botao_03.gif" width="30" height="17">
             </label></td>
         </tr>
       </table></td>
                 <td> </td>
               </tr>
               <tr> 
                 <td> </td>
                 <td> </td>
                 <td> </td>
               </tr>
             </table>
           </FORM>

E aqui vai o arquivo que resgata os valores e envia a mensagem!

Mas notarão que coloquei um Response.Write Destinatario, para primeiramente ver os dados, mas não me aparece nada!

Arquivo: send.asp

ASP

[*]<%

[*]

[*]'Resgatando valores do FORM

[*] Nome = Request.Form("Nome")

[*] Email = Request.Form("Email")

[*] Arquivo = Request.Form("Arquivo")

[*]

[*]'Criando conexão com o CDONTS para enviar mensagens

[*]' Set eObjMail = Server.CreateObject("CDONTS.NewMail")

[*]

[*]'Mensagem Padrão - Ao Destinatário

[*] Destinatario = Destinatario & "NOME:"

[*] Destinatario = Destinatario & ""& Nome &""" "

[*] Destinatario = Destinatario & "EMAIL:"

[*] Destinatario = Destinatario & ""& Email &""

[*]

[*]'Configuração do CDONTS, para envio da mensagem strMsg01

[*]' eObjMail.To = "rh@teste.com.br"

[*]' eObjMail.From = Email

[*]' eObjMail.Subject = "[ Cadastro de Curriculo ]"

[*]' eObjMail.Importance = 2

[*]' eObjMail.BodyFormat = 0

[*]' eObjMail.MailFormat = 0

[*]' eObjMail.AttachFile Arquivo

[*]' eObjMail.Body = Destinatario

[*]' eObjMail.Send

[*]

[*]%>

[*]

[*]<%

[*]Response.Write Destinatario

[*]Response.End

[*]

[*]%>

Se puderem testar e me ajudarem a resolver este problema, pois realmente não sei o porque que não está pegando os valores do formulario, e apresentando os na tela?

Me ajudem colegas, pois quero atachar neste exemplo simples um curriculo em word?

Será que podem me ajudar??????

Obrigado.

marcelocardoso · Outubro 1, 2005

EEEEEEEEEEEIIIIIIIIIIIII alguém consegue me ajudar no POST que postei anterior a este!Pois fiz como disseram, mas não estou conseguindo resgatar os valores, ou seja; não está funcionando, podem testar!E me ajudem a anexar este curriculo em word com o multipart????Obrigado.

explore · Outubro 1, 2005

Da algum erro?

bareta · Outubro 1, 2005

se você usa encType=multipart/form-data pro form mandar o arquivo.... você tem que redirecionar para a pagina que vai tratar o arquivo... pois um form enviadocom encType=multipart/form-data deixa com que o request.form("x") naum funcione mais.....

marcelocardoso · Outubro 2, 2005

CAROS AMIGOS!

EXPLORE!

Infelismente não me dá nenhum erro!

BARETA!

Poderia me ajudar a fazer a segunda parte do código, e ver oque está de errado com o meu segundo arquivo, chamado SEND.ASP?

Pois quero resolver este exemplo que fiz, mas não tenho conhecimento o suficiente para resolver....

Me ajudem...

designmix · Outubro 2, 2005

caro amigo fiz assim e deu certo aqui usei o dundas upload

Set oDundas = Server.CreateObject("Dundas.Upload.2")			oDundas.UseUniqueNames = False			oDundas.Save "C:\Documents and Settings\Jaffar\Desktop\spa_saopedro\arquivos\"					Arquivo = Trim(oDundas.GetFileName(oDundas.Files(0).Path))									Empresa  =  oDundas.Form.Item("Empresa")			Email	= (Trim(LCase(oDundas.Form.Item("Email"))))			Telefone =  oDundas.Form.Item("DDD") & oDundas.Form.Item("telefone")			Telefone =  oDundas.Form.Item("Telefone")			Observa  = oDundas.Form.Item("Observacoes")

marcelocardoso · Outubro 3, 2005

E não tem jeito de fazer sem fazer o upload para o servidor?Pois só queria fazer algo que nem eu postei no ultimo post, nos dois arquivos, do TESTE1.htm e SEND.asp?Me ajudem galera!

marcelocardoso · Outubro 4, 2005

CARO DESIGNMIX E COLEGAS

Segundo o seu exemplo!

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

oDundas.UseUniqueNames = False

oDundas.Save "C:\Documents and Settings\Jaffar\Desktop\spa_saopedro\arquivos\"

Arquivo = Trim(oDundas.GetFileName(oDundas.Files(0).Path))

Empresa = oDundas.Form.Item("Empresa")

Email = (Trim(LCase(oDundas.Form.Item("Email"))))

Telefone = oDundas.Form.Item("DDD") & oDundas.Form.Item("telefone")

Telefone = oDundas.Form.Item("Telefone")

Observa = oDundas.Form.Item("Observacoes")

Não consegue me postar para o DUNDAS UPLOAD 1, pois o meu servidor só suporta o 1?

1) E também gostaria de perguntar como fica o meu formulario, fica do mesmo jeito que postei, só muda daí o arquivo que estará com a programação do dundas, e CDONTS que enviará o email com o curriculo?

2) E nesta tua programação, o caminho e o nome do arquivo fica naquela variavel ARQUIVO = TRIM(oDundas....????

Agradeço se alguém puder me ajudar, pois nunca mexi com upload ANTES.

Há antes que eu me esqueça meu servidor também suporta o AspSmartUpload?

Por isso podem me conseguir com o DUNDAS 1 ou para o ASPSMARTUPLOAD?

Me ajudem amigos, não sei mexer mesmo.

Obrigado.

marcelocardoso · Outubro 5, 2005

Olá GENTE!Alguém experiente consegue me passar o que o DESIGNMX fez para me mostrar, passando o código dele para o DUNDAS.UPLOAD.1Pois o UPLOAD.2 o servidor onde testo não funciona, pois só tem a DLL 1?Podem me ajudar!.Obrigado!

Arquivado

upload

Recommended Posts

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

CarlosNet 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

CarlosNet 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

explore 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

mousard 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

explore 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

bareta 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

designmix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante