Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

PRISCILA STOCHINI

Erro com EOF....

Por , em ASP Clássico

Recommended Posts

jrcardozo    4

jrcardozo
Postado

quanto a data....você trocou a instrução sql pela que te passei?criou o campo que te disse pra criar na tabela com o formato data com o mesmo nome dataEnvio?

criar do zero!Problema DATA resolvido!!!

que bom...agora só faz um formulário que passe o parametro codigo e execute o sql de update que te passei

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRISCILA STOCHINI    0

PRISCILA STOCHINI
Postado

Assim, mexi em algum lugar que parou de enviar o email...

tava enviando....

 

 

No meu BD, o campo data é a primeira coisa...Tá certo como coloquei..

 

<title>Multiplus - Softwares Técnicos</title><!--#include file="conectando.asp"--><%'recuperando dados do formulárioVusuario = 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 (#"&date()&"#,'"&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'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 VemailEnviarMail.From = Vemail'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 = 0EnviarMail.Send 'fecha o objeto cdontsSet EnviarMail = NothingIf Err.Number <> 0 Thenresponse.write("Erro:" & Err.Description &".")Elseresponse.write("email enviado")End IfEnd if'fechando e destuindo a conexãobco.CloseSet bco = NothingURL = "http://www.multiplus.com"response.redirect(URL) %>

Agora foi tudo certinho....

 

Vamos mudar de Duvida....

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

se você mexeu em algo e parou, então você tem que desfazer a alteração. Onde está o backup com o script funcionando!?quanto a data....você quer gravar no campo da tabela data a data do servidor?? se é isso então temos que modificar

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRISCILA STOCHINI    0

PRISCILA STOCHINI
Postado

Bom só quero poder alterar um campo....

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Multiplus - Software Técnicos</title></head><body><div id="Layer1" style="position:absolute; left:10px; top:10px; width:990px; height:580px; z-index:1;">  <table width="725" border="1" align="center" cellspacing="1" bordercolor="#CCCCCC">	<tr>	  <td colspan="12"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Relatório de Pendências de Dúvidas do SIM </span></div></td>	</tr>	<tr>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Date</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Código</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Usuario</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Contato</span></div></td>	  <td><div align="center" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">		<div align="center">Email</div>	  </div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">DDD</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Tel</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Tipo</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Software</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Dúvida</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">STATUS</span></div></td>	</tr>	<%rs.MoveFirst 			  Do While Not rs.eof		  %>	<tr>	  <td width="54"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("data")%></span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("codigo")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("usuario")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("contato")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("email")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("ddd")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("tel")%></span></div></td>	  <td width="34"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("tipo")%></span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("software")%></span></div>		  <div align="center"></div></td>	  <td width="308"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("duvida")%></span></div></td>	  <td nowrap="nowrap"><div align="center">		<select name="ativa">		  <option value="s"<%If rs("pendencia") = True then Response.Write ("selected")%>>Sim</option>		  <option value="n" <%If rs("pendencia") = False then Response.Write ("selected")%>>Não</option>		</select>	  </div></td>	</tr>	<%					   rs.movenextLooprs.closeSet rs=nothingbco.closeSet rs=nothing%>  </table>  <br />  <div align="center">	<input type="submit" name="Submit" value="ATUALIZAR" />  </div></div><input type="hidden" name="codigo" value="<%=Vcodigo%>" /></body></html>

 

O que eu posso fazer...

quero modificar apenas o campo STATUS.... e atualizar o BD

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

é só você fazer da mesma maneira que fez para inserir, só que agora você tem que criar outra página que irá executar o código do updade, a instrução sql já te passei, você só tem que repetir a logica de como inseriu

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

olha....você fez um formulário de cadastro e uma página que recebe os dados para gravar e enviar o emailagora você tem que ter um formulário que carregue os dados e deixe a opção do status pro usuario alterar e ainda criar uma página para receber o valor do status...nessa outra página você faz o request.form("status") é request.form("codigo") e atualiza na tabela com o sql que passei

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRISCILA STOCHINI    0

PRISCILA STOCHINI
Postado

Então esse codigo que passei é da pagina que vai ser utilizada para fazer a alteração....

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Multiplus - Software Técnicos</title></head><body><div id="Layer1" style="position:absolute; left:10px; top:10px; width:990px; height:580px; z-index:1;">  <table width="725" border="1" align="center" cellspacing="1" bordercolor="#CCCCCC">	<tr>	  <td colspan="12"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Relatório de Pendências de Dúvidas do SIM </span></div></td>	</tr>	<tr>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Date</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Código</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Usuario</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Contato</span></div></td>	  <td><div align="center" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">		<div align="center">Email</div>	  </div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">DDD</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Tel</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Tipo</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Software</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Dúvida</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">STATUS</span></div></td>	</tr>	<%rs.MoveFirst 			  Do While Not rs.eof		  %>	<tr>	  <td width="54"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("data")%></span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("codigo")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("usuario")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("contato")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("email")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("ddd")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("tel")%></span></div></td>	  <td width="34"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("tipo")%></span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("software")%></span></div>		  <div align="center"></div></td>	  <td width="308"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("duvida")%></span></div></td>	  <td nowrap="nowrap"><div align="center">		<select name="ativa">		  <option value="s"<%If rs("pendencia") = True then Response.Write ("selected")%>>Sim</option>		  <option value="n" <%If rs("pendencia") = False then Response.Write ("selected")%>>Não</option>		</select>	  </div></td>	</tr>	<%					   rs.movenextLooprs.closeSet rs=nothingbco.closeSet rs=nothing%>  </table>  <br />  <div align="center">	<input type="submit" name="Submit" value="ATUALIZAR" />  </div></div><input type="hidden" name="codigo" value="<%=Vcodigo%>" /></body></html>

E está para fazer o UPDATE dos dados...Mas está com erro....

 

<%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")Vpendencia = Request.Form("pendencia")if Vpendencia = "s" then	Vpendencia = 1else	Vpendencia = 0end ifsql = "Update suptec Set pendencia = "Vpendencia" where codigo = "Vcodigo"Set rs = bco.Execute(sql)%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title></head><body><div id="Layer1" style="position:absolute; left:10px; top:10px; width:990px; height:580px; z-index:1;">  <table width="725" border="1" align="center" cellspacing="1" bordercolor="#CCCCCC">	<tr>	  <td colspan="12"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Relatório de Pendências de Dúvidas do SIM </span></div></td>	</tr>	<tr>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Date</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Código</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Usuario</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Contato</span></div></td>	  <td><div align="center" style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">		<div align="center">Email</div>	  </div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">DDD</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Tel</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Tipo</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Software</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Dúvida</span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">STATUS</span></div></td>	</tr>	<%rs.MoveFirst 			  Do While Not rs.eof		  %>	<tr>	  <td width="54"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("data")%></span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("codigo")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("usuario")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("contato")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("email")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("ddd")%></span></div></td>	  <td width="115"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("tel")%></span></div></td>	  <td width="34"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("tipo")%></span></div></td>	  <td><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("software")%></span></div>		  <div align="center"></div></td>	  <td width="308"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("duvida")%></span></div></td>	  <td nowrap="nowrap"><div align="center">		<select name="ativa">		  <option value="s"<%If rs("pendencia") = True then Response.Write ("selected")%>>Sim</option>		  <option value="n" <%If rs("pendencia") = False then Response.Write ("selected")%>>Não</option>		</select>	  </div></td>	</tr>	<%					   rs.movenextLooprs.closeSet rs=nothingbco.closeSet rs=nothing%>  </table>   <br />  <div align="center">	<input type="submit" name="Submit" value="ATUALIZAR" />  </div></div></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

priscila, sempre que ocorre um erro você tem que colocar a descrição!! não somos videntes, apenas meros trocadores de conhecimento,lembra!?

 

olhando por cima tem mais um erro de aspas e concatenação no sql!!!

 

cuidado com esses pequenos erros, você pode passar horas pra resolver algo simples, abaixo o codigo correto:

 

sql = "Update suptec Set pendencia = "&Vpendencia&" where codigo = "'"&Vcodigo&"'"

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

você moveu o recordset para o primeiro registro...mas onde está o código que seleciona os dados e armazena no recordset??

 

acima disso só tem htm, nada de código asp!!!

 

	<%rs.MoveFirst 			  Do While Not rs.eof		  %>	<tr>

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRISCILA STOCHINI    0

PRISCILA STOCHINI
Postado 

<!--#include file="conectando.asp"-->	<% sql = "Select data, codigo, usuario, contato, email, ddd, tel, tipo, software, duvida, pendencia From suptec Where pendencia = true"	Set rs = bco.Execute(sql)%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Multiplus - Software Técnicos</title></head><body><div id="Layer1" style="position:absolute; left:10px; top:10px; width:990px; height:580px; z-index:1;">  <table width="725" border="1" align="center" cellspacing="1" bordercolor="#CCCCCC">	<tr>	  <td colspan="12"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Relatório de Pendências de Dúvidas do SIM </span></div></td>	</tr>	<tr>	  <td>[...]

Bom agora só não estou conseguindo fazer o UPDATE!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRISCILA STOCHINI    0

PRISCILA STOCHINI
Postado

Microsoft VBScript runtime error '800a01a8' Object required: 'bco' /ASP/alterapendencia2.asp, line 26 Deu esse erro...else Vpendencia = 0end ifLINE 26 sql = "Update suptec Set pendencia = "&Vpendencia&" where codigo = "'"&Vcodigo&"'"Set rs = bco.Execute(sql) rs.movenextLoop

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

você tem que fazer o include no inicio da página do conectando.asp(acho que era esse o nome do arquivo)é isso mesmo, coloque essa linha<!--#include file="conectando.asp"-->no inicio desta página alterapendencia2.asp

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRISCILA STOCHINI    0

PRISCILA STOCHINI
Postado

Mas tem...

 

<!--#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")Vpendencia = Request.Form("pendencia")if Vpendencia = "s" then	Vpendencia = 1else	Vpendencia = 0end ifsql = "Update suptec Set pendencia = "&Vpendencia&" where codigo = "'"&Vcodigo&"'"Set rs = bco.Execute(sql)		rs.movenextLooprs.closeSet rs=nothingbco.closeSet rs=nothingURL = "relatorio.asp"Response.Redirect(URL)%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

vamos enxugar esse codigo

 

 

 

<!--#include file="conectando.asp"-->		<%Vcodigo = Request.Form("codigo")Vpendencia = Request.Form("pendencia")if Vpendencia = "s" then	Vpendencia = 1else	Vpendencia = 0end ifsql = "Update suptec Set pendencia = "&Vpendencia&" where codigo = "'"&Vcodigo&"'"Set rs = bco.Execute(sql)bco.closeURL = "relatorio.asp"Response.Redirect(URL)%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRISCILA STOCHINI    0

PRISCILA STOCHINI
Postado

Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'codigo ='. /ASP/alterapendencia2.asp, line 11 deu esse erro...sql = "Update suptec Set pendencia = "&Vpendencia&" where codigo = "'"&Vcodigo&"'"

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito