Erro

poirot · Abril 28, 2004

ola gente to com essas duas paginas

form.htm

<form action="envia_anun.asp" method="post" name="form1">
<table width="58%" height="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#003366" class="texto-form">
<tr bgcolor="#DFEFF7">
<td height="21" bgcolor="#CCCCCC" class="identacao"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">
Transação:</font></td>
<td width="311" height="21" bgcolor="#CCCCCC"> <font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">
<select name="transacao" class="campo-texto" id="select2">
<option>Selecione</option>
<option value="V">Venda</option>
<option value="L">Locação</option>
</select>
</font></td>
</tr>
<tr bgcolor="#F7F7F7">
<td width="131" height="21" class="identacao"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">Cidade:</font></td>
<td height="21"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">
<input name="cidade" type="text" class="campo-texto" id="cidade4" size="20">
(sem abreviações)</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="131" height="21" class="identacao"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">Bairro:</font></td>
<td height="21"> <font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">
<input name="bairro" type="text" class="campo-texto" id="bairro4" size="20">
(sem abreviações)</font></td>
</tr>
<tr bgcolor="#F7F7F7">
<td width="131" height="21" class="identacao"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">Endereço:</font></td>
<td height="21"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">
<input name="endereco" type="text" class="campo-texto" id="endereco4" size="40">
</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="131" height="21" class="identacao"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">Tipo:</font></td>
<td height="21"> <font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">
<select name="tipo" class="campo-texto" id="tipo">
<option value="">Selecione</option>
<option value="1">Apartamento</option>
<option value="4">Casa</option>
<option value="3">Cobertura</option>
<option value="8">Depósito</option>
<option value="9">Flat</option>
<option value="7">Loja</option>
<option value="10">Rural</option>
<option value="6">Sala</option>
<option value="5">Terreno</option>
</select>
</font></td>
</tr>
<tr bgcolor="#F7F7F7">
<td width="131" height="21" class="identacao"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">Sub-tipo:</font></td>
<td height="21"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">
<select name="subtipo" class="campo-texto" id="select3">
<option value="">Selecione</option>
<option value="8">+4Dormitório</option>
<option value="4">1Dormitório</option>
<option value="2">2Dormitório</option>
<option value="6">3Dormitório</option>
<option value="7">4Dormitório</option>
<option value="10">comercial</option>
<option value="5">KitNet</option>
<option value="9">residencial</option>
</select>
</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="21" class="identacao"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">Garagem:</font></td>
<td height="21"> <font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">
<input type="radio" name="garagem" value="Sim">
Sim
<input type="radio" name="garagem" value="Não">
Não</font></td>
</tr>
<tr bgcolor="#F7F7F7">
<td width="131" height="21" class="identacao"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">Preço
desejado:</font></td>
<td height="21"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">R$
<input name="preço" type="text" class="campo-texto" id="preco4" size="10" onKeyPress="return Tecla(event);">
,00</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="21" colspan="2" class="sub-titulo"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">Dados
do Proprietário</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="21" class="identacao"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">Nome:</font></td>
<td height="21"> <font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">
<input name="nome" type="text" class="campo-texto" id="nome4" size="20">
</font></td>
</tr>
<tr bgcolor="#F7F7F7">
<td height="21" class="identacao"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">Telefone:</font></td>
<td height="21"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">
<input name="telefone" type="text" class="campo-texto" id="telefone4" size="20">
</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="21" class="identacao"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">E-mail:</font></td>
<td height="21"> <font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">
<input name="email" type="text" class="campo-texto" id="email4" size="20">
</font></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="30" colspan="2"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif">
<input name="Submit" type="submit" class="botao" value="Enviar">
<input type="hidden" name="redirect" value="obg.htm">
<input type="hidden" name="recipient" value="artefj@hotmail.com">
</font></td>
</tr>
</table>
</form>

envia_anun.asp

<% option explicit
dim nome, email, mensagem, recipient, redirect, mail, corpo
nome=trim(request.form("nome"))
email=trim(request.form("email"))
email=trim(request.form("transacao"))
email=trim(request.form("cidade"))
email=trim(request.form("bairro"))
email=trim(request.form("endereco"))
email=trim(request.form("tipo"))
email=trim(request.form("subtipo"))
email=trim(request.form("garagem"))
email=trim(request.form("preço"))
email=trim(request.form("telefone"))
recipient=trim(request.form("recipient"))
redirect=trim(request.form("redirect"))
set mail=server.createobject("cdonts.newmail")
mail.to=recipient
mail.from=email
mail.subject="Mensagem do Site"
corpo=" Mensagem do site"&vbcrlf&vbcrlf
corpo=corpo&"Transação: "&transacao&vbcrlf&vbcrlf
corpo=corpo&"Cidade: "&cidade&vbcrlf&vbcrlf
corpo=corpo&"Bairro: "&bairro&vbcrlf&vbcrlf
corpo=corpo&"Endereço: "&endereco&vbcrlf&vbcrlf
corpo=corpo&"Tipo: "&tipo&vbcrlf&vbcrlf
corpo=corpo&"Sub-tipo: "&subtipo&vbcrlf&vbcrlf
corpo=corpo&"Garagem: "&garagem&vbcrlf&vbcrlf
corpo=corpo&"Preço: "&preço&vbcrlf&vbcrlf
corpo=corpo&"Nome Proprietario: "&nome&vbcrlf&vbcrlf
corpo=corpo&"Telefone: "&telefone&vbcrlf&vbcrlf
corpo=corpo&"Email: "&email&vbcrlf&vbcrlf
mail.body=corpo
mail.send
mail.close
set.mail=nothing
response.redirect(redirect)
%>

tah dando erro

mas o codigo asp tem algum prol nele?

dark0 · Abril 28, 2004

qual erro que dá?

fica um pouco dificil procurar erros no codigo.. sem saber que tipo de erro acontece..

Mas em envio de e-mails, os maiores erros acontecem por não ter o componente de e-mail instalado..

poirot · Abril 28, 2004

humm no caso erro 500 é o erro do servidor, e lá não tem o cdonts instalado é isso?

bolomaster · Abril 28, 2004

Provavelmente... sim.. mas tipo quando não tem o cdonts.. diz que não pode criar o objeto..

poirot · Abril 28, 2004

algum de voces, poderia testar este script pra mim, pra ve se roda, eu dei uma lida ai fiz esse dai

é bem melhor queimar a pestana e fazer que pedir a alguém, poxa me cobram 30 pila pra fazer um negocio desse pode

poirot · Abril 28, 2004

alguma alma bondosa acabou de testar pra mim

ta funcionando direitinho

obrigado

pra quem testou, precisou mecher no tópico ou esta ok desse jeito ai?

bolomaster · Abril 28, 2004

<% option explicit obriga todas as variaveis usadas a serem declaradas.. você não declarou todas as variaveis que esta usando
dim nome, email, mensagem, recipient, redirect, mail, corpo
nome=trim(request.form("nome"))
email=trim(request.form("email"))
email=trim(request.form("transacao"))
email=trim(request.form("cidade"))
email=trim(request.form("bairro"))
email=trim(request.form("endereco"))
email=trim(request.form("tipo"))
email=trim(request.form("subtipo"))
email=trim(request.form("garagem"))
email=trim(request.form("preço"))
email=trim(request.form("telefone"))
recipient=trim(request.form("recipient"))
redirect=trim(request.form("redirect"))
set mail=server.createobject("cdonts.newmail")
mail.to=recipient
mail.from=Coloque aqui o email que vai receber as informaçoes
mail.subject="Mensagem do Site"
corpo=" Mensagem do site"&vbcrlf&vbcrlf
corpo=corpo&"Transação: "&transacao&vbcrlf&vbcrlf
corpo=corpo&"Cidade: "&cidade&vbcrlf&vbcrlf
corpo=corpo&"Bairro: "&bairro&vbcrlf&vbcrlf
corpo=corpo&"Endereço: "&endereco&vbcrlf&vbcrlf
corpo=corpo&"Tipo: "&tipo&vbcrlf&vbcrlf
corpo=corpo&"Sub-tipo: "&subtipo&vbcrlf&vbcrlf
corpo=corpo&"Garagem: "&garagem&vbcrlf&vbcrlf
corpo=corpo&"Preço: "&preço&vbcrlf&vbcrlf
corpo=corpo&"Nome Proprietario: "&nome&vbcrlf&vbcrlf
corpo=corpo&"Telefone: "&telefone&vbcrlf&vbcrlf
corpo=corpo&"Email: "&email&vbcrlf&vbcrlf
mail.body=corpo
mail.send
mail.close -> eu nunca vi essa propriedade no cdonts.
set mail = nothing
response.redirect("arquivo de resposta.asp")
%>

As linhas em vermelho são para serem excluidas

as linha azul para mudar.. porque não existe set. é set =

e a linha laranja você indica o email que vai receber os dados..

abraços e fui

dark0 · Abril 28, 2004

amigo poirot

Quando aparece Erro 500 para vc, significa que seu navegador está configurado para não mostrar as mensagens de erro...

entendes?

Para visualizar as mensagens de erro, faça assim:

Abra:

- Menu Iniciar - Configurações - Painel de Controle

- Opções de Internet

- Entre na GUIA AVANÇADO

- Desmarque a opção: Mostrar mensagens de erro http amigáveis

depois executa, pra ver se mostra o erro..

Abração.. e até mais!

Victor · Abril 28, 2004

Não vou dar o codigo feitinho conforme seu arquivo, se não você não aprende Mas vou te dar o codigo que vai dar para você mudar para que fique certo com seu arquivo:

function_email.asp

