Jump to content
Fórum Script Brasil
  • 0

Criando Um Formulario De Indicacao


jissa

Question

17 answers to this question

Recommended Posts

  • 0

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

Link to comment
Share on other sites

  • 0

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???

Link to comment
Share on other sites

  • 0

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>

Link to comment
Share on other sites

  • 0

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

Link to comment
Share on other sites

  • 0

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

Link to comment
Share on other sites

  • 0
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...

Link to comment
Share on other sites

  • 0

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 
%>

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      652k
×
×
  • Create New...