Ir para conteúdo
Fórum Script Brasil
  • 0

ERRO NA INCLUSÃO DE REGISTROS

ANDRE_GUSTAVO

Perguntado por ANDRE_GUSTAVO,

 Share

Pergunta

ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
Postado

Fala ai galera

Agora to com o seguinte problema, tenho um formulario que faz o cadastro de máquinas a venda, nesse formulario o usuario envia 5 fotos da máquina que serao armazenadas em uma pasta. Essa tabela "TBL_MAQUINAS_VENDA" que recebe os dados da máquina a venda, é relacionada com outra tabela "TBL_USUARIOS" por intermedio do campo "ID_USUARIO". O usuario faz o login e somente ao efetuar o login ele podera cadastrar as maquinas que deseja vender. Quando preencho o formulario e envio o cadastro, dá o seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO.

/GilMaquinas/salva_maquinavenda.asp, line 173

Segue a página com o erro:

salva_maquinavenda.asp

<%@LANGUAGE="VBSCRIPT" %>
<!-- #Include File="conexaoDB.inc" -->
<!-- #include file = "upload_funcoes.asp" -->
<%

DIM conexaoDB , rsSalva , rsSQL , strINS , strSQL , varDataCadastro
DIM varId_usuario , varMarca , varModelo , varFormato , varAnoFabricacao , varTipo , varFuncionamento , varAparencia , varCidade , varEstado , varNome , varEmpresa , varDDD , varFone , varEmail , varPreco , varPagamento , varObservacoes , varFoto1 , varFoto2 , varFoto3 , varFoto4 , varFoto5

'=============================================================================

'----------------------------------# - FAZENDO O UPLOAD - #-----------------------------------------------------------------------
' Chamando Funções, que fazem o Upload funcionar

byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

'----------# - RECEPÇÃO DE DADOS INSERIDOS NO FORMULARIO DE CADASTRO DE USUARIOS - #-------------------------------
' Recuperando os Dados Digitados ----------------------
    
    varMarca = TRIM(UploadRequest.Item("txt_Marca").Item("value"))
    varModelo = TRIM(UploadRequest.Item("txt_Modelo").Item("value"))
    varFormato = TRIM(UploadRequest.Item("txt_Formato").Item("value"))    
    varAnoFabricacao = TRIM(UploadRequest.Item("txt_AnoFabricacao").Item("value"))
    varTipo = UploadRequest.Item("txt_Tipo").Item("value")
    varFuncionamento = UploadRequest.Item("txt_Funcionamento").Item("value")
    varAparencia = UploadRequest.Item("txt_Aparencia").Item("value")
    varCidade = TRIM(UploadRequest.Item("txt_LocCidade").Item("value"))
    varEstado = TRIM(UploadRequest.Item("txt_LocEstado").Item("value"))
    varNome = TRIM(UploadRequest.Item("txt_NomeContato").Item("value"))
    varEmpresa = TRIM(UploadRequest.Item("txt_EmpresaContato").Item("value"))    
    varDDD = TRIM(UploadRequest.Item("txt_DDD_FoneContato").Item("value"))
    varFone = TRIM(UploadRequest.Item("txt_TelefoneContato").Item("value"))
    varNome = TRIM(UploadRequest.Item("txt_NomeContato").Item("value"))
    varEmail = TRIM(UploadRequest.Item("txt_EmailContato").Item("value"))
    varPreco = TRIM(UploadRequest.Item("txt_Preco").Item("value"))    
    varPagamento = TRIM(UploadRequest.Item("txt_Pagamento").Item("value"))
    varObservacoes = TRIM(UploadRequest.Item("txt_InfoComplementar").Item("value"))         
    varDataCadastro = formatDateTime(date,2)
    
    varPreco = REPLACE(varPreco, "." , " ")
    varPreco = REPLACE(varPreco, "," , ".")
'====================================================================
' TRABALHANDO FOTOs
' Tipo de arquivo que esta sendo enviado

tipo_foto1 = UploadRequest.Item("txt_foto1").Item("ContentType")
tipo_foto2 = UploadRequest.Item("txt_foto2").Item("ContentType")
tipo_foto3 = UploadRequest.Item("txt_foto3").Item("ContentType")
tipo_foto4 = UploadRequest.Item("txt_foto4").Item("ContentType")
tipo_foto5 = UploadRequest.Item("txt_foto5").Item("ContentType")

' Caminho completo dos arquivos enviados

caminho_foto1 = UploadRequest.Item("txt_foto1").Item("FileName")
caminho_foto2 = UploadRequest.Item("txt_foto2").Item("FileName")
caminho_foto3 = UploadRequest.Item("txt_foto3").Item("FileName")
caminho_foto4 = UploadRequest.Item("txt_foto4").Item("FileName")
caminho_foto5 = UploadRequest.Item("txt_foto5").Item("FileName")

' Nome dos arquivos enviados

nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))
nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))
nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))
nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))
nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\"))

' Conteudo binario dos arquivos enviados

foto1 = UploadRequest.Item("txt_foto1").Item("Value")
foto2 = UploadRequest.Item("txt_foto2").Item("Value")
foto3 = UploadRequest.Item("txt_foto3").Item("Value")
foto4 = UploadRequest.Item("txt_foto4").Item("Value")
foto5 = UploadRequest.Item("txt_foto5").Item("Value")


' pasta onde as imagens serao guardadas

pasta = Server.MapPath("Fotos_maquinas_venda/")
nome_foto1 = "/"&nome_foto1
nome_foto2 = "/"&nome_foto2
nome_foto3 = "/"&nome_foto3
nome_foto4 = "/"&nome_foto4
nome_foto5 = "/"&nome_foto5

' pasta + nome dos arquivos
cfoto1 = "Fotos_maquinas_venda" + nome_foto1
cfoto2 = "Fotos_maquinas_venda" + nome_foto2
cfoto3 = "Fotos_maquinas_venda" + nome_foto3
cfoto4 = "Fotos_maquinas_venda" + nome_foto4
cfoto5 = "Fotos_maquinas_venda" + nome_foto5

' Fazendo o Upload do arquivo selecionado
if cfoto1 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
For i = 1 to LenB(cfoto1)
MyFile.Write chr(AscB(MidB(cfoto1,i,1)))
Next
MyFile.Close
end if

if cfoto2 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)
For i = 1 to LenB(cfoto2)
MyFile.Write chr(AscB(MidB(cfoto2,i,1)))
Next
MyFile.Close
end if

if cfoto3 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)
For i = 1 to LenB(cfoto3)
MyFile.Write chr(AscB(MidB(cfoto3,i,1)))
Next
MyFile.Close
end if

if cfoto4 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)
For i = 1 to LenB(cfoto4)
MyFile.Write chr(AscB(MidB(cfoto4,i,1)))
Next
MyFile.Close
end if

if cfoto5 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)
For i = 1 to LenB(cfoto5)
MyFile.Write chr(AscB(MidB(foto5,i,1)))
Next
MyFile.Close
end if
'=============================================================================

    
    varPreco = REPLACE(varPreco , ", " , "." )
    varFone = Replace(varFone , "-" , " " )

'===========================================================================

<!-- #INCLUDE FILE="conexaoDB.inc" -->

'-----------------# - INSTRUÇÃO SQL DE INCLUSÃO DE CADASTRO NO BANCO DE DADO - ----------------------------------------

strINS = "INSERT INTO  TBL_MAQUINAS_VENDA "
strINS = strINS & "( MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES  , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA ) "
strINS = strINS & " VALUES ( " & varMarca & " , " 
strINS = strINS &"'"& varModelo &"',"
strINS = strINS &"'"&  varFormato &"',"
strINS = strINS &"'"& varAnoFabricacao &"',"
strINS = strINS & "'"& varTipo &"',"
strINS = strINS & "'"& varFuncionamento &"',"
strINS = strINS & "'"& varAparencia &"',"
strINS = strINS & "'"& varCidade &"',"
strINS = strINS & "'"& varEstado &"',"
strINS = strINS &  "'"& varNome & "',"
strINS = strINS &  "'"& varEmpresa & "',"
strINS = strINS &  ""& varDDD & "',"
strINS = strINS &  ""& varFone & "',"
strINS = strINS &  "'"& varEmail & "',"
strINS = strINS &  ""& varPreco & "',"
strINS = strINS &  "'"& varPagamento & "',"
strINS = strINS &  "'"& varObservacoes & "',"
strINS = strINS &  ""& cfoto1 & ","
strINS = strINS &  ""& cfoto2 & ","
strINS = strINS &   ""& cfoto3 & ","
strINS = strINS &  ""& cfoto4 & ","
strINS = strINS & ""& cfoto5 & ","

strINS = strINS & "#"& varDataCadastro&"#')"  

CALL AbreConexao
SET rsSQL = conexaoDB.EXECUTE(strINS)


%>

Por favor alguém me ajuda a resolver esse problema?

Desde já muito obrigado pela atenção.

Valeu

Link para o comentário
Compartilhar em outros sites

37 respostass a esta questão

Posts Recomendados

  • 0
bareta

bareta

Postado
Postado

troca no final ali

if error<>"" then

response.write "Campo "&x4&" gerou erro<br>"

end if

por

if err<>"" then

response.write "Campo "&x4&" gerou erro<br>"

end if

escrevi errado... não deu erro porque no inicio do codigo o on error resume next faz que eles sejam ignorados

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
Oi André... Já baixei aqui mas ainda não rolou tempo pra dar uma olhadinha nos seus scripts...

Como assim relacionados? Tipo um insert pra duas tabelas?!?!

Pode explicar que tipo de relacionamento é esse?

[]'s Rafael Spilki

Rafael,

A tabela "TBL_MAQUINAS_VENDA" recebe o Id do usuario já cadastrado, da tabela "TBL_USUARIOS"

Eu estou enviando o ID do Usuario para o INSERT, atravez de SESSION, pois para que o usuario possa

cadastrar alguma maquina ele deve primeiramente se cadastrar como usuario do site.

Vou colocar aqui so a parte do codigo do Id, qualquer coisa eu explico novamente

O id estou passando assim

Inicio do codigo

varId_usuario = session("Id_Usuario")

-

-

-

-

-

Agora la no insert

strINS = " Insert into TBL_MAQUINAS_VENDA ( ID_USUARIO

-

-

-

-

Relacionei as tabelas para que o administrador do site, possa saber qual usuario

cadastrou "tal máquina".

Não sei se deu pra entender, qualquer coisa avisa

troca no final ali

if error<>"" then

response.write "Campo "&x4&" gerou erro<br>"

end if

por

if err<>"" then

response.write "Campo "&x4&" gerou erro<br>"

end if

escrevi errado... não deu erro porque no inicio do codigo o on error resume next faz que eles sejam ignorados

Iai bareta

Cara o trem aqui ta froydi... gerou erro em todos os campos

Campo MARCA gerou erro

Campo MODELO gerou erro

Campo FORMATO gerou erro

Campo ANO_FABRICACAO gerou erro

Campo TIPO gerou erro

Campo FUNCIONAMENTO gerou erro

Campo APARENCIA gerou erro

Campo LOC_CIDADE gerou erro

Campo LOC_ESTADO gerou erro

Campo NOME gerou erro

Campo EMPRESA gerou erro

Campo DDD gerou erro

Campo TELEFONE gerou erro

Campo E_MAIL gerou erro

Campo preço gerou erro

Campo PAGAMENTO gerou erro

Campo OBSERVACOES gerou erro

Campo FOTO1 gerou erro

Campo FOTO2 gerou erro

Campo FOTO3 gerou erro

Campo FOTO4 gerou erro

Campo FOTO5 gerou erro

Campo DATA gerou erro

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado

a função certa é essa:

testei agora

CALL AbreConexao
on error resume next
campos="ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES  , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA"
valores="1,'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', #"& varDataCadastro &"#"

camp=split(campos,",")

val=split(valores,",")

strINS = "Insert into TBL_MAQUINAS_VENDA ("
strx=")"
strx2=") values ("
total=ubound(camp)

for i=0 to total
x2=""
x3=""
for i2=lbound(camp) to i
x5=trim(val(i2))
if x5="" then x5=0
if x5="''" then x5="'0'"
x2=x2&camp(i2)&","
x3=x3&x5&","
x4=camp(i2)

x2=x2
x3=x3


next

if right(x2,1)="," then 
x2=left(x2,(len(x2)-1))
end if

if right(x3,1)="," then 
x3=left(x3,(len(x3)-1))
end if

sql=strINS&trim(x2)&strx2&trim(x3)&strx

SET rsSQL = conexaoDB.EXECUTE(sql)

if err<>0 then
response.write "Campo "&x4&" gerou erro === "&sql&"<br><br>"
end if


next
porque não cadastra? (a resolução que achei) - o banco não aceita registros em branco - devido ao relacionamento o campo id_usuario deve ter um id_usuario existente - remova a expressão: 
<%
rsSQL.Close
SET rsSQL = Nothing
SET rsSalva = Nothing
%>
vo posta o código aqui.. 
<%@LANGUAGE="VBSCRIPT" %>
<!-- #Include File="conecta.asp" -->
<!-- #include file = "upload_funcoes.asp" -->
<%
'---------------# - DECLARAÇÃO DE VARIAVEIS - #------------------------------------------------------------------------------

DIM conexaoDB , rsSalva , rsSQL , strINS , sql , sql13 , sql12 , strSQL , varDataCadastro
DIM varId_usuario , varMarca , varModelo , varFormato , varAnoFabricacao , varTipo , varFuncionamento , varAparencia , varCidade , varEstado , varNome , varEmpresa , varDDD , varFone , varEmail , varPreco , varPagamento , varObservacoes , varFoto1 , varFoto2 , varFoto3 , varFoto4 , varFoto5'============================================================================================================================

'----------------------------------# - FAZENDO O UPLOAD - #-----------------------------------------------------------------------
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
'---------------# - RECEPÇÃO DE DADOS INSERIDOS NO FORMULARIO DE CADASTRO DE USUARIOS - #----------------------------------------
' Recuperando os Dados Digitados ----------------------

    varId_usuario = session("id_usuario")
    varMarca = UploadRequest.Item("txt_Marca").Item("value")
    varModelo = UploadRequest.Item("txt_Modelo").Item("value")
    varFormato = UploadRequest.Item("txt_Formato").Item("value")    
    varAnoFabricacao = UploadRequest.Item("txt_AnoFabricacao").Item("value")
    varTipo = UploadRequest.Item("txt_Tipo").Item("value")
    varFuncionamento = UploadRequest.Item("txt_Funcionamento").Item("value")
    varAparencia = UploadRequest.Item("txt_Aparencia").Item("value")
    varCidade = UploadRequest.Item("txt_LocCidade").Item("value")
    varEstado = UploadRequest.Item("txt_LocEstado").Item("value")
    varNome = UploadRequest.Item("txt_NomeContato").Item("value")
    varEmpresa = UploadRequest.Item("txt_EmpresaContato").Item("value")    
    varDDD = UploadRequest.Item("txt_DDD_FoneContato").Item("value")
    varFone = UploadRequest.Item("txt_TelefoneContato").Item("value")
    varNome = UploadRequest.Item("txt_NomeContato").Item("value")
    varEmail = UploadRequest.Item("txt_EmailContato").Item("value")
    varPreco = UploadRequest.Item("txt_Preco").Item("value")    
    varPagamento = UploadRequest.Item("txt_Pagamento").Item("value")
    varObservacoes = UploadRequest.Item("txt_InfoComplementar").Item("value")         
    varDataCadastro = formatDateTime(date,2)
    
    
'=============================================================================================================================
' TRABALHANDO FOTOs
' Tipo de arquivo que esta sendo enviado
tipo_foto1 = UploadRequest.Item("txt_foto1").Item("ContentType")
tipo_foto2 = UploadRequest.Item("txt_foto2").Item("ContentType")
tipo_foto3 = UploadRequest.Item("txt_foto3").Item("ContentType")
tipo_foto4 = UploadRequest.Item("txt_foto4").Item("ContentType")
tipo_foto5 = UploadRequest.Item("txt_foto5").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto1 = UploadRequest.Item("txt_foto1").Item("FileName")
caminho_foto2 = UploadRequest.Item("txt_foto2").Item("FileName")
caminho_foto3 = UploadRequest.Item("txt_foto3").Item("FileName")
caminho_foto4 = UploadRequest.Item("txt_foto4").Item("FileName")
caminho_foto5 = UploadRequest.Item("txt_foto5").Item("FileName")

' Nome dos arquivos enviados
nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))
nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))
nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))
nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))
nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\"))

' Conteudo binario dos arquivos enviados

foto1 = UploadRequest.Item("txt_foto1").Item("Value")
foto2 = UploadRequest.Item("txt_foto2").Item("Value")
foto3 = UploadRequest.Item("txt_foto3").Item("Value")
foto4 = UploadRequest.Item("txt_foto4").Item("Value")
foto5 = UploadRequest.Item("txt_foto5").Item("Value")


' pasta onde as imagens serao guardadas
pasta = Server.MapPath("Fotos_maquinas_venda/")
nome_foto1 = "/"&nome_foto1
nome_foto2 = "/"&nome_foto2
nome_foto3 = "/"&nome_foto3
nome_foto4 = "/"&nome_foto4
nome_foto5 = "/"&nome_foto5

' pasta + nome dos arquivos
cfoto1 = "Fotos_maquinas_venda" + nome_foto1
cfoto2 = "Fotos_maquinas_venda" + nome_foto2
cfoto3 = "Fotos_maquinas_venda" + nome_foto3
cfoto4 = "Fotos_maquinas_venda" + nome_foto4
cfoto5 = "Fotos_maquinas_venda" + nome_foto5

' Fazendo o Upload do arquivo selecionado
if cfoto1 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
For i = 1 to LenB(cfoto1)
MyFile.Write chr(AscB(MidB(cfoto1,i,1)))
Next
MyFile.Close
end if

if cfoto2 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)
For i = 1 to LenB(cfoto2)
MyFile.Write chr(AscB(MidB(cfoto2,i,1)))
Next
MyFile.Close
end if

if cfoto3 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)
For i = 1 to LenB(cfoto3)
MyFile.Write chr(AscB(MidB(cfoto3,i,1)))
Next
MyFile.Close
end if

if cfoto4 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)
For i = 1 to LenB(cfoto4)
MyFile.Write chr(AscB(MidB(cfoto4,i,1)))
Next
MyFile.Close
end if

if cfoto5 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)
For i = 1 to LenB(cfoto5)
MyFile.Write chr(AscB(MidB(foto5,i,1)))
Next
MyFile.Close
end if
'=================================================================================================================================
'-----------------# - SUBSTITUIÇÃO DE CARACTERES NULOS PRESENTES NO FORMULARIO - #--------------------------------------------    
    
    varPreco = REPLACE(varPreco, "." , " ")
    varPreco = REPLACE(varPreco, "," , ".")
    varFone = Replace(varFone , "-" , " " )
    
'=============================================================================================================================


'-----------------# - INSTRUÇÃO SQL DE INCLUSÃO DE CADASTRO NO BANCO DE DADO - #----------------------------------------------

CALL AbreConexao
strINS = "Insert into TBL_MAQUINAS_VENDA (ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES  , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA) values ("&varId_usuario&",'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', #"& varDataCadastro &"#)"

SET rsSQL = conexaoDB.EXECUTE(sql)

'==================================================================================================================================
%>
<style type="text/css">
<!--
body,td,th {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 10px;
}
body {
    margin-left: 0px;
    margin-top: 0px;
    margin-right: 0px;
    margin-bottom: 0px;
}
.style1 {font-size: 12px}
.style2 {color: #FFFFFF}
.style3 {font-size: 12px; color: #FFFFFF; }
.style5 {font-size: 12px;
    font-weight: bold;
    color: #FFFFFF;
}
.style6 {color: #33507D}
.style9 {
    font-size: 11px;
    color: #000000;
}
.style11 {color: #33507D; font-size: 10px; }
.style14 {color: #33507D; font-size: 10px; font-weight: bold; }
a {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 10px;
}
a:link {
    color: #33507D;
}
a:visited {
    color: #33507D;
}
a:hover {
    color: #456DAB;
}
a:active {
    color: #456DAB;
}
-->
</style>

<html>
<head>
<title>Cadastrando Máquina a venda</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="546">
<!-- fwtable fwsrc="Untitled" fwpage="Page 1" fwbase="nosso_objetivo.jpg" fwstyle="Dreamweaver" fwdocid = "70924152" fwnested="0" -->
  <tr>
   <td><img src="imagens/spacer.gif" width="2" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="31" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="22" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="161" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="94" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="34" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="77" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="12" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="113" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td>
  </tr>

  <tr>
   <td colspan="2" bgcolor="#F4F9FF"><img name="principal_r1_c1" src="imagens/principal_r1_c1.jpg" width="32" height="29" border="0" alt=""></td>
   <td colspan="2" bgcolor="#F4F9FF">&nbsp;</td>
   <td colspan="5" bgcolor="#E1E8EE">&nbsp;</td>
   <td><img src="imagens/spacer.gif" width="1" height="30" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="9" valign="middle" background="imagens/nosso_objetivo_r2_c3.jpg"><div align="right"><span class="style1"><span class="style5">Cadastro de Máquina á Venda</span>&nbsp;&nbsp; </span></div></td>
   <td><img src="imagens/spacer.gif" width="1" height="22" border="0" alt=""></td>
  </tr>
  <tr>
   <td><img name="nosso_objetivo_r3_c1" src="imagens/nosso_objetivo_r3_c1.jpg" width="2" height="14" border="0" alt=""></td>
   <td colspan="3" bgcolor="#F4F9FF">&nbsp;</td>
   <td colspan="5" bgcolor="#E1E8EE"><div align="center"></div></td>
   <td><img src="imagens/spacer.gif" width="1" height="14" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="4"><img name="nosso_objetivo_r4_c1" src="imagens/nosso_objetivo_r4_c1.jpg" width="216" height="4" border="0" alt=""></td>
   <td colspan="5" rowspan="4" align="left" valign="top" bgcolor="#F4F9FF">
     <table width="100%" border="0" cellspacing="0" cellpadding="3">
       <tr>
         <td colspan="2" bgcolor="#F4F9FF">&nbsp;</td>
       </tr>
       <tr>
         <td colspan="2" bgcolor="#F4F9FF">   </td>
        </tr>
       
       <tr>
         <td colspan="2" bgcolor="#F4F9FF"><table width="100%" border="0">
           <tr>
             <td>


<% '========================================================================================================================== %></td>
             </tr>
         </table></td>
        </tr>
       <tr>
         <td bgcolor="#F4F9FF">&nbsp;</td>
         <td bgcolor="#F4F9FF">&nbsp;</td>
       </tr>
       <tr>
         <td colspan="2" bgcolor="#F4F9FF"><div align="center"><span class="style14"></span></div></td>
        </tr>
     </table>
   
   </td>
   <td><img src="imagens/spacer.gif" width="1" height="4" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="4" align="center" valign="bottom"><table width="100%" border="0" cellspacing="3" cellpadding="3">
     <tr>
       <td><div align="justify"><span class="style11">O formulário ao lado, permite o cadastro de máquinas a venda. Se você deseja vender seu equipamento basta anunciar em nosso site através do cadastro de máquinas a venda. O anúncio é gratuíto. Entretando, o usuário deverá estar de acordo com as normas para a utilização dos serviços prestados pelo site.<br>
             <br>
Conheça as normas de utilização dos nossos serviços em:<br>
<strong>Como funciona</strong></span><span class="style5"><span class="style6"><br>
         </span></span></div></td>
     </tr>
   </table>     <span class="style2"><span class="style6"><br>
     <br>
     <span class="style1"><strong>Para maiores informações, <br>
    favor entrar em contato.</strong></span><br>
    </span><br> 
     </span><span class="style3"><span class="style9">Fones: (62) 9159-3858 / 3584-4753</span></span></td>
   <td><img src="imagens/spacer.gif" width="1" height="290" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="4" align="center" valign="middle" background="imagens/nosso_objetivo_r6_c1.jpg"><span class="style4">     E-mail: gilmarcastro@terra.com.br</span> </td>
   <td><img src="imagens/spacer.gif" width="1" height="36" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="4"><img name="nosso_objetivo_r7_c1" src="imagens/nosso_objetivo_r7_c1.jpg" width="216" height="43" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="1" height="43" border="0" alt=""></td>
  </tr>
</table>

</body>
</html>

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado (editado)
a função certa é essa:

testei agora

CALL AbreConexao
on error resume next
campos="ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES  , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA"
valores="1,'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', #"& varDataCadastro &"#"

camp=split(campos,",")

val=split(valores,",")

strINS = "Insert into TBL_MAQUINAS_VENDA ("
strx=")"
strx2=") values ("
total=ubound(camp)

for i=0 to total
x2=""
x3=""
for i2=lbound(camp) to i
x5=trim(val(i2))
if x5="" then x5=0
if x5="''" then x5="'0'"
x2=x2&camp(i2)&","
x3=x3&x5&","
x4=camp(i2)

x2=x2
x3=x3


next

if right(x2,1)="," then 
x2=left(x2,(len(x2)-1))
end if

if right(x3,1)="," then 
x3=left(x3,(len(x3)-1))
end if

sql=strINS&trim(x2)&strx2&trim(x3)&strx

SET rsSQL = conexaoDB.EXECUTE(sql)

if err<>0 then
response.write "Campo "&x4&" gerou erro === "&sql&"<br><br>"
end if


next
porque não cadastra? (a resolução que achei) - o banco não aceita registros em branco - devido ao relacionamento o campo id_usuario deve ter um id_usuario existente - remova a expressão: 
<%
rsSQL.Close
SET rsSQL = Nothing
SET rsSalva = Nothing
%>
vo posta o código aqui.. 
<%@LANGUAGE="VBSCRIPT" %>
<!-- #Include File="conecta.asp" -->
<!-- #include file = "upload_funcoes.asp" -->
<%
'---------------# - DECLARAÇÃO DE VARIAVEIS - #------------------------------------------------------------------------------

DIM conexaoDB , rsSalva , rsSQL , strINS , sql , sql13 , sql12 , strSQL , varDataCadastro
DIM varId_usuario , varMarca , varModelo , varFormato , varAnoFabricacao , varTipo , varFuncionamento , varAparencia , varCidade , varEstado , varNome , varEmpresa , varDDD , varFone , varEmail , varPreco , varPagamento , varObservacoes , varFoto1 , varFoto2 , varFoto3 , varFoto4 , varFoto5'============================================================================================================================

'----------------------------------# - FAZENDO O UPLOAD - #-----------------------------------------------------------------------
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
'---------------# - RECEPÇÃO DE DADOS INSERIDOS NO FORMULARIO DE CADASTRO DE USUARIOS - #----------------------------------------
' Recuperando os Dados Digitados ----------------------

    varId_usuario = session("id_usuario")
    varMarca = UploadRequest.Item("txt_Marca").Item("value")
    varModelo = UploadRequest.Item("txt_Modelo").Item("value")
    varFormato = UploadRequest.Item("txt_Formato").Item("value")    
    varAnoFabricacao = UploadRequest.Item("txt_AnoFabricacao").Item("value")
    varTipo = UploadRequest.Item("txt_Tipo").Item("value")
    varFuncionamento = UploadRequest.Item("txt_Funcionamento").Item("value")
    varAparencia = UploadRequest.Item("txt_Aparencia").Item("value")
    varCidade = UploadRequest.Item("txt_LocCidade").Item("value")
    varEstado = UploadRequest.Item("txt_LocEstado").Item("value")
    varNome = UploadRequest.Item("txt_NomeContato").Item("value")
    varEmpresa = UploadRequest.Item("txt_EmpresaContato").Item("value")    
    varDDD = UploadRequest.Item("txt_DDD_FoneContato").Item("value")
    varFone = UploadRequest.Item("txt_TelefoneContato").Item("value")
    varNome = UploadRequest.Item("txt_NomeContato").Item("value")
    varEmail = UploadRequest.Item("txt_EmailContato").Item("value")
    varPreco = UploadRequest.Item("txt_Preco").Item("value")    
    varPagamento = UploadRequest.Item("txt_Pagamento").Item("value")
    varObservacoes = UploadRequest.Item("txt_InfoComplementar").Item("value")         
    varDataCadastro = formatDateTime(date,2)
    
    
'=============================================================================================================================
' TRABALHANDO FOTOs
' Tipo de arquivo que esta sendo enviado
tipo_foto1 = UploadRequest.Item("txt_foto1").Item("ContentType")
tipo_foto2 = UploadRequest.Item("txt_foto2").Item("ContentType")
tipo_foto3 = UploadRequest.Item("txt_foto3").Item("ContentType")
tipo_foto4 = UploadRequest.Item("txt_foto4").Item("ContentType")
tipo_foto5 = UploadRequest.Item("txt_foto5").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto1 = UploadRequest.Item("txt_foto1").Item("FileName")
caminho_foto2 = UploadRequest.Item("txt_foto2").Item("FileName")
caminho_foto3 = UploadRequest.Item("txt_foto3").Item("FileName")
caminho_foto4 = UploadRequest.Item("txt_foto4").Item("FileName")
caminho_foto5 = UploadRequest.Item("txt_foto5").Item("FileName")

' Nome dos arquivos enviados
nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))
nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))
nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))
nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))
nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\"))

' Conteudo binario dos arquivos enviados

foto1 = UploadRequest.Item("txt_foto1").Item("Value")
foto2 = UploadRequest.Item("txt_foto2").Item("Value")
foto3 = UploadRequest.Item("txt_foto3").Item("Value")
foto4 = UploadRequest.Item("txt_foto4").Item("Value")
foto5 = UploadRequest.Item("txt_foto5").Item("Value")


' pasta onde as imagens serao guardadas
pasta = Server.MapPath("Fotos_maquinas_venda/")
nome_foto1 = "/"&nome_foto1
nome_foto2 = "/"&nome_foto2
nome_foto3 = "/"&nome_foto3
nome_foto4 = "/"&nome_foto4
nome_foto5 = "/"&nome_foto5

' pasta + nome dos arquivos
cfoto1 = "Fotos_maquinas_venda" + nome_foto1
cfoto2 = "Fotos_maquinas_venda" + nome_foto2
cfoto3 = "Fotos_maquinas_venda" + nome_foto3
cfoto4 = "Fotos_maquinas_venda" + nome_foto4
cfoto5 = "Fotos_maquinas_venda" + nome_foto5

' Fazendo o Upload do arquivo selecionado
if cfoto1 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
For i = 1 to LenB(cfoto1)
MyFile.Write chr(AscB(MidB(cfoto1,i,1)))
Next
MyFile.Close
end if

if cfoto2 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)
For i = 1 to LenB(cfoto2)
MyFile.Write chr(AscB(MidB(cfoto2,i,1)))
Next
MyFile.Close
end if

if cfoto3 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)
For i = 1 to LenB(cfoto3)
MyFile.Write chr(AscB(MidB(cfoto3,i,1)))
Next
MyFile.Close
end if

if cfoto4 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)
For i = 1 to LenB(cfoto4)
MyFile.Write chr(AscB(MidB(cfoto4,i,1)))
Next
MyFile.Close
end if

if cfoto5 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)
For i = 1 to LenB(cfoto5)
MyFile.Write chr(AscB(MidB(foto5,i,1)))
Next
MyFile.Close
end if
'=================================================================================================================================
'-----------------# - SUBSTITUIÇÃO DE CARACTERES NULOS PRESENTES NO FORMULARIO - #--------------------------------------------    
    
    varPreco = REPLACE(varPreco, "." , " ")
    varPreco = REPLACE(varPreco, "," , ".")
    varFone = Replace(varFone , "-" , " " )
    
'=============================================================================================================================


'-----------------# - INSTRUÇÃO SQL DE INCLUSÃO DE CADASTRO NO BANCO DE DADO - #----------------------------------------------

CALL AbreConexao
strINS = "Insert into TBL_MAQUINAS_VENDA (ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES  , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA) values ("&varId_usuario&",'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', #"& varDataCadastro &"#)"

SET rsSQL = conexaoDB.EXECUTE(sql)

'==================================================================================================================================
%>
<style type="text/css">
<!--
body,td,th {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 10px;
}
body {
    margin-left: 0px;
    margin-top: 0px;
    margin-right: 0px;
    margin-bottom: 0px;
}
.style1 {font-size: 12px}
.style2 {color: #FFFFFF}
.style3 {font-size: 12px; color: #FFFFFF; }
.style5 {font-size: 12px;
    font-weight: bold;
    color: #FFFFFF;
}
.style6 {color: #33507D}
.style9 {
    font-size: 11px;
    color: #000000;
}
.style11 {color: #33507D; font-size: 10px; }
.style14 {color: #33507D; font-size: 10px; font-weight: bold; }
a {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 10px;
}
a:link {
    color: #33507D;
}
a:visited {
    color: #33507D;
}
a:hover {
    color: #456DAB;
}
a:active {
    color: #456DAB;
}
-->
</style>

<html>
<head>
<title>Cadastrando Máquina a venda</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="546">
<!-- fwtable fwsrc="Untitled" fwpage="Page 1" fwbase="nosso_objetivo.jpg" fwstyle="Dreamweaver" fwdocid = "70924152" fwnested="0" -->
  <tr>
   <td><img src="imagens/spacer.gif" width="2" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="31" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="22" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="161" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="94" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="34" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="77" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="12" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="113" height="1" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="1" height="1" border="0" alt=""></td>
  </tr>

  <tr>
   <td colspan="2" bgcolor="#F4F9FF"><img name="principal_r1_c1" src="imagens/principal_r1_c1.jpg" width="32" height="29" border="0" alt=""></td>
   <td colspan="2" bgcolor="#F4F9FF">&nbsp;</td>
   <td colspan="5" bgcolor="#E1E8EE">&nbsp;</td>
   <td><img src="imagens/spacer.gif" width="1" height="30" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="9" valign="middle" background="imagens/nosso_objetivo_r2_c3.jpg"><div align="right"><span class="style1"><span class="style5">Cadastro de Máquina á Venda</span>&nbsp;&nbsp; </span></div></td>
   <td><img src="imagens/spacer.gif" width="1" height="22" border="0" alt=""></td>
  </tr>
  <tr>
   <td><img name="nosso_objetivo_r3_c1" src="imagens/nosso_objetivo_r3_c1.jpg" width="2" height="14" border="0" alt=""></td>
   <td colspan="3" bgcolor="#F4F9FF">&nbsp;</td>
   <td colspan="5" bgcolor="#E1E8EE"><div align="center"></div></td>
   <td><img src="imagens/spacer.gif" width="1" height="14" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="4"><img name="nosso_objetivo_r4_c1" src="imagens/nosso_objetivo_r4_c1.jpg" width="216" height="4" border="0" alt=""></td>
   <td colspan="5" rowspan="4" align="left" valign="top" bgcolor="#F4F9FF">
     <table width="100%" border="0" cellspacing="0" cellpadding="3">
       <tr>
         <td colspan="2" bgcolor="#F4F9FF">&nbsp;</td>
       </tr>
       <tr>
         <td colspan="2" bgcolor="#F4F9FF">   </td>
        </tr>
       
       <tr>
         <td colspan="2" bgcolor="#F4F9FF"><table width="100%" border="0">
           <tr>
             <td>


<% '========================================================================================================================== %></td>
             </tr>
         </table></td>
        </tr>
       <tr>
         <td bgcolor="#F4F9FF">&nbsp;</td>
         <td bgcolor="#F4F9FF">&nbsp;</td>
       </tr>
       <tr>
         <td colspan="2" bgcolor="#F4F9FF"><div align="center"><span class="style14"></span></div></td>
        </tr>
     </table>
   
   </td>
   <td><img src="imagens/spacer.gif" width="1" height="4" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="4" align="center" valign="bottom"><table width="100%" border="0" cellspacing="3" cellpadding="3">
     <tr>
       <td><div align="justify"><span class="style11">O formulário ao lado, permite o cadastro de máquinas a venda. Se você deseja vender seu equipamento basta anunciar em nosso site através do cadastro de máquinas a venda. O anúncio é gratuíto. Entretando, o usuário deverá estar de acordo com as normas para a utilização dos serviços prestados pelo site.<br>
             <br>
Conheça as normas de utilização dos nossos serviços em:<br>
<strong>Como funciona</strong></span><span class="style5"><span class="style6"><br>
         </span></span></div></td>
     </tr>
   </table>     <span class="style2"><span class="style6"><br>
     <br>
     <span class="style1"><strong>Para maiores informações, <br>
    favor entrar em contato.</strong></span><br>
    </span><br> 
     </span><span class="style3"><span class="style9">Fones: (62) 9159-3858 / 3584-4753</span></span></td>
   <td><img src="imagens/spacer.gif" width="1" height="290" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="4" align="center" valign="middle" background="imagens/nosso_objetivo_r6_c1.jpg"><span class="style4">     E-mail: gilmarcastro@terra.com.br</span> </td>
   <td><img src="imagens/spacer.gif" width="1" height="36" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="4"><img name="nosso_objetivo_r7_c1" src="imagens/nosso_objetivo_r7_c1.jpg" width="216" height="43" border="0" alt=""></td>
   <td><img src="imagens/spacer.gif" width="1" height="43" border="0" alt=""></td>
  </tr>
</table>

</body>
</html>
Olha so o que foi impresso na pagina Campo preço gerou erro === Insert into TBL_MAQUINAS_VENDA (ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0') Campo PAGAMENTO gerou erro === Insert into TBL_MAQUINAS_VENDA (ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0') Campo OBSERVACOES gerou erro === Insert into TBL_MAQUINAS_VENDA (ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0','0') Campo FOTO1 gerou erro === Insert into TBL_MAQUINAS_VENDA (ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES , FOTO1) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0','0','Fotos_maquinas_venda/427904-001.JPG') Campo FOTO2 gerou erro === Insert into TBL_MAQUINAS_VENDA (ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0','0','Fotos_maquinas_venda/427904-001.JPG','Fotos_maquinas_venda/828273-002.JPG') Campo FOTO3 gerou erro === Insert into TBL_MAQUINAS_VENDA (ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0','0','Fotos_maquinas_venda/427904-001.JPG','Fotos_maquinas_venda/828273-002.JPG','Fotos_maquinas_venda/828275-003.JPG') Campo FOTO4 gerou erro === Insert into TBL_MAQUINAS_VENDA (ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3 , FOTO4) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0','0','Fotos_maquinas_venda/427904-001.JPG','Fotos_maquinas_venda/828273-002.JPG','Fotos_maquinas_venda/828275-003.JPG','Fotos_maquinas_venda/828436-004.JPG') Campo FOTO5 gerou erro === Insert into TBL_MAQUINAS_VENDA (ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0','0','Fotos_maquinas_venda/427904-001.JPG','Fotos_maquinas_venda/828273-002.JPG','Fotos_maquinas_venda/828275-003.JPG','Fotos_maquinas_venda/828436-004.JPG','Fotos_maquinas_venda/828438-015.JPG') Campo DATA gerou erro === Insert into TBL_MAQUINAS_VENDA (ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA) values (44,'0','0','0',0,'0','0','0','0','0','0','0',0,0,'0','0','0','0','Fotos_maquinas_venda/427904-001.JPG','Fotos_maquinas_venda/828273-002.JPG','Fotos_maquinas_venda/828275-003.JPG','Fotos_maquinas_venda/828436-004.JPG','Fotos_maquinas_venda/828438-015.JPG',#3/9/2008#) olha o que ta acontecendo no DB http://users6.nofeehost.com/webtecno/Db_GilMaquinas.rar Meu codigo: 
<%@LANGUAGE="VBSCRIPT" %>
<!--#include file ="conexaoDB.inc" -->
<!-- #include file = "upload_funcoes.asp" -->
<%
'---------------# - DECLARAÇÃO DE VARIAVEIS - #------------------------------------------------------------------------------

DIM conexaoDB , rsSalva , rsSQL , strINS , sql , sql13 , sql12 , strSQL , varDataCadastro
DIM varId_usuario , varMarca , varModelo , varFormato , varAnoFabricacao , varTipo , varFuncionamento , varAparencia , varCidade , varEstado , varNome , varEmpresa , varDDD , varFone , varEmail , varPreco , varPagamento , varObservacoes , varFoto1 , varFoto2 , varFoto3 , varFoto4 , varFoto5'===========================================================================================================================

'----------------------------------# - FAZENDO O UPLOAD - #-----------------------------------------------------------------------
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

'---------------# - RECEPÇÃO DE DADOS INSERIDOS NO FORMULARIO DE CADASTRO DE USUARIOS - 
' Recuperando os Dados Digitados ----------------------

    varId_usuario = session("id_usuario")
    varMarca = UploadRequest.Item("txt_Marca").Item("value")
    varModelo = UploadRequest.Item("txt_Modelo").Item("value")
    varFormato = UploadRequest.Item("txt_Formato").Item("value")    
    varAnoFabricacao = UploadRequest.Item("txt_AnoFabricacao").Item("value")
    varTipo = UploadRequest.Item("txt_Tipo").Item("value")
    varFuncionamento = UploadRequest.Item("txt_Funcionamento").Item("value")
    varAparencia = UploadRequest.Item("txt_Aparencia").Item("value")
    varCidade = UploadRequest.Item("txt_LocCidade").Item("value")
    varEstado = UploadRequest.Item("txt_LocEstado").Item("value")
    varNome = UploadRequest.Item("txt_NomeContato").Item("value")
    varEmpresa = UploadRequest.Item("txt_EmpresaContato").Item("value")    
    varDDD = UploadRequest.Item("txt_DDD_FoneContato").Item("value")
    varFone = UploadRequest.Item("txt_TelefoneContato").Item("value")
    varNome = UploadRequest.Item("txt_NomeContato").Item("value")
    varEmail = UploadRequest.Item("txt_EmailContato").Item("value")
    varPreco = UploadRequest.Item("txt_Preco").Item("value")    
    varPagamento = UploadRequest.Item("txt_Pagamento").Item("value")
    varObservacoes = UploadRequest.Item("txt_InfoComplementar").Item("value")         
    varDataCadastro = formatDateTime(date,2)
    
    
'==================================
' Tipo de arquivo que esta sendo enviado
tipo_foto1 = UploadRequest.Item("txt_foto1").Item("ContentType")
tipo_foto2 = UploadRequest.Item("txt_foto2").Item("ContentType")
tipo_foto3 = UploadRequest.Item("txt_foto3").Item("ContentType")
tipo_foto4 = UploadRequest.Item("txt_foto4").Item("ContentType")
tipo_foto5 = UploadRequest.Item("txt_foto5").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto1 = UploadRequest.Item("txt_foto1").Item("FileName")
caminho_foto2 = UploadRequest.Item("txt_foto2").Item("FileName")
caminho_foto3 = UploadRequest.Item("txt_foto3").Item("FileName")
caminho_foto4 = UploadRequest.Item("txt_foto4").Item("FileName")
caminho_foto5 = UploadRequest.Item("txt_foto5").Item("FileName")

' Nome dos arquivos enviados
nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))
nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))
nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))
nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))
nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\"))

' Conteudo binario dos arquivos enviados

foto1 = UploadRequest.Item("txt_foto1").Item("Value")

foto2 = UploadRequest.Item("txt_foto2").Item("Value")
foto3 = UploadRequest.Item("txt_foto3").Item("Value")
foto4 = UploadRequest.Item("txt_foto4").Item("Value")
foto5 = UploadRequest.Item("txt_foto5").Item("Value")


' pasta onde as imagens serao guardadas
pasta = Server.MapPath("Fotos_maquinas_venda/")
nome_foto1 = "/"&nome_foto1
nome_foto2 = "/"&nome_foto2
nome_foto3 = "/"&nome_foto3
nome_foto4 = "/"&nome_foto4
nome_foto5 = "/"&nome_foto5

' pasta + nome dos arquivos
cfoto1 = "Fotos_maquinas_venda" + nome_foto1
cfoto2 = "Fotos_maquinas_venda" + nome_foto2
cfoto3 = "Fotos_maquinas_venda" + nome_foto3
cfoto4 = "Fotos_maquinas_venda" + nome_foto4
cfoto5 = "Fotos_maquinas_venda" + nome_foto5

' Fazendo o Upload do arquivo selecionado
if cfoto1 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
For i = 1 to LenB(cfoto1)
MyFile.Write chr(AscB(MidB(cfoto1,i,1)))
Next
MyFile.Close
end if

if cfoto2 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)
For i = 1 to LenB(cfoto2)
MyFile.Write chr(AscB(MidB(cfoto2,i,1)))
Next
MyFile.Close
end if

if cfoto3 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)
For i = 1 to LenB(cfoto3)
MyFile.Write chr(AscB(MidB(cfoto3,i,1)))
Next
MyFile.Close
end if

if cfoto4 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)
For i = 1 to LenB(cfoto4)
MyFile.Write chr(AscB(MidB(cfoto4,i,1)))
Next
MyFile.Close
end if

if cfoto5 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)
For i = 1 to LenB(cfoto5)
MyFile.Write chr(AscB(MidB(foto5,i,1)))
Next
MyFile.Close
end if

'===============================================================================
'-----------------# - SUBSTITUIÇÃO DE CARACTERES NULOS PRESENTES NO FORMULARIO - 
    
    varPreco = REPLACE(varPreco, "." , " ")
    varPreco = REPLACE(varPreco, "," , ".")
    varFone = Replace(varFone , "-" , " " )
    


'-----------------# - INSTRUÇÃO SQL DE INCLUSÃO DE CADASTRO NO BANCO DE DADO - 


CALL AbreConexao
on error resume next
campos="ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES  , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA"
valores= ""& varId_Usuario&", '"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', #"& varDataCadastro &"#"

camp=split(campos,",")

val=split(valores,",")

strINS = "Insert into TBL_MAQUINAS_VENDA ("
strx=")"
strx2=") values ("
total=ubound(camp)

for i=0 to total
x2=""
x3=""
for i2=lbound(camp) to i
x5=trim(val(i2))
if x5="" then x5=0
if x5="''" then x5="'0'"
x2=x2&camp(i2)&","
x3=x3&x5&","
x4=camp(i2)

x2=x2
x3=x3


next

if right(x2,1)="," then
x2=left(x2,(len(x2)-1))
end if

if right(x3,1)="," then
x3=left(x3,(len(x3)-1))
end if

sql=strINS&trim(x2)&strx2&trim(x3)&strx

SET rsSQL = conexaoDB.EXECUTE(sql)

if err<>0 then
response.write "Campo "&x4&" gerou erro === "&sql&"<br><br>"
end if


next

%>

Editado por ANDRE_GUSTAVO
Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
aff... o ultimo que postei funciona porque testei aqui... só q na hopra q ajeitei pra posta fico preço na sql poe preço lá sem Ç..

Cara ta sendo enviado varios registros de uma so vez para o banco de dados

e os unicos dados que estao sendo registrados corretamente, são o Id do usuario o caminho das fotos e a data,

o restantante dos dados estao todos com o valor zero " 0 ", tanto os campos numericos quanto campos de texto e memorando.

Link Db

http://users6.nofeehost.com/webtecno/Db_GilMaquinas.rar

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
Esses dados que estão sendo inseridos erradamente no bd foram preenchidos no form ou foram deixados em branco?

[]'s Rafael Spilki

Bom dia Rafael,

Eu preencho o form e mando enviar o cadastro

ai é gravado no db uns 10 ou mais registros de uma vez

da uma olhada na TBL_MAQUINA_VENDA que esta no db

No link

http://users6.nofeehost.com/webtecno/Db_GilMaquinas.rar

Apenas os valores do id o caminho das fotos e a data estao sendo enviados corretamentes.

Link para o comentário
Compartilhar em outros sites
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

mas estão ocorrendo vários loops antes do seu insert ser executado... não seria esse o objetivo? qual o objetivo desse loops?

for i=0 to total
x2=""
x3=""
for i2=lbound(camp) to i
x5=trim(val(i2))
if x5="" then x5=0
if x5="''" then x5="'0'"
x2=x2&camp(i2)&","
x3=x3&x5&","
x4=camp(i2)

x2=x2
x3=x3


next

if right(x2,1)="," then
x2=left(x2,(len(x2)-1))
end if

if right(x3,1)="," then
x3=left(x3,(len(x3)-1))
end if

sql=strINS&trim(x2)&strx2&trim(x3)&strx

SET rsSQL = conexaoDB.EXECUTE(sql)
além disso coloca uma ' aspas simples temporariamente nesse on error resume next aí pra ter certeza que não esta aparecendo erro nenhum: 
CALL AbreConexao
'on error resume next

Link para o comentário
Compartilhar em outros sites
  • 0
ANDRE_GUSTAVO

ANDRE_GUSTAVO

Postado
  • Autor
Postado
mas estão ocorrendo vários loops antes do seu insert ser executado... não seria esse o objetivo? qual o objetivo desse loops?

for i=0 to total
x2=""
x3=""
for i2=lbound(camp) to i
x5=trim(val(i2))
if x5="" then x5=0
if x5="''" then x5="'0'"
x2=x2&camp(i2)&","
x3=x3&x5&","
x4=camp(i2)

x2=x2
x3=x3


next

if right(x2,1)="," then
x2=left(x2,(len(x2)-1))
end if

if right(x3,1)="," then
x3=left(x3,(len(x3)-1))
end if

sql=strINS&trim(x2)&strx2&trim(x3)&strx

SET rsSQL = conexaoDB.EXECUTE(sql)
além disso coloca uma ' aspas simples temporariamente nesse on error resume next aí pra ter certeza que não esta aparecendo erro nenhum: 
CALL AbreConexao
'on error resume next

Não deu nenhum erro, porem os dados não estao sendo registrados no db como deveria

ainda esta sendo registrado varios registros.

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado

sem comentarios caso vocês não tenham percebido, essa função serve pra fazer um inert campo a campo da sql...

se tiver 100 campos vai ter 100 cadastros. faz um a um e se escrever algo na tela é porque o primeiro campo que apareceu ta gerando o erro...

porque não usou o que postei lá...

muda oi insert para o q postei

só que aqui é o seguinte... agora tem outro problema porque os campos tão vindo em branco né...

veja esse insert não vai dar erro a não ser que ajam campos em branco.... tendeu... vo olhar depois isso... se acahar eu posto aqui

CALL AbreConexao
strINS = "Insert into TBL_MAQUINAS_VENDA (ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES  , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA) values ("&varId_usuario&",'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', #"& varDataCadastro &"#)"

SET rsSQL = conexaoDB.EXECUTE(sql)

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...