Ir para conteúdo

POWERED BY:

Arquivado

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

lezão

Indicação com problemas

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ola pessoal eu de novo;

Amigos estou com um probleminha agora com meu codigo de indicação

naun esta com erro, apenas naun esta enviando as indicações

estou usando assim

 

<!--#include file="Includes/Config.asp" -->
<link href="Includes/Styles.css" rel="stylesheet" type="text/css">
  <link rel="stylesheet" type="text/css" media="screen" href="css/fancybox.css" />  
  <!--[if IE 6]>
    <script language="JavaScript">
    window.location.replace('pages/ie6.php');
    </script>
  <![endif]-->
  
	<!-- JS -->
   	<script type="text/javascript" src="js/jquery-1.4.2.min.js"></script>
	<script type="text/javascript" src="js/jquery.validate.js"></script>
    <script type="text/javascript" src="js/jquery.maskedinput-1.2.2.min.js"></script>
    <script type="text/javascript" src="js/function.js"></script>
   	<script type="text/javascript" src="js/jquery.easySlider-kf.js"></script>
    <script type="text/javascript" src="js/combo.js"></script>
    <script type="text/javascript" src="js/combo2.js"></script>

    	<script type="text/javascript" src="js/jquery.easing.1.2.js"></script>
<script type="text/javascript" src="js/jquery.fancybox-1.2.6.pack.js"></script>

		<script type="text/javascript">
		$(document).ready(function(){
			/* This is basic - uses default settings */
			$("a#single_image").fancybox();
			/* Using custom settings */
			$("a#inline").fancybox({
				"hideOnContentClick": true
			});
			$("a.group").fancybox({
				"zoomSpeedIn": 300,
				"zoomSpeedOut": 300,
				"overlayShow": false
			});
		}); 
    </script>
<%

Call AbreBanco

Dim VarProduto
VarProduto = Request.QueryString("Produto")

Session("Endereco") = Request.ServerVariables("SCRIPT_NAME") & "?" & Request.ServerVariables("QUERY_STRING")

Dim Produto
Set Produto = Banco.Execute("SELECT * FROM Produtos WHERE Cod LIKE '"& VarProduto &"' AND Status = on AND Estoque > 0")

Dim Categoria
Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& Produto("CodCategoria") &"'")

Dim SubCategoria
Set SubCategoria = Banco.Execute("SELECT * FROM SubCategorias WHERE Cod LIKE '"& Produto("CodSubCategoria") &"'")

'Indique o produto

Dim VarAct
Dim VarSeuNome
Dim VarSeuEmail
Dim VarNomePara
Dim VarEmailPara
Dim VarCodProduto
Dim VarMsg
Dim VarComentario
Dim ConsProduto
Dim Corpo
Dim Contato

VarAct = Request.QueryString("Act")
VarCodProduto = Request.QueryString("Produto")

If VarAct = "Indique" Then

	VarSeuNome   = Trim(Replace(Request.Form("SeuNome"), "'", ""))
	VarSeuEmail  = Trim(Replace(Request.Form("SeuEmail"), "'", ""))
	VarNomePara  = Trim(Replace(Request.Form("NomePara"), "'", ""))
	VarEmailPara = Trim(Replace(Request.Form("EmailPara"), "'", ""))
	VarComentario = Trim(Replace(Replace(Request.Form("Comentario"), "'", ""),vbcrlf,"<br>"))
	
	If VarSeuNome = "" Then
		VarMsg = "<br /><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo (Seu Nome) !</span>"
	ElseIf VarSeuEmail = "" Then
		VarMsg = "<br /><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo (Seu E-mail) !</span>"
	ElseIf VarNomePara = "" Then
		VarMsg = "<br /><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo (Nome Para) !</span>"
	ElseIf VarEmailPara = "" Then
		VarMsg = "<br /><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo (E-mail Para) !</span>"
	Else
	
	Set ConsProduto = Banco.Execute("Select * From Produtos Where Cod = "& VarCodProduto)
	
	Corpo = "<html>"
	Corpo = Corpo & "<link href="& Local &"Includes/Styles.css rel=stylesheet type=text/css>"
	Corpo = Corpo & "<table cellspacing=10 width="&Chr(34)&"100%"&Chr(34)&">"
	Corpo = Corpo & "<tr><td><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">Caro(a) </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">"& VarNomePara &"</span></td></tr>"
	Corpo = Corpo & "<tr><td><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">O produto abaixo foi indicado em nossa loja para você pelo seu(sua) amigo(a) </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">"& VarSeuNome &".</span></td></tr>"
	Corpo = Corpo & "<tr><td><hr width=100% size=1 noshade></td></tr>"
	Corpo = Corpo & "<tr><td><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"><a href="& Chr(34) & Local &"MaisProduto.asp?Produto="& ConsProduto("Cod") & Chr(34) &"><img src="& Chr(34) & ConsProduto("Foto1") & Chr(34) &" width="& Chr(34) &"60"& Chr(34) &" align="& Chr(34) &"left"& Chr(34) &" border=0></a></span><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"><b><a href="& Chr(34) & Local &"MaisProduto.asp?Produto="& ConsProduto("Cod") & Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">"& ConsProduto("NomeProduto") &"</a></b><br>"& ConsProduto("BreveDescricao") &"<br><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">De: </span><span class="& Chr(34) &"TextTahoma11CinzaClaro"& Chr(34) &"><s>"& FormatCurrency(ConsProduto("PrecoDe")) &"</s></span><br><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">Por: </span><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">"& FormatCurrency(ConsProduto("PrecoPor")) &"</span></td></tr>"
	Corpo = Corpo & "<tr><td><hr width=100% size=1 noshade></td></tr>"
	Corpo = Corpo & "<tr><td><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">Comentários:<br></span><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">"& VarComentario &"</span></td></tr>"
	Corpo = Corpo & "<tr><td><hr width=100% size=1 noshade></td></tr>"
	Corpo = Corpo & "<tr><td><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">"& NomedaLoja &"</span></td></tr>"
	Corpo = Corpo & "</table>"
	Corpo = Corpo & "</html>"
	
	If ComponenteEmail = 1 Then
	
		'CDonts
		Set Contato = Server.CreateObject("CDONTS.NewMail")
		
			Contato.From = VarSeuNome & "<"&VarSeuEmail&">"
			Contato.To = VarNomePara & "<"&VarEmailPara&">"
			Contato.Subject = SubjectIndique
			Contato.BodyFormat = 0
			Contato.MailFormat = 0
			Contato.Body = Corpo
			Contato.Send
			
		Set Contato = Nothing
	
	Else
	
		Dim Mailer
		Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
		
			Mailer.RemoteHost  = "mail.ganhetempo.com"
			Mailer.FromName    = VarSeuNome
			Mailer.FromAddress = VarSeuEmail
			Mailer.AddRecipient VarEmailPara, VarEmailPara
			Mailer.Subject     = SubjectIndique
			Mailer.BodyText    = Corpo
			Mailer.SendMail
		
		Set Mailer = Nothing
	
	End If
	End If

End If
'Fim do Indique o produto

