Ir para conteúdo

POWERED BY:

Arquivado

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

Fabrizio_mei

[Resolvido] Form - Satisfação do cliente, novo problema.

Por , em ASP Clássico

Recommended Posts

Fabrizio_mei    0

Fabrizio_mei
Postado

Olá pessoal.

Bom, lá no forum de javascript o pessoal me ajudou a resolver o problema que estava tendo com os campos dinâmicos que aparecem somente quando solicitados, agora tenho outro problema, enviar isso por email para pelo menos 3 destinatários diferentes.

Alguém poderia me auziliar? Abaixo segue o código do form.

 

Desde já muito obrigado!

 

<script>
	function HabCampos(valor,id){
		switch(valor.toUpperCase())
		{
			case 'INSATISFEITO':
				document.getElementById(id).style.display = '';
			break;
			case 'SATISFEITO':
				document.getElementById(id).style.display = 'none';
			break;
		}
	}   
	</script>

<form name="form1" action="envio_form.asp" >
  <table width="100%" border="1" cellspacing="0" cellpadding="0">
	<tr> 
	  <td colspan="7">Nome 
		<input type="text" name="nome">
	  </td>
	</tr>
	<tr> 
	  <td colspan="7">Idade 
		<input type="text" name="idade">
	  </td>
	</tr>
	<tr> 
	  <td colspan="7">DDD+Telefone 
		<input type="text" name="ddd">
		<input type="text" name="telefone">
	  </td>
	</tr>
	<tr> 
	  <td colspan="7">E-mail 
		<input type="text" name="email">
	  </td>
	</tr>
	<tr> 
	  <td colspan="7">nome do Produto: 
		<input type="text" name="produto">
	  </td>
	</tr>
	<tr> 
	  <td colspan="2">Comprou ou ganhou? 
		<select name="select">
		  <option value="Comprei">Comprei</option>
		  <option value="Ganhei">Ganhei</option>
		</select>
	  </td>
	  <td colspan="5">Quando?(mês/ano) 
		<input type="text" name="qdoadquiriu">
	  </td>
	</tr>
	<tr> 
	  <td colspan="7">Você se divertiu com o produto? 
		<select name="select2">
		  <option value="sim">Sim</option>
		  <option value="não">não</option>
		</select>
	  </td>
	</tr>
	<tr> 
	  <td colspan="7">Como você considera sua satisfação com 
		relação ao produto?</td>
	</tr>
	<tr> 
	  <td colspan="7"> 
		<input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_1')"/>
		Totalmente satisfeito 
		<input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_1')"/>
		Satisfeito 
		<input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_1')"/>
		Nem satisfeito, nem insatisfeito 
		<input name="wmonline" type="radio" value="insatisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_1')"/>
		Insatisfeito 
		<input name="wmonline" type="radio" value="insatisfeito" onClick="HabCampos(this.value, 'ID_DA_DIV_QUE_VC_QUER_EXIBIR_1')"/>
		Totalmente insatisfeito</td>
	</tr>
	<tr> 
	  <td colspan="7" height="15"> 
		<div id="ID_DA_DIV_QUE_VC_QUER_EXIBIR_1" name="insatisfeito" style="display:none"> <label for="particular">Em 
		  caso de insatisfação, descreva aqui o(s) motivo(os):</label> 
		  <textarea name="insatisfeito" id="insatisfeito" cols="28"></textarea>
		</div>
	  </td>
	</tr>
	<tr> 
	  <td colspan="7">Qual a sua opinião sobre os itens abaixo?</td>
	</tr>
	<tr> 
	  <td width="9%"> </td>
	  <td width="8%"> 
		<div align="center">Ótimo</div>
	  </td>
	  <td width="9%"> 
		<div align="center">Muito Bom</div>
	  </td>
	  <td width="9%"> 
		<div align="center">Bom</div>
	  </td>
	  <td width="9%"> 
		<div align="center">Regular</div>
	  </td>
	  <td width="10%"> 
		<div align="center">Ruim</div>
	  </td>
	  <td width="46%"> </td>
	</tr>
	<tr> 
	  <td width="9%" height="29">Embalagem</td>
	  <td width="8%" height="29"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_2')"/>
		</div>
	  </td>
	  <td width="9%" height="29"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_2')"/>
		</div>
	  </td>
	  <td width="9%" height="29"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_2')"/>
		</div>
	  </td>
	  <td width="9%" height="29"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="insatisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_2')"/>
		</div>
	  </td>
	  <td width="10%" height="29"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="insatisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_2')"/>
		</div>
	  </td>
	  <td width="46%" height="29"> 
		<div id="ID_DA_DIV_QUE_VC_QUER_EXIBIR_2" name="embalagem" style="display:none"> <label for="opcao_convenio">Em 
		  caso de insatisfação, descreva aqui o(s) motivo(os):</label> 
		  <br>
		  <textarea name="particular22" id="particular2" cols="28"></textarea>
		</div>
	  </td>
	</tr>
	<tr> 
	  <td width="9%" height="2">Componentes</td>
	  <td width="8%" height="2"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_3')"/>
		</div>
	  </td>
	  <td width="9%" height="2"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_3')"/>
		</div>
	  </td>
	  <td width="9%" height="2"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_3')"/>
		</div>
	  </td>
	  <td width="9%" height="2"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="insatisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_3')"/>
		</div>
	  </td>
	  <td width="10%" height="2"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="insatisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_3')"/>
		</div>
	  </td>
	  <td width="46%" height="2"> 
		<div id="ID_DA_DIV_QUE_VC_QUER_EXIBIR_3" name="opcao_convenio" style="display:none"> <label for="opcao_convenio">Em 
		  caso de insatisfação, descreva aqui o(s) motivo(os):</label><br>
		  <textarea name="particular22" id="particular2" cols="28"></textarea>
		</div>
	  </td>
	</tr>
	<tr> 
	  <td width="9%">Instruções ou regras</td>
	  <td width="8%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_4')"/>
		</div>
	  </td>
	  <td width="9%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_4')"/>
		</div>
	  </td>
	  <td width="9%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_4')"/>
		</div>
	  </td>
	  <td width="9%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="insatisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_4')"/>
		</div>
	  </td>
	  <td width="10%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="insatisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_4')"/>
		</div>
	  </td>
	  <td width="46%"> 
		<div id="ID_DA_DIV_QUE_VC_QUER_EXIBIR_4" name="opcao_convenio" style="display:none"> <label for="opcao_convenio">Em 
		  caso de insatisfação, descreva aqui o(s) motivo(os):</label> 
		  <br>
		  <textarea name="particular22" id="particular2" cols="28"></textarea>
		</div>
	  </td>
	</tr>
	<tr> 
	  <td width="9%">adequação da faixa etária</td>
	  <td width="8%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_5')"/>
		</div>
	  </td>
	  <td width="9%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_5')"/>
		</div>
	  </td>
	  <td width="9%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_5')"/>
		</div>
	  </td>
	  <td width="9%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="insatisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_5')"/>
		</div>
	  </td>
	  <td width="10%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="insatisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_5')"/>
		</div>
	  </td>
	  <td width="46%"> 
		<div id="ID_DA_DIV_QUE_VC_QUER_EXIBIR_5" name="opcao_convenio" style="display:none"> <label for="opcao_convenio">Em 
		  caso de insatisfação, descreva aqui o(s) motivo(os):</label> 
		  <br>
		  <textarea name="particular22" id="particular2" cols="28"></textarea>
		</div>
	  </td>
	</tr>
	<tr> 
	  <td width="9%">Funcionamento</td>
	  <td width="8%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_6')"/>
		</div>
	  </td>
	  <td width="9%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_6')"/>
		</div>
	  </td>
	  <td width="9%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="satisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_6')"/>
		</div>
	  </td>
	  <td width="9%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="insatisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_6')"/>
		</div>
	  </td>
	  <td width="10%"> 
		<div align="center"> 
		  <input name="wmonline" type="radio" value="insatisfeito" onClick="HabCampos(this.value,'ID_DA_DIV_QUE_VC_QUER_EXIBIR_6')"/>
		</div>
	  </td>
	  <td width="46%"> 
		<div id="ID_DA_DIV_QUE_VC_QUER_EXIBIR_6" name="opcao_convenio" style="display:none"> <label for="opcao_convenio">Em 
		  caso de insatisfação, descreva aqui o(s) motivo(os):</label> 
		  <br>
		  <textarea name="particular22" id="particular2" cols="28"></textarea>
		</div>
	  </td>
	</tr>
  </table>
  <p>
	<input type="submit" name="Concluir" value="Concluir" >
  </p>
  <p> </p>
 <div id="satisfeito" style="display:none"></div>
  

<br/>
  <br />		
</form>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Recupere os dados, inclusive os destinatários e procure em nosso fórum por autoresponder, um código que postei, onde o user envia um email ao admin e logo em seguinte o admin manda uma resposta, dae você segue a mesma lógica. você pode usar o CDOSYS para o envio, ou outro componente de email.você pode colocar mais de um endereço no FROM.

 

mais detalhes

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fabrizio_mei    0

Fabrizio_mei
Postado

Opa.. .olá xanburzum! Obrigado por responder!

Então, eu estive verificando com o servidor e ele só rola CDONTS, então peguei um código de CDONTS q funciona perfeitamente em outro formulário e adaptei ele para este... ok, ele envia o email, mas o email chega em branco... não sei o que fazer, cheguei a construir um formulário igual a este porém sem a "interatividade" dos campos dinâmicos e aí tudo funciona perfeitamente, quando aplico ele para este formulário que preciso, aí não funciona mais....

Abaixo estou enviando o código CDONTS que estou utilizando.

 

<head>

<title>Formulário Fale conosco</title>
</head>

<body bgcolor="#FFFFFF">


<form method="POST" action="satisfacao4.asp>
  <!--webbot bot="SaveResults" u-file="D:\trabalhos\sites\casaamarela\_private\form_results.csv" s-format="TEXT/CSV" s-label-fields="TRUE" --><div align="center" style="width: 422; height: 267">
	<left>
	<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#808080" width="422" height="91" id="AutoNumber1">
	  <tr>
		<td width="422" height="5" bgcolor="#FFFFFF"> </td>
	  </tr>
	  <tr>
		<td width="422" height="71" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
		<p align="center">
		<font face="Arial" size="2">Mensagem enviada com sucesso!!!</font><p align="center">
		<font face="Arial" size="2">A Grow Jogos e Brinquedos agradece<br>
 </font></td>
	  </tr>
	</table>
	</center>
	<a href="http://www.grow.com.br">Voltar para o site da Grow</a></div>
</form>	

<%




Nome= Request.form("Nome")
idade= Request.form("idade")
ddd= Request.form("ddd")
telefone= Request.form("telefone")
email= Request.form("email")
nomeproduto= Request.form("nomeproduto")
produto= Request.form("produto")
quando_adquiriu= Request.form("qdoadquiriu")
divertir= Request.form("divertir")
satisfacao= Request.form("satisfacao")
embalagem= Request.form("embalagem")
componentes= Request.form("componentes")
instrucoes= Request.form("instrucoes")
faixaetaria= Request.form("faixaetaria")
funcionamento= Request.form("funcionamento")
comentarios= Request.form("comentarios")





set objemail = Server.CreateObject("Cdonts.newmail")

objemail.from = "email@grow.com.br"
objemail.to = "email@grow.com.br"
objemail.Subject = assunto

objemail.body = "<b>Nome:</b>"&nome&"<br><b>Idade:</b>"&idade&"<br><b>DDD:</b>"&ddd&"<br><b>Telefone:</b>"&telefone&"<br><b> E-mail:</b>"&email&"<br><b>Nome do Produto:</b>"&nomeproduto&"<br><b> O Produto foi:</b>"&produto&"<br><b> Quando adquiriu?:</b>"&qdoadquiriu&"<br><b> Você se Divertiu com o Produto:</b>"&divertir&"<br><b> Como Você considera sua satisfação em relação ao produto:</b>"&satisfacao&"<br><b> Embalagem:</b>"&embalagem&"<br><b> Componentes:</b>"&componentes&"<br><b> Instruções:</b>"&instrucoes&"<br><b> Faixa etária:</b>"&faixaetaria&"<br><b> Funcionamento:</b>"&funcionamento&"<br><b> Comentários:</b>"&comentarios
 
objemail.BodyFormat = 0
objemail.MailFormat = 0 
objemail.send 


%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fabrizio_mei    0

Fabrizio_mei
Postado

Olá pessoal, desculpem estar cobrando, mas por favor eu preciso muito dessa ajuda, esse form tem que estar no ar no máximo até amanhã e não consigo fazer ele funcionar, alguém poderia me ajudar?

Como expliquei em outros posts meus, eu não sou programador, sou designer, porém esse form veio parar na minha mão e não consigo resolver essa encrenca...

