Fórum Contato
  
   O portal do desenvolvedor ASP Quinta-feira - 5 de Agosto de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 Erro no envio de indicação de site Atualizado em 22/08/2007 ás 20:53:00

Postado em 22/08/2007 ás 13:33:00
Oi pessoal blz...

Já postei pedido de ajuda em outros fóruns mas até agora não consegui resolver meu problema... o erro acontece neste link:

http://www.liftings.com.br/indique/recomende.asp

Já verifiquei com meu servidor de hospedagem se ele tem cdonts e tem sim e tá funcionando normal. Eles até me sugeriram partes deste código...

O problema é que não está informando se o formulário foi enviado, se houve algum erro ou algo assim... fico sem saber. O response não deu certo. Também não recebo as indicações feitas pelo site...

O que deve estar ocorrendo.

Podem me ajudar a identificar o problema.

Abaixo, segue código:


<% Function AbreBanco()
Set Banco = Server.CreateObject("ADODB.Connection")
Banco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\web\localuser\liftings\banco\banco.mdb;"

nome = request.form("nome")
email = request.form("email")
nome_amigo = request.form("nome_amigo")
email_amigo = request.form("emaila")
cad_dia = Request.Form("day(now)")
cad_mes = Request.Form("month(now)")
cad_ano = Request.Form("year(now)")
hora = Time()
ip = Request.ServerVariables("REMOTE_ADDR")

Sql = "INSERT INTO indique(nome, email, nome_amigo, emaila, data, hora, ip) VALUES('" & Request.Form("nome") & "', '" & Request.Form("email") & "', '" & Request.Form("nome_amigo") & "', '" & Request.Form("emaila") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "','"&Time()&"', '" & Request.servervariables("REMOTE_ADDR") & "')"
Set Rs = Conexao.Execute(Sql)


set mail = server.createobject("cdonts.newmail")
'Set objMail = Server.CreateObject("CDONTS.NewMail")
HTML = ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "Olá "& nome_amigo &"

"
HTML = HTML & "Você acabou de Receber uma recomendação

"
HTML = HTML & "Seguem os dados da tua recomendação

"
HTML = HTML & "Quem te indicou: "& nome &"
email: "& email &"

"
HTML = HTML & "Data da Indicação: "& day(now) & " / "& month(now) & " / "& year(now) & "

"
HTML = HTML & "Hora: " &time()&"
Seu IP: "&Request.ServerVariables("REMOTE_ADDR")&"

"
HTML = HTML & "Visite nosso Site: www.liftings.com.br"
HTML = HTML & ""
HTML = HTML & ""

mail.from = ""TEU NOME" <falecom@liftings.com.br>" '
mail.to = "Liftings <email>"
mail.subject = ""Indicação""
mail.body = "HTML"
mail.Importance = 3
mail.bodyformat = 0
mail.mailformat = 0
%>
on error resume next
mail.send
if err.number<>0 then
response.write("Erro")
else
response.write("Indicação enviada com sucesso!!!")
end if

set mail=nothing

End Function

Function FechaBanco()
Banco.Close
Set Banco = Nothing
End Function
%>

Postado em 22/08/2007 ás 20:53:00

Veja o erro agora:

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: 'Conexao'

/indique/sucesso.asp, line 16

Topo

Postado em 22/08/2007 ás 20:43:00

Faça o teste agora e veja se funciona!


<% 
    Set Banco = Server.CreateObject("ADODB.Connection")
    Banco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\web\localuser\liftings\banco\banco.mdb;"

nome = request.form("nome")
email = request.form("email")
nome_amigo = request.form("nome_amigo")
email_amigo = request.form("emaila")
cad_dia = Request.Form("day(now)")
cad_mes = Request.Form("month(now)")
cad_ano = Request.Form("year(now)")
hora = Time()
ip = Request.ServerVariables("REMOTE_ADDR")

Sql = "INSERT INTO indique(nome, email, nome_amigo, emaila, data, hora, ip) VALUES('" & Request.Form("nome") & "', '" & Request.Form("email") & "', '" & Request.Form("nome_amigo") & "', '" & Request.Form("emaila") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "','"&Time()&"',  '" & Request.servervariables("REMOTE_ADDR") & "')"
Set Rs = Conexao.Execute(Sql)


    HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
    HTML = HTML & "<html>"
    HTML = HTML & "<head>"
    HTML = HTML & "</head>"
    HTML = HTML & "<body bgcolor=""FFFFFF"">"
    HTML = HTML & "<font face=Verdana size=1>"
    HTML = HTML & "Olá "& nome_amigo &"<br><br>"
    HTML = HTML & "<b>Você acabou de Receber uma recomendação</b><br><br>"
    HTML = HTML & "Seguem os dados da tua recomendação<br><br>"
    HTML = HTML & "Quem te indicou: "& nome &"<br>email: "& email &"<br><br>"
    HTML = HTML & "Data da Indicação: "& day(now) & " / "& month(now) & " / "& year(now) & "<br><br>"
    HTML = HTML & "Hora: " &time()&" <br>Seu IP: "&Request.ServerVariables("REMOTE_ADDR")&" <br><br>"
    HTML = HTML & "Visite nosso Site: <a href=""www.liftings.com.br"">www.liftings.com.br</a>"
    HTML = HTML & "</body>"
    HTML = HTML & "</html>"


   from_email = "falecom@liftings.com.br"

   Server.CreateObject("CDONTS.NewMail")
    
    mail.from = nome & "<" & from_email & ">" 
    mail.to = email_amigo
    mail.subject = "Indicação"
    mail.body = HTML
    mail.Importance = 1
    mail.bodyformat = 0
    mail.mailformat = 0
    mail.send
    set mail=nothing

response.write("Indicação enviada com sucesso!!!") 
%>



JACK

Topo

Postado em 22/08/2007 ás 16:33:00

Alexandre meu código está assim:


<% Function AbreBanco()
    Set Banco = Server.CreateObject("ADODB.Connection")
        Banco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\web\localuser\liftings\banco\banco.mdb;"

nome = request.form("nome")
email = request.form("email")
nome_amigo = request.form("nome_amigo")
email_amigo = request.form("emaila")
cad_dia = Request.Form("day(now)")
cad_mes = Request.Form("month(now)")
cad_ano = Request.Form("year(now)")
hora = Time()
ip = Request.ServerVariables("REMOTE_ADDR")

Sql = "INSERT INTO indique(nome, email, nome_amigo, emaila, data, hora, ip) VALUES('" & Request.Form("nome") & "', '" & Request.Form("email") & "', '" & Request.Form("nome_amigo") & "', '" & Request.Form("emaila") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "','"&Time()&"',  '" & Request.servervariables("REMOTE_ADDR") & "')"
Set Rs = Conexao.Execute(Sql)


set mail = server.createobject(&quot;cdonts.newmail&quot;)
'Set objMail = Server.CreateObject("CDONTS.NewMail")
    HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
    HTML = HTML & "<html>"
    HTML = HTML & "<head>"
    HTML = HTML & "</head>"
    HTML = HTML & "<body bgcolor=""FFFFFF"">"
    HTML = HTML & "<font face=Verdana size=1>"
    HTML = HTML & "Olá "& nome_amigo &"<br><br>"
    HTML = HTML & "<b>Você acabou de Receber uma recomendação</b><br><br>"
    HTML = HTML & "Seguem os dados da tua recomendação<br><br>"
    HTML = HTML & "Quem te indicou: "& nome &"<br>email: "& email &"<br><br>"
    HTML = HTML & "Data da Indicação: "& day(now) & " / "& month(now) & " / "& year(now) & "<br><br>"
    HTML = HTML & "Hora: " &time()&" <br>Seu IP: "&Request.ServerVariables("REMOTE_ADDR")&" <br><br>"
    HTML = HTML & "Visite nosso Site: <a href=""www.liftings.com.br"">www.liftings.com.br</a>"
    HTML = HTML & "</body>"
    HTML = HTML & "</html>"
    
    mail.from = &quot;"TEU NOME" &lt;falecom@liftings.com.br&gt;&quot; '
    mail.to = &quot;Liftings &lt;email&gt;&quot;
    mail.subject = &quot;"Indicação"&quot;
    mail.body = &quot;HTML&quot;
    mail.Importance = 3
    mail.bodyformat = 0
    mail.mailformat = 0
    %&gt;
    on error resume next
mail.send
if err.number<>0 then
response.write("Erro")
else
response.write("Indicação enviada com sucesso!!!")
end if
    
    set mail=nothing

End Function

Function FechaBanco()
        Banco.Close
    Set Banco = Nothing
End Function
%>



Topo

Postado em 22/08/2007 ás 13:57:00
 Esta mensagem não foi útil ao usuário



Posta o código do envio de email.

Abs!

Alexandre de Luccia

=========================
A sorte se deixa vencer mais pelos audaciosos do que pelos prudentes.

Topo


Exibindo página 1 de 1 encontradas
SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados