Erro com EOF....

[jrcardozo 4]

você já fez o na página que cadastra exatamente como expliquei anteriormente?o que escrevi é justamente para verificar se foi gravado!obs(existe outra maneira para verificar se houve erro na gravação, mas eu acho mais seguro(pois a outra maneira não verifica se houve erro no envio dos dados, apenas erro na execussão do sql) e facil de entender a logica fazendo uma nova pesquisa no banco, para você que está iniciando acho recomendavel fazer assim)faça as alterações como expliquei e depois vamos para o codigo do cdonts

[PRISCILA STOCHINI 0]

Posso te pedir um favor, vou te passar o codigo e você coloca pra mim nos lugares certos..pq eu não estou conseguindo entender onde é para por...????

 

Se possivel identifique onde colocou pra que eu possa aprender...

 

<!--#include file="conectando.asp"--><%Vdata = Request.Form("data")Vusuario = Request.Form("usuario")Vcontato = Request.Form("contato")Vcodigo = Request.Form("codigo")Vemail = Request.Form("email")Vddd = Request.Form("ddd")Vtel = Request.Form("tel")Vsoftware = Request.Form("software")Vversao = Request.Form("versao")Vrelease = Request.Form("release")Vversaoauto = Request.Form("versaoauto")Vwin = Request.Form("win")Vtipo = Request.Form("tipo")Vduvida = Request.Form("duvida")sql = "INSERT into suptec ([data], [usuario], [contato],[codigo], [email], [ddd], [tel], [software], [versao], [release], [win], [versaoauto], [tipo], [duvida], [pendencia])  values (#"&Vdata&"#,'"&Vusuario&"','"&Vcontato&"','"&Vcodigo&"','"&Vemail&"', '"&Vddd&"', '"&Vtel&"','"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"','"&Vwin&"', '"&Vversaoauto&"','"&Vtipo&"','"&Vduvida&"', true)"Set rs = bco.Execute(sql)Response.Write(sql)bco.CloseSet bco = NothingURL = "http://www.cype.com.br"response.redirect(URL) %>

[jrcardozo 4]

abaixo o código(ainda não está enviando por email!!! temos que criar o objeto e estrutura-lo)

 

<!--#include file="conectando.asp"--><%'recuperando dados do formulárioVdata = Request.Form("data")Vusuario = Request.Form("usuario")Vcontato = Request.Form("contato")Vcodigo = Request.Form("codigo")Vemail = Request.Form("email")Vddd = Request.Form("ddd")Vtel = Request.Form("tel")Vsoftware = Request.Form("software")Vversao = Request.Form("versao")Vrelease = Request.Form("release")Vversaoauto = Request.Form("versaoauto")Vwin = Request.Form("win")Vtipo = Request.Form("tipo")Vduvida = Request.Form("duvida")'inserindo no banco os registrossql = "INSERT into suptec ([data], [usuario], [contato],[codigo], [email], [ddd], [tel], [software], [versao], [release], [win], [versaoauto], [tipo], [duvida], [pendencia])  values (#"&Vdata&"#,'"&Vusuario&"','"&Vcontato&"','"&Vcodigo&"','"&Vemail&"', '"&Vddd&"', '"&Vtel&"','"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"','"&Vwin&"', '"&Vversaoauto&"','"&Vtipo&"','"&Vduvida&"', true)"Set rs = bco.Execute(sql)'selecionando o registro cadastrado para preparar o envio de emailsql = "Select * from suptec where codigo = "'&Vcodigo&'"'executando recordset para pesquisar se os dados foram cadastradosSet rs = bco.Execute(sql)'verificando se houve erro, se não houve envia por emailif rs.eof then  response.write("Registro não encontrado.Erro na gravação")else'código para enviar o e-mail 'redireciona para a página após o envio do email URL = "http://www.cype.com.br" response.redirect(URL) end if'fechando e destuindo a conexãobco.CloseSet bco = Nothing%>

seria basicamente isso.....vamos preparar o codigo para envio do email.....qual o codigo que você tem ai para isso?

[PRISCILA STOCHINI 0]

