Ir para conteúdo

POWERED BY:

Arquivado

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

Ivan.Teles

Erro no UPDATE

Por , em ASP Clássico

Recommended Posts

Ivan.Teles    23

Ivan.Teles
Postado 

<%

var_id = Trim(Request.QueryString("id"))

var_caso = Trim(Replace(Request.Form("caso"),chr(39),"''"))

var_estatus = Trim(Replace(Request.Form("estatus"),chr(39),"''"))

var_cnpj = Trim(Replace(Request.Form("CNPJ"),chr(39),"''"))

var_nec = Trim(Replace(Request.Form("N_EC"),chr(39),"''"))

var_razasocial = Trim(Replace(Request.Form("Raza_Social"),chr(39),"''"))

var_endereco = Trim(Replace(Request.Form("Endereco"),chr(39),"''"))

var_nome = Trim(Replace(Request.Form("Nome"),chr(39),"''"))

var_rg = Trim(Replace(Request.Form("RG"),chr(39),"''"))

var_funcao = Trim(Replace(Request.Form("Funcao"),chr(39),"''"))

var_tempodeec = Trim(Replace(Request.Form("Tempo_de_EC"),chr(39),"''"))

var_data = Trim(Replace(Request.Form("Data"),chr(39),"''"))

var_hypercom = Trim(Replace(Request.Form("Hypercom"),chr(39),"''"))

var_outrosmodelos = Trim(Replace(Request.Form("Outros_Modelos"),chr(39),"''"))

var_qual = Trim(Replace(Request.Form("Qual"),chr(39),"''"))

var_localizacao = Trim(Replace(Request.Form("Localizacao"),chr(39),"''"))

var_aberto = Trim(Replace(Request.Form("Aberto"),chr(39),"''"))

var_problemanoterminal = Trim(Replace(Request.Form("Problema_no_terminal"),chr(39),"''"))

var_melhorarterminal = Trim(Replace(Request.Form("Melhorar_terminal"),chr(39),"''"))

var_visita = Trim(Replace(Request.Form("Visita"),chr(39),"''"))

var_semvisita = Trim(Replace(Request.Form("Sem_visita"),chr(39),"''"))

var_cameraevideo = Trim(Replace(Request.Form("Camera_e_Video"),chr(39),"''"))

var_vigias = Trim(Replace(Request.Form("Vigias"),chr(39),"''"))

var_sem = Trim(Replace(Request.Form("Sem"),chr(39),"''"))

var_outros = Trim(Replace(Request.Form("Outros"),chr(39),"''"))

var_qualsistema = Trim(Replace(Request.Form("Qual_Sistema"),chr(39),"''"))

var_conveniencia = Trim(Replace(Request.Form("Conveniencia"),chr(39),"''"))

var_lavarapido = Trim(Replace(Request.Form("lava_rapido"),chr(39),"''"))

var_restaurante = Trim(Replace(Request.Form("Restaurante"),chr(39),"''"))

var_trocadeoleo = Trim(Replace(Request.Form("troca_de_oleo"),chr(39),"''"))

var_borracheiro = Trim(Replace(Request.Form("Borracheiro"),chr(39),"''"))

var_outraloja = Trim(Replace(Request.Form("Outra_loja"),chr(39),"''"))

var_qualloja = Trim(Replace(Request.Form("Qual_loja"),chr(39),"''"))

var_naotem = Trim(Replace(Request.Form("Nao_tem"),chr(39),"''"))

var_atmnao = Trim(Replace(Request.Form("Atm_nao"),chr(39),"''"))

var_atmsim = Trim(Replace(Request.Form("Atm_sim"),chr(39),"''"))

var_quaisatm = Trim(Replace(Request.Form("Quais_Atm"),chr(39),"''"))

var_qualporte = Trim(Replace(Request.Form("Qual_porte"),chr(39),"''"))

var_debito = Trim(Replace(Request.Form("Debito"),chr(39),"''"))

var_credito = Trim(Replace(Request.Form("Credito"),chr(39),"''"))

var_osdois = Trim(Replace(Request.Form("Os_dois"),chr(39),"''"))

var_nomeres = Trim(Replace(Request.Form("Nome_res"),chr(39),"''"))

var_rgres = Trim(Replace(Request.Form("RG_res"),chr(39),"''"))

var_funcaores = Trim(Replace(Request.Form("Funcao_res"),chr(39),"''"))

var_tempo = Trim(Replace(Request.Form("Tempo"),chr(39),"''"))

var_ndefuncionarios = Trim(Replace(Request.Form("N_de_Funcionarios"),chr(39),"''"))

var_tipodemercadoria = Trim(Replace(Request.Form("Tipo_de_mercadoria"),chr(39),"''"))

var_tipodeentrega = Trim(Replace(Request.Form("Tipo_de_entrega"),chr(39),"''"))

var_anotacoes = Trim(Replace(Request.Form("Anotacoes"),chr(39),"''"))

var_caracteristicas = Trim(Replace(Request.Form("Caracteristicas"),chr(39),"''"))

var_comentario = Trim(Replace(Request.Form("Comentario"),chr(39),"''"))

 

If Not IsEmpty(Request.Form("submit")) then

atu = " UPDATE dados SET estatus = '"& var_estatus &"', "&_

" Caso = '"& var_caso &"', "&_

" N_EC = '"& var_nec &"', "&_

" Raza_Social = '"& var_razasocial &"', "&_

" Endereco = '"& var_endereco &"', "&_

" Nome = '"& var_nome &"', "&_

" RG = '"& var_rg &"', "&_

" Funcao = '"& var_funcao &"', "&_

" Tempo_de_EC = '"& var_tempodeec &"', "&_

" CNPJ = '"& var_CNPJ &"', "&_

" Data = #"& var_data &"#, "&_

" Hypercom = '"& var_hypercom &"', "&_

" Outros_Modelos = '"& var_outrosmodelos &"', "&_

" Qual = '"& var_qual &"', "&_

" Localizacao = '"& var_localizacao &"', "&_

" Aberto = '"& var_aberto &"', "&_

" Problema_no_terminal = '"& var_problemanoterminal &"', "&_

" Melhorar_terminal = '"& var_melhorarterminal &"', "&_

" Visita '"& var_visita &"', "&_

" Sem_visita = '"& var_semvisita &"', "&_

" Camera_e_Video = '"& var_cameraevideo &"', "&_

" Vigias = '"& var_vigias &"', "&_

" Outros = '"& var_outros &"', "&_

" Qual_Sistema = '"& var_qualsistema &"', "&_

" Sem = '"& var_sem &"', "&_

" Conveniencia = '"& var_conveniencia &"', "&_

" lava_rapido ='"& var_lavarapido &"', "&_

" troca_de_oleo = '"& var_trocadeoleo &"', "&_

" Borracheiro = '"& var_borracheiro &"', "&_

" Restaurante = '"& var_restaurante &"', "&_

" Outra_loja = '"& var_outraloja &"', "&_

" Qual_loja = '"& var_qualloja &"', "&_

" Nao_tem = '"& var_naotem &"', "&_

" Atm_Sim = '"& var_atmsim &"', "&_

" Quais_Atm = '"& var_quaisatm &"', "&_

" Atm_nao = '"& var_atmnao &"', "&_

" Qual_porte = '"& var_qualporte &"', "&_

" Debito '"& var_debito &"', "&_

" Credito = '"& var_credito &"', "&_

" os_dois = '"& var_osdois &"', "&_

" Nome_res = '"& var_nomeres &"', "&_

" RG_res = '"& var_rgres &"', "&_

" Funcao_res = '"& var_funcaores &"', "&_

" Tempo = '"& var_tempo &"', "&_

" N_de_funcionarios = '"& var_ndefuncionarios &"', "&_

" Tipo_de_mercadoria = '"& var_tipodemercadoria &"', "&_

" Tipo_de_entrega = '"& var_tipodeentrega &"', "&_

" Anotacoes = '"& var_anotacoes &"', "&_

" Caracteristicas = '"& var_caracteristicas &"', "&_

" Comentario '"& var_comentario &"', "&_

" WHERE id= "& var_id & " "

conconexao.execute(atu)

Response.redirect("sucesso.asp"

end if

Set atu = Nothing

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

Error Type:

Microsoft JET Database Engine (0x80040E14)

Syntax error in UPDATE statement.

/visa_novo/alterar.asp, line 418

 

 

linha 418 é :

conconexao.execute(atu)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

é de o erro é o mesmo!!!

 

e o erro esta na hora de executar o update.

 

Obs: a mesmo formulário quando fiz o update pelo dreamweaver não dava erro algum sobre nome reservado.

 

Será que é mesmo nome da coluna que tem nome reservado?

 

Segundo a tabela de nomes reservados.

 

NOME não é reservado.

e DATA so no FUTURO SQL.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

acrescentei no bd e no scrip:

 

mesmo erro:

Error Type:

Microsoft JET Database Engine (0x80040E14)

Syntax error in UPDATE statement.

/visa_novo/alterar.asp, line 418

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

Aqui esta toda a minha página

Fiz o que você falou mas não deu certo

 

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Session.LCID = 1046 %>
<%
'Abre conecão com o banco de dados
Set conconexao = Server.CreateObject("ADODB.Connection")
conconexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\wwwroot\visa_novo\banco.mdb;"
'Recupero o id do registro expecifico para fazer o UPDATE
var_id = Trim(Request.QueryString("id"))
'Crio o Recordset
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT id, data_atual, hora, estatus, Caso, N_EC, Raza_Social, Endereco, Nome, RG, Funcao, Tempo_de_EC, CNPJ, Data, Hypercom, Outros_Modelos, Qual, Localizacao, Aberto, Problema_no_terminal, Melhorar_terminal, Visita, Sem_visita, Camera_e_Video, Vigias, Outros, Qual_Sistema, Sem, Conveniencia, lava_rapido, troca_de_oleo, Borracheiro, Restaurante, Outra_loja, Qual_loja, Nao_tem, Atm_Sim, Quais_Atm, Atm_nao, Qual_porte, Debito, Credito, os_dois, Nome_res, RG_res, Funcao_res, Tempo, N_de_funcionarios, Tipo_de_mercadoria, Tipo_de_entrega, Anotacoes, Caracteristicas, Comentario, foto1, foto2, observa, anexo1, anexo2, comentario1, uf, data_final, data_alteracao, finalizado, data_cadastro FROM dados WHERE id = "& var_id &""
rs.Open sql,conconexao,3
%>
<!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>VISANET</title>
<script src="js.js" type="text/javascript"></script>
<link href="css.css" rel="stylesheet" type="text/css" />
</script>
</head>
<body>
<form ACTION="alterar.asp?id=<%= var_id %>" METHOD="POST" name="form1">
  <table width="618" align="center">
	<tr valign="baseline">
	  <td width="610" align="right" nowrap>
		<div align="center">RELATÓRIO DE INVESTIGAÇÃO EXTERNA<br />
		  Caso: 
			<input name="Caso" type="text" value="<%=rs("Caso")%>" size="60" />
Estatus:
<input name="estatus" type="text" id="estatus" value="<%=rs("estatus")%>" />
		</div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><em><strong>Dados do EC </strong></em>| CGC/CNPJ: 
		  <input name="CNPJ" type="text" value="<%=rs("CNPJ")%>" size="32" />
	  Nº do EC : 
	  <input name="N_EC" type="text" id="N_EC" value="<%=rs("N_EC")%>" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left">Nome: 
		  <input name="Raza_Social" type="text" value="<%=rs("Raza_Social")%>" size="70" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left">Endereço:
		  <input name="Endereco" type="text" value="<%=rs("Endereco")%>" size="70" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>Contato no EC (dar prioridade para entrevistar o proprietário ou em sua ausência o gerente do EC) </strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left">Nome:
		  <input name="Nome1" type="text" value="<%=rs("Nome")%>" size="70" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left">RG:  
		  <input name="RG" type="text" value="<%=rs("RG")%>" size="32" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left">Função:
		  <input name="Funcao" type="text" value="<%=rs("Funcao")%>" size="32" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left">Tempo de EC: 
		  <input name="Tempo_de_EC" type="text" value="<%=rs("Tempo_de_EC")%>" size="70" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left">Data da visita:  
		  <input name="Data1" type="text" value="<%=rs("Data")%>" size="32" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>01 ) Qual o modelo do terminal instalado? </strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>
		
		<div align="left">
		  <input name="Hypercom" type="checkbox" value="Y" <%If rs("Hypercom") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
		  Hypercom   
	<input name="Outros_Modelos" type="checkbox" value="Y" <%If rs("Outros_Modelos") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
		  Outro(s) Qual? 
		  <input name="Qual" type="text" value="<%=rs("Qual")%>" size="63" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>02 ) O terminal está instalado em local visível? Onde está localizado? </strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>		
		
		<div align="left">
		  <input name="Localizacao" type="text" value="<%=rs("Localizacao")%>" size="100" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>03 ) POS foi aberto para vistoria. Foi encontrado  algum objeto diferente da <br />
	  arquitetura original do equipamento? </strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>		
		
		<div align="left">
		  <input name="Aberto" type="text" value="<%=rs("Aberto")%>" size="100" />	  
	  </div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>04 ) Houve visita de técnico para manutenção  do(s) equipamento(s) nos 30 dias que <br />
	  antecederam as datas</strong> <strong>das transações? Por qual motivo?</strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>
		
		<div align="left">
		  <input name="Problema_no_terminal" type="checkbox" value="Y" <%If rs("Problema_no_terminal") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
	  Solicitação do  Estabelecimento - Problema no terminal.</div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>
		
		<div align="left">
		  <input name="Melhorar_terminal" type="checkbox" value="Y" <%If rs("Melhorar_terminal") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
	  Solicitação do  Estabelecimento - Melhoria no terminal.</div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>
		
		<div align="left">
		  <input name="Visita" type="checkbox" value="Y" <%If rs("Visita") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
	  Visita não solicitada. Há  possibilidade de identificação do técnico?</div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>
		
		<div align="left">
		  <input name="Sem_visita" type="checkbox" value="Y" <%If rs("Sem_visita") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
	  Não houve visita de técnico  nos 30 dias que antecederam as transações.</div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>05 ) O estabelecimento possui  sistema de segurança?</strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>
		
		<div align="left">
		  <input name="Camera_e_Video" type="checkbox" value="Y" <%If rs("Camera_e_Video") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
		  Câmera e Vídeo.
		  <input name="Vigias" type="checkbox" value="Y" <%If rs("Vigias") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
		  Vigias (segurança).
		  <input name="Sem" type="checkbox" value="Y" <%If rs("Sem") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
	  Não há sistemas de  segurança no EC.</div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>
		
		<div align="left">
		  <input name="Outros" type="checkbox" value="Y" <%If rs("Outros") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
		Outro(s). Qual? 
		<input name="Qual_Sistema" type="text" value="<%=rs("Qual_Sistema")%>" size="60" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>06 ) O estabelecimento possui  serviços extras? (no caso Postos de Gasolina). <br />
	  Verificar se  pertencem ao mesmo dono?</strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>
		
		<div align="left">
		  <input name="Conveniencia" type="checkbox" value="Y" <%If rs("Conveniencia") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
		  Loja de Conveniência.
		  <input name="lava_rapido" type="checkbox" value="Y" <%If rs("lava_rapido") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
		  Lava Rápido
		  <input name="Restaurante" type="checkbox" value="Y" <%If rs("Restaurante") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />	  
		  Restaurante 
		  <input name="troca_de_oleo" type="checkbox" value="Y" <%If rs("troca_de_oleo") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
	  Troca de Óleo</div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>
		
		<div align="left">
		  <input name="Borracheiro" type="checkbox" value="Y" <%If rs("Borracheiro") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
		Borracheiro 
		<input name="Outra_loja" type="checkbox" value="Y" <%If rs("Outra_loja") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> /> 
		Outro(s). Qual? 
		<input name="Qual_loja" type="text" value="<%=rs("Qual_loja")%>" size="60" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap>
		
		<div align="left">
		  <input name="Nao_tem" type="checkbox" value="Y" <%If rs("Nao_tem") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
	  Não há serviços extras no  EC.</div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>07 ) No estabelecimento/redondeza (verificar se  está na rota do estabelecimento)<br />
	  existe algum tipo de ATM. (caixa eletrônico)? </strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>
		
		<div align="left">
		  <input name="Atm_nao" type="checkbox" value="Y" <%If rs("Atm_nao") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> /> 
		Não 
		<input name="Atm_Sim" type="checkbox" value="Y" <%If rs("Atm_Sim") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