Agradeço por antecipação a quem puder me dar uma força.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Ao invés de usar CDONTS, utilize CDOSYS. Faça uma pesquisa aqui no Fórum que encontrará exemplos.

 

Qualquer dúvida poste aqui.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

analisa esse código , que você consegue, atraves de um form como este:

<table width="100%" border="0" height="171" cellpadding="0" cellspacing="0">
						  <tr> 
							<td height="213" bgcolor="#6699cc"> 
							  <table width="100%" border="0" cellspacing="0" cellpadding="0">
								<tr>
								  <td bgcolor="#336699" height="9"><img src="imgs/curva.gif" width="10" height="19"> </td>
								  <td bgcolor="#336699" height="9"> 
									<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="e6e6e6">Formulário 
									  de Atendimento <font size="1">(*) campos 
									  requeridos</font></font></b></div>
								  </td>
								</tr>
							  </table>
							  <form name="form1" method="post" action="contato_action.asp">
								<table width="100%" border="0" cellspacing="0" cellpadding="0" height="104">
								  <tr> 
									<td width="18%" bgcolor="6699cc"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="66ffff">Nome 
									  * </font></b></td>
									<td width="82%" bgcolor="#6699CC"> 
									  <input type="text" name="nome" size="30" maxlength="60">
									</td>
								  </tr>
								  <tr> 
									<td width="18%" bgcolor="6699cc"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="66ffff">DDD 
									  <br>
									  Fone<br>
									  Ramal </font></b></td>
									<td width="82%" bgcolor="#6699CC"> 
									  <input type="text" name="ddd" size="3" maxlength="2">
									  - 
									  <input type="text" name="fone" size="10" maxlength="8">
									  - 
									  <input type="text" name="ramal" size="5" maxlength="5">
									</td>
								  </tr>
								  <tr> 
									<td width="18%" bgcolor="6699cc"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="66ffff">Email 
									  * </font></b></td>
									<td width="82%" bgcolor="#6699CC"> 
									  <input type="text" name="email" size="30" maxlength="35">
									</td>
								  </tr>
								  <tr> 
									<td width="18%" bgcolor="6699cc"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="66ffff">Assunto*</font></b></td>
									<td width="82%" bgcolor="#6699CC"> 
									  <input type="text" name="assunto" size="15" maxlength="20">
									</td>
								  </tr>
								  <tr> 
									<td width="18%" bgcolor="6699cc"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="66ffff">Mensagem*</font></b></td>
									<td width="82%" bgcolor="#6699CC"> 
									  <textarea name="mensagem" cols="60" rows="8" wrap="PHYSICAL" style="font-family: Arial; font-size: 10px; border: #000000; border-width: 1px; border-style: solid;"></textarea>
									</td>
								  </tr>
								  <tr> 
									<td colspan="2" bgcolor="6699cc"> 
									  <div align="center"> <font color="66ffff"> 
										<input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22" alt="Enviar" onClick="MM_validateForm('nome','','R','email','','RisEmail','assunto','','R','mensagem','','R');return document.MM_returnValue">
										</font></div>
									</td>
								  </tr>
								</table>
								
							  </form>
							  
							</td>
						  </tr>
						</table>

usa este action, usando CDONTS

<% 		' pagina (autoresponder) para fazer o envio de email do user
		' para o webmaster e depois responder ao user

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@planetasurfshop.com.br"
	objmail.subject=varassunto
	objmail.bodyformat=0
	objmail.mailformat=0
	objmail.body=varmensa
	objmail.send
set objmail=nothing

		' agora crio outra instancia do objeto para o envio de email
		' só k desta vez para enviar ao user
set objmail=server.createobject("CDONTS.NewMail")
			objmail.from="contato@dominio.com.br"
			objmail.to=varemail
			objmail.subject="Email recebido com sucesso"
			objmail.bodyformat=0
			objmail.mailformat=0
			objmail.body="Caro <b>" & varemail & ",</b><br> Seu email foi recebido com sucesso, e está sendo processado"
			objmail.send 
			set objmail=nothing
			response.redirect("contato_form.asp?msg=1")
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fabrizio_mei    0

Fabrizio_mei
Postado

Olá pessoal, bom dia! Desculpe vir aqui denovo, eu sei que já estou enchendo com isso, mas realmente não sei mais o que fazer, adaptei este ultimo código que me foi passado para o meu form e continua não funcionando, vejam só, o form emaia o email normal, eu recebo o email, porém ele vem sem as informações. eu recebo o email assim ó:

 

Nome:

Idade:

DDD:

Telefone:

E-mail:

Nome do Produto:

O Produto foi:

Quando adquiriu?:

Você se Divertiu com o Produto:

Como Você considera sua satisfação em relação ao produto:

Embalagem:

Componentes:

Instruções:

Faixa etária:

Funcionamento:

Comentários:

 

As respostas vem em branco.

Estou copiando o código adaptado, não sei mais o que fazer, fiz tudo conforme vcs me indicaram....

 

Por favor, continuo contado com a ajuda de vcs, muito obrigado.

 

 

<%
' pagina (autoresponder) para fazer o envio de email do user
' para o webmaster e depois responder ao user

Option explicit
' declaro as var
dim objemail, nome, idade, ddd, telefone, email, nomeproduto, produto, qdoadquiriu, divertir, satisfacao, embalagem, componentes, instrucoes, faixaetaria, funcionamento, comentarios

' recupero as var

Nome=Trim(Request.form("Nome"))
idade=Trim(Request.form("idade"))
ddd=Trim(Request.form("ddd"))
telefone=Trim(Request.form("telefone"))
email=Trim(Request.form("email"))
nomeproduto=Trim(Request.form("nomeproduto"))
produto=Trim(Request.form("produto"))
qdoadquiriu=Trim(Request.form("qdoadquiriu"))
divertir=Trim(Request.form("divertir"))
satisfacao=Trim(Request.form("satisfacao"))
embalagem=Trim(Request.form("embalagem"))
componentes=Trim(Request.form("componentes"))
instrucoes=Trim(Request.form("instrucoes"))
faixaetaria=Trim(Request.form("faixaetaria"))
funcionamento=Trim(Request.form("funcionamento"))
comentarios=Trim(Request.form("comentarios"))

' crio o objeto para envio de email CDONTS
set objemail = Server.CreateObject("Cdonts.newmail")

objemail.from = "admsite@grow.com.br"
objemail.to = "admsite@grow.com.br"
objemail.Subject = "assunto"

objemail.body = "<b>Nome:</b>"&nome&"<br><b>Idade:</b>"&idade&"<br><b>DDD:</b>"&ddd&"<br><b>Telefone:</b>"&telefone&"<br><b> E-mail:</b>"&email&"<br><b>Nome do Produto:</b>"&nomeproduto&"<br><b> O Produto foi:</b>"&produto&"<br><b> Quando adquiriu?:</b>"&qdoadquiriu&"<br><b> Você se Divertiu com o Produto:</b>"&divertir&"<br><b> Como Você considera sua satisfação em relação ao produto:</b>"&satisfacao&"<br><b> Embalagem:</b>"&embalagem&"<br><b> Componentes:</b>"&componentes&"<br><b> Instruções:</b>"&instrucoes&"<br><b> Faixa etária:</b>"&faixaetaria&"<br><b> Funcionamento:</b>"&funcionamento&"<br><b> Comentários:</b>"&comentarios
 
objemail.BodyFormat = 0
objemail.MailFormat = 0 
objemail.send 
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Ao menos tentou utilizar CDOSYS ao invés de CDONTS?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fabrizio_mei    0

Fabrizio_mei
Postado

Olá hargon, então, eu não testei cdosys, eu rodei um script para saber o que tem instalado no servidor e tem só CDONTS, inclusive tem outro formulário no site que funciona em CDONTS.

O problema está neste form e não consigo identificar onde.

Vou tentar adaptar para CDOSYS, porém eu penso que uma vez que já existe um outro formulário funcionando corretamente em CDONTS, não deveria haver problemas com este.

Eu acredito que possa estar havendo alguma incompatibilidade entre o javascript dos campos dinâmicos e o código asp... mas não sei onde pode estar o problema....

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique se esta sendo recuperado os dados para inserir no email,nas variaveis

 

Nome=Trim(Request.form("Nome"))
idade=Trim(Request.form("idade"))
ddd=Trim(Request.form("ddd"))
telefone=Trim(Request.form("telefone"))
email=Trim(Request.form("email"))
nomeproduto=Trim(Request.form("nomeproduto"))
produto=Trim(Request.form("produto"))
qdoadquiriu=Trim(Request.form("qdoadquiriu"))
divertir=Trim(Request.form("divertir"))
satisfacao=Trim(Request.form("satisfacao"))
embalagem=Trim(Request.form("embalagem"))
componentes=Trim(Request.form("componentes"))
instrucoes=Trim(Request.form("instrucoes"))
faixaetaria=Trim(Request.form("faixaetaria"))
funcionamento=Trim(Request.form("funcionamento"))
comentarios=Trim(Request.form("comentarios"))

