Upload sem componentes

[dark0 0]

 

 

o script que eu peguei tem estas linhas que pelo que parece renomeia as fotos com o auxilio daquela função.

 

set objFile = objUpload.File(1)

 

' Novo Nome

nome = "imagem"&day(now)&"_"&hour(now)&"_"&minute(now)&"_"&second(now)&".jpg"

 

' Função Renomeia Foto

renomeiafoto "fotos/"&objFile.Filename,"fotos/"&nome

Sim amigo, eu entendi e tal..

 

Porém, quando você vai definir um nome para a foto, você vai colocar os nomes manualmente, ou vai buscar estes nomes de algum lugar?

Para definir um nome, se você usar este meu código aqui, é facil..

Em uma parte dele, tem uma variavel nome_foto. Basicamente é ela quem guarda a informação.. basta alterar ali..!

 

 

Sobre a outra dúvida..

Primeiro .. você vai guardar as informações dos eventos, bem como informações de cada foto em algum banco de dados?

Se sim.. fica facil.. é só.. antes de mostrar a pagina de upload, você fazer uma consulta no banco para saber quantas fotos ainda o usuario pode enviar.

 

Se não for usar nada.. como pretende ter este controle?

 

Sim.. você pode fazer a contagem manualmente.. durante os envios.

Mas o problema, é que se o cara enviar 10 fotos, e a conexao cair.. ele nao teria terminado né? Então ficaria pela metade?

 

Pense bem nisso, antes de montar a estrutura..

 

Abração!

 

Caro Colega.

 

Eu pensei da seguinte forma.. caso caia a conecção, ele pode entrar e editar o evento, ou seja mandar as fotos que faltaram uma a uma....eu preciso da quantidade pra fazer o loop..ou seja eu envio a foto e vonto na págia pra enviar a seguinte o numero de vezes que ele colocou na quantidade de foto.

 

Com relação a renomear..quero que faça automaticamente, como o script que eu passei faz, como ficaria isso no seu script, será que você pode me ajudar???

 

Valeu

 

Já pensou no que irá usar para definir os nomes das fotos?

 

Invente um critério.. depois, para por no codigo fica facil..

 

Eu, em uma galeria de fotos, uma vez, utilizei o nome do usuario + nome da foto

 

Assim, nunca ficaria duplicado..

 

Veja como você pretende fazer, e depois eu lhe ajudo.

 

Abraço..

 

desculpe não ter postado aqui minha pergunta Dark vou postar meu formulario ve se da para por campo de anexo dele, ele funciona bem assim.

Brevino..

 

é possível sim.

 

Porém, muita coisa terá que ser alterada.

 

Na pagina do form, para ele funcionar com o campo de anexo, você tem que especificar o method na tag do form, e depois adicionar o campo file no formulario.

 

Depois, na pagina que recebe os dados vindos do formulario, terá que ser totalmente remodelada.

Daí, para isso, recomendo que você pegue a pagina que tem nesse topico, e adicione seus campos nela.

 

Qualquer coisa, pode postar

 

Abraços

 

 

amigo, você está buscando informações do banco de dados, correto?

 

Se você mandar escrever na tela as informações vindas do banco de dados, você consegue?

 

Se, ao invés de mostrar a imagem, você mostrar na tela o caminho dela que está no banco de dados, você consegue?

 

Se nem isso você conseguir, seu problema está EM TRAZER OS DADOS DO BANCO.

 

A imagem em si, não tem que carregar nada.. ela só vai aparecer se você colocar o caminho correto dela, no SRC da tag img.

 

Antes de querer mostrar a imagem, é preciso ter o caminho dela..

o caminho aparecia antes, mas já que você tá falando que a imagem não aparece. ok.

 

Brother, ainda nao resolveu?

 

Poste aqui todo o seu codigo pra mim olhar

 

T+

[marciolvs 1]

Bom dia!

 

Como faço p/ limitar um tamanho para este upload num total de bytes.. tipo

 

tamanho maximo de 2MB

 

 

Obrigado!

<% Marcio Leandro %>

[dbkrobath 0]

Alguem já tentou usar o option explicit com esse upload ?Aqui começou a dar erro de time out

[dark0 0]

Bom dia!

 

Como faço p/ limitar um tamanho para este upload num total de bytes.. tipo

 

tamanho maximo de 2MB

 

 

Obrigado!

<% Marcio Leandro %>

Olá

 

Bem.. acredito, que você terá de usar alguma função do FSO, pois é com ele, que você tem acesso à informação de arquivos e pastas.

 

Alguem já tentou usar o option explicit com esse upload ?

 

Aqui começou a dar erro de time out

Brother, a principio, o Option Explicit nao deveria dar erro de timeout naum..

 

Pois, ele é bastante usado para ter mais organização no código. Então, isso, digamos, não mudaria nada no funcionamento e na logica do script.

 

Reveja seu codigo.. se esta tudo ok.. experimente tirar o option explicit, e veja se assim ele continua com o timeout.

 

Abraço

[Elleinad 0]

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif Olá pessoal,

 

Olha só preciso fazer um script q através de um botão duplique a linha de upload possibilitando q o usuario faça mais de um upload ao mesmo tempo, o problema é o seguinte :

 

1- O Usuário pode fazer qtos uploads quiser pode ter 20 espaços para upload, ou apenas 1 q é o q já aparece na tela por default.

 

2- Pode baixar qualquer tipo de arquivo.

 

3- cada vez q um campo de upload é criado no script ele deve ser criado no meu código C#, só q esse campo só vai ser usado daquela vez pois cada vez q a tela for aberta ele vai criar novos campos, a medida q o Usuário clicar no botão q irá adicionar os campos de upload.

 

 

Entenderam??

 

Agradeço desde já!!! Ah, é meio Urgente a questão... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

[dark0 0]

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif Olá pessoal,Olha só preciso fazer um script q através de um botão duplique a linha de upload possibilitando q o usuario faça mais de um upload ao mesmo tempo, o problema é o seguinte :1- O Usuário pode fazer qtos uploads quiser pode ter 20 espaços para upload, ou apenas 1 q é o q já aparece na tela por default.2- Pode baixar qualquer tipo de arquivo.3- cada vez q um campo de upload é criado no script ele deve ser criado no meu código C#, só q esse campo só vai ser usado daquela vez pois cada vez q a tela for aberta ele vai criar novos campos, a medida q o Usuário clicar no botão q irá adicionar os campos de upload.Entenderam??Agradeço desde já!!! Ah, é meio Urgente a questão... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

Opa.. beleza?Já tem noção de onde começar?----

1- O Usuário pode fazer qtos uploads quiser pode ter 20 espaços para upload, ou apenas 1 q é o q já aparece na tela por default.

Na parte de programação, a principio, nao eh problema. você pode deixar no formulario um campo de contador de uploads. Então.. se o cara for fazer 5 uploads, esse campo terá valor 5.Daí, dentro da programação Asp, que é onde o upload é realmente efetuado, você pode fazer um for de 1 até o valor daquele campo. Assim, faria todos os uploads que forem solicitados.

2- Pode baixar qualquer tipo de arquivo.

Acredito que o codigo que postei no começo deste topico, já aceita qualquer tipo.

3- cada vez q um campo de upload é criado no script ele deve ser criado no meu código C#, só q esse campo só vai ser usado daquela vez pois cada vez q a tela for aberta ele vai criar novos campos, a medida q o Usuário clicar no botão q irá adicionar os campos de upload.

Aqui, entra uma parte de javascript.Pois, para alterar o total de arquivos na pagina.. adicionar mais campos de upload no formulario, sem atualizar a pagina e tal.. é pura programação javascript.Sugiro, quando for fazer esta parte, pedir ajuda no fórum de Javascript.Mas, lembre-se, que após ter a parte que adiciona os campos no formulario, você pode criar um campo hidden, que recebe o valor do total de campos adicionados no formulario.Assim, vai lhe facilitar depois, dentro da programação asp, para conseguir uplodear todos os arquivos!Beleza?Abraços

[Elleinad 0]

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif Olá pessoal,Olha só preciso fazer um script q através de um botão duplique a linha de upload possibilitando q o usuario faça mais de um upload ao mesmo tempo, o problema é o seguinte :1- O Usuário pode fazer qtos uploads quiser pode ter 20 espaços para upload, ou apenas 1 q é o q já aparece na tela por default.2- Pode baixar qualquer tipo de arquivo.3- cada vez q um campo de upload é criado no script ele deve ser criado no meu código C#, só q esse campo só vai ser usado daquela vez pois cada vez q a tela for aberta ele vai criar novos campos, a medida q o Usuário clicar no botão q irá adicionar os campos de upload.Entenderam??Agradeço desde já!!! Ah, é meio Urgente a questão... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