<%
function email_cdonts(de_email, para_email, subject,  mensagem)

Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.mailformat=0 'para enviar html como mensagem
objmail.bodyformat=0 'para enviar html como mensagem
objmail.from = de_email
objmail.to = para_email
objmail.subject = subject
objmail.body = mensagem
objmail.send
Set objmail = nothing

end function
%>

arquivo.asp

<%If Request.Form("acao") <> "" then
call email_cdonts (request.form("email"), "email@provedor.com.br", "Assunto",  request.form("mensagem"))
else%>
<form action="arquivo.asp" method="post">
<table>
<tr>
<td>Nome: </td>
<td><input name="nome" size="35"></td>
</tr>
<tr>
<td>Email: </td>
<td><input name="email" size="35"></td>
</tr>
<tr>
<td>Mensagem: </td>
<td><input name="mensagem" size="35"></td>
</tr>
<tr>
<td><input type"Hidden" name="acao" value="enviar"><input type="submit" name="enviar" value="Enviar"></td>
</tr>
</table>
</form>
<%end if%>

Ai você vai fazendo conforme seu formulário... Caso renha mais dúvidas é só postar que nós te ajudaremos!!!

[]'s

Victor

poirot · Abril 29, 2004

As linhas em vermelho são para serem excluidas
as linha azul para mudar.. porque não existe set. é set =
e a linha laranja você indica o email que vai receber os dados..
abraços e fui

1 bolo, mas se eu quiser declarar as variaveis posso não é??

sobre a linha laranja, lá no submit eu tenho dois componentes (sei lá se é assim que se chama) um é o redirect que é o e-mail, e o outro o recpiente que é a pagina de confirmação de envio dos dados

bolomaster · Abril 29, 2004

Pode ..

bem eu adicionei a linha laranja porque do jeito que estava no seu não funcionou no meu estava faltando .. entende...

abraços

poirot · Maio 11, 2004

um problema, o servidor onde vou hospedar isso é win2003 e não tem o componente cdonts, quero fazer com o componente aspmail

já dei uma pesquisada aki mas não encontrei o que queria

lembro que o tio dark0 uma vez postou algo parecido, mas não foi filtrado na busca

alguém pode me ajudar a fazer este form para aspmail?

mariofdf · Maio 11, 2004

Montei correndo aqui, agredito que necessite de correções.

mas tente ai....

<%
dim nome, email, mensagem, recipient, redirect, mail, corpo
nome=trim(request.form("nome"))
email=trim(request.form("email"))
email=trim(request.form("transacao"))
email=trim(request.form("cidade"))
email=trim(request.form("bairro"))
email=trim(request.form("endereco"))
email=trim(request.form("tipo"))
email=trim(request.form("subtipo"))
email=trim(request.form("garagem"))
email=trim(request.form("preço"))
email=trim(request.form("telefone"))
recipient=trim(request.form("recipient"))
redirect=trim(request.form("redirect"))

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

'Servidor de SMTP
Mail.Host = "aqui vai o host do seu servidor" 

'E-mail do remetente
mail.from=email

'Remetente
Mail.FromName = "Mensagem do Site" 

Mail.AddAddress = recipient 

'Assunto da mensagem
Mail.Subject = "Mensagem do Site" 

'Corpo da mensagem
Mail.IsHTML = True
corpo="    Mensagem do site"&vbcrlf&vbcrlf
corpo=corpo&"Transação: "&transacao&vbcrlf&vbcrlf
corpo=corpo&"Cidade: "&cidade&vbcrlf&vbcrlf
corpo=corpo&"Bairro: "&bairro&vbcrlf&vbcrlf
corpo=corpo&"Endereço: "&endereco&vbcrlf&vbcrlf
corpo=corpo&"Tipo: "&tipo&vbcrlf&vbcrlf
corpo=corpo&"Sub-tipo: "&subtipo&vbcrlf&vbcrlf
corpo=corpo&"Garagem: "&garagem&vbcrlf&vbcrlf
corpo=corpo&"Preço: "&preço&vbcrlf&vbcrlf
corpo=corpo&"Nome Proprietario: "&nome&vbcrlf&vbcrlf
corpo=corpo&"Telefone: "&telefone&vbcrlf&vbcrlf
corpo=corpo&"Email: "&email&vbcrlf&vbcrlf
Mail.Body = corpo
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
else
response.redirect(redirect)
End If

Set Mail = Nothing

%>

dark0 · Maio 12, 2004

e ae, beleza?

cê vai vê tiu.. hehehe

Eu fiz uma busca aqui, sobre aspmail, e achou bastante coisa..

Quando você fizer uma busca.. cuida o tempo de post. se tiver marcado para procurar só nos ultimos 30 dias.. é capaz de não achar..

Resultados da Busca por ASPMAIL

t+

Entrar

Erro

Pergunta

Link para o comentário

Compartilhar em outros sites

13 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns