Fiz Um Indique Este Site A Um Amigo

ju_rezende · Fevereiro 3, 2006

Olá pessoal fiz um indique este site a um amigo

Indique este site a um amigo, mas ele não esta enviando olhem o codigo

pagina com o form

<table width=100% height=60% border="0" cellpadding="0" cellspacing="0">
<form action= "ConfIndica.asp" method="post">
<tr>
<td align="center"><Digite seu nome><input type="text" name="Nome"</td>
</tr>
<tr>
<td align="center"><Seu e-mail<input type="text" name"seuemail</td>
</tr>
<tr>
<td align="center>E-mail de seu amigo<input type="text" name="amigoemail></td>
</tr>
<tr>
<td align="center">
<input type="submit" value="Enviar"style = "color:#FDD30E; background-color:#2165A5; border:1pt solid #2165A5; font-family:arial; font-weight:700"></font></td>
</tr>

</form>
</table>

Pagina com confirma indicação

<%
dim correio
Set correio = Server.CreateObject("CDO.Message")
'Set key properties 
correio.From = request.form("seuemail")
correio.To = request.form("amigoemail"
correio.Subject= "Veja este site"
correio.TextBody = "Olá " &  request.form("Nome") & " lhe indicou este site www.comerciodejacareí.com"
'Send the email 
return = correio.Send
'Notify user
if return <> 0 then
response.write "Erro: " & return
else
response.write "Sua indicação foi enviada com sucesso!!"
end if%>

.Andreia. · Fevereiro 3, 2006

gera algum erro, ou simplesmente não acontece nada?

ju_rezende · Fevereiro 3, 2006

Dá somente que a pagina não pode ser exibida, mas não diz o erro...

A página não pode ser exibida

Há um problema com a página que você está tentando acessar e ela não pode ser exibida.

--------------------------------------------------------------------------------

Tente o seguinte:

Abra a home page www.comerciodejacarei.com e procure links para a informação desejada.

Clique no botão Atualizar ou tente novamente mais tarde.

Clique em Pesquisar para procurar informações na Internet.

Você também pode ver uma lista de sites relacionados.

HTTP 500 - erro interno do servidor

Internet Explorer

.Andreia. · Fevereiro 3, 2006

você está rodando isso direto na web não é?? Testou localmente?

* No internet explorer, vai em Ferramentas > Opções da Internet > Avançadas
* desmarque a opção "Mostrar mensagens de erro http amigáveis"

douglasdamame · Fevereiro 4, 2006

VOU TE ENVIAR UM CÓDIGO:

INDIQUE.ASP

<form name="form1" action="Indicar.asp" >
              <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000" height="2%">
                <tr>
                  <td> 
                    <table border="1" width="125" cellspacing="1" cellpadding="0" align="center" height="1" bordercolor="c0c0c0" bgcolor="c0c0c0">
                      <tr> 
                        <td height="2" bgcolor="c0c0c0"> 
                          <div align="center"><font size="2" color="#000000"><b><font face="Verdana" size="1"><font color="#666666" size="2">Indique-nos</font></font></b></font></div>
                        </td>
                      </tr>
                      <tr> 
                        <td height="1" bgcolor="f0f0f0"> 
                          <p align="center"><font size="1" face="Verdana" color="#000000"><b>Seu 
                            Nome:</b></font> 
                        </td>
                      </tr>
                      <tr> 
                        <td height="25" bgcolor="#f0f0f0"> 
                          <p align="center"><font size="2" face="Verdana" color="#000000"> 
                            <input type="text" name="txtnome" size="15" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1">
                            </font> 
                        </td>
                      </tr>
                      <tr> 
                        <td height="1" bgcolor="f0f0f0"> 
                          <p align="center"><font size="1" face="Verdana" color="#000000"><b>Nome 
                            do Amigo(a):</b></font> 
                        </td>
                      </tr>
                      <tr> 
                        <td height="25" bgcolor="e5e5e5"> 
                          <p align="center"><font size="2" face="Verdana" color="#000000"> 
                            <input type="text" name="txtnomeamigo" size="15" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1">
                            </font> 
                        </td>
                      </tr>
                      <tr> 
                        <td height="1" bgcolor="f0f0f0"> 
                          <p align="center"><font size="1" face="Verdana" color="#000000"><b>E-mail 
                            do Amigo(a):</b></font> 
                        </td>
                      </tr>
                      <tr> 
                        <td height="25" bgcolor="f0f0f0"> 
                          <p align="center"> <font color="#000000"> 
                            <input type="text" name="txtemailamigo" size="15" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1">
                            </font> 
                        </td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </table>
              <div align="center"><font color="#000000"> 
                <input type="submit"  value="&lt;&lt; OK &gt;&gt;" name="Submit">
                </font> </div>
            </form>

INDICAR.ASP

<%

Option Explicit

Dim var_nome,  var_amigo, var_to, EnviarMail, MsgBody

var_nome = Request.QueryString("txtnome")

var_amigo = Request.QueryString("txtnomeamigo")
var_to = Request.QueryString("txtemailamigo")

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = var_to
EnviarMail.From = "SEUE-MAIL@SEUSITE.com.br"
EnviarMail.Subject = "Indicação do seu Amigo(a) " & var_nome & ""
MsgBody = "<html>" _
& "<head>" _
& "</head>" _
& "<body bgcolor=""#FFFFFF"">" _
& "<p align=""left""><font face=""Verdana"" size=""2"">Olá <b>" & var_amigo & "</b>,<br> Seu amigo(a) <b>" & var_nome & "</b>, visitou nosso site e recomendou-o para você.<br><br> <p>Acesse:<br><a href=""http://www.SEUSITE.com.br""><b>http://www.SEUSITE.com.br</b></a></p><p>Estaremos aguardando sua visita.</font><br></p>" _
& "</body>" _
& "</html>"
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

Set EnviarMail = Nothing

Response.redirect "Obrigado_indicar.asp"

%>

Veja como eu fiz e tente entender......

Douglas

Fevereiro 4, 2006

tá com erro na sexta linha

seu código errado:

Henderson · Fevereiro 4, 2006

tá com erro na sexta linha
seu código errado:
ASP
<%
dim correio
Set correio = Server.CreateObject("CDO.Message")
'Set key properties
correio.From = request.form("seuemail")
correio.To = request.form("amigoemail"
correio.Subject= "Veja este site"
correio.TextBody = "Olá " & request.form("Nome") & " lhe indicou este site www.comerciodejacareí.com"
'Send the email
return = correio.Send
'Notify user
if return <> 0 then
response.write "Erro: " & return
else
response.write "Sua indicação foi enviada com sucesso!!"
end if%>
código certo:
ASP
<%
dim correio
Set correio = Server.CreateObject("CDO.Message")
'Set key properties
correio.From = request.form("seuemail")
correio.To = request.form("amigoemail")
correio.Subject= "Veja este site"
correio.TextBody = "Olá " & request.form("Nome") & " lhe indicou este site www.comerciodejacareí.com"
'Send the email
return = correio.Send
'Notify user
if return <> 0 then
response.write "Erro: " & return
else
response.write "Sua indicação foi enviada com sucesso!!"
end if%>
veja se isso resolve!

esqueci de logar

fui eu aqui em cima

se precisar de ajuda

qualquer coisa \o

ju_rezende · Fevereiro 5, 2006

Mesmo assim elecontinua dando erro.

CDO.Message.1 (0x8004020D)

At least one of the From or Sender fields is required, and neither was found.

/tulio/ConfIndica.asp, line 10

[QUOTE]linha 10 é essa return = correio.Send[/QUOTE]

ju_rezende · Fevereiro 5, 2006

Mesmo assim elecontinua dando erro.

CDO.Message.1 (0x8004020D)

At least one of the From or Sender fields is required, and neither was found.

/tulio/ConfIndica.asp, line 10

[QUOTE]linha 10 é essa return = correio.Send[/QUOTE]

Henderson · Fevereiro 5, 2006

cara, teu html tah cheio de erro

num sei c é por isso, tenta arruma ae ó...

<table width=100% height=60% border="0" cellpadding="0" cellspacing="0">
<form action= "ConfIndica.asp" method="post">
<tr>
<td align="center">Digite seu nome<input type="text" name="Nome"></td>
</tr>
<tr>
<td align="center">Seu e-mail<input type="text" name"seuemail"></td>
</tr>
<tr>
<td align="center>E-mail de seu amigo<input type="text" name="amigoemail"></td>
</tr>
<tr>
<td align="center">
<input type="submit" value="Enviar" style = "color:#FDD30E; background-color:#2165A5; border:1pt solid #2165A5; font-family:arial; font-weight:700"></font></td>
</tr>

</form>
</table>

muda teu html por esse e ve se funciona!

ju_rezende · Fevereiro 6, 2006

mesmo assim continua dando erro.

CDO.Message.1 (0x8004020D)

At least one of the From or Sender fields is required, and neither was found.

/tulio/ConfIndica.asp, line 10

ju_rezende · Fevereiro 6, 2006

Laguém poderia me ajudar ?

Entrar

Fiz Um Indique Este Site A Um Amigo

Pergunta

Link para o comentário

Compartilhar em outros sites

11 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

Guest Guest

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