Sim Quais? 
<input name="Quais_Atm" type="text" value="<%=rs("Quais_Atm")%>" size="65" />
	</div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>08 ) Qual o porte do EC? O EC  é capaz de suportar o valor das vendas em questão? <br />
	  Possui estoque?</strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>		
		
		<div align="left">
		  <input name="Qual_porte" type="text" value="<%=rs("Qual_porte")%>" size="100" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>09 ) Como é a forma de  recebimento dos cartões?</strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>
		
		<div align="left">
		  <input name="Debito" type="checkbox" value="Y" <%If rs("Debito") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> /> 
		Débito 
		<input name="Credito" type="checkbox" value="Y" <%If rs("Credito") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> /> 
		Crédito 
		<input name="os_dois" type="checkbox" value="Y" <%If rs("os_dois") = "Y" Then Response.Write("checked=""checked""") : Response.Write("")%> />
	  Os Dois. </div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>10 ) Qual(is) a(s) pessoa(s)  responsável(is) pela(as) transação(ões) e   manuseio do POS?</strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left">Nome: 
		  <input name="Nome_res" type="text" value="<%=rs("Nome_res")%>" size="70" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left">RG: 
		  <input name="RG_res" type="text" value="<%=rs("RG_res")%>" size="32" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left">Função:
		  <input name="Funcao_res" type="text" value="<%=rs("Funcao_res")%>" size="32" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left">Tempo no EC: 
		  <input name="Tempo" type="text" value="<%=rs("Tempo")%>" size="70" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>11 ) Quantos funcionários  trabalham no EC?</strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>		
		<div align="left">
		  <input name="N_de_funcionarios" type="text" value="<%=rs("N_de_funcionarios")%>" size="100" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>12 ) Que tipo de mercadoria  é comercializada?</strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>		
		
		<div align="left">
		  <input name="Tipo_de_mercadoria" type="text" value="<%=rs("Tipo_de_mercadoria")%>" size="100" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>13 ) Qual a forma de entrega  da mercadoria? Qual o endereço de entrega?</strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>		
		
		<div align="left">
		  <input name="Tipo_de_entrega" type="text" value="<%=rs("Tipo_de_entrega")%>" size="100" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>14 ) Existe alguma  anotação nos comprovantes de vendas e notas fiscais? <br />
	  (nomes, endereços,  telefones, placas de veículos) </strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>		
		<div align="left">
		  <input name="Anotacoes" type="text" value="<%=rs("Anotacoes")%>" size="100" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>15 ) Quais são as  caracteristicas físicas do(s) portadores do(s) cartão(ôes)?</strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>		
		<div align="left">
		  <input name="Caracteristicas" type="text" value="<%=rs("Caracteristicas")%>" size="100" />
	  </div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="left"><strong>16 ) Comentários e  impressões dobre o caso.</strong></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap>
		<div align="justify">
		  <textarea name="Comentario" cols="100" rows="5"><%=rs("Comentario")%></textarea>
		  <a href="javascript:history.go(-1)">
		  <input type="submit" class="bt" name="Submit" value="Atualizar" align="right"/>
		</a></div></td></tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="center"><a href="javascript:history.go(-1)"><br /> 
		Voltar</a></div></td>
	</tr>
	<tr valign="baseline">
	  <td align="right" nowrap><div align="center"><% if rs("foto1") <> "" then %>
		  <img src="invest/<%=rs("foto1")%>" />
		  <% else if rs("foto2") <> "" then%>
		  <img src="invest/<%=rs("foto2")%>" />
		  <% else %>
		  <img src="sem.png" />
		  <% end if end if %></div></td>
	</tr>
  </table>
</form>
<%
'Verifico se o formulário foi submetido
If Not IsEmpty(Request.Form("submit")) then 'Se verdadeiro executo o UPDATE

'Recupero os dados do formulário
var_caso = Trim(Replace(Request.Form("caso"),chr(39),"''"))
var_estatus = Trim(Replace(Request.Form("estatus"),chr(39),"''"))
var_cnpj = Trim(Replace(Request.Form("CNPJ"),chr(39),"''"))
var_nec = Trim(Replace(Request.Form("N_EC"),chr(39),"''"))
var_razasocial = Trim(Replace(Request.Form("Raza_Social"),chr(39),"''"))
var_endereco = Trim(Replace(Request.Form("Endereco"),chr(39),"''"))
var_nome1 = Trim(Replace(Request.Form("Nome1"),chr(39),"''"))
var_rg = Trim(Replace(Request.Form("RG"),chr(39),"''"))
var_funcao = Trim(Replace(Request.Form("Funcao"),chr(39),"''"))
var_tempodeec = Trim(Replace(Request.Form("Tempo_de_EC"),chr(39),"''"))
var_data1 = Trim(Replace(Request.Form("Data1"),chr(39),"''"))
var_hypercom = Trim(Replace(Request.Form("Hypercom"),chr(39),"''"))
var_outrosmodelos = Trim(Replace(Request.Form("Outros_Modelos"),chr(39),"''"))
var_qual = Trim(Replace(Request.Form("Qual"),chr(39),"''"))
var_localizacao = Trim(Replace(Request.Form("Localizacao"),chr(39),"''"))
var_aberto = Trim(Replace(Request.Form("Aberto"),chr(39),"''"))
var_problemanoterminal = Trim(Replace(Request.Form("Problema_no_terminal"),chr(39),"''"))
var_melhorarterminal = Trim(Replace(Request.Form("Melhorar_terminal"),chr(39),"''"))
var_visita = Trim(Replace(Request.Form("Visita"),chr(39),"''"))
var_semvisita = Trim(Replace(Request.Form("Sem_visita"),chr(39),"''"))
var_cameraevideo = Trim(Replace(Request.Form("Camera_e_Video"),chr(39),"''"))
var_vigias = Trim(Replace(Request.Form("Vigias"),chr(39),"''"))
var_sem = Trim(Replace(Request.Form("Sem"),chr(39),"''"))
var_outros = Trim(Replace(Request.Form("Outros"),chr(39),"''"))
var_qualsistema = Trim(Replace(Request.Form("Qual_Sistema"),chr(39),"''"))
var_conveniencia = Trim(Replace(Request.Form("Conveniencia"),chr(39),"''"))
var_lavarapido = Trim(Replace(Request.Form("lava_rapido"),chr(39),"''"))
var_restaurante = Trim(Replace(Request.Form("Restaurante"),chr(39),"''"))
var_trocadeoleo = Trim(Replace(Request.Form("troca_de_oleo"),chr(39),"''"))
var_borracheiro = Trim(Replace(Request.Form("Borracheiro"),chr(39),"''"))
var_outraloja = Trim(Replace(Request.Form("Outra_loja"),chr(39),"''"))
var_qualloja = Trim(Replace(Request.Form("Qual_loja"),chr(39),"''"))
var_naotem = Trim(Replace(Request.Form("Nao_tem"),chr(39),"''"))
var_atmnao = Trim(Replace(Request.Form("Atm_nao"),chr(39),"''"))
var_atmsim = Trim(Replace(Request.Form("Atm_sim"),chr(39),"''"))
var_quaisatm = Trim(Replace(Request.Form("Quais_Atm"),chr(39),"''"))
var_qualporte = Trim(Replace(Request.Form("Qual_porte"),chr(39),"''"))
var_debito = Trim(Replace(Request.Form("Debito"),chr(39),"''"))
var_credito = Trim(Replace(Request.Form("Credito"),chr(39),"''"))
var_osdois = Trim(Replace(Request.Form("Os_dois"),chr(39),"''"))
var_nomeres = Trim(Replace(Request.Form("Nome_res"),chr(39),"''"))
var_rgres = Trim(Replace(Request.Form("RG_res"),chr(39),"''"))
var_funcaores = Trim(Replace(Request.Form("Funcao_res"),chr(39),"''"))
var_tempo = Trim(Replace(Request.Form("Tempo"),chr(39),"''"))
var_ndefuncionarios = Trim(Replace(Request.Form("N_de_Funcionarios"),chr(39),"''"))
var_tipodemercadoria = Trim(Replace(Request.Form("Tipo_de_mercadoria"),chr(39),"''"))
var_tipodeentrega = Trim(Replace(Request.Form("Tipo_de_entrega"),chr(39),"''"))
var_anotacoes = Trim(Replace(Request.Form("Anotacoes"),chr(39),"''"))
var_caracteristicas = Trim(Replace(Request.Form("Caracteristicas"),chr(39),"''"))
var_comentario = Trim(Replace(Request.Form("Comentario"),chr(39),"''"))

atu = " UPDATE dados SET estatus = '"& var_estatus &"', "&_
" Caso = '"& var_caso &"', "&_
" N_EC = '"& var_nec &"', "&_
" Raza_Social = '"& var_razasocial &"', "&_
" Endereco = '"& var_endereco &"', "&_
" Nome = '"& var_nome1 &"', "&_
" RG = '"& var_rg &"', "&_
" Funcao = '"& var_funcao &"', "&_
" Tempo_de_EC = '"& var_tempodeec &"', "&_
" CNPJ = '"& var_CNPJ &"', "&_ 
" Data = #"& var_data1 &"#, "&_
" Hypercom = '"& var_hypercom &"', "&_ 
" Outros_Modelos = '"& var_outrosmodelos &"', "&_
" Qual = '"& var_qual &"', "&_
" Localizacao = '"& var_localizacao &"', "&_
" Aberto = '"& var_aberto &"', "&_
" Problema_no_terminal = '"& var_problemanoterminal &"', "&_
" Melhorar_terminal = '"& var_melhorarterminal &"', "&_
" Visita '"& var_visita &"', "&_ 
" Sem_visita = '"& var_semvisita &"', "&_
" Camera_e_Video = '"& var_cameraevideo &"', "&_
" Vigias = '"& var_vigias &"', "&_
" Outros = '"& var_outros &"', "&_
" Qual_Sistema = '"& var_qualsistema &"', "&_
" Sem = '"& var_sem &"', "&_
" Conveniencia = '"& var_conveniencia &"', "&_
" lava_rapido ='"& var_lavarapido &"', "&_
" troca_de_oleo = '"& var_trocadeoleo &"', "&_ 
" Borracheiro = '"& var_borracheiro &"', "&_
" Restaurante = '"& var_restaurante &"', "&_
" Outra_loja = '"& var_outraloja &"', "&_
" Qual_loja = '"& var_qualloja &"', "&_
" Nao_tem = '"& var_naotem &"', "&_
" Atm_Sim = '"& var_atmsim &"', "&_
" Quais_Atm = '"& var_quaisatm &"', "&_
" Atm_nao = '"& var_atmnao &"', "&_
" Qual_porte = '"& var_qualporte &"', "&_
" Debito '"& var_debito &"', "&_
" Credito = '"& var_credito &"', "&_
" os_dois = '"& var_osdois &"', "&_
" Nome_res = '"& var_nomeres &"', "&_
" RG_res = '"& var_rgres &"', "&_
" Funcao_res = '"& var_funcaores &"', "&_
" Tempo = '"& var_tempo &"', "&_
" N_de_funcionarios = '"& var_ndefuncionarios &"', "&_
" Tipo_de_mercadoria = '"& var_tipodemercadoria &"', "&_
" Tipo_de_entrega = '"& var_tipodeentrega &"', "&_
" Anotacoes = '"& var_anotacoes &"', "&_
" Caracteristicas = '"& var_caracteristicas &"', "&_
" Comentario '"& var_comentario &"', "&_
" WHERE id= "& var_id & " "
conconexao.execute(atu) 'Executo o UPDATE
Response.Write("<script> alert('Dado Alterado com Sucesso!!');location.href='alterar.asp' </script>") 'Alerta se OK
response.write atu
response.end
end if
Set atu = Nothing
%>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
conconexao.close()
set conconexao = nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

cara. o Ùnico erro que ele mostra na tela é esse:

 

Technical Information (for support personnel)

 

Error Type:

Microsoft JET Database Engine (0x80040E14)

Syntax error in UPDATE statement.

/visa_novo/alterar.asp, line 425

 

 

Browser Type:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)

 

Page:

POST 1875 bytes to /visa_novo/alterar.asp

 

POST Data:

Caso=REPUBLICA+GRILL&estatus=FINAL&CNPJ=06351558000106&N_EC=1011516613&Raza_Social=Rep%FAblica+com%E9rcio+de+Bebidas+Ltda+ME&Endereco=SHCS+CL+Qadra+106+Loja+01&Nome1=jo%E3o+Teodoro+magalh%E3es+Neto&RG . . .

 

Time:

sexta-feira, 7 de abril de 2006, 09:01:53

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

Sim eu uso essa linha pra verificar se o formulário foi submetido.

 

'Verifico se o formulário foi submetido

If Not IsEmpty(Request.Form("submit")) then 'Se verdadeiro executo o UPDATE

 

Tenho outras páginas do mesmo jeito em que o update funcina numa boa, porém com menos dados certo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

Lucas ou Adriano..

 

Acho eu que o erro esta acontecendo devido haver chekboxes no form e quando eles não estão marcados ele estão indo vazio, ja o dream ele passa ou um valor ou outro, será que é isso?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado 

<%
'Verifico se o formulário foi submetido
If Not IsEmpty(Request.Form("submit")) then 'Se verdadeiro executo o UPDATE
var_razasocial = Trim(Replace(Request.Form("Raza_Social"),chr(39),"''"))
var_endereco = Trim(Replace(Request.Form("Endereco"),chr(39),"''"))
var_nome = Trim(Replace(Request.Form("Nome"),chr(39),"''"))
var_rg = Trim(Replace(Request.Form("RG"),chr(39),"''"))
var_funcao = Trim(Replace(Request.Form("Funcao"),chr(39),"''"))
var_tempodeec = Trim(Replace(Request.Form("Tempo_de_EC"),chr(39),"''"))
var_comentario1 = Trim(Replace(Request.Form("Comentario1"),chr(39),"''"))
var_foto1 = Trim(Request.Form("foto"))

var_data = date()
data_conv = split(var_data,"/") 'funcao utilizada para criar um vetor delimitado po "/" 
data_corr = data_conv(1)&"/"&data_conv(0)&"/"&data_conv(2) 'reorganiza data para o formato dd/mm/yy 

var_data1 = Trim(Replace(Request.Form("Data"),chr(39),"''"))
data_conv1 = split(var_data1,"/") 'funcao utilizada para criar um vetor delimitado po "/" 
data_corr1 = data_conv1(1)&"/"&data_conv1(0)&"/"&data_conv1(2) 'reorganiza data para o formato dd/mm/yy 

atu = "UPDATE dados SET [estatus] = ' PARCIAL ', "&_
" [Raza_Social] = '"& var_razasocial &"', "&_
" [Endereco] = '"& var_endereco &"', "&_
" [Nome] = '"& var_nome &"', "&_
" [RG] = '"& var_rg &"', "&_
" [Funcao] = '"& var_funcao &"', "&_
" [Tempo_de_EC] = '"& var_tempodeec &"', "&_
" [Comentario1] = '"& var_comentario1 &"', "&_
" [foto1] = '"& var_foto1 &"', "&_
" [data_alteracao] = #"& data_corr &"#, "&_ 
" [Data] = #"& data_corr1 &"#, "&_
" WHERE id = "& rc_id & ""


conconexao.execute(atu) 'Executo o UPDATE
Response.Write("<script> alert('Dado Alterado com Sucesso!!');history.go(-2) </script>") 'Alerta se OK
end if
Set atu = Nothing
%>
erro gerado:

 

Error Type:

Microsoft JET Database Engine (0x80040E14)

Syntax error in UPDATE statement.

/visa_novo/inserir_parcial.asp, line 155

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