[Resolvido] Problemas com CDONTS

Rodrigo F. · Março 27, 2009

Boa tarde amigos,

Estou tendo problemas com a utilização do sistema CDONTS de envio de emails, no caso esse é um modelo de indicação de um determinado item.

Utilizo o mesmo código para envio de indicações do site e ele funciona perfeitamente, mais esse em questão não envia e nem da erro. O que poderia ser?

indicar_dvd.asp 'Página do formulári ode indicação do item

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Cinepipoca.asp" -->
<%
Session.LCID = 1046
Response.Expires = 0
%>
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

  MM_editConnection = MM_Cinepipoca_STRING
  MM_editTable = "comentarios"
  MM_editRedirectUrl = "comentario_cad_ok.asp"
  MM_fieldsStr  = "id_filme|value|nome|value|email|value|data|value|avaliacao|value|mostrar_ema
il|value|titulo|value|texto|value"
  MM_columnsStr = "id_filme|none,none,NULL|nome|',none,''|email|',none,''|data|',none,NULL|avaliacao|none,none,NULL|mostrar_email|none,1,0|titulo|',none,''|texto|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
	MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
	If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
	  MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
	Else
	  MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
	End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
	FormVal = MM_fields(i+1)
	MM_typeArray = Split(MM_columns(i+1),",")
	Delim = MM_typeArray(0)
	If (Delim = "none") Then Delim = ""
	AltVal = MM_typeArray(1)
	If (AltVal = "none") Then AltVal = ""
	EmptyVal = MM_typeArray(2)
	If (EmptyVal = "none") Then EmptyVal = ""
	If (FormVal = "") Then
	  FormVal = EmptyVal
	Else
	  If (AltVal <> "") Then
		FormVal = AltVal
	  ElseIf (Delim = "'") Then  ' escape quotes
		FormVal = "'" & Replace(FormVal,"'","''") & "'"
	  Else
		FormVal = Delim + FormVal + Delim
	  End If
	End If
	If (i <> LBound(MM_fields)) Then
	  MM_tableValues = MM_tableValues & ","
	  MM_dbValues = MM_dbValues & ","
	End if
	MM_tableValues = MM_tableValues & MM_columns(i)
	MM_dbValues = MM_dbValues & FormVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
	' execute the insert
	Set MM_editCmd = Server.CreateObject("ADODB.Command")
	MM_editCmd.ActiveConnection = MM_editConnection
	MM_editCmd.CommandText = MM_editQuery
	MM_editCmd.Execute
	MM_editCmd.ActiveConnection.Close

	If (MM_editRedirectUrl <> "") Then
	  Response.Redirect(MM_editRedirectUrl)
	End If
  End If

End If
%>
<%
Dim filme__MMColParam
filme__MMColParam = "1"
if (Request.QueryString("id_filme") <> "") then filme__MMColParam = Request.QueryString("id_filme")
%>
<%
set filme = Server.CreateObject("ADODB.Recordset")
filme.ActiveConnection = MM_Cinepipoca_STRING
filme.Source = "SELECT * FROM filme WHERE id_filme = " + Replace(filme__MMColParam, "'", "''") + ""
filme.CursorType = 0
filme.CursorLocation = 2
filme.LockType = 3
filme.Open()
filme_numRows = 0
%>

<html>
<head>
<meta http-equiv="Content-Language" content="pt-br" />
<meta http-equiv="Cache-Control" content="no-cache, no-store" />
<meta http-equiv="Pragma" content="no-cache, no-store" />
<meta name="robots" content="index, follow" />
<meta name="description" content="Club Video - Prazer em atender você!!! Os melhores filmes, promoções, lan-house, Recarga Online e diversos serviços especializados. Tudo ao seu alcance!" />
<meta name="keywords" content="locadora, cinema, dvd, ilhéus, ios, serviços, classificados, compras, entretenimento, animação, filmes, arte, cultura, bahia, crianças, diversão, vhs, trailers, sinopse, suspense, drama, ação, aventura, comédia, animação, romance, terror, policial, ficção, agenda, informação, clima" />
<meta name="URL" content="http://www.clubvideo.com.br">
<meta name="SUBJECT" content="Video Locadora">
<meta name="RATING" content="GENERAL">
<meta name="audience" content="all">
<meta name="LANGUAGE" content="Portuguese">
<meta name="ROBOTS" content="index,follow">
<meta name="GOOGLEBOT" content="index,follow">
<meta name="Dc.title" content="Club Video" />
<meta name="Author" content="Rodrigo F. Santos - wwBR.net" />
<link rel="SHORTCUT ICON" href="http://www.clubvideo.com.br/favicon.ico" />
<link rel="apple-touch-icon" href="http://www.clubvideo.com.br/favicon.jpg" />
<title>Club Video - Prazer em Atender Você!</title>
<link rel="stylesheet" href="estilo.css" type="text/css">
<link rel="stylesheet" href="estilo_cine.css" type="text/css">
<script language=javascript>
function msg(){
window.status="Club Video - Prazer em Atender você";
return true;
}
</script>
<script language="JavaScript">
<!--
function FDK_StripChars(theFilter,theString)
{
	var strOut,i,curChar

	strOut = ""
	for (i=0;i < theString.length; i++)
	{		
		curChar = theString.charAt(i)
		if (theFilter.indexOf(curChar) < 0)	// if it's not in the filter, send it thru
			strOut += curChar		
	}	
	return strOut
}

function FDK_AddToValidateArray(FormName,FormElement,Validation,SetFocus)
{
	var TheRoot=eval("document."+FormName);
 
	if (!TheRoot.ValidateForm) 
	{
		TheRoot.ValidateForm = true;
		eval(FormName+"NameArray = new Array()")
		eval(FormName+"ValidationArray = new Array()")
		eval(FormName+"FocusArray = new Array()")
	}
	var ArrayIndex = eval(FormName+"NameArray.length");
	eval(FormName+"NameArray[ArrayIndex] = FormElement");
	eval(FormName+"ValidationArray[ArrayIndex] = Validation");
	eval(FormName+"FocusArray[ArrayIndex] = SetFocus");
 
}

function FDK_ValidateNonBlank(FormElement,ErrorMsg)
{
  var msg = ErrorMsg;
  var val = FormElement.value;  

  if (!(FDK_StripChars(" \n\t\r",val).length == 0))
  {
	 msg="";
  }

  return msg;
}

function FDK_AddNonBlankValidation(FormName,FormElementName,SetFocus,ErrorMsg)  {
  var ValString = "FDK_ValidateNonBlank("+FormElementName+","+ErrorMsg+")"
  FDK_AddToValidateArray(FormName,eval(FormElementName),ValString,SetFocus)
}

function FDK_AllInRange(x,y,theString)
{
	var i, curChar
	
	for (i=0; i < theString.length; i++)
	{
		curChar = theString.charAt(i)
		if (curChar < x || curChar > y) //the char is not in range
			return false
	}
	return true
}

function FDK_reformat(s)
{
	var arg;
	var sPos = 0;
	var resultString = "";

	for (var i = 1; i < FDK_reformat.arguments.length; i++) {
	   arg = FDK_reformat.arguments[i];
	   if (i % 2 == 1) 
		   resultString += arg;
	   else 
	   {
		   resultString += s.substring(sPos, sPos + arg);
		   sPos += arg;
	   }
	}
	return resultString;
}

function FDK_ValidateEmail(FormElement,Required,ErrorMsg)
{
   var msg = "";
   var val = FormElement.value;
   var msgInvalid = ErrorMsg;

   var theLen = FDK_StripChars(" ",val).length
   if (theLen == 0)		 {
	 if (!Required) return "";
	 else return msgInvalid;
   }

   if (val.indexOf("@",0) < 0 || val.indexOf(".")<0) 
   {
	  msg = msgInvalid;
   }
   return msg;
}