%>
<style type="text/css">
<!--
.style1 {font-family: Verdana}
.style3 {font-family: Verdana; font-size: 12px; }
.style6 {font-size: 16}
.style8 {
	font-size: 18px;
	font-family: Verdana;
	color: #FF0000;
}
.style10 {font-size: 36}
-->
</style>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><!--#include file="Includes/BarraCima.asp"--></td>
  </tr>
  <tr>
    <td>
		<table width="100%"  border="0" cellspacing="0" cellpadding="0">
      		<tr>
        		<td width="176" height="100%" valign="top"><!--#include file="Includes/BarraEsq.asp"--></td>
        		<td width="0" valign="top">
					<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
          				<tr>
            				<td height="9%" align="center"><img src="../Imagens/SpacerCima.gif" width="1" height="9"></td>
        				</tr>
         	    		<tr>
         	    		  <td height="20" align="center" bgcolor="<%=FundoTitulo%>"><div align="left">  <span class="TextTahoma11AzulBold">Você esta em: <%=Categoria("Categoria")%></span><span class="TextTahoma11Azul"> » <%=SubCategoria("SubCategoria")%></span></div></td>
       	    		  </tr>
         	    		<tr>
            				<td height="19%" align="center"> </td>
          				</tr>
          				<tr>
          				  <td align="center" valign="middle"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                            <tr align="center">
                              <td colspan="2"><span class="TextTahoma11AzulBold"><%=Produto("NomeProduto")%></span></td>
                            </tr>
                            <tr align="center">
                              <td height="20" colspan="2"><img src="Imagens/LinhaCinza.gif" width="100%" height="1"></td>
                            </tr>
                            <tr>
                              <td colspan="2"> </td>
                            </tr>
                            <tr>
                              <td width="300" align="center" valign="middle"><img src="<%=Produto("Foto1")%>" width="400" height="295" /></td>
                              <td width="71%"><table width="296" border="0" align="center" cellpadding="0" cellspacing="0">
   <tr><td rowspan="2" class="TextTahoma11Cinza"><table width="100%" border="0" cellspacing="3" cellpadding="3" class="texto" style="border: 1px solid #cccccc">
                                    <tr>
                                      <td><table width="100%" border="0" cellspacing="3" cellpadding="3" class="texto" style="border-bottom: 1px solid #cccccc">
  <tr>
    <td width="22%" class="TextTahoma11Cinza"><span class="style3">Nome:</span></td>
    <td width="78%" class="TextTahoma11Cinza"><%=Produto("Nome")%></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="3" cellpadding="3" class="texto" style="border-bottom: 1px solid #cccccc">
  <tr>
    <td width="22%" class="TextTahoma11Cinza"><span class="style3">E-mail:</span></td>
    <td width="78%" class="TextTahoma11Cinza"><%=Produto("Email")%></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="3" cellpadding="3" class="texto" style="border-bottom: 1px solid #cccccc">
  <tr>
    <td width="27%" class="TextTahoma11Cinza"><span class="style3">Cidade:</span></td>
    <td width="73%" class="TextTahoma11Cinza"><%=Produto("Cidade")%> - <%=Produto("Estado")%></td>
  </tr>
</table>                                        
<table width="100%" border="0" cellspacing="3" cellpadding="3" class="texto" style="border-bottom: 1px solid #cccccc">
  <tr>
    <td width="20%" class="TextTahoma11Cinza"><span class="style3">Fone:</span></td>
    <td width="80%" class="TextTahoma11Cinza">(<%=Produto("DDDTelefone")%>) <%=Produto("Telefone")%></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="3" cellpadding="3" class="texto" style="border-bottom: 1px solid #cccccc">
  <tr>
    <td width="15%" class="TextTahoma11Cinza"><span class="style3">Cel:</span></td>
    <td width="85%" class="TextTahoma11Cinza">(<%=Produto("DDDCelular")%>) <%=Produto("Celular")%></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="3" cellpadding="3" class="texto" style="border-bottom: 1px solid #cccccc">
  <tr>
    <td width="17%" class="TextTahoma11Cinza"><span class="style3">Site:</span></td>
    <td width="83%" class="TextTahoma11Cinza"><a href="<%=Produto("Site")%>" target="_blank"><%=Produto("Site")%></a></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="3" cellpadding="3" class="texto" style="border-bottom: 1px solid #cccccc">
  <tr>
    <td width="50%" class="TextTahoma11Cinza"><span class="style3">Atualizado em:</span></td>
    <td width="50%" class="TextTahoma11Cinza"><%=Produto("DataHora")%></td>
  </tr>
</table>
                                     </td>
                                    </tr>
                                  </table></td>
                                  <td width="10" class="TextTahoma11Cinza"><br /></td>
                            <td width="11" rowspan="9"></td>
                                </tr>
                                                             
                                <tr>                                </tr>
                                <tr>
                                  <td class="TextTahoma11Cinza"> </td>
                                </tr>
                                <tr>
                                  <td class="TextTahoma11Cinza"> </td>
                                </tr>
                                <tr>
                                  <td class="TextTahoma11Cinza"> </td>
                                </tr>
                                
                                <tr>
                                  <td width="284" class="TextTahoma11CinzaClaro">De: <s><%=FormatCurrency(Produto("PrecoDe"))%></s></td>
                                </tr>
                                <tr>
                                  <td><span class="style8">Por: <span class="style10 style9"><%=FormatCurrency(Produto("PrecoPor"))%></span></span></td>
                                </tr>
                                <tr>
                                  <td width="284" class="TextTahoma11Cinza">Economize: <%=FormatCurrency(Produto("PrecoDe") - Produto("PrecoPor"))%></td>
                                </tr>
                              </table></td>
                            </tr>
                            <tr>
                              <td colspan="2"><table width="100%" height="126" border="0" cellpadding="0" cellspacing="0">
                                <tr>
                                  <td width="63%" height="126"><table width="94%" border="0" cellspacing="0" cellpadding="0">
                                        <tr>
                                          <td><img src="Imagens/bt_ampliar_1.png" width="438" height="30" /></td>
                                        </tr>
                                        <tr>
                                          <td background="Imagens/bt_ampliar_2.png">
										  <div align="center" style="width: 75%; height: 15">
