Asp/radion Naum Funciona

[Guest Capriotti]

Eu tenho um formulário com oito opções de radio com nota de 1 a 4. O problema é q ele redireciona para a página de agradecimento mas não envia o e-mail. O q está acontecendo ???

<% @Language = VBScript %>

<%

Name = "Pesquisa"

SenderEmail = "blah@xxxxx.com.br"

Recipient = Request.Form("destiny")

xNf  = Request.Form("nf")

xQatd = Request.Form("qual_atd")

xTorc  = Request.Form("tempo_orc")

xPreco  = Request.Form("preço")

xPaf  = Request.Form("prz_af")

xQaf  = Request.Form("qual_af")

xTimp  = Request.Form("tempo_imp")

xQimp  = Request.Form("qual_imp")

xQacb  = Request.Form("qual_acb")

Subject = "Pesquisa de Opinião"

body = body & "Dados digitados no questionário de pesquisa do site" & vbCRLF & vbCRLF

body = body & String(50,"-") & vbCRLF

body = body & "Número        : " & xNf & vbCRLF

body = body & "Atendimento : " & xQatd & vbCRLF

body = body & "Orçamento  : " & xTorc & vbCRLF

body = body & "Preço          : " & xPreco & vbCRLF

body = body & "Prazo          : " & xPaf & vbCRLF

body = body & "Arte final      : " & xQaf & vbCRLF

body = body & "Tempo        : " & xTimp & vbCRLF

body = body & "Impressão    : " & xQimp & vbCRLF

body = body & "Acabamento  : " & xQacb & vbCRLF

body = body & vbCRLF & String(50, "-") & vbCRLF

Set JMail = Server.CreateObject("JMail.SMTPMail")

JMail.ServerAddress = "smtp.xxxxx.com.br"

JMail.Sender = SenderEmail

JMail.Subject = Subject

JMail.AddRecipient Recipient

JMail.Body = Body

JMail.Priority = 3

JMail.AddHeader "Originating-IP",Request.ServerVariables("REMOTE_ADDR")

JMail.Execute

Response.Redirect("pesquisa_obrigado.html")

%>

[cyberalexxx]

já usou jmail antes?? e funcionou?? os dados do smtp e porta estão corretos??

[dark0]

Primeiro, veja se suas variaveis, que estao no começo do codigo estao com os valores certos. Principalmente aquelas que vem de formulario.

Verifique principalmente estas duas:

SenderEmail = "blah@xxxxx.com.br"

Recipient = Request.Form("destiny")

depois, verifique o smtp ..

[Guest Capriotti]

Está tudo ok. O e-mail que vem da form está num hidden, porque o form não tem campo de preenchimento de e-mail. Mas existe e é um e-mail válido.

Já o endereço do servidor e o e-mail destinatários eu não posso postar, por isso está assim... mas está correto porque Jmail é o único q ele tem, e eu já tenho dois outros forms funcionando. Só este maldito está me dando problemas...

Eu vou tentar refazer tudo de novo, mas será q vocês tem alguma outra sugestão ???

[bareta]

você alterou essa linha:

JMail.ServerAddress = "smtp.xxxxx.com.br"

[Guest - Capriotti -]

Pessoal, esse eu resolvi, infelizmente este outro tem um radio tb mas não está funcionando, será q eu devo eliminar as vars e jogar o request direto no body, porque eu não faço idéia do que está acontecendo. Ele está indicando q a página não pode ser exibida (nesse caso, acho q ele não roda a página por causa de alguma coisa errada no script...)

<% @Language = VBScript %>

<%

Dim xEmp, xCt, xFx, xDc, xNoc, xPgc, xQ1c, xQ2c, xQtc, xQfc, xQvc, xTlc, xTbc, xTbl, xPpc, xGc, xCpc, xQbc, xNc, xDm, xNom, xPgm, xQ1m, xQ2m, xQtm, xQfm, xQvm, xTlm, xTam, xTbm, xTcm, xPpm, xGm, xCm, xQbm, xNm

Name = "Exacta"

SenderEmail = Request.Form("email")

Recipient = Request.Form("destiny")

Subject = "Pedido de Orçamento"

xEmp = Request.Form("emp")

xCt = Request.Form("ct")

xFx = Request.Form("fx")

xDc = Request.Form("dc")

xNoc = Request.Form("noc")

xPgc = Request.Form("pgc")

xQ1c = Request.Form("q1c")

xQ2c = Request.Form("q2c")

xQtc = Request.Form("qtc")

xQfc = Request.Form("qfc")

xQvc = Request.Form("qvc")

xTlc = Request.Form("tlc")

xTac = Request.Form("tac")

xTbc = Request.Form("tbc")

xTbl = Request.Form("tbl")

xPpc = Request.Form("ppc")

xGc = Request.Form("gc")

xCpc = Request.Form("cpc")

xQbc = Request.Form("qbc")

xNc = Request.Form("nc")

xDm = Request.Form("dm")

xNom = Request.Form("nom")

xPgm = Request.Form("pgm")

xQ1m = Request.Form("q1m")

xQ2m = Request.Form("q2m")

xQtm = Request.Form("qtm")

xQfm = Request.Form("qfm")

xQvm = Request.Form("qvm")

xTlm = Request.Form("tlm")

xTam = Request.Form("tam")

xTbm = Request.Form("também")

xTcm = Request.Form("tcm")

xPpm = Request.Form("ppm")

xGm = Request.Form("gm")

xCm = Request.Form("cm")

xQbm = Request.Form("qbm")

xNm = Request.Form("nm")

body = "Pedido de Orçamento" & vbCRLF

body = body & String(50,"-") & vbCRLF & vbCRLF

body = body & "Empresa  : " & xEmp & vbCRLF

body = body & "Contato  : " & xCt & vbCRLF

body = body & "Telefone : " & xFx & vbCRLF

body = body & "E-mail  : " & Request.Form("email") & vbCRLF & vbCRLF

body = body & "Lâmina / Capa" & vbCRLF

body = body & "Discriminação        : " & xDc & vbCRLF

body = body & "Nº de originais      : " & xNoc & " x " & xPgc & " página(s)" & vbCRLF

body = body & "Quantidade            : " & xQ1c & " x " & xQ2c & " Total : " & xQtc & vbCRLF

body = body & "Quantidade de cores  : " & xQfc & " x " & xQvc & " (frente x verso)" & vbCRLF

body = body & "Tamanho aberto        : " & xTlc & " x " & xTac & " (mm)" & vbCRLF

body = body & "Tamanho do acabamento : " & xTbc & " x " & xTbl & " (mm)" & vbCRLF

body = body & "Papel                : " & xPpc & vbCRLF

body = body & "Gramatura            : " & xGc & vbCRLF

body = body & "Cor do papel          : " & xCpc & vbCRLF

body = body & "Quantidade de blocos  : " & xQbc & vbCRLF

body = body & "Numeração            : " & xNc & vbCRLF & vbCRLF

body = body & "Lâmina / Miolo" & vbCRLF

body = body & "Discriminação        : " & xDm & vbCRLF

body = body & "Nº de originais      : " & xNom & " x " & xPgm & " página(s)" & vbCRLF

body = body & "Quantidade            : " & xQ1m & " x " & xQ2m & " Total : " & xQtm & vbCRLF

body = body & "Quantidade de cores  : " & xQfm & " x " & xQvm & " (frente x verso)" & vbCRLF

body = body & "Tamanho aberto        : " & xTlm & " x " & xTam & " (mm)" & vbCRLF

body = body & "Tamanho do acabamento : " & xTbm & " x " & xTcm & " (mm)" & vbCRLF

body = body & "Papel                : " & xPpm & vbCRLF

body = body & "Gramatura            : " & Gm & vbCRLF

body = body & "Cor do papel          : " & xCm & vbCRLF

body = body & "Quantidade de blocos  : " & xQbm & vbCRLF

body = body & "Numeração            : " & xNm & vbCRLF & vbCRLF

body = body & String(50,"-") & vbCRLF

Server.CreateObject("Jmail,SMTPMail")

Jmail.ServerAddress = "smtp.srnet.com.br"

Jmail.Sender = SenderEmail

Jmail.Subject = Subject

Jmail.AddRecipient = Recipient

Jmail.Body = body

Jmail.Priority = 3

Jmail.AddHeader "Originating-IP",Request.ServerVariables("REMOTE_ADDR")

Jmail.Execute

Set Jmail = Nothing

Response.Redirect("orcamento_obrigado.html")

%>