Ir para conteúdo

POWERED BY:

Arquivado

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

Gs3llmann

Problemas com envio usando

Recommended Posts

Galera,

 

com um problema chato e não sei mais o que pode ser, olhem o código:

 

<%
tipo = request("tipo")
nome = request("nome")
sobrenome = request("sobrenome")
endereco = request("endereco")
numero = request("numero")
complemento = request("complemento")
cep = request("cep")
bairro = request("bairro")
cidade = request("cidade")
estado = request("estado")
ddd = request("ddd")
telefone = request("telefone")
email2 = request("email")
comentario = request("comentario")

dim objMail
dim Iconf
dim Flds

assunto = tipo


	Set objMail = Server.CreateObject("CDO.Message")
	Set Iconf = Server.CreateObject("CDO.Configuration")
	
	Iconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
	Iconf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	Iconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
	Iconf.Fields.update
		
 	Set ObjMail.Configuration = iConf
	objMail.From = "conversecomjulio@hotmail.com"
	objMail.to = email2
	objMail.Subject = assunto
	objMail.HTMLBody = "<font size='1' face='Verdana, Arial'> <font color='#FF0000'> Mensagem encaminhada por usuário: " & now() & "</font>" & "<br><br>" & _
							"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> WWW.DUCOCO.COM.BR </strong> </font>" & "<br>" & _
					"_____________________________________________<br><br><br>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> MENSAGEM: </strong> </font><br>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Assunto: </strong> </font>" & assunto & "<BR><br>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Nome: </strong> </font>" & nome & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Sobrenome: </strong> </font>" & sobrenome & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Endereço: </strong> </font>" & endereco & "<BR>" & _					
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Número: </strong> </font>" & numero & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Complemento: </strong> </font>" & complemento & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Bairro: </strong> </font>" & bairro & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> CEP: </strong> </font>" & cep & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Cidade: </strong> </font>" & cidade & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Estado: </strong> </font>" & estado & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> DDD: </strong> </font>" & ddd & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Telefone: </strong> </font>" & telefone & "<BR>" & _	
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> E-mail: </strong> </font>" & email2 & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Comentário: </strong> </font>" & "<br>" & _
					"<font size='2' face='Verdana, Arial'> <font color='#000000'>" & comentario & "</font><BR>" & _
					"<br>"
		objMail.Send
		set objMail = nothing
		set Iconf = nothing

			
	response.redirect "http://www.ducoco.com.br/po/fale/mensagem_enviada.asp"
	
		
		
%>

 

Ai ele da o seguinte erro:

# Error Type:
CDO.Message.1 (0x8004020A)
The SMTP server name is required, and was not found in the configuration source.
/po/fale/ver_mandar_email.asp, line 56

# Browser Type:
Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv:1.8.1.9) Gecko/20071025 Firefox/2.0.0.9

# Page:
POST 149 bytes to /po/fale/ver_mandar_email.asp

# POST Data:

Essa linda seria esta aqui: objMail.Send eu já não faço a menor idéia o que pode ser, será que alguem poderia me ajudar? http://forum.imasters.com.br/public/style_emoticons/default/natal_w00t.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Movido de Artigos, Dicas, Tutoriais e Matérias (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

Compartilhar este post


Link para o post
Compartilhar em outros sites

Essas linhas aqui

 

ASP
objMail.to = email2

objMail.Subject = assunto

 

coloque assim:

ASP
objMail.to = ""&email2&""

objMail.Subject = ""&assunto&""

Compartilhar este post


Link para o post
Compartilhar em outros sites

<%

tipo = request("tipo")
nome = request("nome")
sobrenome = request("sobrenome")
endereco = request("endereco")
numero = request("numero")
complemento = request("complemento")
cep = request("cep")
bairro = request("bairro")
cidade = request("cidade")
estado = request("estado")
ddd = request("ddd")
telefone = request("telefone")
email2 = request("email")
comentario = request("comentario")


dim objMail
dim Iconf
dim Flds

assunto = tipo
email2 = "helpdesk@ccab.org.br" 

	Set objMail = CreateObject("CDO.Message")
	Set IConf = CreateObject("CDO.Configuration")
	Set Flds = iConf.Fields
	Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
	Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "E:\mailroot\Pickup"
	Flds.Update

 	Set ObjMail.Configuration = iConf
	objMail.From = email
	objMail.to = ""&email2&""
	objMail.Subject = ""&assunto&""
	objMail.HTMLBody = "<font size='1' face='Verdana, Arial'> <font 'color=#FF0000'> Mensagem encaminhada por usuário: " & now() & "</font>" & "<br><br>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> WWW.DUCOCO.COM.BR </strong> </font>" & "<br>" & _
					"_____________________________________________<br><br><br>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> MENSAGEM: </strong> </font><br>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Assunto: </strong> </font>" & assunto & "<BR><br>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Nome: </strong> </font>" & nome & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Sobrenome: </strong> </font>" & sobrenome & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Endereço: </strong> </font>" & endereco & "<BR>" & _					
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Número: </strong> </font>" & numero & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Complemento: </strong> </font>" & complemento & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Bairro: </strong> </font>" & bairro & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> CEP: </strong> </font>" & cep & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Cidade: </strong> </font>" & cidade & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Estado: </strong> </font>" & estado & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> DDD: </strong> </font>" & ddd & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Telefone: </strong> </font>" & telefone & "<BR>" & _	
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> E-mail: </strong> </font>" & email2 & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Comentário: </strong> </font>" & "<br>" & _
					"<font size='2' face='Verdana, Arial'> <font color='#000000'>" & comentario & "</font><BR>" & _
					"<br>"
		objMail.send
		set objMail = nothing
		set Iconf = nothing
			

			
	response.redirect "http://www.ducoco.com.br/po/fale/mensagem_enviada.asp"
	
		
		
%>

Então coloquei assim e o formulários esta funcionando perfeitamente mas eu não recebo o e-mail!!! podem perceber que até mudei o e-mail pra ter certeza, o que pode ser agora?

Compartilhar este post


Link para o post
Compartilhar em outros sites

<%

tipo = request("tipo")
nome = request("nome")
sobrenome = request("sobrenome")
endereco = request("endereco")
numero = request("numero")
complemento = request("complemento")
cep = request("cep")
bairro = request("bairro")
cidade = request("cidade")
estado = request("estado")
ddd = request("ddd")
telefone = request("telefone")
email2 = request("email")
comentario = request("comentario")


dim objMail
dim Iconf
dim Flds

assunto = tipo
email2 = "helpdesk@ccab.org.br" 

	Set objMail = CreateObject("CDO.Message")
	Set IConf = CreateObject("CDO.Configuration")
	Set Flds = iConf.Fields
	Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
	Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "E:\mailroot\Pickup"
	Flds.Update

 	Set ObjMail.Configuration = iConf
	objMail.From = ""&email&""
	objMail.to = ""&email2&""
	objMail.Subject = ""&assunto&""
	objMail.HTMLBody = "<font size='1' face='Verdana, Arial'> <font 'color=#FF0000'> Mensagem encaminhada por usuário: " & now() & "</font>" & "<br><br>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> WWW.DUCOCO.COM.BR </strong> </font>" & "<br>" & _
					"_____________________________________________<br><br><br>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> MENSAGEM: </strong> </font><br>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Assunto: </strong> </font>" & assunto & "<BR><br>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Nome: </strong> </font>" & nome & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Sobrenome: </strong> </font>" & sobrenome & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Endereço: </strong> </font>" & endereco & "<BR>" & _					
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Número: </strong> </font>" & numero & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Complemento: </strong> </font>" & complemento & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Bairro: </strong> </font>" & bairro & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> CEP: </strong> </font>" & cep & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Cidade: </strong> </font>" & cidade & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Estado: </strong> </font>" & estado & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> DDD: </strong> </font>" & ddd & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Telefone: </strong> </font>" & telefone & "<BR>" & _	
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> E-mail: </strong> </font>" & email2 & "<BR>" & _
					"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Comentário: </strong> </font>" & "<br>" & _
					"<font size='2' face='Verdana, Arial'> <font color='#000000'>" & comentario & "</font><BR>" & _
					"<br>"
		objMail.send
		set objMail = nothing
		set Iconf = nothing
			

			
	response.redirect "http://www.ducoco.com.br/po/fale/mensagem_enviada.asp"
	
		
		
%>

Então Ted o formulário esta funcionando eu acho, mais não estou recebendo no meu e-mail...

eu coloquei essa página no meu ftp olha ae http://www.ducoco.com.br/po/fale/componentes.asp pra mostrar que tem instalado o cdonts, mas também esta instalado o cdosys acho que é esse, já registrei a dll... e também tenho o serviço de smtp no servidor, o que será que pode ser?

 

Abraços e obrigado pela ajuda.

Compartilhar este post


Link para o post
Compartilhar em outros sites

reparei que você ñ estava usando um SMTP de envio

 

adaptei a sua necessidade ao meu código de envio

 

você vai receber esse envio no email "helpdesk@ccab.org.br"

 

olha ai como adaptei:

ASP
<%

tipo = request("tipo")

nome = request("nome")

sobrenome = request("sobrenome")

endereco = request("endereco")

numero = request("numero")

complemento = request("complemento")

cep = request("cep")

bairro = request("bairro")

cidade = request("cidade")

estado = request("estado")

ddd = request("ddd")

telefone = request("telefone")

email2 = request("email")

comentario = request("comentario")

 

       

VarGeral ="<font size='1' face='Verdana, Arial'> <font 'color=#FF0000'> Mensagem encaminhada por usuário: " & now() & "</font>" & "<br><br>" & _

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> WWW.DUCOCO.COM.BR </strong> </font>" & "<br>" & _

                    "_____________________________________________<br><br><br>" & _

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> MENSAGEM: </strong> </font><br>" & _

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Assunto: </strong> </font>" & assunto & "<BR><br>" & _

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Nome: </strong> </font>" & nome & "<BR>" & _

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Sobrenome: </strong> </font>" & sobrenome & "<BR>" & _

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Endereço: </strong> </font>" & endereco & "<BR>" & _                    

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Número: </strong> </font>" & numero & "<BR>" & _

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Complemento: </strong> </font>" & complemento & "<BR>" & _

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Bairro: </strong> </font>" & bairro & "<BR>" & _

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> CEP: </strong> </font>" & cep & "<BR>" & _

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Cidade: </strong> </font>" & cidade & "<BR>" & _

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Estado: </strong> </font>" & estado & "<BR>" & _

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> DDD: </strong> </font>" & ddd & "<BR>" & _

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Telefone: </strong> </font>" & telefone & "<BR>" & _    

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> E-mail: </strong> </font>" & email2 & "<BR>" & _

                    "<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Comentário: </strong> </font>" & "<br>" & _

                    "<font size='2' face='Verdana, Arial'> <font color='#000000'>" & comentario & "</font><BR>" & _

                    "<br>"

               

                MsgHtml = "<html><body>"&VarGeral&"</body></html>"

                Sch = "www.schemas.microsoft.com/cdo/configuration/"

               

                Set TedkConfig = Server.CreateObject("CDO.Configuration")

                       

                        TedkConfig.Fields.Item(Sch & "sendusing") = 2

                        TedkConfig.Fields.Item(Sch & "smtpauthenticate") = 1

                        TedkConfig.Fields.Item(Sch & "smtpserver") = "smtp.ccab.com.br"

                        TedkConfig.Fields.Item(Sch & "sendusername") = "helpdesk=ccab.com.br"

                        TedkConfig.Fields.Item(Sch & "sendpassword") = "SuaSenha"

                        TedkConfig.Fields.Update

                       

                Set TedkMessage = Server.CreateObject("CDO.Message")

                Set TedkMessage.Configuration = TedkConfig

                       

                        TedkMessage.From = ""&email&""

                        TedkMessage.To = "helpdesk@ccab.org.br"

                        TedkMessage.Subject = "Mensagem"

                        TedkMessage.ReplyTo = Email

                        TedkMessage.HTMLBody = MsgHtml

                       

                If MsgHtml <> "" Then

                        TedkMessage.AutoGenerateTextBody = False

                        TedkMessage.TextBody = MsgHtml

                End If 

 

                        Erro = ""

                        Sucesso = False

               

                On Error Resume Next

                TedkMessage.Send

               

                Set TedkMessage = Nothing

                Set TedkConfig = Nothing

               

                        If Err <> 0 Then

                                Erro = Err.Description

                        Else

                                Sucesso = True

                        End If

 

                Set Mail = Nothing

                       

                response.redirect "http://www.ducoco.com.br/po/fale/mensagem_enviada.asp"

%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ted,

 

Então o formulário continua executando mais o e-mail não chega, estas páginas estão em um servidor na própria empresa, i eu não tenho certeza se esta tudo correto no servidor, mais como você pode ver CDO e o CDONTS esta instalado assim como o serviço de smtp.

 

Existe uma outra forma de enviar esse e-mail usando o server?

Compartilhar este post


Link para o post
Compartilhar em outros sites

você tem como testar em um servidor na internet e não local?

caso tenha, faça esse teste e veja se continua o erro, se você receber a informação então verifique se você abilitou corretamente o SMTP local

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ted,

 

Então, pelo menos no formulário não tem mais erros, mais eu não recebo o formulário no meu email, como você viu o Cdonts esta instalado no servidor, tem como eu usar ele pra enviar o e-mail?

 

Obrigado pela paciencia.

 

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

rapaz testei esse código e recebi normalmente, como está seu form, pode existir algum erro de passagem dos parâmentros, pois o código está legal.

 

antes disso:

 

você tem um SMTP de envio?

TedkConfig.Fields.Item(Sch & "smtpserver") = "smtp.ccab.com.br"
substituiu esse que coloquei!

 

 

substitua tudo adequadamente como está pois é a autenticação que o servior necessita para o envio

 

ASP
TedkConfig.Fields.Item(Sch & "smtpserver") = "smtp.ccab.com.br"

TedkConfig.Fields.Item(Sch & "sendusername") = "helpdesk=ccab.com.br"

TedkConfig.Fields.Item(Sch & "sendpassword") = "SuaSenha"

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ted,

 

Vou postar o Form pra você dar uma analisada, muito obrigado pela paciencia.

 

Obs.: eu to me complicando todo com esse cliente porque nunca tinha feito no proprio servidor.

 

Valeo ;)

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>DUCOCO ALIMENTOS</title>

<style type="text/css">
<!--
body {
	background-image: url(images/fundo.jpg);
}
-->
</style>
<link href="arquivos/estilos.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript">

function confereTudo()
{

	 texto = document.cadform.tipo.value; 
	 if (texto.length == 0) 
	 { 
	 		alert("Selecione um assunto");
			document.cadform.tipo.focus();
			return;		
			
	 }



 	document.cadform.action="http://www.ducoco.com.br/po/fale/ver_mandar_email.asp";
	document.cadform.submit();
}  

</script>

<body>
<div id="Layer4" style="position:absolute; left:137px; top:140px; width:376px; height:238px; z-index:5">
  <form action="" method="post" name="cadform" id="cadform">
	<table width="100%"  border="0">
	  <tr>
		<td><span class="txt_Preto16_B">SAC</span></td>
		<td colspan="3"><% 
		session("email_sac") = "ducoco@ducoco.com.br"
		if len(request("tipo")) = 0 then %>
		  <select name="tipo" class="txt_preto12" id="tipo">
			<option selected>Escolha um assunto</option>
			<option value="duvidas">Dúvidas</option>
			<option value="sugestoes">Sugestões</option>
			<option value="reclamacoes">Reclamações</option>
			<option value="receitas">Receitas</option>
			<option value="outros">Outros</option>
		  </select>
		  <% else 
		select case (request("tipo"))
		case "duvidas"
		texto = "Dúvidas"
		case "sugestoes"
		texto = "Sugestões"
		case "reclamacoes"
		texto = "Reclamações"
		case "receitas"
		texto = "Receitas"
		case "outros"
		texto = "Outros"
		end select
		%>
		  <select name="tipo" class="txt_preto12" id="tipo">
			<option value="duvidas">Dúvidas</option>
			<option value="sugestoes">Sugestões</option>
			<option value="reclamacoes">Reclamações</option>
			<option value="receitas">Receitas</option>
			<option value="outros">Outros</option>
			<option>-----------</option>
			<option value="<%=request("tipo")%>" selected><%=texto%></option>
		  </select>
		  <% end if %>		</td>
	  </tr>
	  <tr>
		<td colspan="4"> </td>
	  </tr>
	  <tr class="txt_preto12">
		<td><p>Nome:</p></td>
		<td colspan="3"><input name="nome" type="text" class="txt_preto12" id="nome" size="55" maxlength="20"></td>
	  </tr>
	  <tr class="txt_preto12">
		<td>Sobrenome:</td>
		<td colspan="3"><input name="sobrenome" type="text" class="txt_preto12" id="sobrenome" size="55" maxlength="25"></td>
	  </tr>
	  <tr class="txt_preto12">
		<td>Endereço</td>
		<td colspan="3"><input name="endereco" type="text" class="txt_preto12" id="endereco" size="55" maxlength="50"></td>
	  </tr>
	  <tr class="txt_preto12">
		<td>Número:</td>
		<td><span class="txt_azul-12"><font face="Tahoma" size="2"><font face="Tahoma" size="2">
		  <input name="numero" type="text" class="txt_preto12" id="numero3" size="5" maxlength="40">
		</font> </font></span></td>
		<td width="26%" class="txt_preto12"> Complemento: </td>
		<td width="44%" class="txt_preto12"><input name="complemento" type="text" class="txt_preto12" id="complemento" size="26" maxlength="9"></td>
	  </tr>
	  <tr class="txt_preto12">
		<td>Bairro:</td>
		<td colspan="3"><input name="bairro" type="text" class="txt_preto12" id="bairro" size="55" maxlength="50"></td>
	  </tr>
	  <tr class="txt_preto12">
		<td>CEP:</td>
		<td colspan="3"><input name="cep" type="text" class="txt_preto12" id="cep" size="55" maxlength="50"></td>
	  </tr>
	  <tr class="txt_preto12">
		<td>Cidade:</td>
		<td colspan="3"><input name="cidade" type="text" class="txt_preto12" id="endereco23" size="55" maxlength="40"></td>
	  </tr>
	  <tr class="txt_preto12">
		<td><span class="txt_azul-12">Estado:</span> </td>
		<td colspan="3"><span class="txt_azul-12">
		  <select name="estado" size="1" class="txt_preto12" >
			<option value="" selected>Estado</option>
			<option value="AC">ACRE</option>
			<option value="AL">ALAGOAS</option>
			<option value="AM">AMAZONAS</option>
			<option value="AP">AMAPÁ</option>
			<option value="BA">BAHIA</option>
			<option value="CE">CEARÁ</option>
			<option value="DF">DESTRITO FEDERAL</option>
			<option value="ES">ESPÍRITO SANTO</option>
			<option value="GO">GOIÁS</option>
			<option value="MA">MARANHÃO</option>
			<option value="MG">MINAS GERAIS</option>
			<option value="MS">MATO GROSSO DO SUL</option>
			<option value="MT">MATO GROSSO</option>
			<option value="PA">PARÁ</option>
			<option value="PB">PARAÍBA</option>
			<option value="PE">PERNAMBUCO</option>
			<option value="PI">PIAUÍ</option>
			<option value="PR">PARANÁ</option>
			<option value="RJ">RIO DE JANEIRO</option>
			<option value="RN">RIO GRANDE DO NORTE</option>
			<option value="RO">RONDÔNIA</option>
			<option value="RR">RORAIMA</option>
			<option value="RS">RIO GRANDE DO SUL</option>
			<option value="SC">SANTA CATARINA</option>
			<option value="SE">SERGIPE</option>
			<option value="SP">SÃO PAULO</option>
			<option value="TO">TOCANTINS</option>
		  </select>
		</span></td>
	  </tr>
	  <tr class="txt_preto12">
		<td width="22%">DDD:</td>
		<td width="8%"><input name="ddd" type="text" class="txt_preto12" id="ddd" size="5" maxlength="2"></td>
		<td><p>Telefone:
</p></td>
		<td><input name="telefone" type="text" class="txt_preto12" id="telefone" size="26" maxlength="9"></td>
	  </tr>
	  <tr class="txt_preto12">
		<td>E-mail:</td>
		<td colspan="3"><input name="email" type="text" class="txt_preto12" id="email" size="55" maxlength="50"></td>
	  </tr>
	  <tr class="txt_preto12">
		<td> Comentários:</td>
		<td colspan="3" rowspan="3"><textarea name="comentario" cols="54" rows="3" class="txt_preto12" id="comentario"></textarea></td>
	  </tr>
	  <tr class="txt_preto12">
		<td> </td>
	  </tr>
	  <tr class="txt_preto12">
		<td> </td>
	  </tr>
	  <tr class="txt_preto12">
		<td colspan="4"> </td>
	  </tr>
	  <tr class="txt_preto12">
		<td colspan="4"><div align="center">
			<input name="Button2" type="button" class="txt_preto12" onClick="java script:confereTudo()" value="Enviar">
		</div></td>
	  </tr>
	</table>
  </form>
</div>
<div id="Layer3" style="position:absolute; left:0px; top:79px; width:336px; height:203px; z-index:4"><img src="images/fale_1.jpg"><img src="images/fale_2.jpg"><img src="images/fale_3.jpg"><img src="images/fale_4.jpg"><img src="images/fale_5.jpg"><img src="images/fale_6.jpg"></div>
<!--#include file="../arquivos/top.asp"-->
</body>
</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

deve ser erro do seu javascript no action

 

faz assim

 

<form action="" method="post" name="cadform" id="cadform">

no button você faz isso aqui

<input name="BtEnviar" type="button" class="txt_preto12" value="Enviar">

a página de envio você coloca no final dessa página ai

 

<!--#include file="../arquivos/top.asp"-->
</body>
</html>
<!--#include file="ver_mandar_email.asp"-->

na página ver_mandar_email.asp você faz isso

ASP
If Request.Form("BtEnviar") = "Enviar" Then

 

tipo = request("tipo")

nome = request("nome")

sobrenome = request("sobrenome")

endereco = request("endereco")

numero = request("numero")

complemento = request("complemento")

 

 (.... continua o código....)

 

End If

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.