Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

josepetri

Problemas no envio de Formulário por e-mail, erro '8004

Por , em ASP Clássico

Recommended Posts

josepetri    0

josepetri
Postado

Olá, estou começando a pouco tempo com asp, e estou tendo problemas em enviar um formulário por e-mail, montei este código a um mês e estou fazendo de tudo para achar o erro, peguei vários tutoriais e exemplos e não acho o erro, na verdade nem consigo fazer os exemplos funcionarem >_< O servidor em que hospedei o site suporta asp e cdosys, fiz o primeiro por cdonts e deu certo pelo iis do Windows XP, já o cdosys não roda em nenhum lugar. Gostaria que alguém me desse uma ajuda, visse o código abaixo, das duas paginas, e se achar o erro me ajudar, toda hora mudo varias coisas no site, e quando penso que vou resolver o problema, aparece outro >_< Obrigado pela atenção.

 

 

form.asp

 

<inicio do código>

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title><style type="text/css"><!--body {background-image: url('fundo.jpg');background-repeat: no-repeat;margin-left: 5px;margin-top: 0px;margin-right: 0px;margin-bottom: 0px}.style10 {font-weight: bold;color: #FF0000;font-style: italic;}.style21 {font-size: 9px;font-family: Verdana, Arial, Helvetica, sans-serif;}.style22 {font-family: Arial, Helvetica, sans-serif;font-size: 12px;}--></style></head><body><script src="cidade.js"></script><span class="style22"><font face="Verdana">   Preencha todos os campos abaixo e clique em “Enviar” para receber todas as informações solicitadas via Correio.<br />Principalmente: cada Unidade<strong> graphis</strong> tem diferenças em relação a outras Unidades. Exemplos: dias e horários de<br />Secretaria, de aulas, serviços, descontos sobre a Tabela oficial, alguns Cursos são ministrados só em certas Unidades,<br />etc.<br /><strong>Atenção!</strong> O Folheto Informativo Completo via Correio informa tudo isso, é totalmente gratuito e não representa nenhum<br />compromisso conosco.<br /><span class="style10">*</span></font><em><font face="Verdana"> O Sistema à Distância e a Venda de Apostilas são exclusivos da Unidade 02- Pç. Árvore (Saúde)</font></em></span><font face="Verdana"></font><form action="emailtrans.asp" method="post" name="contato" class="style21" id="contato"><table width="762" border="0"><tr><td colspan="3"><font face="Verdana"><label>Nome</label><label> </label><br /><input name="textfield" type="text" size="50" /></font></td><td><font face="Verdana">Idade<br /><input name="textfield2" type="text" size="10" /></font></td><td colspan="2"><font face="Verdana">Telefone<br /><input type="text" name="textfield3" size="20" /></font></td></tr><tr><td colspan="3"><font face="Verdana">Endereço<br /><input name="textfield4" type="text" size="50" /></font></td><td><label><font face="Verdana">Numero<br /><input name="textfield5" type="text" size="10" /> </font></label></td><td colspan="2"><p><font face="Verdana">Complemento<br /> <input name="textfield6" type="text" size="10" /> </font></p></td></tr><tr><td><font face="Verdana">Bairro </font></td><td><font face="Verdana">Cidade </font></td><td width="69"><font face="Verdana">Estado</font></td><td><font face="Verdana">CEP</font></td><td colspan="2"><font face="Verdana"><label>email </label></font></td></tr><tr><td width="163"><font face="Verdana"><input name="textfield7" type="text" size="20" /></font></td><td width="90"><font face="Verdana"><input name="textfield8" type="text" size="15" /></font></td><td><font face="Verdana"><input name="textfield9" type="text" accesskey="2" size="5" maxlength="5" /></font></td><td width="96"><font face="Verdana"><input name="textfield10" type="text" size="15" /></font></td><td colspan="2"><font face="Verdana"><input name="textfield11" type="text" size="25" /></font></td></tr><tr><td><font face="Verdana"><label>Unidade </label></font></td><td colspan="2"><font face="Verdana">Cursos</font></td><td> </td><td colspan="2"><font face="Verdana"><label> </label></font></td></tr><tr><td colspan="6"><font face="Verdana"><select name="estado" onclick="city();" onblur="Estado(); converte_city();"><option value="AC">Selecione... </option><option value="AL">02-Unidade Pç. da Árvore/Saúde</option><option value="AP">04-Unidade Santana</option><option value="AM">05-Unidade Tatuapé </option><option value="BA">07-Unidade Lapa ou 08-Unidade Lauzane</option><option value="CE">09-Unidade Cursino</option><option value="DF">12-Unidade Santos</option><option value="ES">13-Unidade Moema</option></select>               <select name="cidade" onchange="ocidade()" onclick="converte_city()"><option>Arte/Comunicação 1º2ºE</option><option>Técnicas de Pintura 3ºE</option><option>Pintura a Óleo 3ºE</option><option>Ilustração 3ºE</option><option>Desenho Publicitário 3ºE</option><option>Histórias em Quadrinhos 3ºE </option><option>Mangá Nível II 1ºE</option><option>Mangá HQ 2ºE</option><option>Mangá Ilustração 2ºE</option><option>Mangá Cartoon Nível I 1ºE</option><option>Mangá Cartoon Nível I 2ºE </option><option>Desenho Juvenil</option><option>Arte Infantil  </option><option>Caricaturas 1ºE</option><option>Caricaturas 2ºE</option><option>Desenho de Modas 1º2ºE</option><option>Letrista/Cartazista  </option><option> </option><option>Desenho Técnico de Projetos 1º2ºE</option><option>Decoração e Móveis 3ºE</option><option>Desenho de Arquitetura 3ºE  </option><option> </option><option>Computação Gráfica Básica</option><option>Desenho para Web Designers  </option><option> </option><option>Curso à Distância</option><option>Venda de Apostilas</option><option>Curso Delivery </option></select></font></td></tr><tr><td><font face="Verdana">Comentários</font></td><td colspan="3"> </td><td width="51"> </td><td width="267"> </td></tr><tr><td colspan="4"><font face="Verdana"><textarea name="textarea" cols="50" rows="2"></textarea></font></td><td><font face="Verdana"><input type="submit" name="Submit" value="Enviar" /></font></td><td> </td></tr></table><font face="Verdana"><label><br /><br /><br /></label></font><p> </p><p> </p><p> </p><p> </p></form></body></html>
<fim do código>

 

 

 

emailtrans.asp

 

<inicio do código>

 

<%Option explicit'Dim nomeDestinatario, emailDestinatario, emailAssunto, nomeRemetente, emailRemetente, mensagem, StrMensagem, myMailDim objCDOSYSMail, objCDOSYSCon' emailAssunto = "Teste de e-mail"'nomeRemetente = Request.Form("nomeRemetente")emailRemetente = Request.Form("emailRemetente")mensagem = Request.Form("mensagem")emailDestinatario = Request.Form("remetente")'' Ve qual o email que tem que mandarIf emailDestinatario = "AC" ThennomeDestinatario = "Graphis"' emailDestinatario = "josepetri@gmail.com"emailDestinatario = "mad.kanie@gmail.com"End IfIf emailDestinatario = "AL" ThennomeDestinatario = "02-Unidade Pç. da Árvore/Saúde"emailDestinatario = "josepetri@gmail.com"End IfIf emailDestinatario = "AP" ThennomeDestinatario = "04-Unidade Santana"emailDestinatario = "josepetri@gmail.com"End IfIf emailDestinatario = "AM" ThennomeDestinatario = "05-Unidade Tatuapé"emailDestinatario = "josepetri@gmail.com"End IfIf emailDestinatario = "BA" ThennomeDestinatario = "07-Unidade Lapa ou 08-Unidade Lauzane"emailDestinatario = "josepetri@gmail.com"End IfIf emailDestinatario = "CE" ThennomeDestinatario = "09-Unidade Cursino"emailDestinatario = "josepetri@gmail.com"End IfIf emailDestinatario = "DF" ThennomeDestinatario = "12-Unidade Santos"emailDestinatario = "josepetri@gmail.com"End IfIf emailDestinatario = "ES" ThennomeDestinatario = "13-Unidade Moema"emailDestinatario = "josepetri@gmail.com"End If'StrMensagem = "---------------------------------------" &_"Enviada por: " & nomeRemetente & Chr(10) &_"E-mail: " & emailRemetente & Chr(10) &_"Em: " & Day(now) & "/" & Month(now) & "/" & Year(now) &_"---------------------------------------" & Chr(10) & Chr(10) & Chr(10) &_mensagem & Chr(10) & Chr(10) & Chr(10) &_"---------------------------------------"Set objCDOSYSMail = Server.CreateObject("CDO.Message")Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.cursosgraphis.com.br"objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configura.../smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configura...nnectiontimeout") = 30 objCDOSYSCon.Fields.update with objCDOSYSMailSet .Configuration = objCDOSYSCon ' .From = nomeRemetente & "<" & emailRemetente & ">".From = "mad.kanie@gmail.com".To = "mad.kanie@gmail.com" .Subject = "Teste do CDOSYS" .TextBody = "Teste do componente CDOSYS" ' .fields.update .Sendend withSet objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.write "E-mail enviado para graphis ..." %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><title>Untitled</title><meta http-equiv="Content-Type" content="text/html; charset=utf-8"><meta name="ROBOTS" content="NOARCHIVE"><meta name="GOOGLEBOT" content="NOARCHIVE"><meta http-equiv="cache-control" content="no-cache, no-store, must-revalidate"><meta http-equiv="Pragma" content="no-cache"><meta http-equiv="Expires" content="Sat, 01 Jan 2000 00:00:01 GMT"><style type="text/css"><!--body {background-image: url(fundo.jpg);}--></style></head><body>E-mail enviado com sucesso!</body></html>
<fim do código>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

primeiro: sempre uso as tags CODE para destacar o código e facilitar na visualizaçãosegundo: qual mensagem de erro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

josepetri    0

josepetri
Postado

primeiro: sempre uso as tags CODE para destacar o código e facilitar na visualizaçãosegundo: qual mensagem de erro?

No mozilla a mensagem de erro é esta:error '8004020f'/emailtrans.asp, line 76 Obrigado pela atenção.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito