Anexar Arquivos Em Um Formulario

[PRISCILA STOCHINI]

Bom, tenho um formulario que seus dados após o submit são enviados para um email especifico. Quero poder colocar um campo em que o usuario que está respondendo o formulario possa colocar anexo.

Para enviar este formulario estou utilizando o componente CDONTS....o que e como posso fazer para anexar e enviar esse anexo????

É muito URGENTE .....ALGUÉM ME AJUDA!!!!!!!!

[Marcos-rj]

são 2 passos para enviar um e-mail com anexo a partir de um formulario.

Passo 1: Fazer upload do arquivo.

Passo 2: Fazer o envio de e-mail, colocando no caminho do anexo o caminho do arquivo no qual foi feito o upload.

no cdonts

objMail.AttachFile Server.MapPath("pasta/nomedoarquivo")

[PRISCILA STOCHINI]

ME AJUDEM!!!!!!!!

Então eu preciso criar um campo do formulario para que a pessoa faça a busca do arquivo que gostaria de estar enviando???? Certo?? Então como deve ser esse campo????

depois da pesquisa do arquivo coloco esse comando para enviar os dados certo????

[Marcos-rj]

você precisa enviar o arquivo p/ o servidor usando algum componente p/ fazer o upload, e na propriedade .AttachFile do cdonts colocar o endereço completo do arquivo.

[PRISCILA STOCHINI]

Então qual componente eu consigo enviar o arquivo por servidor????

[PRISCILA STOCHINI]

E enviar o endereço completo do objMail.AttachFile Server.MapPath("pasta/nomedoarquivo")

[PRISCILA STOCHINI]

Bom, como eu sei que a intenção desse forum é tirar duvidas, então vou colocar a ideia que tiva para solucionar meu problema.

Faço o formulário, e nesse coloco duas includes (uma para conectar o bco, e outra pra fazer o upload do arquivo), envio esse dados para o bco. Em outra pagina eu pego os dados desse bco e envio para o email.

Ai está o maior problema....

Como eu faço o UPLOAD do arquivo....não sei, não faço a minima ideia....ME AJUDEM!!!

[PRISCILA STOCHINI]

Bom, pelo que estou entendendo o que não estou conseguindo fazer é o UPLOAD do arquivo e enviar ele para o email...

Por favor me ajudem é um caso de vida ou morte!!!

[Marcos-rj]

upload sem componentes

Upload sem componentes

[PRISCILA STOCHINI]

Página Upload_funcoes.asp

<%

' Upload Sem componentes ---------------------------------------

Sub BuildUploadRequest(RequestBin)

on error resume next

PosBeg = 1

PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))

boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg)

BoundaryPos = InStrB(1, RequestBin, boundary)

Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--")))

Dim UploadControl

Set UploadControl = CreateObject("Scripting.Dictionary")

Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition"))

Pos = InStrB(Pos, RequestBin, getByteString("name="))

PosBeg = Pos + 6

PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))

Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename="))

PosBound = InStrB(PosEnd, RequestBin, boundary)

If PosFile <> 0 And (PosFile < PosBound) Then

PosBeg = PosFile + 10

PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))

FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

UploadControl.Add "FileName", FileName

Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:"))

PosBeg = Pos + 14

PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))

ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

UploadControl.Add "ContentType", ContentType

PosBeg = PosEnd + 4

PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2

Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg)

Else

Pos = InStrB(Pos, RequestBin, getByteString(Chr(13)))

PosBeg = Pos + 4

PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2

Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))

End If

UploadControl.Add "Value", Value

UploadRequest.Add Name, UploadControl

BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary)

Loop

End Sub

Function getByteString(StringStr)

For i = 1 To Len(StringStr)

Char = Mid(StringStr, i, 1)

getByteString = getByteString & ChrB(AscB(Char))

Next

End Function

Function getString(StringBin)

getString = ""

For intCount = 1 To LenB(StringBin)

getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))

Next

End Function

' Fim upload sem Componentes -----------------------------------------

%>

Pagina Upload_form.asp

<!-- #include file = "upload_funcoes.asp" -->

<table>

<form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data">

<tr>

<td>Nome:</td>

<td><input type="text" name="nome" size="20"></td>

</tr>

<tr>

<td>E-mail:</td>

<td><input type="text" name="email" size="20"></td>

</tr>

<tr>

<td>Foto:</td>

<td><input type="file" name="foto" size="14"></td>

</tr>

<tr>

<td colspan="2">

<input type="submit" name="submit" value="Enviar">

</td>

</tr>

</form>

</table>

Pagina upload_form2.asp

<!-- #include file = "upload_funcoes.asp" -->

<%

' Chamando Funções, que fazem o Upload funcionar

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------

nome = UploadRequest.Item("nome").Item("Value")

email = UploadRequest.Item("email").Item("Value")

' Tipo de arquivo que esta sendo enviado

tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados

caminho_foto = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados

nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados

foto = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("imagens/")

nome_foto = "/"&nome_foto

' pasta + nome dos arquivos

cfoto = "imagens/lojas" + nome_foto

' Fazendo o Upload do arquivo selecionado

if foto <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

For i = 1 to LenB(foto)

MyFile.Write chr(AscB(MidB(foto,i,1)))

Next

MyFile.Close

end if

' Conecta-se ao Banco de Dados

url_conexao = Server.MapPath("banco.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

' cadastra os dados no banco de dados

sql = "Insert into lojas (nome,email,foto) values ('"& nome &"', '"& email &"', '"& cfoto &"')"

Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela

Response.write "Dados Cadastrados com Sucesso!"

' Redireciona após 5 segundos

response.write "<br><br>você será redirecionado em 5 segundos..<br>"

response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>"

%>

Eu vou ter que criar um banco de nome banco.mdb, e uma pasta no servidor de nome lojas dentro de uma chamada imagens??????

[PRISCILA STOCHINI]

ERRO...

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in string in query expression ''??????

/ASP/envia_BD.asp, line 58

LINHA

' cadastra os dados no banco de dados

sql = "INSERT into OBRAS(codigo, email, win, proc, versaoAUTO, software, versao, release, tipo, duvida, arquivo) values ('"&codigo&"', '"&email&"', '"&win&"', '"&proc&"', '"&versaoAUTO&"', '"&software&"', '"&versao&"', '"&release&"', '"&tipo&"', '"&duvida&"', '"&arquivo&"')"

LINE 58 Conexao.Execute(sql)

ME AJUDEM....