Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 IfEnd 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;
}</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" <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">](http://www.macromedia.com/go/getflashplayer)
</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
Carregando comentários...