Ir para conteúdo
Fórum Script Brasil
  • 0

Vejam O Que Está Errado ?


Guest Valterlin

Pergunta

O codigo é esse:

Esse é o Fomulario Html:

<form action="envia_email.asp" method="post">
       <table width="76%" border="0" cellspacing="0" cellpadding="0">
         <!--DWLayoutTable-->
       <tr> 
       <td width="12%" height="22"><div align="right"><strong>Nome:</strong></div></td>
       <td colspan="5"><input name="txt_nome" type="text" id="txt_nome" size="40"></td>
       <td>&nbsp;</td>
       </tr>
       <tr> 
       <td height="22"><div align="right"><strong>Email:</strong></div></td>
       <td colspan="5"><input name="txt_email" type="text" id="txt_email" size="45"></td>
       <td>&nbsp;</td>
       </tr>
       <tr>
       <td height="22"><div align="right"><strong>iCQ: </strong></div></td>
       <td colspan="5"><input name="txt_icq" type="text" id="txt_icq" size="30"></td>
       <td>&nbsp;</td>
       </tr>
       <tr> 
       <td height="22"><div align="right"><strong>Assunto:</strong></div></td>
       <td colspan="5"><input name="txt_assunto" type="text" id="txt_assunto" size="50"></td>
       <td>&nbsp;</td>
       </tr>
       <tr> 
       <td height="182"><div align="right"><strong>Mensagem:</strong></div></td>
       <td colspan="5"><textarea name="txt_mensagem" cols="60" rows="10" id="txt_mensagem"></textarea></td>
       <td>&nbsp;</td>
       </tr>
       <tr>
       <td height="26">&nbsp;</td>
       <td width="138">&nbsp;</td>
       <td width="51" valign="top"><input type="submit" name="Submit" value="Enviar">
       </td>
       <td width="23">&nbsp;</td>
       <td width="55" valign="top"><input type="reset" name="Submit" value="Limpar">
       </td>
       <td width="127">&nbsp;</td>
       <td width="300">&nbsp;</td>
       </tr>
       </table>
     </form>
   </td>


Esse é o código envia_email.asp

<body>
<p>
<%

'Vamos recuperar os valores do formulário
nome = Request.Form("txt_nome")
email = Request.Form("txt_email")
icq = Request.Form("txt_icq")
assunto = Request.Form("txt_assunto")
mensagem = Request.Form("txt_mensagem")

'Agora vamos criar o objeto Cdonts e enviar a mensagem
Dim msg
Set msg = Server.CreateObject("CDONTS.NewMail") 
msg.From = email 
msg.To="gustavo.r.prado@bol.com.br"
msg.Subject = assunto
texto = "O usuário "&nome&" lhe enviou a mensagem abaixo:"
texto = texto & mensagem
msg.Body = texto
msg.Send
Set msg = Nothing

'Avisamos ao usuário que sua mensagem foi enviada corretamente.
Response.Write "Mensagem enviada com sucesso!"

%>
</p>
<p><a href="http://gustavomgr.ezdir.net"><strong><font color="#0000FF">Clique Aqui</font></strong></a> para voltar página Principal</p>
<p></p>
</body>

O que foi que eu errei ? para testar esse código tenho que esta na web ?ou no meu micro ?

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
Guest Mais como ?
Verifica se você tem o cdonts, instalado... porque eu testei o seu codigo e funcionou beleza... nele não tem nada de errado como o pgmador mesmo disse você vai precisar do iis ou pws para rodar as paginas asp

abraços e espero ter ajudado

Como é que eu sei quando o form esta funcionando beleza é que eu sou novo em ASP ou melhor tentando aprender.

O CDOnts eu instalei a dll como explicaram, mais é que eu gostaria de saber como é que eu sei quando ficou certinho entendeu, pra onde vai ?

E tem como direcionar a página depois que envia o formulario ?

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...