Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

brunoo

indique

Por , em ASP Clássico

Recommended Posts

brunoo    0

brunoo
Postado

Olá boas almas do imasters! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

O meu indique esse site não esta funfando. http://forum.imasters.com.br/public/style_emoticons/default/sick.gif

Eu já reviei todo o código mas não encontro o maldito erro :wacko:

 

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.

 

Acho também que o erro pode esta no servidor.

Gostaria que alguem desse uma olhada para, pois já gastei meus recursos http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

 

indique.asp

ASP

[*]<% 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")

 

[*]  nomeamigo = request.form("nomeamigo1")

 

[*]  emailamigo = request.form("emailamigo1")

 

[*]  nomeamigo = request.form("nomeamigo2")

 

[*]  emailamigo = request.form("emailamigo2")

 

[*]  nomeamigo = request.form("nomeamigo3")

 

[*]  emailamigo = request.form("emailamigo3")

 

[*]  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 Ufmg Jovem Coltec 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 do Tinti, é um portal onde você encontra uma seção de links para Webmaster! E fotos do Coltec</font><br><br>"

 

[*]  htmlemail = htmlemail & "<font face=Verdana>Atenciosamente,<br>"

 

[*]  htmlemail = htmlemail & "</font></font><i><font face=Verdana size=2 color=#000080> Tinti"

 

[*]  htmlemail = htmlemail & "- <br>"

 

[*]  htmlemail = htmlemail & " </font><a href=http://www.coltec.ufmg.br/~vtintipo/ufmgjovem><font face=Verdana size=2 color=#000080>www.coltec.ufmg.br/~vtintipo/ufmgjovem</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>Ufmg Jovem Coltec- Indicação</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 formulário,

 

[*]você estará indicando o site da Ufmg Jovem Coltec à 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=" Enviar "></p>

 

[*]</form>

 

[*]</body>

 

[*]</html>

 

indique.asp2

ASP

[*]

 

[*]<%

 

[*]

 

[*] seunome = request.form("seunome")

 

[*] seuemail = request.form("seuemail")

 

[*] nomeamigo = request.form("nomeamigo")

 

[*] emailamigo = request.form("emailamigo")

 

[*] nomeamigo = request.form("nomeamigo1")

 

[*] emailamigo = request.form("emailamigo1")

 

[*] nomeamigo = request.form("nomeamigo2")

 

[*] emailamigo = request.form("emailamigo2")

 

[*] nomeamigo = request.form("nomeamigo3")

 

[*] emailamigo = request.form("emailamigo3")

 

[*]

 

[*] 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>" & seunome & "</font></i><font face=Verdana color=#000080>!<br>"

 

[*] htmlemail = htmlemail & "<br>"

 

[*] htmlemail = htmlemail & "Agradece à você por indicar o nosso portal e queremos dizer que a indicação foi enviado com sucesso para " & nomeamigo & "!</font></font></strong></font></p>"

 

[*] htmlemail = htmlemail & "<br><br>"

 

[*] htmlemail = htmlemail & "<font face=Verdana>Atenciosamente,<br>"

 

[*] htmlemail = htmlemail & "</font></font><i><font face=Verdana size=2 color=#000080> Tinti"

 

[*] htmlemail = htmlemail & "<br>"

 

[*] htmlemail = htmlemail & " </font><a href=http://www.coltec.ufmg.br/~vtintipo/ufmgjovem><font face=Verdana size=2 color=#000080>www.coltec.ufmg.br/~vtintipo/ufmgjovem</font></a></i></strong></p>"

 

[*]  

 

[*] objCDO.To = seuemail

 

[*] objCDO.From = "vtintipo@yahoo.com.br"

 

[*] objCDO.Subject = "O B R I G A D O"

 

[*] objCDO.Body = htmlemail

 

[*] objCDO.MailFormat = 0

 

[*] objCDO.Bodyformat = 0

 

[*] objCDO.Send

 

[*]

 

[*] if objCDO.Send = true then

 

[*] response.redirect "ok1.asp"

 

[*] else

 

[*] response.redirect "indique.asp"

 

[*]

 

[*]%>

 

ok1asp

ASP

[*]<html>

 

[*]<head>

 

[*]

 

[*] <title>Ufmg jovem Coltec - Indicação</title>

 

[*]</head>

 

[*]

 

[*]<body topmargin="0" leftmargin="0" bgcolor="#429AC6">

 

[*]<p align="center"> </p>

 

[*]<p align="center"><b><font face="arial" size="4" color="#FFFFCC">O b r i g

 

[*]a  d o <br>

 

[*]A indicação foi enviada com sucesso !</font></b></p>

 

[*]</body>

 

[*]</html>

 

http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Generation    0

Generation
Postado

Achei o erro ...

 

voce nao fechou a condição do IF na pagina indique2.asp de uma olhadinha no final dela.

 

 

[]'s

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunoo    0

brunoo
Postado

Amigo, acrescentei End IF no final do indique2, mas o resultado ainda continua o mesmo.E o sequinte... acredito que o erro ta no indique, pois o sistema deveria funfar de tal maneira:O form do indique ta assim <form name="theform" action="indique.asp?action=login" method="post"> então ele e responsavem por mandar a mensagem para a pessoa que foi recomentado... depois ele deveria ir para o indique2 por esse código no indigue response.redirect "indique2.asp". O indique2 e responsavel para mandar um e-mail para a pessoa que recomendou e no mesmo tenho response.redirect "ok1.asp" else response.redirect "indique.asp" a página de agradecimento...ta meio confu... mas deviria funfar dema maneira

Compartilhar este post

Link para o post
Compartilhar em outros sites

mx loco    1

mx loco
Postado

Deu erro na linha 36 da indique2

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunoo    0

brunoo
Postado

mx loco, isso é muito estranho!você testou no link que coloquei?Aonde você visualizou o erro na linha 36 da indique2?A unica mensagem que aparece aqui é

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.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Generation    0

Generation
Postado

Desabilite no seu navegador a opção mostrar erros de http amigaveis.O problema esta nessas linhas, retirei aqui e testei e funcionou..

 

ASP

[*] if objCDO.Send = true then

 

[*] response.redirect "ok1.asp"

 

[*]  else

 

[*] response.redirect "indique.asp"

 

[*]%>

 

Creio eu que o Cdonts não suporte esse tipo de verificação de envio.

 

[]'s

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunoo    0

brunoo
Postado

Apesar das modificações ainda não funfa http://forum.imasters.com.br/public/style_emoticons/default/sick.gif

Vou sair agora mas vou dar uma nova olhada e ver o que posso fazer... depois post o resultado aqui. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Obrigado pela ajuda de todos vcs http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

mx loco    1

mx loco
Postado

A página ainda naum abre?Ou apenas o e-mail ainda naum chegou?... ( isso as veses demora para o e-mail chegar mermo )

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito