Criando Um Formulario De Indicacao

jissa · Agosto 12, 2003

Só Trocar o Logo o Texto que seguira no e-mail e a pagina principal.. e criar uma pagina de agradecimento.. obrigado.asp

Veja Funcionando

[ GuTo ] · Agosto 17, 2003

ae jissa

fiz exatamente o q você disse, alterei somente akelas coisas

criei uma página obrigado também, só q .htm

não deu certo

copiei igual ao seu então

também não deu

obs.: site hospedado no brinkster. tentei também na 7host, não deu.

espero q me ajude

não entendo porque não funcionou, se cheguei a ver seu exemplo funcionando.

confira o tópcio parecido com este seu que eu postei minha dúvida

diraol · Agosto 17, 2003

guto........

a página obrigado tem q ser .asp não é?.......

[ GuTo ] · Agosto 17, 2003

ok DIRAOL

fiz isso agora mesmo e não deu

teste no servidor da 7host

teste no servidor do brinkster

quero ajuda, pois o jissa mostra um exemplo igual, código asp igual e funciona... o meu não...

isso não seria devido a meu servidor ser FREE???

jissa · Agosto 17, 2003

Manda pra mim o codigo que voce fez. todo ele...

uam coisa os dois provedores tem suporte ao CDONS (não acho que seja isto.. mas tem alguns que suporta apenas o ASPMAIL)??

diraol · Agosto 18, 2003

eu uso cdonts no brinkster....

[ GuTo ] · Agosto 18, 2003

AE jissa

INDIQUE.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")
Set objCDO = Server.CreateObject("CDONTS.NewMail")

htmlemail = htmlemail & "<font face=Verdana size=2><strong><font size=2>"
htmlemail = htmlemail & "<p><font face=Verdana color=#000000>Olá </font><i><font "
htmlemail = htmlemail & "face=Verdana color=#FF0000>" & nomeamigo & "</font></i><font face=Verdana color=#666666>!<br>"
htmlemail = htmlemail & "<br>"
htmlemail = htmlemail & "O seu amigo " & seunome & " entrou no site da ChatCanoas 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=#666666><font face=Verdana>O site da ChatCanoas, é 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 ChatCanoas, 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!</font><br><br>"
htmlemail = htmlemail & "<font face=Verdana>Atenciosamente,<br>"
htmlemail = htmlemail & "</font></font><i><font face=Verdana size=2 color=#666666>&nbsp;ChatCanoas"
htmlemail = htmlemail & "- O seu Portal de Informática<br>"
htmlemail = htmlemail & "&nbsp;</font><a href=http://www.chatcanoas.kit.net><font face=Verdana size=2 color=#666666>www.chatcanoas.kit.net</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 "obrigado.asp" 

end select
%> 
<html>
<head>
<title>Chat Canoas</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="http://www.chatcanoas.kit.net/styles.css" rel="stylesheet" type="text/css">
<link href="http://www.chatcanoas.kit.net/favicon.ico" rel="shortcut icon">
</head>

<body topmargin="0">

<p align="center"><a href="http://www.chatcanoas.kit.net/index.htm" title="Retorna a Home Page"><img src="http://www.chatcanoas.kit.net/logo.gif" border="0" width="91" height="78"></a>

<p align="center">Gostou do nosso site? Então convide um(a) amigo(a) para conhecê-lo!</p> 

<form name="theform" action="indique.asp?action=login" method="post">
<table align="center" class="bg2" width="388">
<tr><td width="111">Seu Nome:</td><td width="263"><input type="text" name="seunome" size="35"></td></tr>
<tr><td width="111">Seu E-mail:</td><td width="263"><input type="text" name="seuemail" size="35" maxlength=60></td></tr>
<tr><td width="111">Nome do Amigo:</td><td width="263"><input type="text" name="nomeamigo" size="35" maxlength=30></td></tr>
<tr><td width="111">E-mail do Amigo:</td><td width="263"><input type="text" name="emailamigo" size="35" maxlength=60></td></tr>
</table>
<p align="center"><input class="botao" type="submit" value="Enviar"></p>
</form>

<script src="http://www.chatcanoas.kit.net/scripts/propaganda.js"></script>

</body>
</html>

OBRIGADO.ASP

<html>
<head>
<title>Chat Canoas</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="http://www.chatcanoas.kit.net/styles.css" rel="stylesheet" type="text/css">
<link href="http://www.chatcanoas.kit.net/favicon.ico" rel="shortcut icon">
</head>

<body topmargin="0">

<p align="center"><a href="http://www.chatcanoas.kit.net/index.htm" title="Retorna a Home Page"><img src="http://www.chatcanoas.kit.net/logo.gif" border="0" width="91" height="78"></a>

<p align="center"><font face="Verdana" size="4"><b> 
<script language="JavaScript">

// Texto
var message="Indicação concluída com sucesso"

// Cor do texto apagado
var neonbasecolor="#666666"

// Cor do texto aceso
var neontextcolor="#FF0000"

// Velocidade do efeito
var flashspeed=100  //in milliseconds

///No need to edit below this line/////

var n=0
if (document.all){
document.write('<font color="'+neonbasecolor+'">')
for (m=0;m<message.length;m++)
document.write('<font id="neonlight">'+message.charAt(m)+'</font>')
document.write('</font>')

//cache reference to neonlight array
var tempref=document.all.neonlight
}
else
document.write(message)

function neon(){

//Change all letters to base color
if (n==0){
for (m=0;m<message.length;m++)
tempref[m].style.color=neonbasecolor
}

//cycle through and change individual letters to neon color
tempref[n].style.color=neontextcolor

if (n<tempref.length-1)
n++
else{
n=0
clearInterval(flashing)
setTimeout("beginneon()",1500)
return
}
}

function beginneon(){
if (document.all)
flashing=setInterval("neon()",flashspeed)
}
beginneon()


</script>
</b></font><br>
Obrigado por recomendar nosso site.</p>

<script src="http://www.chatcanoas.kit.net/scripts/propaganda.js"></script>

</body>
</html>

jissa · Agosto 18, 2003

Olha.. da forma que voce me enviou salvei no meu server...

http://infinite-informatica.com.br/testes/indique.asp

O Problema pode ser que o seu Server não suporte o CDONS..

as duas paginas estao 100% corretas.

Rock · Agosto 18, 2003

Ae Brother estes servidores Brinkster e 7Host não suporta CDONS, mas eu conheço um site que suporta e é totalmente FREE, entre em www.domaindlx.com ok, lá funciona bota fé garoto

Grande abraço,

Rock n roll 4ever

[ GuTo ] · Agosto 19, 2003

Caro jissa,

mais uma vez, obrigado pela sua ajuda. Se você não tivesse feito isso eu iria ficar a vida inteira pensando que o problema/erro foi meu no asp.

É bom sempre poder contar com alguém.

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

Caro Rock,

é a 1ª vez, acho eu, que nos falamos aqui no fórum. É um prazer em conhece-lo. Muito obrigado por indicar-me o site do domaindlx. Vou dar uma passadinha por lá, com certeza!

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

Agora uma pequena dúvida, o que é ou pra que serve CDONS ??? :D

Desde já agradeço

tsarri · Abril 30, 2005

galera so uma pergunta no eu vou ter usar CDOSYS posso usar o mesmo codigo q o jissa deixou q vai funcionar??...........e outra eu achei na net um codigo q mosra os componentes instalados no servidor, quem quiser é so me avisar

bareta · Abril 30, 2005

e ai beleza.... veja:

tsarri · Abril 30, 2005

ow mano Bareta como eu faço para mandar o e-mail para mais de uma pessoa, este e-mail eu vou ter q mandar para umas quatro pessoas


objCDOSYSMail.To = "webcolor@webcolor.com.br"

tsarri · Junho 1, 2005

ninguém sabe?

Miqui · Junho 5, 2005

Não é só colocar separado por ";" ?

bareta · Junho 6, 2005

ow mano Bareta como eu faço para mandar o e-mail para mais de uma pessoa, este e-mail eu vou ter q mandar para umas quatro pessoas
objCDOSYSMail.To = "webcolor@webcolor.com.br"

faz um loop... ai manda pra quantos quiser...

tsarri · Junho 7, 2005

bom o loop que fiz é assim, ele não retorna nenhum erro, mais tb não manda para ninguém, porque sera???

<%

'Validando os campos dos formulários

Rnome      =   TRIM (Request.Form("Rnome"))
Remail     =   TRIM (Request.Form("Remail"))
Demail     =   TRIM (Request.Form("Demail"))
Demail1    =   TRIM (Request.Form("Demail1"))
Demail2    =   TRIM (Request.Form("Demail2"))
Demail3    =   TRIM (Request.Form("Demail3"))
Demail4    =   TRIM (Request.Form("Demail4"))
Demail5    =   TRIM (Request.Form("Demail5"))
comentario =   TRIM (Request.Form("comentario"))

Response.Write Rnome & Remail &"<br>"
Response.Write Demail & " , " & Demail1 & " , " & Demail2 & "<br>"
Response.Write Demail3 & " , " & Demail4 & " , " & Demail5 & "<br>"
Response.Write comentario

I=0
Do While True
   Demail = Request.Form("Demail" & I)
   If Len(Demail) = 0 Then
       Exit Do
   Else

       Set Mailer = CreateObject("CDONTS.NewMail")

'E-mail de quem esta enviando a mensagem 
        Mailer.From = Request.Form("Remail")

'E-mail de quem vai receber a mensagem
        Mailer.To = Request.Form("Demail") 

'Com Cópia 
        Mailer.CC = Request.Form("Demail2") & "," & Request.Form("Demail3") & "," & Request.Form("Demail4") & "," & Request.Form("Demail5")

'Copia Oculta
        Mailer.Bcc = "tiagossj4@terra.com.br"

'Parametro de formatação
        Mailer.BodyFormat = 1
'Parametro de formatação
        Mailer.MailFormat = cdoMailFormatText 
       
        Mailer.Subject = "Recomende" 

        strBody = strBody & "Ola o seu amigo " & Rnome & "  - " & Remail & " indicou você para conheçer o site" & "<br>"
        strBody = strBody & "http://www.blitz-bar.com " & "<br>"
        strBody = strBody & "Veja só o comentário dele: " & "<br><br>"
        strBody = strBody & Request.Form("comentario") & "<br><br>"
        strBody = strBody & "Atenciosamente" & "<br><br>"
        strBody = strBody & "Equipe Blitz Bar.Com"

        Mailer.Body = strBody

        Mailer.BodyFormat = 0

        Mailer.MailFormat = 0

        Mailer.Send()

   End If
I=I+1
Loop

Set Mailer = Nothing 
%>

tsarri · Junho 13, 2005

ninguém para me ajudar??

Entrar

Criando Um Formulario De Indicacao

Pergunta

Link para o comentário

Compartilhar em outros sites

17 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

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

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