Esta certo esse formulário em ASP.?

[Oguiga 0]

<%

Categoria Longa = Request.form("longa")

Categoria Curta = Request.form("curta")

Genero Documentario = Request.form("documentario")

Genero Ficcao = Request.form("ficcao")

Genero Animacao = Request.form("animacao")

Genero experimental = Request.form("experimental")

Genero outros = Request.form("outros")

Genero outrogenero = Request.form("outrogenero")

Filme titulo = Request.form("titulo")

Filme duracao = Request.form("duracao")

Filme ano = Request.form("ano")

Filme cor = Request.form("cor")

Filme pb = Request.form("pb")

Filme formato de captacao = Request.form("formatocaptacao")

Filme formato de exibicao = Request.form("formatoexibicao")

Filme sinopse = Request.form("sinopse")

Filme participacao outros festivais = Request.form("outrosfestivais")

Filme = Request.form("premiosconquistados")

Equipe Direcao = Request.form("direcao")

Equipe producao = Request.form("producao")

Equipe fotografia = Request.form("fotografia")

Equipe roteiro = Request.form("roteiro")

Equipe montagem = Request.form("montagem")

Equipe som = Request.form("som")

Equipe direcao de arte = Request.form("direcaoarte")

Diretor Nome = Request.form("nomediretor")

Diretor Endereco = Request.form("enderecodiretor")

Diretor Cidade = Request.form("cidadediretor")

Diretor Estado = Request.form("estadodiretor")

Diretor CEP = Request.form("cepdiretor")

Diretor Telefone = Request.form("teldiretor")

Diretor Email = Request.form("emaildiretor")

Diretor Filmografia = Request.form("filmografiadiretor")

Produtora Razao Social = Request.form("razaoprodutora")

Produtora Endereco Produtora = Request.form("enderecoprodutora")

Produtora Cidade Produtora = Request.form("cidadeprodutora")

Produtora Estado Produtora = Request.form("estadoprodutora")

Produtora CEP Produtora = Request.form("cepprodutora")

Produtora Telefone Produtora = Request.form("telefoneprodutora")

Produtora Fax Produtora = Request.form("faxprodutora")

Devolucao Nome = Request.form("nomedevolucao")

Devolucao Endereco = Request.form("enderecodevolucao")

Devolucao Cidade = Request.form("cidadedevolucao")

Devolucao Estado = Request.form("estadodevolucao")

Devolucao CEP = Request.form("cepdevolucao")

Devolucao Telefone = Request.form("telefonedevolucao")

 

 

body = "Contato:"

body = body & vbcrlf & vbcrlf & "longa: " & longa

body = body & vbcrlf & "curta: " & curta

body = body & vbcrlf & "documentario: " & documentario

body = body & vbcrlf & "ficcao: " & ficcao

body = body & vbcrlf & "animacao: " & animacao

body = body & vbcrlf & "experimental: " & experimental

body = body & vbcrlf & "outros: " & outros

body = body & vbcrlf & "outrogenero: " & outrogenero

body = body & vbcrlf & "titulo: " & titulo

body = body & vbcrlf & "duracao: " & duracao

body = body & vbcrlf & "ano: " & ano

body = body & vbcrlf & "cor: " & cor

body = body & vbcrlf & "Preto e Branco: " & pb

body = body & vbcrlf & "formatocaptacao: " & formatocaptacao

body = body & vbcrlf & "formatoexibicao: " & formatoexibicao

body = body & vbcrlf & "sinopse: " & sinopse

body = body & vbcrlf & "outrosfestivais: " & outrosfestivais

body = body & vbcrlf & "premiosconquistados: " & premiosconquistados

body = body & vbcrlf & "direcao: " & direcao

body = body & vbcrlf & "producao: " & producao

body = body & vbcrlf & "fotografia: " & fotografia

body = body & vbcrlf & "roteiro: " & roteiro

body = body & vbcrlf & "som: " & som

body = body & vbcrlf & "direcao arte: " & direcaoarte

body = body & vbcrlf & "nome diretor: " & nomediretor

body = body & vbcrlf & "endereco diretor: " & enderecodiretor

body = body & vbcrlf & "cidade diretor: " & cidadediretor

body = body & vbcrlf & "estado diretor: " & estadodiretor

body = body & vbcrlf & "cep diretor: " & cepdiretor

body = body & vbcrlf & "telefone diretor: " & teldiretor

body = body & vbcrlf & "email diretor: " & emaildiretor

body = body & vbcrlf & "filmografiadiretor: " & filmografiadiretor

body = body & vbcrlf & "razao produtora: " & razaoprodutora

body = body & vbcrlf & "endereco produtora: " & enderecoprodutora

body = body & vbcrlf & "cidade produtora: " & cidadeprodutora

body = body & vbcrlf & "estado produtora: " & estadoprodutora

body = body & vbcrlf & "cep produtora: " & cepprodutora

body = body & vbcrlf & "telefone produtora: " & telefoneprodutora

body = body & vbcrlf & "fax produtora: " & faxprodutora

body = body & vbcrlf & "nome devolucao: " & nomedevolucao

body = body & vbcrlf & "endereço devolucao: " & enderecodevolucao

body = body & vbcrlf & "cidade devolucao: " & cidadedevolucao

body = body & vbcrlf & "estado devolucao: " & estadodevolucao

body = body & vbcrlf & "cep devolucao: " & cepdevolucao

body = body & vbcrlf & "telefone devolucao: " & telefonedevolucao

body = body & vbcrlf & "--------------------------------"

 

Set mail = Server.CreateObject("CDONTS.NewMail")

mail.From = nome & " <" & email & ">"

mail.To = "inscricao@coisadecinema.com.br"

mail.Subject = "Formulario Inscriçao"

mail.Body = body

mail.Send

Set mail = Nothing

 

response.write "status=MENSAGEM ENVIADA COM SUCESSO!"

%>

[DSerma 19]

Erros:

 

1) você declara variaveis com espaço entre elas. Utilize o Underline ( _ ) entre palavras em nomes de variaveis.

2) As variaveis que você declarou NAO SAO as mesmas que você está puxando na variavel "body". Exemplo:

 

Filme titulo = Request.form("titulo")
body = body & vbcrlf & "titulo: " & titulo

você declara a variavel "Filme titulo" e puxa a "titulo". Ou você declara ela como "titulo", ou manda puxar a variavel correta.

 

3) você nao está indicando qual é o server SMTP para envio do seu e-mail.

 

Abraços...

[Oguiga 0]

Opa Dark,

eu n entendo muito de asp.

 

Então olha só para ver se entendi.

Nesse mexemplo que você citou,

 

O nome do campo no FLASH é "titulo", mas quero que o ASP chame esse campo mas coloque no corpo do E-MAIL "Filme Titulo". entende?

 

para conseguir esse resultado como deve fica a linha Filme titulo = Request.form("titulo") e a linha body = body & vbcrlf & "titulo: " & titulo

 

E voltando a frisar que não sei asp,

como deve ser colocado (escrito) a linha que chama o SMTP e onde devo coloca-la. Pois sei qual é o SMTO, não sei como nem onde colocar isso no asp.

 

 

Se puder ajudar, ficarei muito grato

 

CORRIGINDO

 

 

Eu sei qual é o SMTP!!!

[DSerma 19]

O nome do campo no FLASH é "titulo", mas quero que o ASP chame esse campo mas coloque no corpo do E-MAIL "Filme Titulo". entende?

 

para conseguir esse resultado como deve fica a linha Filme titulo = Request.form("titulo") e a linha body = body & vbcrlf & "titulo: " & titulo

Vamos pensar um pouco..

 

Se eu declarar uma variavel chamada "Dark", e disser que o valor dela é "Demo".... e posteriormente eu precise chamar o valor dessa variavel... se eu colocar "Qual o nome do Dark?", e chamar uma variavel chamada "NomedoDark".. vai funcionar ??????

 

NAO!

 

Se eu declaro a variavel com um nome.. eu tenho q colocar o MESMO nome quando for chamar ela...

 

No seu caso.. deve ser assim:

 

titulo = Request.form("titulo")
body = body & vbcrlf & "titulo: " & titulo

Agora sim.. você está declarando a variavel chamada "titulo".. e depois puxando o valor dela com o "& titulo".. pois agora você está utilizando o MESMO nome das variaveis..

 

Sobre o SMTP.. no laboratório de Scripts aki do forum tem um tutorial sobre CDONTS...

 

Abraços...

[Oguiga 0]

po DARK,

beleza mesmo cara,

 

acho que entendi,

 

então só para descarrego de consciência........

 

caso eu queira que no corpo do e-mail apareça Filme_Titulo e não apenas titulo..............deve ser feito..

 

Filme_Titulo = Request.form("titulo")

 

e

 

 

body = body & vbcrlf & "Filme_Titulo: " & Filme_Titulo

 

 

certo??

[Anderson Roberto 0]

Certo, mas quando o texto está entre aspas você pode escrever de qualquer forma:

body = body & vbcrlf & "Filme Titulo: " & Filme_Titulo

[DSerma 19]

Oq irá aparecer escrito como "nome do campo" no e-mail.. é oq esta entre aspas, e nao o nome da variavel..

 

Ex:

 

titulo = Request.form("titulo")
body = body & vbcrlf & "Aki eu posso escrever o que eu quero que apareça no e-mail para o cliente: " & titulo

 

Abraços.

[Oguiga 0]

perfeito,

 

farei as correções e depois posto o resultado

 

 

Obrigado aos dois.

 

 

Abraço

[Mário Monteiro 179]

O nome do campo no FLASH é "titulo", mas quero que o ASP chame esse campo mas coloque no corpo do E-MAIL "Filme Titulo". entende?

 

para conseguir esse resultado como deve fica a linha Filme titulo = Request.form("titulo") e a linha body = body & vbcrlf & "titulo: " & titulo

Entao precisa ser exatamente o contrario do que fez

 

Em vez de

 

Filme titulo = Request.form("titulo")

Faça

 

titulo = Request.form("titulo")

E em vez de

 

body = body & vbcrlf & "titulo: " & titulo

Faça

 

body = body & vbcrlf & "Filme Titulo: " & titulo

E isso para todos os campos.

[Oguiga 0]

VOLTEI,

 

hehe,

 

bem, fiz todas essas correções, coloquei no ar e NADA.

 

O DARK me disse que estava faltando uma linha SMTP, eu cheguei a procurar na biblioteca, porém todos de CDONTS não possuíam nenhuma linha referente a SMTP, pelo menos eu n consegui identificar.

 

De qualquer forma, tenho um formulário igualzinho (porém com apenas 4 campos) também hospedado na LocaWeb na conta de outro cliente, e funciona sem problemas.

 

O que será que pode ser? Será apenas lentidão do servidor e estou aqui queimando meus neurônios?? ou sei lá......................

 

o Código ficou assim.

 

<%

longa = Request.form("longa")

curta = Request.form("curta")

documentario = Request.form("documentario")

ficcao = Request.form("ficcao")

animacao = Request.form("animacao")

experimental = Request.form("experimental")

outros = Request.form("outros")

outrogenero = Request.form("outrogenero")

titulo = Request.form("titulo")

duracao = Request.form("duracao")

ano = Request.form("ano")

cor = Request.form("cor")

pb = Request.form("pb")

formatocaptacao = Request.form("formatocaptacao")

formatoexibicao = Request.form("formatoexibicao")

sinopse = Request.form("sinopse")

outrosfestivais = Request.form("outrosfestivais")

premiosconquistados = Request.form("premiosconquistados")

direcao = Request.form("direcao")

producao = Request.form("producao")

fotografia = Request.form("fotografia")

roteiro = Request.form("roteiro")

montagem = Request.form("montagem")

som = Request.form("som")

direcaoarte = Request.form("direcaoarte")

nomediretor = Request.form("nomediretor")

enderecodiretor = Request.form("enderecodiretor")

cidadediretor = Request.form("cidadediretor")

estadodiretor = Request.form("estadodiretor")

cepdiretor = Request.form("cepdiretor")

teldiretor = Request.form("teldiretor")

emaildiretor = Request.form("emaildiretor")

filmografiadiretor = Request.form("filmografiadiretor")

razaoprodutora = Request.form("razaoprodutora")

enderecoprodutora = Request.form("enderecoprodutora")

cidadeprodutora = Request.form("cidadeprodutora")

estadoprodutora = Request.form("estadoprodutora")

cepprodutora = Request.form("cepprodutora")

telefoneprodutora = Request.form("telefoneprodutora")

faxprodutora = Request.form("faxprodutora")

nomedevolucao = Request.form("nomedevolucao")

enderecodevolucao = Request.form("enderecodevolucao")

cidadedevolucao = Request.form("cidadedevolucao")

estadodevolucao = Request.form("estadodevolucao")

cepdevolucao = Request.form("cepdevolucao")

telefonedevolucao = Request.form("telefonedevolucao")

 

 

body = "Contato:"

body = body & vbcrlf & vbcrlf & "Categoria Longa: " & longa

body = body & vbcrlf & "Categoria Curta: " & curta

body = body & vbcrlf & "Genero Documentario: " & documentario

body = body & vbcrlf & "Genero Ficção: " & ficcao

body = body & vbcrlf & "Genero Animação: " & animacao

body = body & vbcrlf & "Genero experimental: " & experimental

body = body & vbcrlf & "Genero outros: " & outros

body = body & vbcrlf & "Genero outrogenero: " & outrogenero

body = body & vbcrlf & "Filme titulo: " & titulo

body = body & vbcrlf & "Filme duração: " & duracao

body = body & vbcrlf & "Filme ano: " & ano

body = body & vbcrlf & "Filme cor: " & cor

body = body & vbcrlf & "Filme Preto e Branco: " & pb

body = body & vbcrlf & "Filme formato de captacao: " & formatocaptacao

body = body & vbcrlf & "Filme formato de exibicao: " & formatoexibicao

body = body & vbcrlf & "Filme sinopse: " & sinopse

body = body & vbcrlf & "Filme participacao outros festivais: " & outrosfestivais

body = body & vbcrlf & "Filme premios conquistados: " & premiosconquistados

body = body & vbcrlf & "Equipe Direcao: " & direcao

body = body & vbcrlf & "Equipe producao: " & producao

body = body & vbcrlf & "Equipe fotografia: " & fotografia

body = body & vbcrlf & "Equipe roteiro: " & roteiro

body = body & vbcrlf & "Equipe som: " & som

body = body & vbcrlf & "Equipe direcao de arte: " & direcaoarte

body = body & vbcrlf & "Diretor Nome: " & nomediretor

body = body & vbcrlf & "Diretor Endereco: " & enderecodiretor

body = body & vbcrlf & "Diretor Cidade: " & cidadediretor

body = body & vbcrlf & "Diretor Estado: " & estadodiretor

body = body & vbcrlf & "Diretor CEP: " & cepdiretor

body = body & vbcrlf & "Diretor Telefone: " & teldiretor

body = body & vbcrlf & "Diretor Email: " & emaildiretor

body = body & vbcrlf & "Diretor Filmografia: " & filmografiadiretor

body = body & vbcrlf & "Produtora Razao Social: " & razaoprodutora

body = body & vbcrlf & "Produtora Endereco: " & enderecoprodutora

body = body & vbcrlf & "Produtora Cidade: " & cidadeprodutora

body = body & vbcrlf & "Produtora Estado: " & estadoprodutora

body = body & vbcrlf & "Produtora CEP: " & cepprodutora

body = body & vbcrlf & "Produtora Telefone: " & telefoneprodutora

body = body & vbcrlf & "Produtora Fax: " & faxprodutora

body = body & vbcrlf & "Devolucao Nome: " & nomedevolucao

body = body & vbcrlf & "Devolucao Endereco: " & enderecodevolucao

body = body & vbcrlf & "Devolucao Cidade: " & cidadedevolucao

body = body & vbcrlf & "Devolucao Estado: " & estadodevolucao

body = body & vbcrlf & "Devolucao CEP: " & cepdevolucao

body = body & vbcrlf & "Devolucao Telefone: " & telefonedevolucao

body = body & vbcrlf & "--------------------------------"

 

Set mail = Server.CreateObject("CDONTS.NewMail")

mail.From = nome & " <" & email & ">"

mail.To = "inscricao@coisadecinema.com.br"

mail.Subject = "Formulario Inscriçao"

mail.Body = body

mail.Send

Set mail = Nothing

 

response.write "status=MENSAGEM ENVIADA COM SUCESSO!"

%>

[Mário Monteiro 179]

nao esta chegando como span?

[Oguiga 0]

não,

 

 

em nenhuma pasta

 

enviei agora um e-mail para o e-mail em questão "inscricao@coisadecinema.com.br" do meu e-mail pessoal e foi INSTANTÂNEO!!!

 

sempre que faço um formulário em ASP, nunca sai de prima................. hehehehehehe

 

 

mas eu EI de chegar lá,

 

rs

[DSerma 19]

Se é da LocaWeb, siga este exemplo de uma página que fiz..

 

<%
Response.Charset="ISO-8859-1"
Nome = Request.QueryString("Nome")
Email = Request.QueryString("Email")
DDD = Request.QueryString("DDD")
Fone = Request.QueryString("Fone")
Dddcel = Request.QueryString("Dddcel")
Cel = Request.QueryString("Cel")
Cliente = Request.QueryString("Cliente")
Loja = Request.QueryString("Loja")
Pedido = Request.QueryString("Pedido")
Msg = Request.QueryString("Msg")

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = "sac@monlline.com.br"
objCDOSYSMail.To = "web@monlline.com.br"
objCDOSYSMail.Subject = Nome & " - Contato Monlline"

objCDOSYSMail.HtmlBody = "<font face = 'Verdana' size = '2'><b>Dados do cliente:</b><br>"
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Nome:</b> " & Nome & "<br>"
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>E-mail:</b> " & Email & "<br>"
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Fone: </b>" & Ddd & "-" & Fone & "<br>"
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Celular:</b> " & Dddcel & "-" & Cel & "<br>"
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Já é Cliente:</b> " & Cliente & "<br>"
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Loja:</b> " & Loja & "<br>"
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Pedido: </b>" & Pedido & "<br>"
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Mensagem: </b>" & Msg & "<br>"
objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b><hr></b>"

objCDOSYSMail.fields.update

objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>

 

sempre que faço um formulário em ASP, nunca sai de prima................. hehehehehehe

Acho que está na hora de estudar um pouco mais então.. nao acha ?

 

 

Abraços...

[Oguiga 0]

po, valeu pelo conselho cara....

 

por sinal, aproveito a necessidade para aprender um pouco mais,

 

de qualquer forma, muito obrigado cara

:)

[Mário Monteiro 179]

Com certeza este é o espirito, quando se faz se aprende um pouco

[Oguiga 0]

bem, adaptei e não deu derto não chega de forma alguma

 

<%

Response.Charset="ISO-8859-1"

longa = Request.QueryString("longa")

curta = Request.QueryString("curta")

documentario = Request.QueryString("documentario")

ficcao = Request.QueryString("ficcao")

animacao = Request.QueryString("animacao")

experimental = Request.QueryString("experimental")

outros = Request.QueryString("outros")

outrogenero = Request.QueryString("outrogenero")

titulo = Request.QueryString("titulo")

duracao = Request.QueryString("duracao")

ano = Request.QueryString("ano")

cor = Request.QueryString("cor")

pb = Request.QueryString("pb")

formatocaptacao = Request.QueryString("formatocaptacao")

formatoexibicao = Request.QueryString("formatoexibicao")

sinopse = Request.QueryString("sinopse")

outrosfestivais = Request.QueryString("outrosfestivais")

premiosconquistados = Request.QueryString("premiosconquistados")

direcao = Request.QueryString("direcao")

producao = Request.QueryString("producao")

fotografia = Request.QueryString("fotografia")

roteiro = Request.QueryString("roteiro")

montagem = Request.QueryString("montagem")

som = Request.QueryString("som")

direcaoarte = Request.QueryString("direcaoarte")

nomediretor = Request.QueryString("nomediretor")

enderecodiretor = Request.QueryString("enderecodiretor")

cidadediretor = Request.QueryString("cidadediretor")

estadodiretor = Request.QueryString("estadodiretor")

cepdiretor = Request.QueryString("cepdiretor")

teldiretor = Request.QueryString("teldiretor")

emaildiretor = Request.QueryString("emaildiretor")

filmografiadiretor = Request.QueryString("filmografiadiretor")

razaoprodutora = Request.QueryString("razaoprodutora")

enderecoprodutora = Request.QueryString("enderecoprodutora")

cidadeprodutora = Request.QueryString("cidadeprodutora")

estadoprodutora = Request.QueryString("estadoprodutora")

cepprodutora = Request.QueryString("cepprodutora")

telefoneprodutora = Request.QueryString("telefoneprodutora")

faxprodutora = Request.QueryString("faxprodutora")

nomedevolucao = Request.QueryString("nomedevolucao")

enderecodevolucao = Request.QueryString("enderecodevolucao")

cidadedevolucao = Request.QueryString("cidadedevolucao")

estadodevolucao = Request.QueryString("estadodevolucao")

cepdevolucao = Request.QueryString("cepdevolucao")

telefonedevolucao = Request.QueryString("telefonedevolucao")

 

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

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

 

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.coisadecinema"

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

 

Set objCDOSYSMail.Configuration = objCDOSYSCon

 

objCDOSYSMail.From = "inscricao@coisadecinema.com.br"

objCDOSYSMail.To = "inscricao@coisadecinema.com.br"

objCDOSYSMail.Subject = "Formulario Inscriçao"

 

