Problema com Formulário em ASP

Trina · Setembro 4, 2010

Olá pessoal,

estou com um problema com um formulário, ele não quer enviar pro email...

os alerts também não estão rodando. Não sei o que fazer, nem o que está errado.

Segue o código abaixo.

<!--#include file="header.asp"-->

<table width="780" cellpadding="0" cellspacing="0" border="0"  bgcolor="#FFFFFF" >
	<tr>
		<td></td>
		<td > </td>
	</tr>
	<tr>
		<td height="10"></td>
	</tr>
	<tr>
		<td width="7" valign="top"></td>
		<td class="texto_cinza_claro">
<p align="center">
<%if request("funcao") = "enviar" then

corpo =  "<table border=0 cellpadding=0 cellspacing=0 width=95% align=center>"
corpo = corpo &	"<tr><td><FONT face=VERDANA size=2 color=#000000><B>Assunto: </B>" & request.form("assunto") & "</FONT></td></tr><TR><TD height=10></TD></tr>"
corpo = corpo &	"<tr><td><FONT face=VERDANA size=2 color=#000000><B>Nome: </B>" & request.form("nome") & "</FONT></td></tr><TR><TD height=10></TD></TR>"
corpo = corpo &	"<tr><td><FONT face=VERDANA size=2 color=#000000><B>Email: </B>" & request.form("email") & "</FONT></td></tr><TR><TD height=10></TD>"
corpo = corpo &	"<tr><td><FONT face=VERDANA size=2 color=#000000><B>Mensagem: </B>" & request.form("mensagem") & "</FONT></td></tr></table>"
'response.write corpo

Set xMail = Server.CreateObject("Persits.MailSender")
	xMail.Host = "www.academiadocerebro.com" 'na dominal
  	xMail.AddAddress = "ainariel.celebrindal@gmail.com"
	xMail.From = request.form("email")
	xMail.FromName = request.form("nome")
	xMail.Subject = "Fale Conosco - " & request.form("assunto")
	xMail.body = corpo
	xMail.IsHTML = True 
		If xMail.Send then%>
			<script>
	    		alert("Email enviado com sucesso!!!")
			</script>
		<%Else
		vr_msg = xMail.response%>
		<script>
	    alert("Falha no envio de email.\nErro:<%= vr_msg%>")
		</script><%
		End If	
set xMail = nothing

end if%>
<script LANGUAGE="JavaScript">
<!--
       function Envia(frm) {
                if (document.frm.nome.value == ""){
                       alert("Esqueceu de preencher o seu nome");
                       document.frm.nome.focus();
                       return;
                }
			   if (document.frm.email.value == ""){
                       alert("Esqueceu de preencher o seu email");
                       document.frm.email.focus();
                       return;
                }
				
				
               // INICIO VALIDACAO DE EMAIL 
			 
			if (document.frm.email.value != ""){
			
							prim = document.frm.email.value.indexOf("@")
							if(prim < 2) {
								alert("O e-mail não está correto.");
								document.frm.email.focus();
								document.frm.email.select();
								return false;
							}
								if(document.frm.email.value.indexOf("@",prim + 1) != -1) {
								alert("O e-mail não está correto.");
								document.frm.email.focus();
								document.frm.email.select();
								return false;
							}
							if(document.frm.email.value.indexOf(".") < 1) {
								alert("O e-mail não está correto.");
							document.frm.email.focus();
							document.frm.email.select();
							return false;
							}
						if(document.frm.email.value.indexOf(" ") != -1) {
								alert("O e-mail não está correto.");
							document.frm.email.focus();
							document.frm.email.select();
							return false;
							}
						if(document.frm.email.value.indexOf("zipmeil.com") > 0) {
							alert("O e-mail não está correto.");
							document.frm.email.focus();
							document.frm.email.select();
							return false;
						}
							if(document.frm.email.value.indexOf("hotmeil.com") > 0) {
							alert("O e-mail não está correto.");
							document.frm.email.focus();
							document.frm.email.select();
							return false;
						}
						if(document.frm.email.value.indexOf(".@") > 0) {
						alert("O e-mail não está correto.");
						document.frm.email.focus();
						document.frm.email.select();
						return false;
						}
							if(document.frm.email.value.indexOf("@.") > 0) {
							alert("O e-mail não está correto.");
							document.frm.email.focus();
							document.frm.email.select();
							return false;
						}
						if(document.frm.email.value.indexOf(".com.br.") > 0) {
							alert("O e-mail não está correto.");
						document.frm.email.focus();
						document.frm.email.select();
						return false;
						}
						if(document.frm.email.value.indexOf("/") > 0) {
							alert("O e-mail não está correto.");
						document.frm.email.focus();
							document.frm.email.select();
					return false;
					}
						if(document.frm.email.value.indexOf("[") > 0) {
						alert("O e-mail não está correto.");
							document.frm.email.focus();
							document.frm.email.select();
						return false;
						}
						if(document.frm.email.value.indexOf("]") > 0) {
							alert("O e-mail não está correto.");
						document.frm.email.focus();
						document.frm.email.select();
							return false;
						}
						if(document.frm.email.value.indexOf("(") > 0) {
							alert("O e-mail não está correto.");
							document.frm.email.focus();
							document.frm.email.select();
								return false;
							}
					if(document.frm.email.value.indexOf(")") > 0) {
					alert("O e-mail não está correto.");
					document.frm.email.focus();
					document.frm.email.select();
					return false;
					}
					if(document.frm.email.value.indexOf("..") > 0) {
							alert("O e-mail não está correto.");
					document.frm.email.focus();
					document.frm.email.select();
					return false;
					}
				if(document.frm.email.value.indexOf(",") > 0) {
						alert("O e-mail não está correto.");
						document.frm.email.focus();
						document.frm.email.select();
					return false;
				}
			
			
				}
			
			
			// FIM VALIDACAO DE EMAIL 
				
				  if (document.frm.mensagem.value == ""){
                       alert("Esqueceu de preencher a mensagem");
                       document.frm.mensagem.focus();
                       return;
                }
				
                else {
                        document.frm.submit();
                }
        }
//-->
</script>
<form action="fale_conosco.asp? funcao=enviar" name="frm" method="post">			
				<table border="0" class="texto_cinza_escuro" cellpadding="4" cellspacing="0" align="center">
					<tr>
						<td><strong>Formulário de Contato</strong></td>
					</tr>
					<tr>
						<td height="1" width="100%" bgcolor="lightblue"></td>
					</tr>
					<tr>
						<td height="10"></td>
					</tr>
					<tr>
						<td>Nome:<br>
						<input type="text" name="nome"  size="50" class="formulario"></td>
					</tr>
					<tr>
						<td>Email:<br>
						<input type="text" name="email"  size="50" class="formulario"></td>
					</tr>
					<tr>
						<td>Assunto:<br>
						<select name="assunto" class="formulario">
							<option value="Suporte" SELECTED>Selecione o assunto</option>
							<option value="Serviços">Serviços</option>	
							<option value="Cursos Online">Cursos Online</option>
                            <option value="Dúvidas">Dúvidas</option>
							<option value="Outros Assuntos">Outros Assuntos</option>
						</select>
						</td>
					</tr>
					<tr>
						<td>Mensagem:<br><textarea cols="60" rows="5" name="mensagem" class="formulario"></textarea></td>
					</tr>
					<tr>
						<td height="10"></td>
					</tr>
					<tr>
						<td><input type="Button" onClick="JavaScript:Envia(frm)" value="Enviar..." class="formulario"></td>
					</tr>
					<tr>
						<td height="10"></td>
					</tr>
					<tr>
						<td height="1" width="100%" bgcolor="lightblue"></td>
					</tr>
					<tr>
						<td height="20"></td>
					</tr>
					<tr>
						<td>Emails: academiadocerebro@hotmail.com / faleconosco@academiadocerebro.com</td>
					</tr>
                    <tr>
                    	<td>Endereço: Rua Santa Luzia nº 405 3º andar sala 17, Centro - Rio de Janeiro</td>
					<tr>
						<td height="10"></td>
					</tr>
					<tr>
						<td>Telefone: (21) 2220-5372</td>
					</tr>
					<tr>
						<td height="55"></td>
					</tr>
				</table>
