<%
dim useraction
useraction = request("action")
select case useraction
case "login"
seunome = request.form("seunome")
seuemail = request.form("seuemail")
nomeamigo = request.form("nomeamigo")
emailamigo = request.form("emailamigo")
Set objCDO = Server.CreateObject("CDONTS.NewMail")
htmlemail = htmlemail & "<font face=Verdana size=2><strong><font size=2>"
htmlemail = htmlemail & "<p><font face=Verdana color=#000080>Olá </font><i><font "
htmlemail = htmlemail & "face=Verdana color=#FF0000>" & nomeamigo & "</font></i><font face=Verdana color=#000080>!<br>"
htmlemail = htmlemail & "<br>"
htmlemail = htmlemail & "O seu amigo " & seunome & " entrou no site da xxxxxxx e pensou que você iria gostar de visitar o site também!</font></font></strong></font></p>"
htmlemail = htmlemail & "<br>"
htmlemail = htmlemail & "<p><strong><font size=2 color=#000080><font face=Verdana>O site da xxxxxxx, é um portal onde você encontra uma seção para Webmaster, com vários exemplos de DHTML, Java Script, CSS, etc. Além da seção Webmaster, você também encontra no nosso portal, uma seção de Apostilas, com tudo oque você precisa para entrar no mundo da informática e muito mais. Na xxxxxxx, você também irá encontrar uma seção de Dowloads com os melhores programas, é muito fácil de encontrar o programa que você quer, basta você fazer uma busca e pronto. Caso você queira receber o Boletim Semanal da xxxxxxx, entro no nosso portal e cadastre-se! O cadastro é muito simples, basta você forenecer seu nome e e-mail para estar sempre atualizado!</font><br><br>"
htmlemail = htmlemail & "<font face=Verdana>Atenciosamente,<br>"
htmlemail = htmlemail & "</font></font><i><font face=Verdana size=2 color=#000080> xxxxxxx"
htmlemail = htmlemail & "- O seu Portal de Informática<br>"
htmlemail = htmlemail & " </font><a href=http://www.xxxxxxx.com.br><font face=Verdana size=2 color=#000080>www.xxxxxxx.com.br</font></a></i></strong></p>"
objCDO.To = emailamigo
objCDO.From = seunome
objCDO.Subject = "V I S I T E ! ! !"
objCDO.Body = htmlemail
objCDO.MailFormat = 0
objCDO.Bodyformat = 0
objCDO.Send
response.redirect "indique2.asp"
end select
%>
<html>
<head>
<title>xxxx - Indicação</title>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#429AC6">
<p align="center"><br>
<font face="Arial" size="2" color="#FFFFFF"><b>Preenchendo este formulário, você estará indicando o site xxxx à seu amigo.</b></font><br>
<form name="theform" action="indique.asp?action=login" method="post">
... bla bla...
![[ GuTo ]](data:image/svg+xml,%3Csvg%20xmlns%3D%22http%3A%2F%2Fwww.w3.org%2F2000%2Fsvg%22%20viewBox%3D%220%200%201024%201024%22%20style%3D%22background%3A%236294c4%22%3E%3Cg%3E%3Ctext%20text-anchor%3D%22middle%22%20dy%3D%22.35em%22%20x%3D%22512%22%20y%3D%22512%22%20fill%3D%22%23ffffff%22%20font-size%3D%22700%22%20font-family%3D%22-apple-system%2C%20BlinkMacSystemFont%2C%20Roboto%2C%20Helvetica%2C%20Arial%2C%20sans-serif%22%3E%20%3C%2Ftext%3E%3C%2Fg%3E%3C%2Fsvg%3E)
Pergunta
[ GuTo ]
Ocorre um erro no enviar o bagulho
<% dim useraction useraction = request("action") select case useraction case "login" seunome = request.form("seunome") seuemail = request.form("seuemail") nomeamigo = request.form("nomeamigo") emailamigo = request.form("emailamigo") Set objCDO = Server.CreateObject("CDONTS.NewMail") htmlemail = htmlemail & "<font face=Verdana size=2><strong><font size=2>" htmlemail = htmlemail & "<p><font face=Verdana color=#000080>Olá </font><i><font " htmlemail = htmlemail & "face=Verdana color=#FF0000>" & nomeamigo & "</font></i><font face=Verdana color=#000080>!<br>" htmlemail = htmlemail & "<br>" htmlemail = htmlemail & "O seu amigo " & seunome & " entrou no site da xxxxxxx e pensou que você iria gostar de visitar o site também!</font></font></strong></font></p>" htmlemail = htmlemail & "<br>" htmlemail = htmlemail & "<p><strong><font size=2 color=#000080><font face=Verdana>O site da xxxxxxx, é um portal onde você encontra uma seção para Webmaster, com vários exemplos de DHTML, Java Script, CSS, etc. Além da seção Webmaster, você também encontra no nosso portal, uma seção de Apostilas, com tudo oque você precisa para entrar no mundo da informática e muito mais. Na xxxxxxx, você também irá encontrar uma seção de Dowloads com os melhores programas, é muito fácil de encontrar o programa que você quer, basta você fazer uma busca e pronto. Caso você queira receber o Boletim Semanal da xxxxxxx, entro no nosso portal e cadastre-se! O cadastro é muito simples, basta você forenecer seu nome e e-mail para estar sempre atualizado!</font><br><br>" htmlemail = htmlemail & "<font face=Verdana>Atenciosamente,<br>" htmlemail = htmlemail & "</font></font><i><font face=Verdana size=2 color=#000080> xxxxxxx" htmlemail = htmlemail & "- O seu Portal de Informática<br>" htmlemail = htmlemail & " </font><a href=http://www.xxxxxxx.com.br><font face=Verdana size=2 color=#000080>www.xxxxxxx.com.br</font></a></i></strong></p>" objCDO.To = emailamigo objCDO.From = seunome objCDO.Subject = "V I S I T E ! ! !" objCDO.Body = htmlemail objCDO.MailFormat = 0 objCDO.Bodyformat = 0 objCDO.Send response.redirect "indique2.asp" end select %> <html> <head> <title>xxxx - Indicação</title> </head> <body topmargin="0" leftmargin="0" bgcolor="#429AC6"> <p align="center"><br> <font face="Arial" size="2" color="#FFFFFF"><b>Preenchendo este formulário, você estará indicando o site xxxx à seu amigo.</b></font><br> <form name="theform" action="indique.asp?action=login" method="post"> ... bla bla...mas eu não sei o q tah errado... ajudem-me
abraço
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
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.