Ir para conteúdo

POWERED BY:

Arquivado

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

Leo KW

Problema com Form

Por , em ASP Clássico

Recommended Posts

Leo KW    0

Leo KW
Postado

Fala galera,

 

To fazendo em um site um esquema de "Indique para seu amigo" em uma junção de Flash + ASP, porém não sei porque o formulário sempre dava "Erro, tente mais tarde!"

 

Então eu postei na seção de ActionScript aqui do fórum para ver se conseguia ajuda, o moderador Eder Fortunato me ajudou bastante fazendo vários testes comigo, e chegamos a conclusão que o erro está no arquivo ASP, não sei porque ao invéz de ele devolver 0 ou 1 pro flash (verdadeiro ou falso) ele está devolvendo undefined, no Flash está tudo OK, fiz testes com PHP e HTML, mais só com esse arquivo em ASP é o problema, segue o código em ASP usado:

 

<%
	dim strBody, strMail
	dim iMsg
	
	strBody = "<html><head><title>TAM Vacations!</title></head>" &_
						"<style> body { font-family: Verdana, Arial, Helvetica, sans-serif; font-size:11px; color:#383838; } </style>" &_
						"<body bgcolor=""#000000"" leftmargin=""0"" topmargin=""0"" marginheight=""0"" marginwidth=""0"">" &_
							"<table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" &_
								"<tr><td> </td></tr>" &_
								"<tr>" &_
									"<td align=""center"" valign=""middle"" border=""0"">" &_
									"<a href=""http://www.tamvacations.com/scripts/videos/02/?script=02/"">" &_
									
										"<img src=""http://www.tamvacations.com/scripts/videos/mail.jpg"" border=""0""></a>" &_
									"</td>" &_
								"</tr>" &_
								"<tr><td> </td></tr>" &_
							"</table>" &_
						"</body></html>"

	set iMsg = CreateObject("CDO.Message")
		With iMsg
			.To = Request("varEmail_friend")
			.From = Request("varEmail")
			.Subject = Request("varNome") & " lhe indicou este site! Confira!"
			.HTMLBody = strHTML
			.Send
		End With
	Set iMsg = Nothing

	IF Err <> 0 THEN
		Response.Write("stats=0")
	ELSE
		Response.Write("stats=1")
	END IF
		
%>

Link do tópico que eu postei na seção de ActionScrit: http://forum.imasters.com.br/index.php?showtopic=311586

 

Espero que aqui possam resolver o meu problema!

 

 

Abraços!

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Tente executar esse script sem o seu Flash, crie um FORM HTML e use esse script como Action dele e veja o que será exibido na tela.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Leo KW    0

Leo KW
Postado

Tente executar esse script sem o seu Flash, crie um FORM HTML e use esse script como Action dele e veja o que será exibido na tela.

Fala Salgado,

 

ele apresenta o mesmo erro que no flash:

 

CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/scripts/videos/send/envia_contato.asp, line 23
A linha 23 é essa:

 

.Send
Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Dê uma olhada em um trecho desse código: Classe para envio de e-mails, procure pelo trecho do CDO.Message e veja a sintaxe padrão básica desse componente.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Leo KW    0

Leo KW
Postado

Dê uma olhada em um trecho desse código: Classe para envio de e-mails, procure pelo trecho do CDO.Message e veja a sintaxe padrão básica desse componente.

Fala Salgado,

 

desculpe a minha ignorância velho, mais não entendi sobre oque eu tenho que procurar naqueles códigos, eu cheguei a dar uma olhada, mais não entendi muito bem. :wacko:

 

Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
Fala Salgado,

 

desculpe a minha ignorância velho, mais não entendi sobre oque eu tenho que procurar naqueles códigos, eu cheguei a dar uma olhada, mais não entendi muito bem. :wacko:

 

Abraços!

Procure pelo trecho do CDO.Message e veja a sintaxe padrão básica desse componente.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Leo KW    0

Leo KW
Postado

Procure pelo trecho do CDO.Message e veja a sintaxe padrão básica desse componente.

Eu encontrei isso sobre CDO.Message:

 

objCDOSYSCon.fields.update
					Set objeto								 = Server.CreateObject("CDO.Message")
					Set objeto.Configuration	 = objCDOSYSCon
					objeto.From							 = emailNomeDe & "<" & emailDe & ">"				
					objeto.To								 = montaEmail(emailPara, 1)
					objeto.Cc								 = montaEmail(emailCC, 2)
					objeto.Bcc								 = montaEmail(emailCCO, 3)
					objeto.Subject						 = assunto		
					if html then
						objeto.HtmlBody = mensagem
					else
						objeto.TextBody = mensagem
					end if
					anexarArquivo componente

Mais oque eu teria que fazer com esse código, isso que eu não entendi. o atual que eu tenho que está apresentando o erro é esse:

 

set iMsg = CreateObject("CDO.Message")
		With iMsg
			.To = Request("varEmail_friend")
			.From = Request("varEmail")
			.Subject = Request("varNome") & " lhe indicou este site! Confira!"
			.HTMLBody = strHTML
			.Send
		End With
	Set iMsg = Nothing

	IF Err <> 0 THEN
		Response.Write("stats=0")
	ELSE
		Response.Write("stats=1")
	END IF

Não tenho muito conhecimento em linguagem ASP, desculpe a ignorancia!! =/

 

Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

O CDOSYS tem uma série de configurações, você não fez. Onde está a configuração de SMTP, porta, sendusing, etc...?

 

Veja a classe que o SALGADO sugeriu ou faça uma pesquisa aqui no Fórum. Temos vários tópicos sobre o assunto e essa configuração é o básico para se enviar e-mail via CDOSYS.

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