<ul class="mais_fotos">
										  <table width="60%" border="0" cellspacing="3" cellpadding="1">
                                              <tr>
                                                <td width="23%"><div align="right">
												<a class="group" rel="group" href="<%=Produto("Foto1")%>" title=""><img border="1px" src="<%=Produto("Foto1")%>" width="82" height="72" /></a></div></td>
												
                                                <td width="25%">
												<a class="group" rel="group" href="<%=Produto("Foto2")%>" title=""><div align="center"><img border="1px" src="<%=Produto("Foto2")%>" width="82" height="72" /></div></a></td>
												
                                                <td width="25%">
												<a class="group" rel="group" href="<%=Produto("Foto3")%>" title=""><div align="center"><img border="1px" src="<%=Produto("Foto3")%>" width="82" height="72" /></div></a></td>
												
                                                <td width="27%">
												<div align="left"><a class="group" rel="group" href="<%=Produto("Foto4")%>" title=""><img border="1px" src="<%=Produto("Foto4")%>" width="82" height="72" /></a></div></td>
                                              </tr>
                                          </table></ul></div></td>
                                        </tr>
                                        <tr>
                                          <td><img src="Imagens/bt_ampliar_3.png" width="438" height="18" /></td>
                                        </tr>
                                      </table></td>
                                  <td width="37%"> </td>
                                </tr>
                              </table></td>
                            </tr>
                            <tr>
                              <td height="20" colspan="2"><img src="Imagens/LinhaCinza.gif" width="100%" height="1"></td>
                            </tr>
                            <tr>
                              <td colspan="2"><span class="TextTahoma11CinzaBold">Descrição</span></td>
                            </tr>
                            <tr>
                              <td height="20" colspan="2"><img src="Imagens/LinhaCinza.gif" width="100%" height="1"></td>
                            </tr>
                            <tr bgcolor="<%=FundoBarraEsq%>">
                              <td colspan="2"><span class="TextTahoma11Cinza"><%=Produto("Descricao")%></span></td>
                            </tr>
                            <tr>
                              <td height="20" colspan="2"> </td>
                            </tr>
                            <tr>
                              <td colspan="2" class="TextTahoma11CinzaBold"></td>
                            </tr>
                            <tr>
                              <td height="20" colspan="2"> </td>
                            </tr>
                            <tr bgcolor="<%=FundoBarraEsq%>">
                              <td colspan="2"> </td>
                            </tr>
                            <tr>
                              <td height="20" colspan="2"><img src="Imagens/LinhaCinza.gif" width="100%" height="1"></td>
                            </tr>
                            <tr>
                              <td colspan="2" class="TextTahoma11CinzaBold"><div align="center"><span class="TextTahoma11Cinza"><a href="#" onclick="window.open('paine/indique/indique.asp?pagina=<%="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")%>','indique','height=250,width=250,left=50,top=50')"><img border="0" src="Imagens/icon_indique.png" /></a></span></div></td>
                            </tr>
                            <tr>
                              <td height="20" colspan="2"><img src="Imagens/LinhaCinza.gif" width="100%" height="1"></td>
                            </tr>
                            <tr bgcolor="<%=FundoBarraEsq%>">
                              <td colspan="2"><form name="form1" method="post" action="MaisProduto.asp?Act=Indique&Produto=<%=Produto("Cod")%>">
                                  <table width="42%"  border="0" align="center" cellpadding="1" cellspacing="2">
                                    <tr>
                                      <td> </td>
                                      <td><%=VarMsg%></td>
                                    </tr>
                                    <tr>
                                      <td width="25%"><div align="right"><span class="TextTahoma11Azul">Seu nome: </span></div></td>
                                      <td width="75%"><input type="text" name="SeuNome" class="FormIndique"></td>
                                    </tr>
                                    <tr>
                                      <td><div align="right"><span class="TextTahoma11Azul">Seu e-mail: </span></div></td>
                                      <td><input type="text" name="SeuEmail" class="FormIndique"></td>
                                    </tr>
                                    <tr>
                                      <td><div align="right"><span class="TextTahoma11Azul">Nome (para):</span></div></td>
                                      <td><input type="text" name="NomePara" class="FormIndique"></td>
                                    </tr>
                                    <tr>
                                      <td><div align="right"><span class="TextTahoma11Azul">E-mail(para): </span></div></td>
                                      <td><input type="text" name="EmailPara" class="FormIndique"></td>
                                    </tr>
                                    <tr>
                                      <td><div align="right"><span class="TextTahoma11Azul">Comentários:</span></div></td>
                                      <td><textarea name="Comentario" rows="5" class="FormIndique" id="Comentario"></textarea></td>
                                    </tr>
                                    <tr>
                                      <td colspan="2"><div align="center">
                                          <input name="Enviar" type="submit" id="Enviar" value="Enviar">
                                      </div></td>
                                    </tr>
                                  </table>
                              </form></td>
                            </tr>
                            <tr>
                              <td height="20" colspan="2"><img src="Imagens/LinhaCinza.gif" width="100%" height="1"></td>
                            </tr>
                            <tr>
                              <td height="20" colspan="2"><div align="center"><%=Voltar%></div></td>
                            </tr>
                            <tr>
                              <td height="20" colspan="2"></td>
                            </tr>
                            <tr>
                              <td height="20" colspan="2">

<%
Set Publicidade = Server.CreateObject("ADODB.Recordset")
	Publicidade.CursorType = 3
	Publicidade.Open("SELECT * FROM Publicidade WHERE Nome"), Banco
		If not Publicidade.EOF Then
			Total = Publicidade.RecordCount
			Randomize()
			Valor = Int(Rnd * Total)
			Publicidade.Move(Valor)
		Else
			Desativar1 = 1

		End If
		%>

<div align="center">
<div align="left" class="style1">                                  Publicidade</div>
      <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
WIDTH="650" HEIGHT="150">
        <PARAM NAME=movie VALUE="painel/publicidade/<%=Publicidade("Foto")%>">
        <PARAM NAME=quality VALUE=best>
        <EMBED src="painel/publicidade/<%=Publicidade("Foto")%>" quality=best WIDTH="650" HEIGHT="150"
 TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED>
      </OBJECT>
    </div><br /></td>
                            </tr>
                            
                          </table></td>
       				  </tr>
          				<tr>
            				<td align="center" valign="middle">							</td>
          				</tr>
        			</table>				</td>
        		<td width="148" height="100%" valign="top"><!--#include file="Includes/BarraDir.asp"--></td>
      		</tr>
   	  </table>	</td>
  </tr>
  <tr>
    <td><!--#include file="Includes/Rodape.asp"--></td>
  </tr>
</table>

<%
Set Publicidade = Nothing

Call FechaBanco

%>

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

você esta com um if else, que usará o cdonts e outro aspmail, da forma que esta lá irá entrar direto no asmail já que a variavel do if ComponenteEmail não tem variavel definida ou criado, com isso entrará sempre no aspmail, portanto verifique se o componente aspmail esta instalado no seu servidor, caso contrário não irá funcionar, caso esteja, faço o teste por fora deste codaiada toda, pegue por exemplo exemplos básicos para teste e efetue o mesmo, com isso se der certo você aproveita e monta o seu na base e em cima deste.

 

http://www.netpoint.com.br/ajuda/index.php?title=SMTPsvg

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Ola Patrique boa tarde!

 

Cara fiz um teste com aquele do link e apareceu esse erro

 

 

A mensagem não foi entregue: 554 no valid RCPT address specified

 

Oq quer dizer?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

troque também o CDONTS pelo CDOSYS, que é a evolucão do CDONTS

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Utilizou qual componente? verificou se o mesmo esta instalado? esta utilizando o email do remetente com o domínio do servidor?

 

[]'s

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