function FDK_AddEmailValidation(FormName,FormElementName,Required,SetFocus,ErrorMsg)  {
  var ValString = "FDK_ValidateEmail("+FormElementName+","+Required+","+ErrorMsg+")"
  FDK_AddToValidateArray(FormName,eval(FormElementName),ValString,SetFocus)
}

function FDK_Validate(FormName, stopOnFailure, AutoSubmit, ErrorHeader)
{
 var theFormName = FormName;
 var theElementName = "";
 if (theFormName.indexOf(".")>=0)  
 {
   theElementName = theFormName.substring(theFormName.indexOf(".")+1)
   theFormName = theFormName.substring(0,theFormName.indexOf("."))
 }
 var ValidationCheck = eval("document."+theFormName+".ValidateForm")
 if (ValidationCheck)  
 {
  var theNameArray = eval(theFormName+"NameArray")
  var theValidationArray = eval(theFormName+"ValidationArray")
  var theFocusArray = eval(theFormName+"FocusArray")
  var ErrorMsg = "";
  var FocusSet = false;
  var i
  var msg
	
 
		// Go through the Validate Array that may or may not exist
		// and call the Validate function for all elements that have one.
  if (String(theNameArray)!="undefined")
  {
   for (i = 0; i < theNameArray.length; i ++)
   {
	msg="";
	if (theNameArray[i].name == theElementName || theElementName == "")
	{
	  msg = eval(theValidationArray[i]);
	}
	if (msg != "")
	{
	 ErrorMsg += "\n"+msg;				   
	 if (stopOnFailure == "1") 
	 {
	   if (theFocusArray[i] && !FocusSet)  
	  {
	   FocusSet=true;
	   theNameArray[i].focus();
	  }
	  alert(ErrorHeader+ErrorMsg);
	  document.MM_returnValue = false; 
	  break;
	 }
	 else  
	 {
	  if (theFocusArray[i] && !FocusSet)  
	  {
	   FocusSet=true;
	   theNameArray[i].focus();
	  }
	 }
	}
   }
  }
  if (ErrorMsg!="" && stopOnFailure != "1") 
  {
   alert(ErrorHeader+ErrorMsg);
  }
  document.MM_returnValue = (ErrorMsg==""); 
  if (document.MM_returnValue && AutoSubmit)  
  {
   eval("document."+FormName+".submit()")
  }
 }
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="10" topmargin="0" marginwidth="10" marginheight="0">
<table width="503" border="0" cellspacing="0" cellpadding="0">
  <tr> 
	<td background="images/title/indicar.gif"> <p><br>
 </td>
  </tr>
  <tr> 
	<td> 
	  <form name="form1" action="enviar_indicar_dvd.asp" method="POST">
		<table align="center">
		  <tr valign="baseline" align="left"> 
			<td nowrap height="28" valign="middle"><font size="2" face="Tahoma">
			<font color="#0176C8"> 
			  </font><font color="#0176C8"><b>Seu nome:</b></font></font></td>
			<td rowspan="7" width="160" align="center" valign="middle"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
			<img src="dvd/grd/<%=(filme.Fields.Item("id_filme").Value)%>.jpg" width="127" height="199"> 
			  </font></td>
		  </tr>
		  <tr valign="baseline" align="left"> 
			<td nowrap height="28" valign="middle">
			<font color="#0176C8" size="2" face="Tahoma"> 
			  <input type="text" name="remetente" value="" size="30" maxlength="50"><b>
			</b></font></td>
		  </tr>
		  <tr valign="baseline"> 
			<td nowrap align="left" height="28" valign="middle"><b>
			<font size="2" face="Tahoma" color="#0176C8"> 
			  Nome do amigo:</font></b></td>
		  </tr>
		  <tr valign="baseline"> 
			<td nowrap align="left" height="28" valign="middle">
			<font color="#0176C8" size="2" face="Tahoma"> 
			  <input type="text" name="destinatario" value="" size="30" maxlength="50"><b>
			</b></font></td>
		  </tr>
		  <tr valign="baseline"> 
			<td nowrap align="left" height="28" valign="middle"><b>
			<font size="2" face="Tahoma" color="#0176C8"> 
			  E-mail do amigo:</font></b></td>
		  </tr>
		  <tr valign="baseline"> 
			<td nowrap align="left" height="28" valign="middle">
			<font color="#0176C8" size="2" face="Tahoma"> 
			  <input type="text" name="email_dest" value="" size="30" maxlength="50"><b>
			</b></font></td>
		  </tr>
		  <tr valign="baseline"> 
			<td nowrap align="left" height="60" valign="middle">
			<p align="center"><font face="Tahoma" size="2">
			<font color="#0176C8" size="2"> 
			  <input type="submit" value="enviar indicação" name="submit" onClick="FDK_AddNonBlankValidation('form1','document.form1.titulo',true,'\'Digite um título !\'');FDK_AddNonBlankValidation('form1','document.form1.texto',true,'\'Digite seu comentário !\'');FDK_AddNonBlankValidation('form1','document.form1.nome',true,'\'Digite seu nome ou apelido !\'');FDK_AddNonBlankValidation('form1','document.form1.email',true,'\'Informe seu e-mail !\'');FDK_AddEmailValidation('form1','document.form1.email',true,true,'\'Informe seu e-mail corretamente !\'');FDK_Validate('form1',true,false,'ATENÇÃO - Club Video Locadora');return document.MM_returnValue">
</font></font></td>
		  </tr>
		</table>
	  </form>
	  <p> </p>
	</td>
  </tr>
</table>
</body>
</html>
<%
filme.Close()
%>

enviar_indicar_dvd.asp 'código do arquivo para envio da indicação

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Cinepipoca.asp" -->
<%

Dim remetente, destinatario, email_dest, filmes, id_filme

id_filme = Request.Form("id_filme")
email_dest = Request.Form("email_dest")
destinatario = Request.Form("destinatario")
remetente = Request.Form("remetente")
filmes = Request.Form("titulo")

	// verifica se existe nome vazio
	
	if id_filme <> "" then
	
		// enviar o e-mail
		
		Dim msg, HTML
		
		Set  Server.CreateObject("CDONTS.NewMail")
		
		HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
		HTML = HTML & "<html><head><title>Club Video - Prazer em Atender Você!</title><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"" /></head>"
		HTML = HTML & "<body bgcolor=""#FFFFFF"" text=""#000000"">"
		HTML = HTML & "<table border=""1"" width=""75%"" background=""http://www.clubvideo.com.br/contato/bgs/kungfupanda1.jpg"" height=""392"">"
		HTML = HTML & "<tr>"
		HTML = HTML & "<td width=""231"" rowspan=""3""> </td>"
		HTML = HTML & "<td height=""29""> </td>"
		HTML = HTML & "<td width=""139"" rowspan=""3""> </td>"
		HTML = HTML & "</tr>"
		HTML = HTML & "<tr>"
		HTML = HTML & "<td><font face=""Verdana"" style=""font-size: 8pt""><font color=""#0000FF"">"
		HTML = HTML & "<b>Olá "&destinatario&",</b></font><p><font color=""#0000FF"">"
		HTML = HTML & "<b>Seu amigo(a) "&remetente&" achou o filme "&filmes&" interessante e resolveu indicá-lo para você.</b></font></p>"
		HTML = HTML & "<p><font color=""#0000FF""><b>Clique no link abaixo para visualizar os dados do filme.</b></font></p>"
		HTML = HTML & "<p align=""center"">"
		HTML = HTML & "<b>"
		HTML = HTML & "<a href=""http://www.clubvideo.com.br/ficha_tecnica.asp?id_filme=""&id_filme&"""">"
		HTML = HTML & "<font color=""#0000FF"">"
		HTML = HTML & "<img border=""0"" src=""http://www.clubvideo.com.br/dvd/peq/"" width=""80"" height=""115""><br>""&filmes&""</font></a><font color=""#0000FF"">"
		HTML = HTML & "</font></b>"
		HTML = HTML & "<p align=""center""><b><font color=""#0000FF""><img border=""0"" src=""http://www.clubvideo.com.br/images/logo_t.gif"" width=""100"" height=""34"" alt=""Club Video - Prazer em atender você!!!""><br>"
		HTML = HTML & "ClubVideo - Prazer em Atender Você! - </font> <a href=""http://www.clubvideo.com.br/"">"
		HTML = HTML & "<font color=""#0000FF"">www.clubvideo.com.br</font></a></b></p>"
		HTML = HTML & "<font face=""Tahoma, Verdana"" size=""2"">"
		HTML = HTML & "<p> </td>"
		HTML = HTML & "</tr>"
		HTML = HTML & "<tr>"
		HTML = HTML & "<td height=""25""> </td>"
		HTML = HTML & "</tr>"
		HTML = HTML & "</table>"
		HTML = HTML & "</body></html>"
		
		msg.From = "contato@clubvideo.com.br"
		msg.To = email_dest
		msg.BCC = "rodriqo@gmail.com"
		msg.Subject = "Indicação de Site - Club Video"
		msg.BodyFormat = 0
		msg.MailFormat = 0
		msg.Body = HTML
		msg.Send
		Response.Redirect "indicar_ok.asp"
		
		// fecha os banco de dados
		Set msg = Nothing
		
	End if
	
%>

xanburzum · Março 27, 2009

você esta executando no localhost ou no server ???

Rodrigo F. · Março 28, 2009

você esta executando no localhost ou no server ???

No server meu velho

Como eu disse, utilizo exatamente o mesmo codigo para indicarem o site e funciona perfeitamente. E é isso que ta me deixando perdido

xanburzum · Março 28, 2009

estranho, você verificou se o server nao esta passando por problemas, isso pode esatr fazendo seu código naun "funfa"

e teste esse simple para ver:

<% 	
Option explicit
' declaro as var
dim objmail, varnome, varemail, varddd, varfone, varramal, varassunto, varmensa
		' recupero as var
varnome=Trim(request.form("nome"))
varfone=Trim(request.form("fone"))
varemail=Trim(request.form("email"))
varassunto=Trim(request.form("assunto"))
varmensa=request.form("mensagem")
varmensa="<p>" & Replace(varmensa,Chr(13),"<br>") & varddd &"<br>" & varfone & "<br>"& varramal& "</p>"
		' crio o objeto para envio de email CDONTS	
Set objmail=Server.CreateObject("CDONTS.NewMail")
	objmail.from=varemail
	objmail.to="contato@seu_dominio.com.br"
	objmail.subject=varassunto
	objmail.bodyformat=0
	objmail.mailformat=0
	objmail.body=varmensa
	objmail.send
set objmail=nothing
%>

Rodrigo F. · Março 28, 2009

Testei e da a mesma coisa.. ele passa normalmente como se fosse enviar mais não redireciona para página que confirma o envio e nem da nenhum erro :\

xanburzum · Março 28, 2009

entre em contato com seu host, pode ser probema no server

Rodrigo F. · Março 30, 2009

Já o fiz e ta tudo normal, o problema não seria la :\

até mesmo pq é o mesmo código e tals

vou fazer mais testes

hargon · Março 30, 2009

Altera o componente para CDOSYS, CDONTS é muito antigo e foi até substituído pelo próprio CDOSYS.

Rodrigo F. · Março 31, 2009

Ja tentei utilizar o CDOSYS e dava a mesma coisa..

Eu estava pensando que poderia ser algum problema para capturar as informações do filme, mais no geral ta tudo certo :\

isso que me deixa encafifado :{

hargon · Março 31, 2009

Com o CDOSYS não apresentou erro?

Verifica se dentro desse arquivo

não tem o comando On Error Resume Next. Se tiver remova e faça os testes. Pq tem que apresentar algum erro.

Rodrigo F. · Março 31, 2009

Não possui não, qndo usava cdosys dava a mesma coisa entende?

funciona pra indicar o site mais não para indicar algum item dele

xanburzum · Março 31, 2009

naun será seu host, naun ???

já tentou um teste em outro host ???

você ja tentou entrar em contato com o suporte...

Rodrigo F. · Março 31, 2009

Pior que ja fiz tudo isso e mesmo em outro host deu a mesma coisa..

é intrigante isso :\

Vagner Bucioli Scala · Março 31, 2009

Olá tente no from ao invés de usar o email do usuário para o envio da mensagem:

objmail.from=varemail

Utilize um email deste domínio, tipo crie um webmaster@seudominio.com.br e tente enviar

objmail.from="webmaster@seudominio.com.br"

Utilize mais ou menos o exemplo abaixo que eu uso na King Host pra mandar de modo autenticado:

O que acontece...alguns provedores estão "pesando" e só permitem o envio de email através de uma conta válida do próprio domínio segundo eles pra evitar spans..

Neste meu caso eu precisei criar um email "mensageiro@dominio.com.br" só pra poder enviar as mensagens.

Só q tem o probleminha tipo toda vez que o destinatário recebe o email aparece no From: mensageiro@dominio.com.br ao invés do email do remetente, sendo que o email do mesmo só aparece no corpo da mensagem. Daí tinha o problema do "Reply", pq caso o cliente quizésse responder iria aparecer o mensageiro@ ao invés do email do remetente, o que consegui resolver no CDO com essas duas linhas:

sResponder = request("email")

mail.ReplyTo = sResponder

Abaixo o código completo

<%
Dim Nome, Email, Telefone, Assunto, Mensagem

Nome = request.Form("nome")
Email = request.Form("email")
Telefone = request.Form("telefone")
Assunto = request.Form("assunto")
Mensagem = request.Form("comentarios")

set conf = createobject("cdo.configuration")
conf.fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
conf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-web.kinghost.net"
conf.fields.update
set mail = createobject("cdo.message")
mail.configuration = conf
mail.from = "mensageiro@portaldalinguaitaliana.com.br"
mail.to = "scuola.spazio.italia@gmail.com"
mail.subject = "Formulário de Contato"
sResponder = request("email")
mail.ReplyTo = sResponder
hbody = "<center> <h2> ====== FORMULÁRIO DE CONTATO====== </h2> </center> <br><br> <b> Nome: </b>" & Nome &"<hr color=red> <b> Email: </b>" & Email &"<hr color=red> <b> Telefone: </b>" & Telefone &"<hr color=red> <b> Assunto: </b>" & Assunto &"<hr color=red><b> Mensagem: </b>" & Mensagem &"<hr color=red>"   
mail.HTMLBody = hbody
mail.configuration = conf
mail.send
response.redirect "agradecimento.html"
%>

Rodrigo F. · Março 31, 2009

Olá amigo Vagner Bucioli Scala

Utilizando seu exemplo eu ja consegui enviar as indicações por item, com uma pequena ressalva...

No email ele não identifica id_filme e titulo deixando oculto esses valores na mensagem...

O Código ficou assim:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Cinepipoca.asp" -->

<%
Dim remetente, destinatario, email_dest, titulo, id_filme

id_filme = Request.Form("id_filme")
email_dest = Request.Form("email_dest")
destinatario = Request.Form("destinatario")
remetente = Request.Form("remetente")
titulo = Request.Form("titulo")

' Cria o objeto CDOSYS
set conf = createobject("cdo.configuration")
'Cria o objeto para configuração do SMTP
Set conf = Server.CreateObject ("CDO.Configuration")
'SMTP 
conf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
'Porta do SMTP
conf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
'Porta do CDO
conf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Timeout
conf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
conf.Fields.update

set mail = createobject("cdo.message")
mail.configuration = conf
mail.from = "contato@clubvideo.com.br"
mail.to = email_dest
mail.BCC = "rodriqo@gmail.com"
mail.subject = "Club Video: Indicação de Filme"
hbody = "<table border=0 width=790 height=390 background=http://www.clubvideo.com.br/contato/bgs/kungfupanda1.jpg cellspacing=0 cellpadding=0><tr><td width=246 rowspan=3> </td><td height=29> </td><td width=169 rowspan=3> </td></tr><tr><td><font face=""Verdana"" style=""font-size: 8pt""><font color=#0000FF><b>Olá "&destinatario&",</b></font><p><font color=#0000FF><b>Seu amigo(a) "&remetente&" achou o filme: "&titulo&" interessante e resolveu te indicar.</b></font></p><p><font color=#0000FF><b>Clique no link abaixo para visualizar os dados do filme.</b></font></p><p align=center><b><a href=http://www.clubvideo.com.br/ficha_tecnica.asp?id_filme="&id_filme&"><font color=#0000FF><img border=0 src=http://www.clubvideo.com.br/dvd/peq/"&id_filme&" width=80 height=115><br>"&titulo&"</font></a><font color=#0000FF></font></b><p align=center><b><font color=#0000FF><img border=0 src=http://www.clubvideo.com.br/images/logo_t.gif width=100 height=34 alt=Club Video - Prazer em atender você!!!><br>ClubVideo - Prazer em Atender Você! - </font> <a href=http://www.clubvideo.com.br/><font color=#0000FF>www.clubvideo.com.br</font></a></b></p><font face=Tahoma, Verdana size=2><p> </td></tr><tr><td height=25> </td></tr></table>"
mail.HTMLBody = hbody
mail.configuration = conf
mail.send
response.redirect "indicar_ok.asp"
%>

hargon · Março 31, 2009

Verifique se a variável titulo e id_filme realmente receberam algum valor através do método POST.

Rodrigo F. · Março 31, 2009

Verifique se a variável titulo e id_filme realmente receberam algum valor através do método POST.

Creio que sim, pelo que vi ele recebe os valodres de Id_filme e titulo

Código do formulário

<form name="form1" action="enviar_indicar_dvd.asp" method="POST">
		<table align="center">
		  <tr valign="baseline" align="left"> 
			<td nowrap height="28" valign="middle"><font size="2" face="Tahoma">
			<font color="#0176C8"> 
			  </font><font color="#0176C8"><b>Seu nome:</b></font></font></td>
			<td rowspan="7" width="160" align="center" valign="middle">
			<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
			<img src="dvd/grd/<%=(filme.Fields.Item("id_filme").Value)%>.jpg" width="127" height="199">
			<br>
			<font size="2" face="Tahoma, Verdana" color="0161AB"><b><%=(filme.Fields.Item("titulo").Value)%></b></font></font>
			</td>
		  </tr>
		  <tr valign="baseline" align="left"> 
			<td nowrap height="28" valign="middle">
			<font color="#0176C8" size="2" face="Tahoma"> 
			  <input type="text" name="remetente" value="" size="30" maxlength="50"><b>
			</b></font></td>
		  </tr>
		  <tr valign="baseline"> 
			<td nowrap align="left" height="28" valign="middle"><b>
			<font size="2" face="Tahoma" color="#0176C8"> 
			  Nome do amigo:</font></b></td>
		  </tr>
		  <tr valign="baseline"> 
			<td nowrap align="left" height="28" valign="middle">
			<font color="#0176C8" size="2" face="Tahoma"> 
			  <input type="text" name="destinatario" value="" size="30" maxlength="50"><b>
			</b></font></td>
		  </tr>
		  <tr valign="baseline"> 
			<td nowrap align="left" height="28" valign="middle"><b>
			<font size="2" face="Tahoma" color="#0176C8"> 
			  E-mail do amigo:</font></b></td>
		  </tr>
		  <tr valign="baseline"> 
			<td nowrap align="left" height="28" valign="middle">
			<font color="#0176C8" size="2" face="Tahoma"> 
			  <input type="text" name="email_dest" value="" size="30" maxlength="50"><b>
			</b></font></td>
		  </tr>
		  <tr valign="baseline"> 
			<td nowrap align="left" height="60" valign="middle">
			<p align="center"><font face="Tahoma" size="2">
			<font color="#0176C8" size="2"> 
			  <input type="submit" value="enviar indicação" name="submit" onClick="FDK_AddNonBlankValidation('form1','document.form1.titulo',true,'\'Digite um título !\'');FDK_AddNonBlankValidation('form1','document.form1.texto',true,'\'Digite seu comentário !\'');FDK_AddNonBlankValidation('form1','document.form1.nome',true,'\'Digite seu nome ou apelido !\'');FDK_AddNonBlankValidation('form1','document.form1.email',true,'\'Informe seu e-mail !\'');FDK_AddEmailValidation('form1','document.form1.email',true,true,'\'Informe seu e-mail corretamente !\'');FDK_Validate('form1',true,false,'ATENÇÃO - Club Video Locadora');return document.MM_returnValue">
</font></font></td>
		  </tr>
		</table>
	  </form>

hargon · Março 31, 2009

Mas não é assim que se testa... tem que ver funcionando.

Response.Write Request.Form("titulo") & "<br />"
Response.Write Request.Form("titulo")

Response.End

Colocando esse código no inicio da pagina enviar_indicar_dvd.asp, obrigatoriamente tem que escrever os dois valores.

Só de olhar esse código já deu para vê que não passa. Mas faça o teste para comprovar...

xanburzum · Março 31, 2009

olha este exemplo, funciona certinho:

<% Option Explicit
dim varremetente, vardestinatario, varassunto, objmail, htmlemail
'recupera as var
vardestinatario=Trim(request.form("destinatario"))
varremetente=Trim(request.form("remetente"))
varassunto=" Acesse este site - www.imasters.com.br"

		' crio o objeto para o envio do email (CDONTS)

 Set objMail = Server.CreateObject("CDONTS.Newmail" ) 
	 objMail.To = vardestinatario ' destino do email
	 objMail.From = varremetente  ' Remetente do Email
	 objMail.Subject = varassunto  ' Assunto do Email

' definindo a var para o corpo da mesagem

htmlemail = htmlemail & "<HTML>"
htmlemail = htmlemail & "<HEAD>"
htmlemail = htmlemail & "<TITLE>imasters</TITLE>"
htmlemail = htmlemail & "</HEAD>"
htmlemail = htmlemail & "<BODY BGCOLOR=#E6E6E6>"
htmlemail = htmlemail & "<P> Você foi indicado por " & varremetente & "</P>"
htmlemail = htmlemail & "<P> acesse o site www.imasters.com.br ,e veja as novidades</P>"
htmlemail = htmlemail & "<BR>"
htmlemail = htmlemail & "<BR>"
htmlemail = htmlemail & "<p>Visite  </p>"
htmlemail = htmlemail & "<a href='http://www.imasters.com.br'>imasters</A>"
htmlemail = htmlemail & "</BODY>"
htmlemail = htmlemail & "</HTML>"

	 objMail.Bodyformat = 0	 
	 objMail.MailFormat = 0
	 objMail.Body = htmlemail
	 objMail.Send
	 Set objMail = Nothing 
response.redirect("default.asp?msg=2") 
%>

teste=o

hargon · Março 31, 2009

Xan, o problema dele é que ele nao informou os dois valores que citem em nenhuma INPUT, logo não vai passar para a outra página. Não adianta postar outros códigos, é só acrescentar dois input hidden.

Mas vamos aguardar o teste dele para vê se é isso mesmo o problema.

Arquivado

[Resolvido] Problemas com CDONTS

Recommended Posts

Rodrigo F. 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Rodrigo F. 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Rodrigo F. 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Rodrigo F. 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Rodrigo F. 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Rodrigo F. 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Rodrigo F. 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vagner Bucioli Scala 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Rodrigo F. 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Rodrigo F. 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64