objCDOSYSMail.HtmlBody = "<font face = 'Verdana' size = '2'><b>Dados do cliente:</b><br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Categoria Longa:</b> " & longa & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Categoria Curta:</b> " & curta & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Genero Documentario:</b> " & documentario & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Genero Ficção:</b> " & ficcao & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Genero Animação:</b> " & animacao & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Genero experimental:</b> " & experimentala & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Genero outros:</b> " & outros & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Genero outrogenero:</b> " & outrogenero & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Filme titulo:</b> " & titulo

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Filme duração:</b> " & duracao & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Filme ano:</b> " & ano & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Filme cor:</b> " & cor & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Filme Preto e Branco:</b> " & pb & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Filme formato de captacao:</b> " & formatocaptacao & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Filme formato de exibicao:</b> " & formatoexibicao & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Filme sinopse:</b> " & sinopse & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Filme participacao outros festivais:</b> " & outrosfestivais & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Filme premios conquistados:</b> " & premiosconquistados & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Equipe Direcao:</b> " & direcao & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Equipe producao:</b> " & producao & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Equipe fotografia:</b> " & fotografia & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Equipe roteiro:</b> " & roteiro & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Equipe som:</b> " & som & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Equipe direcao de arte:</b> " & direcaoarte & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Diretor Nome:</b> " & nomediretor & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Diretor Endereco:</b> " & enderecodiretor & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Diretor Cidade:</b> " & cidadediretor & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Diretor Estado:</b> " & estadodiretor & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Diretor CEP:</b> " & cepdiretor & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Diretor Telefone:</b> " & teldiretor & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Diretor Email:</b> " & emaildiretor & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Diretor Filmografia:</b> " & filmografiadiretor & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Produtora Razao Social:</b> " & razaoprodutora & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Produtora Endereco:</b> " & enderecoprodutora & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Produtora Cidade:</b> " & cidadeprodutora & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Produtora Estado:</b> " & estadoprodutora & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Produtora CEP:</b> " & cepprodutora & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Produtora Telefone:</b> " & telefoneprodutora & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Produtora Fax:</b> " & faxprodutora & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Devolucao Nome:</b> " & nomedevolucao & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Devolucao Endereco:</b> " & enderecodevolucao & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Devolucao Cidade:</b> " & cidadedevolucao "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Devolucao Estado:</b> " & estadodevolucao & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Devolucao CEP:</b> " & cepdevolucao & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b>Devolucao Telefone:</b> " & telefonedevolucao "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "--------------------------------" & "<br>"

objCDOSYSMail.HtmlBody = objCDOSYSMail.HtmlBody & "<b><hr></b>"

 

objCDOSYSMail.fields.update

 

objCDOSYSMail.Send

 

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

%>

 

 

 

 

Sinceramente não sei o que pod eestar havendo...........................

 

atenção para a linha

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.coisadecinema"

 

também tentei como

 

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

 

 

como esta o do DarkDemo e não rolou........

 

O botão enviar tem como ação:

 

on (release) {

loadVariablesNum("enviar.asp", 0, "POST");

}

[DSerma 19]

você testou só a página ASP, sem fazer o flash puxar ela ?

 

você está colocando ela em um Host ou esta testando em seu micro mesmo?

 

Se for host.. ele tem suporte ao CDONSYS ?

[Oguiga 0]

tem suporte sim.

 

A página está no host.

 

e desculpe novamente, como testo o ASP sem o flash??

 

Obrigado

[Oguiga 0]

Olá,

 

Quem acompanhou tudo viu que eu estou com dificuldade de enviar o formulário via ASP.

 

 

Hoje, com mais alguma tentivas, consegui que o e-mail fosse recebido

através do seguinte ASP. com autenticação.

 

<%

 

' Definindo uma variavel auxiliar

sch = "http://schemas.microsoft.com/cdo/configuration/"

 

' Criando o objeto de configuração do CDO

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

 

' Definindo as configurações

cdoConfig.Fields.Item(sch & "sendusing") = 2

cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1

cdoConfig.Fields.Item(sch & "smtpserver") = "localhost"

cdoConfig.Fields.Item(sch & "sendusername") = "inscricao=coisadecinema.com.br"

cdoConfig.Fields.Item(sch & "sendpassword") = "cinema05"

cdoConfig.fields.update

 

' Criando o objeto de msg do CDO

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

 

' Associando as configurações ao obj Mensagem

Set cdoMessage.Configuration = cdoConfig

 

' Definido variaveis da msg

cdoMessage.From = "inscricao@coisadecinema.com.br"

cdoMessage.To = "inscricao@coisadecinema.com.br"

cdoMessage.Subject = "Formulário de Inscricao"

 

 

 

' Utilize esta opção caso deseje definir o e-mail de resposta

' cdoMessage.ReplyTo = "EMailDeResposta@DominioDeResposta.com"

 

cdoMessage.TextBody = mensagem

 

 

 

cdoMessage.Send

Set cdoMessage = Nothing

Set cdoConfig = Nothing

 

 

%>

 

 

 

Porém o e-mail chega em branco, logicamente pelo fato de não ter nenhum campo chamando os campos do formulário.

Porém quando eu coloco a comando para interpretar os campos, o E-MAIL nem chega.........o que pode estar havendo de errado?

 

estou chamando os campos assim: (logo a abaixo da linha cdoMessage.Subject = "Formulário de Inscricao")

 

mensagem = "Categoria Longa: "& Request("longa") & vbCrLf & _

"Categoria Curta: "& Request("curta") & vbCrLf & _

"Genero Documentario: "& Request("documentario") & vbCrLf & _

"Genero Ficção: "& Request("ficcao") & vbCrLf & _

"Genero Animação: "& Request("animacao") & vbCrLf & _

"Genero experimental: "& Request("experimental") & vbCrLf & _

"Genero outros: "& Request("outros") & vbCrLf & _

"Genero outrogenero: "& Request("outrogenero") & vbCrLf & _

"Filme titulo: "& Request("titulo") & vbCrLf & _

"Filme duração: "& Request("duracao") & vbCrLf & _

"Filme ano: "& Request("ano") & vbCrLf & _

"Filme cor: "& Request("cor")) & vbCrLf & _

"Filme Preto e Branco: "& Request("pb") & vbCrLf & _

"Filme formato de captacao: "& Request("formatocaptacao") & vbCrLf & _

"Filme formato de exibicao: "& Request("formatoexibicao") & vbCrLf & _

"Filme sinopse: "& Request("sinopse") & vbCrLf & _

"Filme participacao outros festivais: "& Request("outrosfestivais") & vbCrLf & _

"Filme premios conquistados: "& Request("premiosconquistados") & vbCrLf & _

"Equipe Direcao: "& Request("direcao") & vbCrLf & _

"Equipe producao: "& Request("fotografia") & vbCrLf & _

"Equipe fotografia: "& Request("roteiro") & vbCrLf & _

"Equipe roteiro: "& Request("montagem") & vbCrLf & _

"Equipe som: "& Request("som") & vbCrLf & _

"Equipe direcao de arte: "& Request("direcaoarte") & vbCrLf & _

"Diretor Nome: "& Request("nomediretor") & vbCrLf & _

"Diretor Endereco: "& Request("enderecodiretor") & vbCrLf & _

"Diretor Cidade: "& Request("cidadediretor") & vbCrLf & _

"Diretor Estado: "& Request("estadodiretor") & vbCrLf & _

"Diretor CEP: "& Request("cepdiretor") & vbCrLf & _

"Diretor Telefone: "& Request("teldiretor") & vbCrLf & _

"Diretor Email: "& Request("emaildiretor") & vbCrLf & _

"Diretor Filmografia: "& Request("filmografiadiretor") & vbCrLf & _

"Produtora Razao Social: "& Request("razaoprodutora") & vbCrLf & _

"Produtora Endereco: "& Request("enderecoprodutora") & vbCrLf & _

"Produtora Cidade: "& Request("cidadeprodutora") & vbCrLf & _

"Produtora Estado: "& Request("estadoprodutora") & vbCrLf & _

"Produtora CEP: "& Request("cepprodutora")) & vbCrLf & _

"Produtora Telefone: "& Request("telefoneprodutora") & vbCrLf & _

"Produtora Fax: "& Request("faxprodutora") & vbCrLf & _

"Devolucao Nome: "& Request("nomedevolucao") & vbCrLf & _

"Devolucao Endereco: "& Request("enderecodevolucao") & vbCrLf & _

"Devolucao Cidade: "& Request("cidadedevolucao") & vbCrLf & _

"Devolucao Estado: "& Request("estadodevolucao") & vbCrLf & _

"Devolucao CEP: "& Request("cepdevolucao") & vbCrLf & _

"Devolucao Telefone: "& Request("telefonedevolucao")

[DSerma 19]

você ainda está puxando ela do Flash.. ou está rodando apenas ela ???