Uso esse!!!'Chamamos o componente e enviamos o emailSet myMail = CreateObject("CDONTS.NewMail") myMail.From = "www.cype.com.br" myMail.To = "teste@cype.com.br"myMail.Subject = "XXXXXXXXXXX"myMail.BodyFormat = 0 myMail.MailFormat = 0myMail.Body = HTML myMail.Send Set myMail = Nothing

[jrcardozo 4]

no código que passei pra você, apague essas linhas:

'redireciona para a página após o envio do emailURL = "http://www.cype.com.br"response.redirect(URL)

e coloque essas que são responsaveis pelo envio do email:

 

'definimos o endereço de email que irá enviar o emailVmail = "emailDaEmpresa@empresa.com.br"'criamos o obejto do cdontsSet EnviarMail = Server.CreateObject("CDONTS.NewMail")'recebe o valor do recordset com o email cadastradoEnviarMail.To = rs("email")'recebe o email de quem envia da variavel  VmailEnviarMail.From = Vmail'Assunto do emailEnviarMail.Subject = "Teste de email"'corpo do email armazenado na variavelMsgBody = "<html>" _& "<head>" _& "</head>" _& "<body bgcolor=""#FFFFFF"">" _& "<p align=""center"">Suas informações foram recebidas</p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>Obrigado pela preferencia</b></font></p>" _& "</body>" _& "</html>"'propriedade recebe a variavel do corpo do emailEnviarMail.Body = MsgBodyEnviarMail.Importance = 1EnviarMail.BodyFormat = 0EnviarMail.MailFormat = 0If EnviarMail.Send Then'redireciona para a página após o envio do emailURL = "http://www.cype.com.br"response.redirect(URL) else'se ocorrer erro no envio de email exibe a mensagemresponse.write("ops!Email não enviado. Erro:"& EnviarMail.Response)end if'fecha o objeto cdontsSet EnviarMail = Nothing

depois configure da maneira que achar conveniente

[PRISCILA STOCHINI 0]

então endereço para qual será enviado tem que ser o q o usuario digitou no formulario...foi isso que você colocou aki..???

[jrcardozo 4]

é isso ai, só que não receberá da variavel, mas sim do recordset pois ele retorna com o email que foi cadastrado

 

antes que eu esqueça, qual a chave primaria da sua tabela suptec?

[PRISCILA STOCHINI 0]

Criei uma variavel id...pq o codigo é o codigo do usuario...

 

'definimos o endereço de email que irá enviar o email

Vemail = "emailDaEmpresa@empresa.com.br"

 

Essa parte deixa assim mesmo...ou coloco alguma coisa...

[jrcardozo 4]

neste campo Vemail = "emailDaEmpresa@empresa.com.br" você deve colocar o endereço de email completo da empresa

 

cada usuário tem apenas um código ou um usuário pode ter varios codigos diferentes??

[PRISCILA STOCHINI 0]

Da minha empresa ...né..um email para resposta você diz, um email to??

[jrcardozo 4]

vamos supor que você seja a pessoa responsavel em comunicar que o cadastro foi efetuado...então o email chegaria assim para o cliente

 

DE: priscila@nomedaempresa.com.br

 

Para: mecadastrienosite@gmail.com

 

neste exemplo você deve passar para essa variavel Vemail o seu endereço de email

 

Vemail = "priscila@nomedaempresa.com.br"

[PRISCILA STOCHINI 0]

Ah tá...

 

Fico com esse Codigo então...

 

<title>Multiplus - Softwares Técnicos</title><!--#include file="conectando.asp"--><%'recuperando dados do formulárioVdata = Request.Form("data")Vusuario = Request.Form("usuario")Vcontato = Request.Form("contato")Vcodigo = Request.Form("codigo")Vemail = Request.Form("email")Vddd = Request.Form("ddd")Vtel = Request.Form("tel")Vsoftware = Request.Form("software")Vversao = Request.Form("versao")Vrelease = Request.Form("release")Vversaoauto = Request.Form("versaoauto")Vwin = Request.Form("win")Vtipo = Request.Form("tipo")Vduvida = Request.Form("duvida")'inserindo no banco os registrossql = "INSERT into suptec ([data], [usuario], [contato],[codigo], [email], [ddd], [tel], [software], [versao], [release], [win], [versaoauto], [tipo], [duvida], [pendencia])  values (#"&Vdata&"#,'"&Vusuario&"','"&Vcontato&"','"&Vcodigo&"','"&Vemail&"', '"&Vddd&"', '"&Vtel&"','"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"','"&Vwin&"', '"&Vversaoauto&"','"&Vtipo&"','"&Vduvida&"', true)"Set rs = bco.Execute(sql)'selecionando o registro cadastrado para preparar o envio de emailsql = "Select * from suptec where id = "'&Vid&'"'executando recordset para pesquisar se os dados foram cadastradosSet rs = bco.Execute(sql)'verificando se houve erro, se não houve envia por emailif rs.eof then response.write("Registro não encontrado.Erro na gravação")else'definimos o endereço de email que irá enviar o emailVemail = "multitecnico@multiplus.com"'criamos o obejto do cdontsSet EnviarMail = Server.CreateObject("CDONTS.NewMail")'recebe o valor do recordset com o email cadastradoEnviarMail.To = rs("email")'recebe o email de quem envia da variavel  VmailEnviarMail.From = Vmail'Assunto do emailEnviarMail.Subject = "Teste de email"'corpo do email armazenado na variavelMsgBody = "<html>" _& "<head>" _& "</head>" _& "<body bgcolor=""#FFFFFF"">" _& "<p align=""center"">Suas informações foram recebidas</p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>Obrigado pela preferencia</b></font></p>" _& "</body>" _& "</html>"'propriedade recebe a variavel do corpo do emailEnviarMail.Body = MsgBodyEnviarMail.Importance = 1EnviarMail.BodyFormat = 0EnviarMail.MailFormat = 0If EnviarMail.Send Thenelse'se ocorrer erro no envio de email exibe a mensagemresponse.write("ops!Email não enviado, houve um erro no cadastramento. Erro:"& EnviarMail.Response)end if'fecha o objeto cdontsSet EnviarMail = Nothingend if'fechando e destuindo a conexãobco.CloseSet bco = Nothing%>

Só eu publicar e testar??

[jrcardozo 4]

isso mesmo, só tem um probleminha.....responde pra mim a ultima pergunta que fiz

cada usuário tem apenas um código ou um usuário pode ter varios codigos diferentes??

a variavel que criou não será necessaria, mas precisamos saber quais os campos podemus usar como parametro

[PRISCILA STOCHINI 0]

Cada usuario tem um codigo de acesso....este codigo que coloco no codigo asp é o codigo do usuario...criei um campo id no BD...para ficar como se fosse o codigo unico da duvida....Estou com esse...Acho que é pq não chamei a variavel ID..Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'id ='. /ASP/envia_suporte.asp, line 29

[jrcardozo 4]

então deixe essa linha como estava

 

de:

 

sql = "Select * from suptec where id = "'&Vid&'"

 

para esse que fica correto

 

sql = "Select * from suptec wherecodigo = "'&Vcodigo&'"

 

 

depois disso faça o teste

[PRISCILA STOCHINI 0]

Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'codigo ='. /ASP/envia_suporte.asp, line 29 deu esse erro!!!

[jrcardozo 4]

você trocou o sql como coloquei aqui no outro post?você preencheu TODOS os campos, principalmente o campo código?

[PRISCILA STOCHINI 0]

sim...

[jrcardozo 4]

poste a linha 29 que ocorre o erro(a linha do sql)

[PRISCILA STOCHINI 0]

sql = "INSERT into suptec ([data], [usuario], [contato],[codigo], , [ddd], [tel], [software], [versao], [release], [win], [versaoauto], [tipo], [duvida], [pendencia]) values (#"&Vdata&"#,'"&Vusuario&"','"&Vcontato&"','"&Vcodigo&"','"&Vemail&"', '"&Vddd&"', '"&Vtel&"','"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"','"&Vwin&"', '"&Vversaoauto&"','"&Vtipo&"','"&Vduvida&"', true)"

Set rs = bco.Execute(sql)

 

'selecionando o registro cadastrado para preparar o envio de email

sql = "Select * from suptec where codigo = "'&Vcodigo&'"

 

'executando recordset para pesquisar se os dados foram cadastrados

Set rs = bco.Execute(sql)