Galera na hora de enviar o negocio para o amigo, o trem da errado.
Aqui vai o erro
Microsoft VBScript runtime error '800a0046'
Permission denied
/teajudo/NOVOStestes/tell_a_friend.asp, line 71
<%
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 Geek Brasil e pensou que voc iria gostar de visitar o site tambm!</font></font></strong></font></p>"
htmlemail = htmlemail & "<br>"
htmlemail = htmlemail & "<p><strong><font size=2 color=#000080><font face=Verdana>O site da Geek Brasil, um portal onde voc encontra uma seo para Webmaster, com vrios exemplos de DHTML, Java Script, CSS, etc. Alm da seo Webmaster, voc tambm encontra no nosso portal, uma seo de Apostilas, com tudo oque voc precisa para entrar no mundo da informtica e muito mais. Na Geek Brasil, voc tambm ir encontrar uma seo de Dowloads com os melhores programas, muito fcil de encontrar o programa que voc quer, basta voc fazer uma busca e pronto. Caso voc queira receber o Boletim Semanal da Geek Brasil, 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> Geek Brasil"
htmlemail = htmlemail & "- O seu Portal de Informtica<br>"
htmlemail = htmlemail & " </font><a href=http://www.geekbrasil.com.br><font face=Verdana size=2 color=#000080>www.geekbrasil.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>Geek Brasil - Indicao</title>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#429AC6">
<p align="center"><font face="Verdana" size="2">
<br>
</font>
<font face="Arial" size="2" color="#FFFFFF"><b>Preenchendo este formulrio,
voc estar indicando o site da Geek Brasil seu amigo.</b> </font>
<br><form name="theform" action="indique.asp?action=login" method="post">
<div align="center">
<center>
<table bgcolor="#39597D" width="388" height="30">
<tr><td width="111" height="1" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">Seu
Nome:</font></b></td><td width="263" height="1" bgcolor="#A5B4C4"><input type="text" name="seunome" size=31></td></tr>
<tr><td width="111" height="0" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">Seu
E-mail:</font></b></td><td width="263" height="0" bgcolor="#A5B4C4"><input type="text" name="seuemail" size=31 maxlength=30></td></tr>
<tr><td width="111" height="25" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">Nome
do Amigo:</font></b></td><td width="263" height="25" bgcolor="#A5B4C4"><input type="text" name="nomeamigo" size=31 maxlength=30></td></tr>
<tr><td width="111" height="25" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">E-mail
do Amigo:</font></b></td><td width="263" height="25" bgcolor="#A5B4C4"><input type="text" name="emailamigo" size=31 maxlength=30></td></tr>
</table>
</center>
</div>
<p align="center"><input type="submit" value="< < I N D I C A R > >"></p>
</form>
</body>
Pergunta
marcos_804
Galera na hora de enviar o negocio para o amigo, o trem da errado.
Aqui vai o erro
<% 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 Geek Brasil e pensou que voc iria gostar de visitar o site tambm!</font></font></strong></font></p>" htmlemail = htmlemail & "<br>" htmlemail = htmlemail & "<p><strong><font size=2 color=#000080><font face=Verdana>O site da Geek Brasil, um portal onde voc encontra uma seo para Webmaster, com vrios exemplos de DHTML, Java Script, CSS, etc. Alm da seo Webmaster, voc tambm encontra no nosso portal, uma seo de Apostilas, com tudo oque voc precisa para entrar no mundo da informtica e muito mais. Na Geek Brasil, voc tambm ir encontrar uma seo de Dowloads com os melhores programas, muito fcil de encontrar o programa que voc quer, basta voc fazer uma busca e pronto. Caso voc queira receber o Boletim Semanal da Geek Brasil, 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> Geek Brasil" htmlemail = htmlemail & "- O seu Portal de Informtica<br>" htmlemail = htmlemail & " </font><a href=http://www.geekbrasil.com.br><font face=Verdana size=2 color=#000080>www.geekbrasil.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>Geek Brasil - Indicao</title> </head> <body topmargin="0" leftmargin="0" bgcolor="#429AC6"> <p align="center"><font face="Verdana" size="2"> <br> </font> <font face="Arial" size="2" color="#FFFFFF"><b>Preenchendo este formulrio, voc estar indicando o site da Geek Brasil seu amigo.</b> </font> <br><form name="theform" action="indique.asp?action=login" method="post"> <div align="center"> <center> <table bgcolor="#39597D" width="388" height="30"> <tr><td width="111" height="1" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">Seu Nome:</font></b></td><td width="263" height="1" bgcolor="#A5B4C4"><input type="text" name="seunome" size=31></td></tr> <tr><td width="111" height="0" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">Seu E-mail:</font></b></td><td width="263" height="0" bgcolor="#A5B4C4"><input type="text" name="seuemail" size=31 maxlength=30></td></tr> <tr><td width="111" height="25" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">Nome do Amigo:</font></b></td><td width="263" height="25" bgcolor="#A5B4C4"><input type="text" name="nomeamigo" size=31 maxlength=30></td></tr> <tr><td width="111" height="25" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">E-mail do Amigo:</font></b></td><td width="263" height="25" bgcolor="#A5B4C4"><input type="text" name="emailamigo" size=31 maxlength=30></td></tr> </table> </center> </div> <p align="center"><input type="submit" value="< < I N D I C A R > >"></p> </form> </body>Link para o comentário
Compartilhar em outros sites
4 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.