</form>  
		
		</td>
	</tr>
	
</table>

<!--#include file="rodape.asp"-->

Desde já agradeço a ajuda.

hargon · Setembro 4, 2010

Altere <input type="Button" onclick="Javascript:Envia(frm)" value="Enviar..." class="formulario"> para

E poste o resultado.

Se isso não resolver, você terá que mudar essa forma de validação: if request("funcao") = "enviar" then

DSerma · Setembro 4, 2010

Remova o espaço entre o ? e o funcao=enviar..

Att;

Trina · Setembro 4, 2010

Primeiro obrigada pela ajuda.

Fiz o que vocês disseram, mas deu esse erro...

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/fale_conosco.asp, line 25

800401f3

Patrique · Setembro 4, 2010

Na linha 25 aonde esta o

xMail.Host = "www.academiadocerebro.com"

Referece ao endereço do servidor de email e não o endereço do site, portanto deve ser algo como

xMail.Host = "mail.academiadocerebro.com"

ou

xMail.Host = "smtp.academiadocerebro.com"

xanburzum · Setembro 4, 2010

verifique se tem o objeto (componente) instalado no server Persits.MailSender

Patrique · Setembro 4, 2010

Xamburzum se o erro fosse no objeto componente o erro seria na linha 24 aonde esta

Set xMail = Server.CreateObject("Persits.MailSender")

O erro esta na linha 25 como relatada pelo usuário, portanto na linha xMail.Host

DSerma · Setembro 4, 2010

Patrique...

O erro "Server.CreateObject Failed" se dá quando a página tenta criar o objeto e não consegue, neste caso, o objeto Persits.MailSender...

Provavelmente o Host nao possui o objeto instalado..

Att;

Patrique · Setembro 4, 2010

Mais por que o erro aponta para a linha 25? e não 24 aonde começa?

xanburzum · Setembro 4, 2010

Este erro é geralmente associado com a tentativa de criar uma instância de um objeto usando um ProgID que na verdade não é registrado na máquina. A mensagem de erro pode ser um dos seguintes procedimentos:

As causas mais comuns para isso são:

esquecendo-se de registrar o objeto usando regsvr32;

não percebendo que o objeto não é realmente instalado;

MDAC corrompido (se estiver usando bd);

usando um MSWC ou IIS componente da amostra que não está instalado

ou como citado acima, verifique se o SMTP esta correto

DSerma · Setembro 4, 2010

Ele pode ter adicionado mais alguma linha no código dele e nao ter postado aki...

Att;

Patrique · Setembro 4, 2010

Saquei, mais de qualquer forma acredito que a linha do Host deva ser modificada para o endereço do servidor de SMTP que certamente não é aquela.

xanburzum · Setembro 4, 2010

roda este code, para ver se esta instalado

componentes instalado.

<%
Dim arrListaComponentes(48)

arrListaComponentes(0)  = Array( "AB Mailer","ABMailer.Mailman" )
arrListaComponentes(1)  = Array( "ABC Upload","ABCUpload4.XForm" )
arrListaComponentes(2)  = Array( "ActiveFile","ActiveFile.Post" )
arrListaComponentes(3)  = Array( "ActiveX Data Object","ADODB.Connection" )
arrListaComponentes(4)  = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )
arrListaComponentes(5)  = Array( "ASP DNS", "AspDNS.Lookup" )
arrListaComponentes(6)  = Array( "ASP HTTP","AspHTTP.Conn" )
arrListaComponentes(7)  = Array( "ASP Image","AspImage.Image" )
arrListaComponentes(8)  = Array( "ASP Mail","SMTPsvg.Mailer" )
arrListaComponentes(9)  = Array( "ASP NNTP News", "AspNNTP.Conn" )
arrListaComponentes(10) = Array( "ASP POP 3", "POP3svg.Mailer" )
arrListaComponentes(11) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )
arrListaComponentes(12) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )
arrListaComponentes(13) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )
arrListaComponentes(14) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )
arrListaComponentes(15) = Array( "ASP Tear","SOFTWING.ASPtear" )
arrListaComponentes(16) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )
arrListaComponentes(17) = Array( "ASP WhoIs","WhoIs2.WhoIs" )
arrListaComponentes(18) = Array( "ASPSoft NT Object","ASPSoft.NT" )
arrListaComponentes(19) = Array( "ASPSoft Upload","ASPSoft.Upload" )
arrListaComponentes(20) = Array( "CDO NTS","CDONTS.NewMail" )
arrListaComponentes(21) = Array( "Chestysoft Image","csImageFile.Manage" )
arrListaComponentes(22) = Array( "Chestysoft Upload","csASPUpload.Process" )
arrListaComponentes(23) = Array( "Dimac JMail","JMail.Message" )
arrListaComponentes(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )
arrListaComponentes(25) = Array( "Dundas Mailer","Dundas.Mailer" )
arrListaComponentes(26) = Array( "Dundas Upload","Dundas.Upload.2" )
arrListaComponentes(27) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2")
arrListaComponentes(28) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1")
arrListaComponentes(29) = Array( "Dundas 3D Chart", "Dundas.ChartServer")
arrListaComponentes(30) = Array( "Dynu Encrypt","Dynu.Encrypt" )
arrListaComponentes(31) = Array( "Dynu HTTP","Dynu.HTTP" )
arrListaComponentes(32) = Array( "Dynu Mail","Dynu.Email" )
arrListaComponentes(33) = Array( "Dynu Upload","Dynu.Upload" )
arrListaComponentes(34) = Array( "Dynu WhoIs","Dynu.Whois" )
arrListaComponentes(35) = Array( "Easy Mail","EasyMail.SMTP.5" )
arrListaComponentes(36) = Array( "File System Object","Scripting.FileSystemObject" )
arrListaComponentes(37) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )
arrListaComponentes(38) = Array( "Last Mod","LastMod.FileObj" )
arrListaComponentes(39) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )
arrListaComponentes(40) = Array( "Persits ASP JPEG","Persits.Jpeg" )
arrListaComponentes(41) = Array( "Persits ASPEmail","Persits.MailSender" )
arrListaComponentes(42) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )
arrListaComponentes(43) = Array( "Persits File Upload","Persits.Upload.1" )
arrListaComponentes(44) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )
arrListaComponentes(45) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )
arrListaComponentes(46) = Array( "Image Size", "ImgSize.Check" )
arrListaComponentes(47) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )
arrListaComponentes(48) = Array( "CDOSYS", "CDO.Message" )

' Rotina que verifica o componente do array é um objeto.
Function VerificaObjeto(pComponente)
Dim objComponente
 On Error Resume Next
 VerificaObjeto = False
 Err.Clear
 Set objComponente = Server.CreateObject(pComponente)
 If Err = 0 Then VerificaObjeto = True
 Set objComponente = Nothing
 Err.Clear
End Function

Public Function VerificaComponentes()
Dim intCont, strTxt
Dim intIndex, strProv

intCont = 0
 strTxt = "<table border='1' bordercolor='black' cellspacing='0' cellpadding='0' align='center' width='400'>"
 For intIndex = LBound(arrListaComponentes) To UBound(arrListaComponentes)
  strProv = intIndex
  strTxt = strTxt & "<tr><td width='200'><font face='tahoma' size='1'>" & arrListaComponentes(intIndex)(0) & "</font></td>"
  If VerificaObjeto(arrListaComponentes(intIndex)(1)) Then
    strTxt = strTxt & "<td align=center><font color='red' face='tahoma' size='1'>Instalado</font></td>"
    intCont = intCont + 1
  Else
    strTxt = strTxt & "<td align='center'><font face='tahoma' size='1'>Não Instalado</font></td>"
  End If
  strTxt = strTxt & "</tr>"
 Next
 strTxt = strTxt & "</table><p align='center'><font face='tahoma' size='2'><b>" & intCont & "</b> componentes instalados de "
 strTxt = strTxt & "<b>" & UBound(arrListaComponentes) + 1 & "</b> no provedor.</font> </p>"
 VerificaComponentes = strTxt 
End Function

Response.Write VerificaComponentes
%>

Arquivado

Problema com Formulário em ASP

Recommended Posts

Trina 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

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

Trina 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 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

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 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

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 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

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