3 replies to this topic

[Alexandre Max]

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...

[Marcio Leandro]

Veja se é isto que precisa...
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&ccedil;&atilde;o 
	oCdoMail.MailFormat = 0 ' parametro de formata&ccedil;&atilde;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

[Alexandre Max]

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

<%
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

[Renan L. Queiroz]

O erro é nessa linha?

Set Files = Folder.Files