Erro com EOF....

jrcardozo · Setembro 29, 2006

deu erro porque você não colocou como disse.....Vcodigo é do tipo text, então primeiro aspas simples, depois aspas duplas e depois concatena....você colocou ao contrario e não fechou a instrução sql

abaixo corrigito...troque essa linha

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

PRISCILA STOCHINI · Setembro 29, 2006

PS.:Bom outra pergunta, (enquanto tem gente no pc que faz as publicações), quero inserir a data da duvida, junto com o dados... eu fiz um campo input tipo hidden com valor <%&Date&%>, mas está dando erro qual pode ser o problema...acredito que seja como escrevi <%&DATE&%>...

Continua dando esse erro...

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'codigo ='.

/ASP/envia_suporte.asp, line 29

<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 codigo = '"&Vcodigo&"'s'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%>

Pelo que eu pude perceber está cadastrando no banco, mas Não está enviando o email...

jrcardozo · Setembro 29, 2006

primeiro.....está cadastrando?está enviando o email corretamente?depois de responder isso vamos para proxima duvida

PRISCILA STOCHINI · Setembro 29, 2006

Cadastrando está...só naõ está enviando o email...

jrcardozo · Setembro 29, 2006

mas acusa algum erro?se não me falha a memória o cdonts tem um problema de levar alguns "minutos" pra conseguir enviar...se alguem ai souber mais informações sobre cdonts pota ai pra sabermos. priscila, quanto a data.....você já criou na tabela o campo data do tipo data?

PRISCILA STOCHINI · Setembro 29, 2006

O unico erro que está dando é esse..

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/ASP/envia_suporte.asp, line 26

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

--------------------------------------------------------^

'inserindo no banco os registros

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&"'

jrcardozo · Setembro 29, 2006

o código que você colocou é esse

sql = [b][color="#cc0000"]" [/color][/b]Select * from suptec where codigo = [color="#3333ff"][b]' [/b][/color][color="#663366"][b]"[/b] [/color]& Vcodigo & [color="#993399"][b]"[/b] [/color][color="#3333ff"][b]'[/b][/color]

priscila....cuidado com as aspas ...veja o correto

[size="3"]sql = [b][color="#cc0000"]" [/color][/b]Select * from suptec where codigo = [color="#3333ff"][b]' [/b][/color][color="#663366"][b]"[/b] [/color]& Vcodigo & [color="#993399"][b]"[/b] [/color][color="#3333ff"][b]'[/b][/color] [color="#cc0000"][b]"[/b][/color][/size]

no seu código falta a ultima aspas duplas que fecha a string do sql(destacada na cor vermelha)

desculpa...esqueci que o a tag code dá erro na formatação...abaixo somente com texto

----------------------------------

o código que você colocou

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

priscila....cuidado com as aspas ...veja o correto

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

no seu código falta a ultima aspas duplas que fecha a string do sql(destacada na cor vermelha)

PRISCILA STOCHINI · Setembro 29, 2006

Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'EnviarMail.Response' /ASP/envia_suporte.asp, line 76 O que seria esse Erro..???

jrcardozo · Setembro 29, 2006

erro meu...troque

If 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

por

EnviarMail.Send If Err.Number <> 0 Thenresponse.write("Erro:" & Err.Description &".")Elseresponse.write("email enviado")End If

PRISCILA STOCHINI · Setembro 29, 2006

if 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 = "Confirmação de cadastro"'corpo do email armazenado na variavelHTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"HTML = HTML & "<html>"HTML = HTML & "<head>"HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>CADASTROS</title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#FFFFFF"">"HTML = HTML & "<p style=""font-family: Arial, Helvetica, sans-serif; font-size: 24px"">MULTIPLUS</span><br/>"HTML = HTML & "<span style=""font-size: 14px"">Softwares Técnicos</span></p>"HTML = HTML & "<p align=""center"" style=""font-size: 18px; font-family: Arial, Helvetica, sans-serif; color: #FF0000"">Seu cadastro foi efetuado com sucesso, aguarde novas informações. </p>"HTML = HTML & "</body>"HTML = HTML & "</html>"'propriedade recebe a variavel do corpo do emailEnviarMail.Body = HTMLEnviarMail.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

esse é o codigo...e mudo tudo...!!!

jrcardozo · Setembro 29, 2006

mocinha....veja só como deve ficar!

<title>Multiplus - Softwares Técnicos</title>

<%

'recuperando dados do formulário

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")

'inserindo no banco os registros

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)

'verificando se houve erro, se não houve envia por email

if rs.eof then

response.write("Registro não encontrado.Erro na gravação")

else

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

Vemail = "multitecnico@multiplus.com"

'criamos o obejto do cdonts

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

'recebe o valor do recordset com o email cadastrado

EnviarMail.To = rs("email")

'recebe o email de quem envia da variavel Vmail

EnviarMail.From = Vmail

'Assunto do email

EnviarMail.Subject = "Teste de email"

'corpo do email armazenado na variavel

MsgBody = "<html>" _

& "<head>" _

& "</head>" _

& "<body bgcolor=""#FFFFFF"">" _

& "Suas informações foram recebidasObrigado pela preferencia" _

& "</body>" _

& "</html>"

'propriedade recebe a variavel do corpo do email

EnviarMail.Body = MsgBody

EnviarMail.Importance = 1

EnviarMail.BodyFormat = 0

EnviarMail.MailFormat = 0

EnviarMail.Send

'fecha o objeto cdonts

Set EnviarMail = Nothing

If Err.Number <> 0 Then

response.write("Erro:" & Err.Description &".")

Else

response.write("email enviado")

End If

'fechando e destuindo a conexão

bco.Close

Set bco = Nothing

%>

PRISCILA STOCHINI · Setembro 29, 2006

Microsoft VBScript compilation error '800a03f6' Expected 'End' /ASP/envia_suporte.asp, line 78

jrcardozo · Setembro 29, 2006

apenas escreva na linha 78 o que está abaixo

end if

todo if deve ter end if, foi aberto um no inicio do codigo, então devemos "fecha-lo"

PRISCILA STOCHINI · Setembro 29, 2006

Agora podemos ver o negocio da data???

jrcardozo · Setembro 29, 2006

o email foi enviado?se ok com o email podemos ver a datapelo que entendi você quer que grave a data do servidor quando for gravado no banco, certo?se é isso, você ja criou um campo na tabela suptec com o tipo data?

PRISCILA STOCHINI · Setembro 29, 2006

Estou verificando o email...EMAIL OKE sobre a data é isso mesmo...

jrcardozo · Setembro 29, 2006

apague SOMENTE esta parte:

'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)

e coloque no lugar esta:

'inserindo no banco os registrossql = "INSERT into suptec ([data], [usuario], [contato],[codigo], [email], [ddd], [tel], [software], [versao], [release], [win], [versaoauto], [tipo], [duvida], [pendencia],[dataEnvio]) values (#"&Vdata&"#,'"&Vusuario&"','"&Vcontato&"','"&Vcodigo&"','"&Vemail&"', '"&Vddd&"', '"&Vtel&"','"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"','"&Vwin&"', '"&Vversaoauto&"','"&Vtipo&"','"&Vduvida&"', true,#"&date()&"#)"Set rs = bco.Execute(sql)

note que adicionei um campo no sql chamado de dataEnvio e seu formato deve ser do tipo data, esse nome deve estar na tabela, nos VALUES que irão ser adicionados na tabela acrescentei a função date(), ela vai pegar a data do servidor e gravar no banco no momento do registro

PRISCILA STOCHINI · Setembro 29, 2006

Agora, um outro e ultimo problema...Eu tenho um relatorio da duvidas pendentes....até tá tudo certo..o meu problema agora tá sendo alterar(fazer o update) do status da duvida...Como posso fazer isso???Deu esse erro com a Data!!Microsoft JET Database Engine error '80040e14' Number of query values and destination fields are not the same. /ASP/envia_suporte.asp, line 22

jrcardozo · Setembro 29, 2006

a instrução sql é essa

sql="update suptec set pendencia =false where codigo='"&Vcodigo&"'"

nossa, você tem um problema pra resolver ou está criando algo do zero??

PRISCILA STOCHINI · Setembro 29, 2006

criar do zero!Problema DATA resolvido!!!

Arquivado

Erro com EOF....

Recommended Posts

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0