Ir para conteúdo

POWERED BY:

Arquivado

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

pri1

Erro ASPmail - !!!

Por , em ASP Clássico

Recommended Posts

pri1    0

pri1
Postado

Por favor me ajudem.......

Tenho um código para enviar email q estava funcionando normal.....o email sempre chegava....

Fui testar hj e agora está dando o seguinte erro:

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'sendmail'

 

/conteudo/contato_atendimento.asp, line 25

 

 

linha 25: sendmail request("email"), request("nome"), "comunicacao@bandag.com.br", "Contato - Atendimento", msg

 

 

Como NAUM foi alterado nd no código, naum sei o q tem de errado!!!

Por favor me ajudem!!!! Urgente!!!

 

Aki vai código.....

 

contato_atendimento.asp

 

<!--#include file="../liveadmin/includes/sendmail.inc.asp" -->

<%

if request("flag_mail") = "1" then

 

msg = ""

msg = msg & "<font face='Verdana, Arial'>"

msg = msg & "<b>ATENDIMENTO</b>"

msg = msg & "<br><br>"

msg = msg & "<b>Nome completo:</b> "& request("nome") &" <br>"

msg = msg & "<b>Endereço:</b> "&request("endereco")&" <br>"

msg = msg & "<b>Cidade:</b> "&request("cidade")&" <br>"

msg = msg & "<b>Estado:</b> "&request("estado")&" <br>"

msg = msg & "<b>Cep:</b> "&request("cep1")&"-"&request("cep2")&" <br>"

msg = msg & "<b>Telefone:</b> "&request("telefone")&" <br>"

msg = msg & "<b>Data de Nascimento:</b> "&request("data_nascimento")&" <br>"

msg = msg & "<b>Profissão:</b> "&request("profissao")&" <br>"

msg = msg & "<b>Empresa</b> "&request("empresa")&" <br>"

msg = msg & "<b>Frota:</b> "&request("frota")&" <br>"

msg = msg & "<b>Quantos veículos:</b> "&request("quantidade_veiculos")&" <br>"

msg = msg & "<b>Tipos de veículos:</b> "&request("tipos_de_veiculos")&" <br>"

msg = msg & "<b>E-mail:</b> "&request("email")&" <br><br>"

msg = msg & "<b>Comentários:</b><br> "&request("comentarios")&" <br>"

msg = msg & "</font>"

 

sendmail request("email"), request("nome"), "comunicacao@bandag.com.br", "Contato - Atendimento", msg

%>

 

<link href="../css/bandag.css" rel="stylesheet" type="text/css">

 

<table width="95%" border="0" cellspacing="5" cellpadding="0" align="center">

<tr>

<td align="center" class="titulo"> ATENDIMENTO </td>

</tr>

<tr>

<td align="center"><img src="images/title_conteudo.gif" width="232" height="11"></td>

</tr>

<tr>

<td class="style4" align="center">

<br><br>Cadastro enviado com sucesso!<br><br>

<input type="button" value="voltar" onclick="location.href='?link=conteudo/contato_atendimento.asp'">

</td>

</tr>

</table>

<%

else

%>

<link href="../css/bandag.css" rel="stylesheet" type="text/css">

<form name="form1" method="post" action="?link=conteudo/contato_atendimento.asp&flag_mail=1" onSubmit=" if (document.form1.email.value == '') { alert('O campo E-MAIL não foi preenchido corretamente!'); return false; } ">

 

<table width="95%" border="0" cellspacing="5" cellpadding="0" align="center">

<tr>

<td align="center" class="titulo">ATENDIMENTO</td>

</tr>

<tr>

<td align="center"><img src="images/title_conteudo.gif" width="232" height="11"></td>

</tr>

<tr>

<td valign="top"> <p align="justify" class="style4 style5 style5 style5">

<br>

<br>

<span class="style4">Todos os esforços da Bandag são para

oferecer produtos, programas, serviços e informações

com a mais alta qualidade antecipando as suas necessidades. É através

de nosso serviço de atendimento ao Cliente que recebemos todas

as solicitações, informações, sugestões,

etc. Desta forma, se você tiver alguma sugestão de como nós

poderemos atender melhor as suas necessidades, escreva ou mande um email

para a Bandag. Sua contribuição será muito bem-vinda.</span></p>

 

<p align="justify" class="style4">Escreva para:<br>

<span class="subtitulo">Bandag do Brasil Ltda.</span><br>

Av. Mercedes Benz, 580<br>

Campinas - SP CEP 13054-750<br>

Tel.: (19) 3725-4800<br>

Fax.: (19) 3725-4881<br>

Email: <a href="mailto:comunicacao@bandag.com.br">comunicacao@bandag.com.br

</a></p>

<p align="justify" class="style4">Se preferir, utilize o formulário

abaixo: </p>

<p align="justify" class="style4"> <p>

<input type="hidden" name="acao" value="enviar">

</p>

<table width="330" border="0" align="center" cellpadding="5" cellspacing="0">

<tr>

<td width="129" class="subtitulo">Nome:</td>

<td width="181"> <input type="text" name="nome" size="30" style="background-color:#f5f5f5; border:1px solid #012c33;"> </td>

</tr>

<tr>

<td width="129" class="subtitulo">Endereço:</td>

<td width="181"> <input type="text" name="endereco" size="30" style="background-color:#f5f5f5; border:1px solid #012c33;"> </td>

</tr>

<tr>

<td class="subtitulo">Cidade:</td>

<td><input name="cidade" type="text" id="cidade" size="20" style="background-color:#f5f5f5; border:1px solid #012c33;"></td>

</tr>

<tr>

<td class="subtitulo">Estado:</td>

<td><input name="estado" type="text" id="estado" size="3" style="background-color:#f5f5f5; border:1px solid #012c33;"></td>

</tr>

<tr>

<td width="129" class="subtitulo">Telefone:</td>

<td width="181"> <input type="text" name="telefone" size="15" style="background-color:#f5f5f5; border:1px solid #012c33;"> </td>

</tr>

<tr>

<td width="129" class="subtitulo">E-mail:</td>

<td width="181"> <input type="text" name="email" size="30" style="background-color:#f5f5f5; border:1px solid #012c33;"> </td>

</tr>

<tr>

<td width="129" class="subtitulo">Data de nascimento:</td>

<td width="181"> <input type="text" name="data_nascimento" size="10" style="background-color:#f5f5f5; border:1px solid #012c33;">

</td>

</tr>

<tr>

<td width="129" class="subtitulo">Profissão:</td>

<td width="181"> <input type="text" name="profissao" size="30" style="background-color:#f5f5f5; border:1px solid #012c33;"> </td>

</tr>

<tr>

<td width="129" class="subtitulo">Empresa:</td>

<td width="181"> <input type="text" name="empresa" size="30" style="background-color:#f5f5f5; border:1px solid #012c33;"></td>

</tr>

<tr>

<td class="subtitulo">Frota:</td>

<td class="texto">

<input type="radio" name="checkbox" value="Frota">

Frota

<input type="radio" name="checkbox2" value="Autônoma">

Autônoma </td>

</tr>

<tr>

<td width="129" class="subtitulo">Quantos veículos?</td>

<td width="181"> <input type="text" name="quantidade_veiculos" size="20" style="background-color:#f5f5f5; border:1px solid #012c33;">

</td>

</tr>

<tr>

<td width="129" height="18" class="subtitulo">Tipos de veículos:</td>

<td height="18" width="181"> <p>

<input type="text" name="tipo_de_veiculos" size="20" style="background-color:#f5f5f5; border:1px solid #012c33;">

</p></td>

</tr>

<tr>

<td height="18" colspan="2">

<span class="subtitulo">Comentários:</span> <br> <br>

<textarea name="comentarios" rows="6" cols="40"></textarea> <br>

 

</td>

</tr>

<tr>

<td height="18" width="129">

<input type="submit" name="Submit" value="Enviar" style="border: 1px solid black;">

</td>

<td height="18" width="181"> <div align="center">

<input type="reset" name="Submit2" value="Apagar" style="border: 1px solid black;">

</td>

</tr>

</table>

<p>  </p>

</p>

<p> <br>

<br>

<br>

</p>

<p align="justify" class="titulo"> </p>

<p align="justify" class="style4"> </p>

<p align="justify" class="style4"><br>

</p>

</td>

</tr>

</table>

</form>

<%

end if

%>

 

 

sendmail.inc.asp

 

<%

sub sendmail(mailsender,mailrec,mailaddress,mailsubject,mailmessage)

Dim Mail

Const CdoBodyFormatHTML = 1

Const CdoBodyFormatText = 1

Const CdoMailFormatMime = 0

Const CdoMailFormatText= 1

 

Const CdoLow = 0

Const CdoNormal =1

Const CdoHigh = 2

 

Const CdoEncodingUUencode = 0

Const CdoEncodingBase64 = 1

 

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "smtp.dglnet.com.br"

Mail.From = mailsender

Mail.FromName = mailrec

Mail.AddAddress mailaddress

Mail.AddReplyTo mailsender

Mail.Subject = mailsubject

Mail.Body = mailmessage

Mail.IsHTML = True

 

On Error Resume Next

Mail.Send

If Err <> 0 Then

Response.Write "Error encountered: " & Err.Description

End If

 

Set objNewMail = Nothing

end sub

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Weverton N    0

Weverton N
Postado

Alow...Acho que é problema no parâmetro que você tá passando.. tá enviando alguns dos parâmetros que você passa para a sub está com algum caractere ou formato errado.Tem ela no ar pra gente testar?

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