[Resolvido] Problemas com CDONTS

Rodrigo F. · Abril 1, 2009

Fiz o teste do código com a estrutara que me passou e continua ficando em branco a informação das variaveis id_filme e filmes

hargon · Abril 1, 2009

Você fez qual teste? Do Xan ou o que lhe falei?

Rodrigo F. · Abril 1, 2009

Exatamente.

Fiz o teste conforme ele indicou, mais ainda assim saiu em branco ;\

hargon · Abril 1, 2009

Pois é.. faça o teste que eu disse. A proposito se for o que citei, já até postei a solução.

Rodrigo F. · Abril 1, 2009

Pois é.. faça o teste que eu disse. A proposito se for o que citei, já até postei a solução.

Fiz o teste conforme me indicou e o problema persiste... só que com o código que me indicou, ele nem envia. apenas depois de enviar o formulário fica a página em branco

enviar_indicar_dvd.asp

<%@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")

[b]' Para obter o [color="#FF0000"]id_filme[/color] basta repetir a função?[/b]
[b]Response.Write Request.Form("titulo") & "<br />"
Response.Write Request.Form("titulo")
Response.End[/b]

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

indicar_dvd.asp ' O 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 · Abril 1, 2009

Correto. Mas esse era o objetivo do teste. Você não recebe variáveis nessa página. Se recebesse não ficaria em branco.

Você tem que criar input type="hidden" no formulário.

Ex.

Rodrigo F. · Abril 1, 2009

Acrescento ao código do enviar_indicar_dvd.asp tb o id filme não é?

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

hargon · Abril 1, 2009

você pode fazer isso só para testar, sem problemas. Aparecendo os valores de id_filme e titulo, ai você retira essas três linhas e testa o envio.

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

Response.Write Request.Form("titulo")

Response.End

Rodrigo F. · Abril 1, 2009

Agora ta dando erro

Microsoft VBScript compilation  error '800a0401'

Expected end of statement

/indicar_dvd.asp, line 355

Response.Write(filme.Fields.Item("id_filme").Value))
---------------------------------------------------^

<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)%>
			<%
			Response.Write Request.Form("titulo") & "<br />"
Response.Write Request.Form("titulo")
Response.End
%>
			<input type="hidden" name="id_filme" value="<%=filme.Fields.Item("id_filme").Value)%>">
<%
Response.Write Request.Form("id_filme") & "<br />"
Response.Write Request.Form("id_filme")
Response.End
			%>
			<input type="hidden" name="titulo" value="<%=filme.Fields.Item("titulo").Value)%>"> 
			</b></font></font>
			</td>

hargon · Abril 1, 2009

Coloquei um parentese a mais... é só remover conforme abaixo.

Rodrigo F. · Abril 1, 2009

Vlws meus amigos.

ficou tudo muito bomm!

funciona agora perfeitamente!

vou por o código completo para que se alguém precisar de algo do tipo não passe pelas mesmas dificuldades que eu.

enviar_indicar_dvd.asp

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="dll/Conn/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 <font color=#996633>"&titulo&"</font> interessante e resolveu te indicar.</b></font></p><p><font color=#0000FF><b>Clique no link abaixo para visualizar as informações do filme e aproveite para comentar.</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&".jpg 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"
%>

indicar_dvd.asp

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="dll/Conn/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>
<title>Club Video - Prazer em Atender Você!</title>
<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="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="title" content="Club Video - Prazer em Atender Você!">
<meta name="url" content="http://www.clubvideo.com.br">
<meta name="Author" content="Rodrigo F. - wwBR.net" />
<meta name="company" content="Ferreira e Sousa Locações LTDA.">
<meta name="revisit-after" content="1">
<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" />
<link rev=made href="mailto:contato@clubvideo.com.br">
<link rel="stylesheet" href="estilo.css" type="text/css">
<link rel="stylesheet" href="estilo_cine.css" type="text/css">
<link rel="stylesheet" href="noticias/estilo_noticias.css" type="text/css">
<link href="style.css" rel="stylesheet" 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">
			<br>
			<font size="2" face="Tahoma, Verdana" color="0161AB"><b><%=(filme.Fields.Item("titulo").Value)%>
			<input type="hidden" name="id_filme" value="<%=filme.Fields.Item("id_filme").Value%>">
			<input type="hidden" name="titulo" value="<%=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>
	  <p> </p>
	</td>
  </tr>
</table>
<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
try {
var pageTracker = _gat._getTracker("UA-7874937-1");
pageTracker._trackPageview();
} catch(err) {}</script>
</body>
</html>
<%
filme.Close()
%>

vlws a todos pela força ae sempre!

Rodrigo F. · Abril 1, 2009

PS: pode por como resolvido.

hargon · Abril 1, 2009

Bacana Rodrigo. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Arquivado

[Resolvido] Problemas com CDONTS

Recommended Posts

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

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

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

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

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante