Pessoal sou novo aki no forum...
Estou adicionando no site da empresa ond trabalho o campo de trabalhe conosco..
Já procurei na net um exemplo de formulario para enviar contato no sistema CDOSYS mais não consegui nada...
Peço ajuda a vcs pq não sei mais o q fazer e meu gerente ta torrando minha paciencia com isso..
Grato a qm me ajudar...
(Ajuda Urgente) Formulario De Contato Com Envio De Anexo
Started By Alexandre Max, 03/02/2010, 22:21
3 replies to this topic
#1
Posted 03/02/2010, 22:21
#2
Posted 05/02/2010, 11:57
Veja se é isto que precisa...
Tenho este exemplo com o CDonts
'Recupere os campos da página anterior
Tenho este exemplo com o CDonts
'Recupere os campos da página anterior
<% DIM todos, nome,tel,cel,empresa,texto nome = request.Form("nome") tel = request.Form("tel") cel = request.Form("cel") empresa = request.Form("empresa") texto = replace(request.form("texto"),chr(13),"<br>") 'Formate-os todos="Contato pelo site<br>" todos=todos+"<strong> Nome: </strong>"+nome+"<br>" todos=todos+"<strong> Telefone: </strong>"+tel+"<br>" todos=todos+"<strong> Celular: </strong>"+cel+"<br>" todos=todos+"<strong> Empresa: </strong>"+empresa+"<br>" todos=todos+"<strong> TEXTO: </strong><br>" todos=todos+texto+"<br>" Set oCdoMail = Server.CreateObject("CDONTS.NewMail") oCdoMail.from="Email que envia@?????.com" oCdoMail.to = "Email que recebe@?????.com" oCdoMail.CC = "Com cópia para oculta@?????.com" oCdoMail.BodyFormat = 0 ' parametro de formatação oCdoMail.MailFormat = 0 ' parametro de formatação 'Aqui attaacha... oCdoMail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail oCdoMail.subject=".:: CONTATO ::." oCdoMail.Body=todos oCdoMail.send set oCdoMail = Nothing %>
Edição feita por: Renan L. Queiroz, 05/02/2010, 13:36.
Inclusão da tag [ code ] para postagem de scripts
#3
Posted 10/02/2010, 22:17
Não cara, o codigo para upload do arquivo q estou usando é esse:
Mai qnd envio o arquivo a janela é para sumir e anexar o arquivo no campo da outra janela.
apreseanta esse esrro:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/holifarma/curriculum/Aspupload.asp, line 17
CODIGO
Mai qnd envio o arquivo a janela é para sumir e anexar o arquivo no campo da outra janela.
apreseanta esse esrro:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/holifarma/curriculum/Aspupload.asp, line 17
CODIGO
<% Dim objUpload Set objUpload = Server.CreateObject("Dundas.Upload.2") objUpload.Save(Server.MapPath("/curriculum/")) objUpload.MaxFileSize = 10000000 objUpload.UseVirtualDir = False objUpload.UseUniqueNames = True %> <%= Count %> <FONT SIZE="1" FACE="ARIAL">ARQUIVO ENVIADO <% Set FSO = CreateObject("scripting.FileSystemObject") Set Folder = FSO.GetFolder("/curriculum/") Set Files = Folder.Files %> <% For each objUploadedFile In Upload.Files arquivo = objUploadedFile.ExtractFileName response.Write(": " & objUploadedFile.ExtractFileName) seq = seq + 1 Next 'criei uma session para armazenar o no do arquivo session("arquivo") = arquivo if session("arquivo") <> "" then response.redirect "index.asp" end if %>
Edição feita por: Renan L. Queiroz, 11/02/2010, 08:08.
Inclusão da tag [ code ] para postagem de scripts
#4
Posted 23/02/2010, 11:00
O erro é nessa linha?
Set Files = Folder.Files
Especialidade: Desenvolvimento e Banco de Dados.
Este post lhe ajudou? Agradeça:
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)