:!: problema com formulário - :!:

[efrembk 0]

Pessoal estou com um problema esse código funcionava certinho até domingo e parou de funcionar do nada podem me ajudar???

 

/////////////////////////////////////////

<%

Dim iMail, Nome, Email, Endereco, Cidade, Estado, Produto, Qtde, Telefone, Comentario, Ddd

Nome = Request.form("nome") 
Email = Request.form("email") 
Endereco = Request.form("endereco")
Cidade = Request.form("cidade")
Estado = Request.form("estado")
Ddd = Request.form("ddd")
Telefone = Request.form("telefone")
Produto = Request.form("produto") 
Qtde = Request.form("qtde") 
Comentario = Request.form("comentario") 
meu_email = "vendas@kontechonline.com.br"
Assunto = "Carlos - Formulário de Contato - folder"

corpo1 = "Nome:" & Nome & "<BR>"
corpo2 = corpo & "E-mail: " & Email & "<BR>"
corpo3 = corpo & "Endereço:" & Endereco & "<BR>"
corpo4 = corpo & "Cidade:" & Cidade & "<BR>"
corpo5 = corpo & "Estado:" & Estado & "<BR>"
corpo6 = corpo & "DDD:" & Ddd & "<BR>"
corpo7 = corpo & "Telefone:" & Telefone & "<BR>"
corpo8 = corpo & "Produtos de interesse:" & Produto & "<BR>"
corpo9 = corpo & "Qtde de produtos:" & Qtde & "<BR>"
corpo10 = corpo & "Mensagem:" & Comentario & "<BR>"


  set mailer = server.createobject("SMTPsvg.Mailer")
  Mailer.FromName = sNameFrom
  Mailer.FromAddress = sEmailFrom
'Host para envio de emails
  Mailer.RemoteHost = "smtp2.locaweb.com.br"
  Mailer.AddRecipient sEmailTo, sNameTo
  Mailer.Subject = sAssunto  & " - E-mail"
  
Set iMail = CreateObject("CDONTS.NewMail")
iMail.From = email
iMail.To = meu_email
iMail.Subject = Assunto
iMail.MailFormat = 0
iMail.BodyFormat = 0
iMail.Body = corpo1 & corpo2 & corpo3 & corpo4 & corpo5 & corpo6 & corpo7 & corpo8 & corpo9 & corpo10 
iMail.Send

Response.write("<center>Enviado com Sucesso!")
Response.write("<a href=http://www.kontechonline.com.br>voltar</a>")

Set objMail = nothing
%>

////////////////////////////

[luizsnpjr 0]

Bom dia Efrembk, qual o erro?

[nagaozen 1]

Claro que se o código funcionava até domingo e ninguém alterou o código, ele continua funcionando, acho melhor verificar se mudou a configuração do host.

[efrembk 0]

O erro error '80070003'

bolaxa.asp, line 35

 

 

 

////////////////////////////////////////////////////

<% response.Buffer = True %>
<%
Dim iMail, Nome, Email, Endereco, Cidade, Estado, Produto, Qtde, Telefone, Comentario, Ddd

Nome = Request.form("nome") 
Email = Request.form("email") 
Endereco = Request.form("endereco")
Cidade = Request.form("cidade")
Estado = Request.form("estado")
Ddd = Request.form("ddd")
Telefone = Request.form("telefone")
Produto = Request.form("produto") 
Qtde = Request.form("qtde") 
Comentario = Request.form("comentario") 
meu_email = "vendas@kontechonline.com.br"
Assunto = "Carlos - Formulário de Contato - folder"

corpo = "Nome:" & Nome & "<BR>"
corpo = corpo & "E-mail: " & Email & "<BR>"
corpo = corpo & "Endereço:" & Endereco & "<BR>"
corpo = corpo & "Cidade:" & Cidade & "<BR>"
corpo = corpo & "Estado:" & Estado & "<BR>"
corpo = corpo & "DDD:" & Ddd & "<BR>"
corpo = corpo & "Telefone:" & Telefone & "<BR>"
corpo = corpo & "Produtos de interesse:" & Produto & "<BR>"
corpo = corpo & "Qtde de produtos:" & Qtde & "<BR>"
corpo = corpo & "Mensagem:" & Comentario & "<BR>"

Set iMail = CreateObject("CDONTS.NewMail")
iMail.From = email
iMail.To = meu_email
iMail.Subject = Assunto
iMail.MailFormat = 0
iMail.BodyFormat = 0
iMail.Body = corpo
iMail.Send

Response.write( "<BR><BR><BR><BR><center> Enviado com Sucesso!<br>")
Response.write( "<a href=http://www.kontechonline.com.br>voltar</a>" )

Set objMail = nothing
%>

///////////////////////////////////////////////////////////////////////////////////////////////

[Salgado 4]

Verifique em sua hospedagem se ainda é oferecido o CDONTS, pois ele foi substituído pelo CDOSYS.

[Mário Monteiro 179]

qual é exatamente a linha do erro?