Jump to content


Photo

Inserindo Upload


  • Faça o login para participar
5 replies to this topic

#1 JHUNYORBRAVO

JHUNYORBRAVO

    Normal

  • Usuários
  • 108 posts
  • Sexo:Não informado
  • Localidade:Belo Horizonte

Posted 26/05/2009, 23:15

Galera;

Alguém poderia me ajudar????

Criei um formulário e minha cliente pediu q inserir um campo com upload no formulário, só q não sei como fazer isso inserindo neste script, alguém pode me ajudar?


<% 
sch = "http://schemas.microsoft.com/cdo/configuration/" 
Set cdoConfig = Server.CreateObject("CDO.Configuration") 

cdoConfig.Fields.Item(sch & "sendusing") = 2 
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.teste.com.br" 
cdoConfig.Fields.Item(sch & "smtpserverport") = 25 
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 
cdoConfig.Fields.Item(sch & "sendusername") = "rh@teste.com.br" 'conta@seu_dominio 
cdoConfig.Fields.Item(sch & "sendpassword") = "TESTE" 
cdoConfig.fields.update 
Set cdoMessage = Server.CreateObject("CDO.Message") 
Set cdoMessage.Configuration = cdoConfig 

cdoMessage.From = "rh@testecom.br" 'ENDEREÇO DE E-MAIL QUE SERÁ EXIBIDO NO FROM DA MENSAGEM 
cdoMessage.To = "rh@teste.com.br" 'ex: conta@seu_dominio, conta@uol.com.br, conta@hotmail 
cdoMessage.Subject = "Curriculo" 
cdoMessage.ReplyTo = Request("memail") 

strBody = "Dados <br> <br>" & _ 
"NOME:"& Request("mnome")& "<br>" & _ 
"NASCIMENTO:"& Request("mnascimento")& "<br>" & _ 
"IDADE:"& Request("midade")& "<br>" & _ 
"SEXO:"& Request("msexo")& "<br>" & _ 
"ENDERECO:"& Request("mendereco")& "<br>" & _ 
"NUMERO:"& Request("mnumero")& "<br>" & _ 
"COMPLEMENTO:"& Request("mcomplemento")& "<br>" & _ 
"BAIRRO:"& Request("mbairro")& "<br>" & _ 
"CIDADE:"& Request("mcidade")& "<br>" & _ 
"TEL_COMERCIAL:"& Request("mtel_comercial")& "<br>" & _ 
"CELULAR:"& Request("mcelular")& "<br>" & _ 
"TEL_RECADOS:"& Request("mtel_recados")& "<br>" & _ 
"EMAIL:"& Request("memail")& "<br>" & _ 
"CNH:"& Request("mcnh")& "<br>" & _ 
"CIVIL:"& Request("mcivil")& "<br>" & _ 
"ALTURA:"& Request("maltura")& "<br>" & _ 
"MANEQUIM:"& Request("mmanequim")& "<br>" & _ 
"CABELOS:"& Request("mcabelos")& "<br>" & _ 
"OLHOS:"& Request("molhos")& "<br>" & _ 
"CALCADO:"& Request("mcalcados")& "<br>" & _ 
"PESO:"& Request("mpeso")& "<br>" & _ 
"TATUAGEM:"& Request("mtatuagem")& "<br>" & _ 
"OLHOS:"& Request("molhos")& "<br>" & _ 
"PIERCING:"& Request("mpiercing")& "<br>" & _ 
"ESCOLARIDADE:"& Request("mescolaridade")& "<br>" & _ 
"CURSO:"& Request("mcurso")& "<br>" & _ 
"IDIOMAS:"& Request("midiomas")& "<br>" & _ 
"NIVEL:"& Request("mnivel")& "<br>" & _ 
"DIAS:"& Request("mdias")& "<br>" & _ 
"HORARIO:"& Request("mhorario")& "<br>" & _ 
"SERVICOS:"& Request("mservico")& "<br>" & _ 
"EXP_COMERCIAL:"& Request("mexp_comercial")& "<br>" & _ 
"EXP_PROMOCIONAL:"& Request("mexp_promocional")& "<br>" & _ 
"OBSERVACOES:"& Request("mobservacoes")& "<br>" & _ 
"FOTO:"& Request("Arquivo1") 

strBody = strBody & "." 
cdoMessage.HTMLBody = strBody 

cdoMessage.Send 

Set cdoMessage = Nothing 
Set cdoConfig = Nothing 

response.redirect "trabalhe.htm" 

%>


#2 Tarkan

Tarkan

    Powered by Linux - Que inglês! ;)

  • Ex-Admins
  • 651 posts
  • Sexo:Masculino
  • Localidade:Copacabana - RJ

Posted 27/05/2009, 17:42

Cara,

Qual componente você está usando pra fazer upload?
Informe, para que possa dar uma resposta correta.

Abraços,

<_<
' nome: gustavo veiga
' profissão: ALOG Data Centers do Brasil (analista de sistemas)
' publicidade: ALOG Data Centers do Brasil

#3 JHUNYORBRAVO

JHUNYORBRAVO

    Normal

  • Usuários
  • 108 posts
  • Sexo:Não informado
  • Localidade:Belo Horizonte

Posted 28/05/2009, 04:21

Tarkan;

AspUpload ou Dundas.. tanto faz... :unsure:


Obrigado pela ajuda!
No aguardo

#4 Generation

Generation

    Super Veterano

  • Usuários
  • 1546 posts
  • Sexo:Masculino
  • Localidade:Curitiba - PR

Posted 31/05/2009, 22:52

Link de Estudo e Pronto com exemplos direto do fabricante:

http://www.aspupload...ual_simple.html


A Lógica :

Efetuar o uploado pelo formulario, e depois anexar no CDO. :D , e claro depois remover usando o proprio componente ou FSO....



[]'s

Edição feita por: Generation, 31/05/2009, 22:52.

Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)

#5 JHUNYORBRAVO

JHUNYORBRAVO

    Normal

  • Usuários
  • 108 posts
  • Sexo:Não informado
  • Localidade:Belo Horizonte

Posted 05/06/2009, 06:15

Não consegui... :s


Eu achei esse abaixo: Só que quando envio o formulário o upload não grava no servirdor a foto

<%Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("e:\home")
%>


Alguém me ajuda pelo amor de Deus :S:S:S:S:S

#6 JHUNYORBRAVO

JHUNYORBRAVO

    Normal

  • Usuários
  • 108 posts
  • Sexo:Não informado
  • Localidade:Belo Horizonte

Posted 09/06/2009, 08:12

Ninguém pode me auxiliar?! :>.<: :cry: :shit: :blink: :wacko: :(




2 user(s) are reading this topic

0 membro(s), 2 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq