-2
The code is this:
<i> <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include virtual="aplicativos/arquivos.asp"-->
<!--#include virtual="aplicativos/JSON_UTIL_0.1.1.asp" -->
<!--#include virtual="aplicativos/JSON_2.0.4.asp" -->
<!--#include virtual="aplicativos/validacao.asp"-->
<%
'----------------------------------------'
Dim d
set d = ConverteRequestParaDicionario(Request)
acao = d.item("acao")
chbeneficio = d.item("chbeneficio")
'----------------------------------------'
select case acao
case "salvarDesempregado" SalvarDesempregado()
end select
'----------------------------------------'
sub SalvarDesempregado
if d.item("nome") = "" then
nome = "null"
else
nome = "'" & d.item("nome") & "'"
end if
if d.item ("rg") = "" then
rg = "null"
else
rg = "'" & d.item("rg") & "'"
end if
if d.item ("cpf") = "" then
cpf = "null"
else
cpf = "'" & d.item("cpf") & "'"
end if
if d.item ("CTPSserie") = "" then
CTPSserie = "null"
else
CTPSserie = "'" & d.item("CTPSserie") & "'"
end if
if d.item ("ctps") = "" then
ctps = "null"
else
ctps = "'" & d.item("ctps") & "'"
end if
if d.item ("status") = "" then
status = "null"
else
status = "'" & d.item("status") & "'"
end if
if d.item("cep") = "" then
cep = "null"
else
cep = "'" & d.item("cep") & "'"
end if
if d.item ("endereco") = "" then
endereco = "null"
else
endereco = "'" & d.item("endereco") & "'"
end if
if d.item ("numero") = "" then
numero = "null"
else
numero = "'" & d.item("numero") & "'"
end if
if d.item ("bairro") = "" then
bairro = "null"
else
bairro = "'" & d.item("bairro") & "'"
end if
if d.item ("municipio") = "" then
municipio = "null"
else
municipio = "'" & d.item("municipio") & "'"
end if
if d.item ("complemento") = "" then
complemento = "null"
else
complemento = "'" & d.item("complemento") & "'"
end if
if d.item("estado") = "" then
estado = "null"
else
estado"'" & d.item("estado") & "'"
end if
if d.item ("email") = "" then
email = "null"
else
email = "'" & d.item("email") & "'"
end if
if d.item ("telefone") = "" then
telefone = "null"
else
telefone = "'" & d.item("telefone") & "'"
end if
if d.item ("celular") = "" then
celular = "null"
else
celular = "'" & d.item("celular") & "'"
end if
if d.item ("empresa") = "" then
empresa = "null"
else
empresa = "'" & d.item("empresa") & "'"
end if
if d.item ("profissao") = "" then
profissao = "null"
else
profissao = "'" & d.item("profissao") & "'"
end if
if d.item("dispensa") = "" then
dispensa = "null"
else
dispensa = "'" & d.item("dispensa") & "'"
end if
if d.item ("emprecep") = "" then
emprecep = "null"
else
emprecep = "'" & d.item("emprecep") & "'"
end if
if d.item ("empreendereco") = "" then
empreendereco = "null"
else
empreendereco = "'" & d.item("empreendereco") & "'"
end if
if d.item ("emprenumero") = "" then
emprenumero = "null"
else
emprenumero = "'" & d.item("emprenumero") & "'"
end if
if d.item ("emprecomplemento") = "" then
emprecomplemento = "null"
else
emprecomplemento = "'" & d.item("emprecomplemento") & "'"
end if
if d.item ("emprebairro") = "" then
emprebairro = "null"
else
emprebairro = "'" & d.item("emprebairro") & "'"
end if
if d.item ("empremunicipio") = "" then
empremunicipio = "null"
else
empremunicipio = "'" & d.item("empremunicipio") & "'"
end if
if d.item ("selo") = "" then
selo = "null"
else
selo = "'" & d.item("selo") & "'"
end if
if d.item ("entrega") = "" then
entrega = "null"
else
entrega = "'" & d.item("entrega") & "'"
end if
if d.item ("validade") = "" then
validade = "null"
else
validade = "'" & d.item("validade") & "'"
end if
SQL = "exec dbo.sp_desemp_insereDesempregado " & chbeneficio & ",'" & nome & "','" & RG & "','" & CPF & "','" & cep & "','" & endereco & "','" & numero & "','" & bairro & "','" & municipio & "','" & complemento & "','" &estado & "','" & email & "','" & telefone & "','" & celular & "','" & CTPS & "','" & CTPSserie & "','" & empresa & "','" & profissao & "','" & dispensa & "','" & emprecep & "','" & empreendereco & "','" & emprenumero & "','" & emprecomplemento & "','" & emprebairro & "','" & empremunicipio & "','" & selo & "','"& entrega & "','" & validade & "'"
QueryToJSON(banco, SQL).flush
response.end
end sub
'----------------------------------------'
%> </i>
And the mistake I get is always this:
Microsoft OLE DB Provider for SQL Server error '80040e14' Incorrect syntax near ','. /aplicativos/JSON_UTIL_0.1.1.asp, line 5
I’ve looked everywhere, including here, and I can’t fix that mistake. Procedure works, I’ve tried it on SQL Server.
tries to replace this SQL line = "exec dbo.sp_desemp_insert & "','"
– cpll
your question is very badly formatted, nor will I try to edit, not to lose some important detail. In the excerpt
SQL = "exec dbo.sp_desemp_insereDesempregado " & chbeneficio & ",'" & nome & "','" & RG & "','" &
the first concatenation by what seems to be missing a single quote.– Melissa
It’s really hard to visualize all this. By the type of error probably some variable is with some reserved character (example quotes) and is breaking the code. I suggest that Voce speaks a Answer.write and Answer.end for each variable of the query, until identifying.
– aa_sp
Melissa, I’m sorry if it’s badly formatted, I’m not good at explaining things, and I’m the first time I’ve asked you something. in chbeneficio, no single quotes pq is an int value and the others are strings.
– Nath.S2
aa_asp I tried Sponse.write and I couldn’t get to the root of the T.T problem
– Nath.S2