dá uma response.write(nome)

Response.end

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Quando você fala que chega em branco você se refere sem informações na frente de "nome:", por exemplo, ou você se refere ao conteúdo do e-mail (que não chega nenhuma informação, nem mesmo a escrita "nome:", etc)?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fabrizio_mei    0

Fabrizio_mei
Postado

Chega sem as informações na frente de "nome" por exemplo eu recebo exatamente assim:

 

Nome:

Idade:

DDD:

Telefone:

E-mail:

Nome do Produto:

O Produto foi:

Quando adquiriu?:

Você se Divertiu com o Produto:

Como Você considera sua satisfação em relação ao produto:

Embalagem:

Componentes:

Instruções:

Faixa etária:

Funcionamento:

Comentários:

 

Sem as respostas que foram colocadas no formulário.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

para testar se esta vindo dados

dá uma response.write nas variaveis

response.write(nome)
response.write(Idade)
response.write(DDD)
response.write(Telefone)
...
Response.end()

é bom verificar se os nomes no form estao corretos tb

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fabrizio_mei    0

Fabrizio_mei
Postado

é... quando eu aplico o response.write(nome) e depois envio .. não aparece a informação no browser

sinal então de que as informações não estão snedo recuperadas né?

 

os nomes do form estão corretos, foi a primeira coisa q eu olhei :S os nomes estão iguais, certinhos, mas o form não está recuperando então as informações...

O repsonse.write eu estou aplicando no final do código, pode ser assim?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

faz assim, neste trecho do código faz isso:

 

<%
' pagina (autoresponder) para fazer o envio de email do user
' para o webmaster e depois responder ao user

Option explicit
' declaro as var
dim objemail, nome, idade, ddd, telefone, email, nomeproduto, produto, qdoadquiriu, divertir, satisfacao, embalagem, componentes, instrucoes, faixaetaria, funcionamento, comentarios

' recupero as var

Nome=Trim(Request.form("Nome"))
idade=Trim(Request.form("idade"))
ddd=Trim(Request.form("ddd"))
telefone=Trim(Request.form("telefone"))
email=Trim(Request.form("email"))
nomeproduto=Trim(Request.form("nomeproduto"))
produto=Trim(Request.form("produto"))
qdoadquiriu=Trim(Request.form("qdoadquiriu"))
divertir=Trim(Request.form("divertir"))
satisfacao=Trim(Request.form("satisfacao"))
embalagem=Trim(Request.form("embalagem"))
componentes=Trim(Request.form("componentes"))
instrucoes=Trim(Request.form("instrucoes"))
faixaetaria=Trim(Request.form("faixaetaria"))
funcionamento=Trim(Request.form("funcionamento"))
comentarios=Trim(Request.form("comentarios"))

response.write(nome)
response.write(Idade)
response.write(DDD)
response.write(Telefone)
...
Response.end()

pois assim você verifica se esta passando os dados, lembre-se de ver no form o nome do campo , e compara com o Nome=Trim(Request.form("Nome")) para ver se esta certo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fabrizio_mei    0

Fabrizio_mei
Postado

Então, fiz aqui, coloquei nessa parte do código todas as response.write de todos os campos, e quando envio o form, realmente ele não retorna nada no browser, conferi tbm todos os nomes de campos do formulário com esses daqui e estão todos iguais, posso até copiar os 2 códigos aqui se precisar, tá tudo igualzinho...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você esta passando no método post, seu form.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fabrizio_mei    0

Fabrizio_mei
Postado

xanbrurzum, cara você matou o problema! quando vi seu post agora fui olhar o código do form e advinha, não tava especificado o method, aí acrecentei na frente method="post" e pronto .. as informações foram para o email! Que besteira a minha...

Creio que agora os problemas terminaram, só vou precisar declarar os outros campos de comentários que existem no form e creio q estará funcionando.

Caso eu tenha algum problema eu volto aqui..rs

Muito, mas muito obrigado mesmo pela paciência e tbm pela grande ajuda mais uma vez.

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