Onde Eu Errei

[Rickardo]

mais ta dando errado.

onde eu errei? alguém pode me ajudar ae??

<%

Response.Buffer = true

Response.addHeader "pragma", "no-cache"

Response.CacheControl = "Private"

Response.Expires = 0

%>

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

<%

Dim nome

Dim endereco, num, complemento, bairro, cidade, estado

Dim cep, cep1, cep2

Dim telefone1, ddd1, telefone1a, telefone1b

Dim telefone2, ddd2, telefone2a, telefone2b

Dim email

Dim profissao

Dim empresa1

empresa1 = Request.Form("empresa1")

Contato = Request.Form("nome")

endereco = Request.Form("endereco")

num = Request.Form("num")

complemento = Request.Form("complemento")

bairro = Request.Form("bairro")

cidade = Request.Form("cidade")

estado = Request.Form("estado")

cep1 = String(5, "0") & Request.Form("cep1")

cep1 = Right(cep1, 5)

cep2 = String(3, "0") & Request.Form("cep2")

cep2 = Right(cep2, 3)

cep = cep1 & "-" & cep2

ddd1 = String(2, "0") & Request.Form("ddd1")

ddd1 = Right(ddd1, 2)

telefone1a = String(4, "0") & Request.Form("telefone1a")

telefone1a = Right(telefone1a, 4)

telefone1b = String(4, "0") & Request.Form("telefone1b")

telefone1b = Right(telefone1b, 4)

telefone1 = "(" & ddd1 & ") " & telefone1a & "-" & telefone1b

If Request.Form("ddd2") <> "" OR _

Request.Form("telefone2a") <> "" OR _

Request.Form("telefone2b") <> "" Then

ddd2 = String(2, "0") & Request.Form("ddd2")

ddd2 = Right(ddd2, 2)

telefone2a = String(4, "0") & Request.Form("telefone2a")

telefone2a = Right(telefone2a, 4)

telefone2b = String(4, "0") & Request.Form("telefone2b")

telefone2b = Right(telefone2b, 4)

telefone2 = "(" & ddd2 & ") " & telefone2a & "-" & telefone2b

End If

email = Request.Form("email")

Empresa = Request.Form("profissao")

rt = chr(13) & chr(10) 'return - pular linha

Body = "" &_

"Ficha de Cadastro de Distribuidores - Storcase" & rt &_

"Enviado: " & Now() & rt &_

rt &_

"Empresa: " & empresa1 & rt &_

"Nome: " & nome & rt &_

"Endereço: " & endereco & rt &_

"Número: " & num & rt &_

"Complemento: " & complemento & rt &_

"Bairro: " & bairro & rt &_

"Cidade: " & cidade & rt &_

"Estado: " & estado & rt &_

"CEP: " & cep & rt &_

"1.Telefone: " & telefone1 & rt &_

"2.Telefone: " & telefone2 & rt &_

"E-mail: " & email & rt &_

"Site: " & profissao & rt &_

ResultMail = SendMail("Ficha de Cadastro de Distribuidores - Storcase", nome, email, "Storcase", "rickardocc@gmail.com", Body, False)

%>

arquivo sendmail.asp----------------------------------------

<%

' ASPMAIL ***

' Subject - Assunto

' FromName - De (nome)

' FromEmail - De (e-mail)

' DestName - Para (nome)

' DestName - Para (e-mail)

' Body - Corpo

' IsHTML - True para corpo em HTML e False para corpo em texto

Function SendMail(Subject, FromName, FromEmail, DestName, DestEmail, Body, IsHTML)

Dim SmtpServer, objmail

Set objmail = Server.CreateObject("SMTPsvg.Mailer")

SmtpServer = "smtp2.locaweb.com.br"

objmail.RemoteHost = SmtpServer

If IsHTML Then

objmail.ContentType = "text/html"

End If

objmail.AddExtraHeader "Originating-IP: " & Request.ServerVariables("REMOTE_ADDR")

objmail.FromName = objmail.EncodeHeader(FromName)

objmail.FromAddress = FromEmail

objmail.AddRecipient objmail.EncodeHeader(DestName), DestEmail

objmail.Subject = objmail.EncodeHeader(Subject)

objmail.BodyText = Body

SendMail = objmail.SendMail

Set objmail = Nothing

End Function

%>

[.Andreia.]

Posta o erro que tá aparecendo porque fica melhor pra depurar esse seu código

[dark0]

boa assinatura brother, huauahhuahua

Mas, voltando..

Posta o erro aí.. pois pode ser só erro de sintaxe.. ou na criação do objeto (esse é porque o servidor não da suporte..), ou qualquer outra coisa..

manda o erro pra nóis ver

t+

[Rickardo]

boa assinatura brother, huauahhuahua

Mas, voltando..

Posta o erro aí.. pois pode ser só erro de sintaxe.. ou na criação do objeto (esse é porque o servidor não da suporte..), ou qualquer outra coisa..

manda o erro pra nóis ver

t+

o erro é o seguinte....

vem o email mais não vem os dados

saca?

[dark0]

faz o seguinte..

antes de enviar o e-mail, manda escrever na tela o conteudo da variavel BODY..

se ela estiver vazia.. não vai ir os dados mesmo..

[Rickardo]

Posta o erro que tá aparecendo porque fica melhor pra depurar esse seu código

não ta vindo os dados , tipo o email chega em branco e no campo remetente onde era pra vim assim

"nome_do_remetente<email_do_remetente@serv.com.>" tavindo assim

"=?ISO-8859-1?Q??= <email_do_remetente@serv.com.>" como resolvo isso???

[dark0]

entaum..

você precisa debugar onde está o erro.

o melhor modo de fazer isso, é ir dando response.write em todas as variaveis, uma a uma..

por exemplo

logo abaixo da linha que você captura o valor da variavel, como:

empresa1 = request...

você coloca

response.write empresa1

response.end

se a variavel pegou o valor corretamente, deverá aparecer na tela o conteudo exato dessa variavel.

e você precisa fazer isso por todas elas, até achar onde o valor não está ok.

e outra..

o que aquele arquivo de include faz?

o sendmail.asp

se é ele quem envia o email, você precisa, no mínimo colocar a linha de include no fim dele

faz isso ae, pra ver se resolve, senao, posta ae de novo

abraços