Ir para conteúdo
Fórum Script Brasil
  • 0

Indique Um Amigo

ars

Perguntado por ars,

 Share

Pergunta

2 respostass a esta questão

Posts Recomendados

  • 0
calraiden

calraiden

Postado
Postado

tEM ESSE código que utilizo em meu site... você pode testar no seu.. é meio frquinho mais funcionar.

São três códigos, Depois você alterar de acordo com seu site.

1)formulario em html

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<meta name="GENERATOR" content="Microsoft FrontPage 4.0">

<meta name="ProgId" content="FrontPage.Editor.Document">

<title>Indique O Site</title>

</head>

<body bgproperties="fixed" bgcolor="#336699">

<center><table border="1">

<tr>

<td width="400" align="center">

<p align="center"><b><font face="verdana,arial,heveltica" size="1" color="#CCFFCC">Indique Esse Site Para Um Amigo (a).</font></b></td>

</tr>

<tr><td>

<hr size="1" color="#FFFF00">

<div align="center">

<center>

<table border="0" width="346">

<tr>

<td width="338" valign="top" height="1">

<form action="indique.asp" method="post">

<div align="center">

<center>

<table border="0" width="83%" cellspacing="0" cellpadding="0">

<tr>

<td width="4%"></td>

<td width="96%">

<p align="left"><font size="2" face="Verdana" color="#FFFFFF">Destinatário:</font></td>

</tr>

<tr>

<td width="4%"></td>

<td width="96%">

<p align="left"><font size="2" face="Verdana"><input type="text" name="nome" size="33" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td>

</tr>

<tr>

<td width="4%"></td>

<td width="96%">

<p align="left"><font size="2" face="Verdana" color="#FFFFFF">E-mail Destinatário

:</font></td>

</tr>

<tr>

<td width="4%"></td>

<td width="96%">

<p align="left"><font size="2" face="Verdana"><input type="text" name="email" size="33" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td>

</tr>

<tr>

<td width="4%"></td>

<td width="96%">

<p align="left"><font size="2" face="Verdana" color="#FFFFFF">Remetente

:</font></td>

</tr>

<tr>

<td width="4%"></td>

<td width="96%">

<p align="left"><font size="2" face="Verdana"><input type="text" name="assunto" size="33" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td>

</tr>

<tr>

<td width="4%"></td>

<td width="96%">

<p align="left"><font size="2" face="Verdana" color="#FFFFFF">E-Mail Remetente

:</font></td>

</tr>

<tr>

<td width="4%"></td>

<td width="96%">

<p align="left"><font size="2" face="Verdana"><input type="text" name="seuemail" size="33" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td>

</tr>

<tr>

<td width="4%"></td>

<td width="96%">

<p align="left"><font size="2" face="Verdana" color="#FFFFFF">Mensagem:</font></td>

</tr>

<tr>

<td width="4%"></td>

<td width="96%">

<p align="left"><font size="2" face="Verdana"><textarea rows="6" name="mensagem" cols="36" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></textarea></font></td>

</tr><tr><td></td><td>

<p align="center"><input type="submit" value="Enviar"></p>

</td>

</tr>

</table>

</center>

</div>

</form>

</center>

</td>

</tr>

</table></center>

</div>

<hr color="#FFFFFF" size="1">

<div align="center">

<center>

<table border="1" cellpadding="0" cellspacing="0" width="400" bordercolor="#000080" bgcolor="#F0F0F0">

<tr>

<td width="400" align="center">

<p align="center"><FONT

face=verdana,arial,heveltica color=#000080 size=1><b><a href="http://www.calraiden.ppg.br" style="color: #000080" target="_blank">Cal Raiden©</a> - Todos os direitos

reservados</b></FONT></td>

</tr>

</table>

</center>

</div>

</table>

</body>

</html>

2) indique.asp

<%

'Declarando variveis

Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sSeuemail, sAssunto

'Pegando os dados digitados nos campos e colocando em variaveis

sNameFrom = Request.Form("seuemail")

sEmailFrom = Request.Form("seuemail")

sEmailTo = Request.Form("nome")

sNameTo = Request.Form("email")

sText = Request.Form("mensagem")

sSeuemail = Request.Form("seuemail")

sAssunto = Request.Form("assunto")

'Cria o objeto

set mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

'Host para envio de emails

Mailer.RemoteHost = "INSERIR AQUI NOME DO SERVIDOR DO SITE"

Mailer.AddRecipient sEmailTo, sNameTo

Mailer.Subject = sEmailTo & " Você Recebeu Uma Mensagem De Cal Raiden© "

'Monta a texto para o envio

strMsgHeader = " O Seu Amigo(a), " & " (" & sAssunto & ") " & " (" & sSeuemail & ") " & " ,Recomendou o Site CalRaiden© http://www.calraiden.ppg.br " & vbCrLf & vbCrLf

strMsgFooter = sText

Mailer.BodyText = strMsgHeader & strMsgFooter

' Se for enviado redirecionar para obrigado.asp

if Mailer.SendMail then

Response.Redirect "conf.asp"

else

' Se não for enviado mostra o erro que ocoreu

Response.Write ("Ocorreu um erro.<BR>")

Response.Write ("O Erro é " & Mailer.Response)

end if

%>

3) obrigado em asp

<html><head>

<title>Cal Raiden©</title>

<!--

body {scrollbar-face-color: #009999; scrollbar-shadow-color: #FFFFFF; scrollbar-highlight-color: #009999; scrollbar-3dlight-color: #FFFFFF; scrollbar-darkshadow-color: #009999; scrollbar-track-color: #0099CC; scrollbar-arrow-color: #FFFFFF;}

}

// -->

</style>

</head>

<body topmargin="0" leftmargin="0" bgcolor="#0099CC">

<img src="mcont.gif" border="0" alt="Contato">

<a href="../index.htm">

<img src="phom.gif" border="0" alt="Home"></a>

<a href="../pia.html">

<img src="ppia.gif" border="0" alt="Piadas" ></a>

<a href="../mus.html">

<img src="psl.gif" border="0" alt="Slides"></a>

<a href="../livro.html">

<img src="pliv.gif" border="0" alt="Bate-Papo"></a>

<a href="../hq.html">

<img src="phq.gif" border="0" alt="Flash"></a>

<a href="../foto.html">

<img src="pfot.gif" border="0" alt="Fotos"></a>

<a href="../mens.html">

<img src="pmens.gif" border="0" alt="Mensagem"></a>

<FONT

face=verdana,arial,heveltica color=#0099CC size=1>.................</FONT>

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#3,0,0,0" width="91" height="41">

<param name="SRC" value="flashc.swf"><param name=bgcolor value="#0099CC">

<embed src="flashc.swf" pluginspage="http://www.macromedia.com/shockwave/download/" type="application/x-shockwave-flash" bgcolor="#0099CC#"width="80" height="50" >

</embed>

</object>

<HR color="#FFFFFF" SIZE=1>

<table border="1" cellpadding="0" cellspacing="0" width="760" bordercolor="#006699" bgcolor="#FFFFFF">

<font face="Times New Roman" size="2">

<td width="758" bgcolor="#FFFFFF">

<p align="center"><FONT

face=verdana,arial,heveltica color=#006699 size=1><b>Contato</b></FONT></td>

</table>

<div align="center">

<center>

<table border="0" width="439">

<tr>

</center>

<p align="center"><font color="#FFFFFF" size="4"><b><i>Muito Obrigado !!</i></b></font><p align="center"><font size="4" color="#FFFFFF"><b><i>

Sua Mensagem foi enviada com sucesso.</i></b></font>

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#3,0,0,0">

<param name="SRC" value="flashc.swf"><param name=bgcolor value="#0099CC">

<embed src="flashc.swf" pluginspage="http://www.macromedia.com/shockwave/download/" type="application/x-shockwave-flash" bgcolor="#0099CC#">

</embed>

</object>

</tr>

</table>

</div>

<hr color="#FFFFFF" size="1">

<table border="1" cellpadding="0" cellspacing="0" width="740" bordercolor="#000080" bgcolor="#F0F0F0">

<tr>

<td width="738">

<p align="center"><FONT

face=verdana,arial,heveltica color=#000080 size=1><b>Cal Raiden©</a> - Todos os direitos

reservados</b></FONT></td>

</tr>

</table>

</body>

Link para o comentário
Compartilhar em outros sites
  • 0
Victor

Victor

Postado
Postado

Tipo, isso é muito facil de fazer.. Faz o formulario, e quando você for mandar o email com o call você coloca a mensagem para enviar no que ele escreveu no campo de texto, você só usar request.form... Ou tipo procura um no scrtbrasil que você encontra, ai você já da uma estudadinha e já vai sabar fazer....

... Uma pergunta: o script que você fez que está dando erro, ta no camputador ou no servidor??? Porque se estiver no servidor, você tem que ver os componentes instalados nele, e no computador se não tiver, você pode até instala-los!!!! wink.gif

[]'s

Victor

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,6k
×
×
  • Criar Novo...