Opa.. beleza?Já tem noção de onde começar?----

1- O Usuário pode fazer qtos uploads quiser pode ter 20 espaços para upload, ou apenas 1 q é o q já aparece na tela por default.

Na parte de programação, a principio, nao eh problema. você pode deixar no formulario um campo de contador de uploads. Então.. se o cara for fazer 5 uploads, esse campo terá valor 5.Daí, dentro da programação Asp, que é onde o upload é realmente efetuado, você pode fazer um for de 1 até o valor daquele campo. Assim, faria todos os uploads que forem solicitados.

2- Pode baixar qualquer tipo de arquivo.

Acredito que o codigo que postei no começo deste topico, já aceita qualquer tipo.

3- cada vez q um campo de upload é criado no script ele deve ser criado no meu código C#, só q esse campo só vai ser usado daquela vez pois cada vez q a tela for aberta ele vai criar novos campos, a medida q o Usuário clicar no botão q irá adicionar os campos de upload.

Aqui, entra uma parte de javascript.Pois, para alterar o total de arquivos na pagina.. adicionar mais campos de upload no formulario, sem atualizar a pagina e tal.. é pura programação javascript.Sugiro, quando for fazer esta parte, pedir ajuda no fórum de Javascript.Mas, lembre-se, que após ter a parte que adiciona os campos no formulario, você pode criar um campo hidden, que recebe o valor do total de campos adicionados no formulario.Assim, vai lhe facilitar depois, dentro da programação asp, para conseguir uplodear todos os arquivos!Beleza?Abraços

Mas olha só ele não tem um limite de campos de upload! cada vez q ele abrir de novo a tela ele vai colocar qts campos quiser os campos tem q aparecer exatamente da linha de upload q já aparece!!!http://forum.imasters.com.br/public/style_emoticons/default/cry.gif Tu não tem como me mandar um exempl ode código q faça isso pra mim entender melhor??Muito Obrigadot+ ^_^

[buenolex 0]

Olá legal este código, parabéns! Minha única dificulade é quando tento fazer vários uploads pois acontece que com determinados tamanhos de arquivos como 300kb não conseguir fazer o upload para meu servidor.Alguém já passou por esta dificuldade?Agradeço qualquer ajuda,Lex.

[kaplan 0]

bom galera fiz alguma modificacoes no codigo avaliem pra mim esta funcionando

 

seguinte eu precisa de um sistema que funcionasse assim

eu tenho um site de carros e quero que os clientes coloque fotos e comentem sobre elas serao no maximo de 10 fotos e 10 comentarios, e quero renomear os arquivos de upload e tb quero grava no banco so que a minha tabela e assim:

 

FotoCod (int, chave primaria), CodAnuncio(int), FotoNome(Varchar), FotoComen(Varchar)

ou seja se eu tiver que fazer 10 uploads de fotos ele vai fazer os 10 e tb vai fazer 10x o insert no bd o que eu fiz

 

upload_form2.asp

Dim c, f, A()Dim caminho_foto(), foto()Dim cfoto(), nome_foto()' Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin'Conteudo binario dos arquivos enviandosfoto1 	 = UploadRequest.Item("foto1").Item("Value")foto2 	 = UploadRequest.Item("foto2").Item("Value")foto3 	 = UploadRequest.Item("foto3").Item("Value")foto4 	 = UploadRequest.Item("foto4").Item("Value")foto5 	 = UploadRequest.Item("foto5").Item("Value")foto6 	 = UploadRequest.Item("foto6").Item("Value")foto7 	 = UploadRequest.Item("foto7").Item("Value")foto8 	 = UploadRequest.Item("foto8").Item("Value")foto9 	 = UploadRequest.Item("foto9").Item("Value")foto10	 = UploadRequest.Item("foto10").Item("Value")[color=#FF0000]'verifico quantas fotos tem para fazer o uploadFotoT = 0If foto1 <> "" Then	FotoT = FotoT + 1End IfIf foto2 <> "" Then	FotoT = FotoT + 1End IfIf foto3 <> "" Then	FotoT = FotoT + 1End IfIf foto4 <> "" Then	FotoT = FotoT + 1End IfIf foto5 <> "" Then	FotoT = FotoT + 1End IfIf foto6 <> "" Then	FotoT = FotoT + 1End IfIf foto7 <> "" Then	FotoT = FotoT + 1End IfIf foto8 <> "" Then	FotoT = FotoT + 1End IfIf foto9 <> "" Then	FotoT = FotoT + 1End IfIf foto10 <> "" Then	FotoT = FotoT + 1End If[/color]'Tipo de arquivo que esta sebdo enviadotipo_foto1 	 = UploadRequest.Item("foto1").Item("ContentType")tipo_foto2 	 = UploadRequest.Item("foto2").Item("ContentType")tipo_foto3 	 = UploadRequest.Item("foto3").Item("ContentType")tipo_foto4 	 = UploadRequest.Item("foto4").Item("ContentType")tipo_foto5 	 = UploadRequest.Item("foto5").Item("ContentType")tipo_foto6 	 = UploadRequest.Item("foto6").Item("ContentType")tipo_foto7 	 = UploadRequest.Item("foto7").Item("ContentType")tipo_foto8 	 = UploadRequest.Item("foto8").Item("ContentType")tipo_foto9 	 = UploadRequest.Item("foto9").Item("ContentType")tipo_foto10	 = UploadRequest.Item("foto10").Item("ContentType")'Pasta onde as imagens serao guardadaspasta = Server.MapPath("imagens/")'Cadastra os dados no banco de dadosIf Fotot > 0 Then	'Definido parametros	c = 10	ReDim A(c)	ReDim caminho_foto(c)	ReDim cfoto(c)	ReDim nome_foto(c)	ReDim foto(c)	'Fazendo o for para insercao dos dados	For f = 1 To FotoT		'Recuprando o comentario sobre a foto		A(f) = UploadRequest.Item("cfoto" & f).Item("Value")				'Caminho completo dos arquivos enviados		caminho_foto(f) 	= UploadRequest.Item("foto" & f).Item("FileName")				'Nome dos arquivos enviados		nome_foto(f) = "user"& Session("CodUser") & "_" & Right(caminho_foto(f),Len(caminho_foto(f))-InstrRev(caminho_foto(f),"\"))				'Conteudo binario dos arquivos enviandos		foto(f) 	 = UploadRequest.Item("foto" & f).Item("Value")		'Pasta onde as imagens serao guardadas		nome_foto(f) 	 = "/"&nome_foto(f)				'Pasta + nome dos arquivos		cfoto(f) 	 = "imagens" + nome_foto(f)				'Fazendo o Upload do arquivo selecionado		if foto(f) <> "" then			Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")			Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto(f))			For i = 1 to LenB(foto(f))				MyFile.Write chr(AscB(MidB(foto(f),i,1)))			Next			MyFile.Close		end if		'faco o insert		SqlI = "Insert Into Anuncio_Foto "_		& "		(FotoCod, CodAnuncio, FotoNome, FotoComen) "_		& "	 Values "_		& "		(" & Id & ", '" & Cod & "', '" & A(f) & "', '" & cfoto(f) & "') "		Set RsI = Conn.Execute(SqlI)	NextEnd If

depois avaliem ae pra mim vlw, esta funcionando ok

[Bukowski 0]

olá pessoalLi esses posts todos e consegui fazer o upload com varias imagens. Agora gostaria de fazer algo para que não fosse obrigado a mandar uma das fotos. Só para estudo mesmo. Quer dizer caso eu mande só uma foto, as outras não fiquem aquele quadro do x da foto quando não está disponível.fiz assim, nesse codigo abaixo, mas ainda assim fica o espaço da foto não disponivel na pagina de consulta, pois o upload cria no banco o caminho da pasta "imagens" fica assim no banco quando eu não mando a fotoex: imagens/ e aí na pagina consulta aparece o espaço em branco do arquivo quando não está disponível.if (rsFts.Fields.Item("foto") <> "") then Response.write "<img src='"&rsFts.Fields.Item("foto")&"'width=""140"">" End Ifesse deixa não mandar a for, ou seja não obriga, mas fica a pasta imagensabçs

[Lordouglas 0]

Ola pow dark0 gostei do seu codigo ai, eu tou fazendo um site que e de uma canal de bate papo do mirc ou irc nao seu como você conheçe, e claro que um site assim vai ter fotos dos usuarios da sala, mas eu nao sei nada asp. nao faço a menor ideia como isso funciona nao sei o que ISS eu acho que e isso que tinha ai no forum.Mas acho que e um prgrama pra testa o codigo nao e?Se for me fale onde eu acho um pra mim usar.Quero também limitar o tamanho da imegem que o usuario mandar e também saber se tem como quando o usuario for mandar a sua foto que ele possar colocar um comentario melhor o seu nick?Ah e como eu faço pra as imagens ficar no banco de dados, tenho que criar um banco de dados, como eu faço isso?Espero que você me ajude.

[Flavio Raffaelli 0]

GaleraMuito bom forum !!!To precisando apenas limitar o tamanho da imagem e tb o tipo de imagens nesse upload sem componentes.AbsFlavio

[dark0 0]

Olá legal este código, parabéns! Minha única dificulade é quando tento fazer vários uploads pois acontece que com determinados tamanhos de arquivos como 300kb não conseguir fazer o upload para meu servidor.Alguém já passou por esta dificuldade?Agradeço qualquer ajuda,Lex.

OláEu já ouvi dizer, que o IIS 6.0 pode possuir uma limitação no tamanho do arquivo enviado..Então.. a solução .. naquele caso .. foi mecher nas propriedades do IIS ..Mas isso aconteceu.. quando estavam rodando Windows 2003

[Eduardo VR 0]

Galera, muito bom esse script de upload sem componentes, tudo certo até agoraMas estou com uma dúvida, como faço para editar o registro que tenho arquivos com upload.Fiz o formulário, ele exibe as informações referente ao registro, mas o campo file do upload fica vazio e quando mando gravar, ele grava o caminho vazio, ou seja, toda vez teria que selecionar a imagem novamente?Da uma força aíValew

[PRISCILA STOCHINI 0]

Pessoal, estou utilizando essa função postada, mas tenho que fazer uns ajustes, tipo enviar o arquivo para um email, e depois deleta - lo do servidor...Estou usando Cdonts, para enviar o email com isso utilizo... myMail.Attachfile "varanexo"

[dark0 0]

Galera, muito bom esse script de upload sem componentes, tudo certo até agoraMas estou com uma dúvida, como faço para editar o registro que tenho arquivos com upload.Fiz o formulário, ele exibe as informações referente ao registro, mas o campo file do upload fica vazio e quando mando gravar, ele grava o caminho vazio, ou seja, toda vez teria que selecionar a imagem novamente?Da uma força aíValew

Nesse caso ..sua duvida seria mais html do que asp em si.Mas, eu, quando faço esse tipo de coisa ..eu crio um campo hidden ..passando o caminho atual da imagem.Assim.. se o cara nao escolher nada ..é enviado o caminho antigo ..pelo campo hidden.tendeu a ideia?

[dark0 0]

PriEu dei uma olhada hoje ..Ia te perguntar ..se o Cdonts tem algum parametro que você possa anexar algum arquivo .. mas tive que sair na corrida ..suporte é fogo ..rsvocê sabe se o Cdonts permite anexar arquivos?Tem algum codigo com ele ..com anexo?Se tiver ..posta aí o parametro ..pq eu testei algumas coisas ..mas dava erro na linha de anexar o arquivo ao email.Depois te passo o codigo que eu usei pra fazer ..ta la na empresa ..nao tenho aquiEu tinha montado um form bem simples ..com um campo FILE ..e ia te mostrar como fazer o if para anexar no email caso o cara tenha escolhido algum arquivo ..mas parei no comando pra anexar no cdonts!Abraço ae

[ricardo.frias 0]

Como recupero o valor selecionado em um <select name="categoria">???

Estou tentando:

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

Mas não funfa... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

 

Valeu

Frias

[dark0 0]

Como recupero o valor selecionado em um <select name="categoria">???

Estou tentando:

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

Mas não funfa... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

 

Valeu

Frias

 

ué

 

mas é assim mesmo q recupera

 

Só pra efeito de teste ..muda o tipo de campo para text ..e tenta recuperar do mesmo jeito ..só pra ver se assim ele recupera..

 

Pois, pode ser algum problema com as funções ..ou com o form ..ou com o tipo de campo..

 

Nesse text ja esclaresce algumas duvidas ..hehe

[dark0 0]

OBS: Alteração no script em: 19/10/2006 @ 08:55

 

Fazendo UPLOAD + Enviando E-mail com o anexo recem enviado pro servidor:

 

pagina_do_form.asp

<div align="center">

<table border="1" id="table1">

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

<tr><td colspan="2"> </td></tr>

<tr>

<td class="Desc_Opcoes_di">Arquivo:</td>

<td class="Desc_Opcoes_es"><input type="file" name="arquivo" size="20"></td>

</tr>

<tr><td colspan="2"> </td></tr>

<tr><td colspan="2" class="Desc_Opcoes"><input type="submit" name="enviar" value="Enviar"></td></tr>

</form>

</table>

</div>

pagina_upload.asp

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

<%

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

 

if UploadRequest.Item("arquivo").Item("FileName") = "" then

anexo = "nao"

else

 

' Tipo de arquivo que esta sendo enviado

tipo_arquivo = split(UploadRequest.Item("arquivo").Item("FileName"),".")

tipo_arquivo_2 = "." & tipo_arquivo(ubound(tipo_arquivo))

 

extensoesOk = ".gif,.jpg,.txt,.doc,.xls,.bat,.ppt,.zip,.rar,.exe,.iso,.ini,.dll"

exte = split(extensoesOk,",")

 

a = 0

for i=0 to ubound(exte)

if trim(Lcase(tipo_arquivo_2)) = trim(exte(i)) then

a = 1

end if

next

 

if a <> 1 then

response.write "<center>Tipo de arquivo inválido!<br>"

response.write "Os arquivos permitidos são: "& extensoesOk & "<br>"

response.write "Qualquer outra extensao não será permitida!</center>"

response.end

end if

 

' Caminho completo dos arquivos enviados

caminho_arquivo = UploadRequest.Item("arquivo").Item("FileName")

 

' Nome dos arquivos enviados

nome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\"))

 

' Conteudo binario dos arquivos enviados

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

 

' pasta onde os arquivos serao guardados

pasta = Server.MapPath("files/")

nome_arquivo = pasta & "\" & nome_arquivo

 

if arquivo <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(nome_arquivo)

For i = 1 to LenB(arquivo)

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

Next

MyFile.Close

end if

 

anexo = "sim"

 

end if

 

 

'criamos o obejto do cdonts

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

 

'recebe o valor do recordset com o email cadastrado

EnviarMail.To = "email@servidor.com.br"

 

'recebe o email de quem envia da variavel Vemail

EnviarMail.From = "email@servidor.com.br"

 

'Assunto do email

EnviarMail.Subject = "Assunto"

 

 

if anexo = "sim" and nome_arquivo <> "" then

' Testa se o campo anexo do form possui valor ..para enviar o anexo. Senao, envia somente o email sem anexo

EnviarMail.Attachfile nome_arquivo

end if

 

 

'corpo do email armazenado na variavel

HTML = "<html>"

HTML = HTML & "<head>"

HTML = HTML & "<meta http-equiv=""Content-Type"""

HTML = HTML & "content=""text/html; charset=iso-8859-1"">"

HTML = HTML & "<title>Titulo do E-mail</title>"

HTML = HTML & "</head>"

HTML = HTML & "<body bgcolor=""#FFFFFF"">"

HTML = HTML & "<p align=""center""><span style=""font-family: Arial, Helvetica, sans-serif; font-size: 24px"" color=""#FF0000"">Corpo do E-mail</span><BR><BR>"

HTML = HTML & "<p align=""center""><span style=""font-size: 18px; font-family: Arial, Helvetica, sans-serif"">Sua mensagem foi enviada com sucesso!</span> </p><BR><BR><BR>"

HTML = HTML & "</body>"

HTML = HTML & "</html>"

 

'propriedade recebe a variavel do corpo do email

EnviarMail.Body = HTML

EnviarMail.Importance = 1

EnviarMail.BodyFormat = 0

EnviarMail.MailFormat = 0

 

EnviarMail.Send

 

'fecha o objeto CDONTS

Set EnviarMail = Nothing

 

 

 

response.write "Arquivo enviado com sucesso"

response.end

%>

A pagina funcoes.asp esta no meu primeiro post.

 

Qualquer duvida ..postem ae

 

Abraços