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
Rafael Spilki

Rafael Spilki

Postado
Postado

tente assim:

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

[]'s Rafael Spilki

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

bareta

Postado
Postado

caminho mais rápido para descobrir esse erro começe a depurar seu código:

CALL AbreConexao
response.write strINS
response.end()
SET rsSQL = conexaoDB.EXECUTE(strINS)
o resultado pode mostrar onde seu erro, eu acho que pode ser na data... 
strINS = strINS & "#"& varDataCadastro&"#)"

uma simples sobrando no final...

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

ANDRE_GUSTAVO

Postado
  • Autor
Postado (editado)
tente assim:

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

[]'s Rafael Spilki

O erro ainda continua cara....

Acabei de fazer o oque o bareta indicou

e apareceu :

INSERT INTO TBL_MAQUINAS_VENDA ( 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 ( , '','','','','','','','','','',',','',','','',Fotos_maquinas_venda/427933-001.JPG,Fotos_maquinas_venda/828273-002.JPG,Fotos_maquinas_venda/871052-003.JPG,Fotos_maquinas_venda/828443-004.JPG,Fotos_maquinas_venda/bd0264-005.JPG)#1/9/2008#)

Pelo visto não esta sendo enviado os valores dos outros campos do formulario, somente as fotos e a data.

estou certo?

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

ANDRE_GUSTAVO

Postado
  • Autor
Postado
repare também nesse fechamento de parenteses antes do final da sql

Fotos_maquinas_venda/bd0264-005.JPG)#1/9/2008#)

Fotos_maquinas_venda/bd0264-005.JPG,#1/9/2008#)

o melhor seria usar um componente nesse upload.

Fala ai bareta....

aquele parentese la, foi erro de digitação meu, acabei de verificar e testar no lugar do parentese é uma " , "

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 ( 1 , '','','','','','','','','','','',,,'',,'','',Fotos_maquinas_venda/427933-001.JPG,Fotos_maquinas_venda/828273-002.JPG,Fotos_maquinas_venda/871052-003.JPG,Fotos_maquinas_venda/828443-004.JPG,Fotos_maquinas_venda/bd0264-005.JPG,#1/9/2008#)

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

Rafael Spilki

Postado
Postado (editado)

Bah... são varias coisinhas que eu notei aqui:

tente chamar as variavei do form assim:

varModelo = UploadRequest.Item("txt_Marca").Item("Value")
ao invés da forma como está abaixo e depois poste o resultado, ok? 
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, "," , ".")

[]'s Rafael Spilki

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

ANDRE_GUSTAVO

Postado
  • Autor
Postado
Bah... são varias coisinhas que eu notei aqui:

tente chamar as variavei do form assim:

varModelo = UploadRequest.Item("txt_Marca").Item("Value")
ao invés da forma como está abaixo e depois poste o resultado, ok? 
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, "," , ".")

[]'s Rafael Spilki

Rafael... ainda continua

Erro de sintaxe na instrução INSERT INTO.

INSERT INTO TBL_MAQUINAS_VENDA ( 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 ( '','','','','','','','','','','',,,'',,'','',Fotos_maquinas_venda/427808-001.JPG,Fotos_maquinas_venda/828273-002.JPG,Fotos_maquinas_venda/828275-003.JPG,Fotos_maquinas_venda/828436-004.JPG,Fotos_maquinas_venda/828440-005.JPG,#1/9/2008#)

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

Rafael Spilki

Postado
Postado

Esquisito cara... bom... teste com esse outro insert, mas mantenha a requisição dos dados ao form da forma que eu coloquei anteriormente, certo?

strINS = "Insert into TBL_MAQUINAS_VENDA (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 ('"& varMarca &"', '"& varModelo &"', '"& varFormato &"', '"& varAnoFabricacao &"', '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', '"& varDDD &"', '"& varFone &"', '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '"& varDataCadastro &"')"

CALL AbreConexao
SET rsSQL = conexaoDB.EXECUTE(strINS)

Caso apareça erro novamente, independente que seja a mesma mensagem poste tudo novamente, ou seja: form que antecede a inclusão, a pagina de inclusão como está atualmente, a mensagem de erro completa, e a linha em que aparece o erro... além disso peço ainda para que olhe no seu bd e epecifique aqui todos os campos do BD da tabela TBL_MAQUINAS_VENDA que NÃO estão como texto, ou seja, se data não está como texto então coloque: campo data tipo data/hora, ok?

[]'s Rafael Spilki

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

ANDRE_GUSTAVO

Postado
  • Autor
Postado (editado)
Esquisito cara... bom... teste com esse outro insert, mas mantenha a requisição dos dados ao form da forma que eu coloquei anteriormente, certo?

strINS = "Insert into TBL_MAQUINAS_VENDA (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 ('"& varMarca &"', '"& varModelo &"', '"& varFormato &"', '"& varAnoFabricacao &"', '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', '"& varDDD &"', '"& varFone &"', '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '"& varDataCadastro &"')"

CALL AbreConexao
SET rsSQL = conexaoDB.EXECUTE(strINS)
Caso apareça erro novamente, independente que seja a mesma mensagem poste tudo novamente, ou seja: form que antecede a inclusão, a pagina de inclusão como está atualmente, a mensagem de erro completa, e a linha em que aparece o erro... além disso peço ainda para que olhe no seu bd e epecifique aqui todos os campos do BD da tabela TBL_MAQUINAS_VENDA que NÃO estão como texto, ou seja, se data não está como texto então coloque: campo data tipo data/hora, ok? []'s Rafael Spilki
Da uma olhada ai... Página do formulario: form_venda.asp 
<%@LANGUAGE="vb script:Sonumero1(this);" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Tipo:</div></td>
      <td bgcolor="#F4F9FF"><select name="txt_Tipo" id="txt_Tipo" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">
      
        <option value="-1" selected="selected">Selecione</option>
        <% Do While Not rsTIPO.EOF %>
        <option value="<% = rsTIPO("ID_TIPO") %>"><% = rsTIPO("TIPO") %></option>
     <%
rsTIPO.MoveNext
Loop
rsTIPO.Close
Call fechaConexao
Set rsTIPO = Nothing
%>   
    </select></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Funcionamento:</div></td>
      <td bgcolor="#F4F9FF"><select name="txt_Funcionamento" id="txt_Funcionamento" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">
          <option value="-1" selected="selected">Selecione</option>
          <option value="Perfeita">Perfeita</option>
          <option value="Excelente">Excelente</option>
          <option value="Muito Boa">Muito Boa</option>
          <option value="Boa">Boa</option>
          <option value="Regular">Regular</option>
          <option value="Ruim">Ruim</option>
      </select></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Apar&ecirc;ncia:</div></td>
      <td bgcolor="#F4F9FF"><select name="txt_Aparencia" id="txt_Aparencia" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">
          <option value="-1" selected="selected">Selecione</option>
          <option value="Perfeita">Perfeita</option>
          <option value="Excelente">Excelente</option>
          <option value="Muito Boa">Muito Boa</option>
          <option value="Boa">Boa</option>
          <option value="Regular">Regular</option>
          <option value="Ruim">Ruim</option>
      </select></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Localiza&ccedil;&atilde;o da M&aacute;quina </span></div></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Cidade:</div></td>
      <td bgcolor="#F4F9FF"><input name="txt_LocCidade" type="text" id="txt_LocCidade" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("cidade") %>" size="28" maxlength="12" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Estado:</div></td>
      <td bgcolor="#F4F9FF"><select name="txt_LocEstado" id="txt_LocEstado" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">
          <option value="-1">Selecione</option>
          <option value="AC">AC</option>
          <option value="AL">AL</option>
          <option value="AP">AP</option>
          <option value="AM">AM</option>
          <option value="BA">BA</option>
          <option value="CE">CE</option>
          <option value="DF">DF</option>
          <option value="ES">ES</option>
          <option value="GO">GO</option>
          <option value="MA">MA</option>
          <option value="muito">muito</option>
          <option value="MS">MS</option>
          <option value="MG">MG</option>
          <option value="PA">PA</option>
          <option value="PB">PB</option>
          <option value="PR">PR</option>
          <option value="PE">PE</option>
          <option value="PI">PI</option>
          <option value="RJ">RJ</option>
          <option value="RN">RN</option>
          <option value="RS">RS</option>
          <option value="RO">RO</option>
          <option value="RR">RR</option>
          <option value="SC">SC</option>
          <option value="SP">SP</option>
          <option value="SE">SE</option>
          <option value="TO">TO</option>
      </select></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Informa&ccedil;&otilde;es para Contato </span></div></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Nome: </div></td>
      <td bgcolor="#F4F9FF"><input name="txt_NomeContato" type="text" id="txt_NomeContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("nome") %>" size="28" maxlength="50" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Empresa:</div></td>
      <td bgcolor="#F4F9FF"><input name="txt_EmpresaContato" type="text" id="txt_EmpresaContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Telefone:</div></td>
      <td bgcolor="#F4F9FF"><input name="txt_DDD_FoneContato" type="text" id="txt_DDD_FoneContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" onKeyUp="java script:Sonumero2(this);" value="<% =session("ddd") %>" size="3" maxlength="2" />
          <input name="txt_TelefoneContato" type="text" id="txt_TelefoneContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" onKeyUp="java script:Sonumero3(this);" value="<% =session("telefone") %>" size="21" maxlength="12" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">E-mail:</div></td>
      <td bgcolor="#F4F9FF"><input name="txt_EmailContato" type="text" id="txt_EmailContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("email") %>" size="28" maxlength="50" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Condi&ccedil;&otilde;es de Pagamento</span></div></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right"> Pre&ccedil;o:</div></td>
      <td bgcolor="#F4F9FF"><input name="txt_Preco" type="text" id="txt_Preco" onKeyUp="java script:Sonumero4(this);" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Pagamento:</div></td>
      <td bgcolor="#F4F9FF"><select name="txt_Pagamento" id="txt_Pagamento" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">
          <option value="-1" selected="selected">Selecione</option>
          <option value="&Aacute; Vista">&Aacute; Vista</option>
          <option value="&Aacute; Combinar">&Aacute; Combinar</option>
      </select></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Informa&ccedil;&otilde;es Complementares</span></div></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" bgcolor="#F4F9FF"><div align="center">
        <textarea name="txt_InfoComplementar" id="txt_InfoComplementar"  cols="28" rows="5">Digite aqui alguma observa&ccedil;&atilde;o ou dados do equipamento que jugar importante.</textarea>
      </div></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Fotos do Equipamento</span></div></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">
        <div align="right">Foto 1:</div>
      </div></td>
      <td bgcolor="#F4F9FF"><label>
        <input name="txt_foto1" type="file" id="txt_foto1"  style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"  size="18" />
      </label></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">
        <div align="right">Foto 2:</div>
      </div></td>
      <td bgcolor="#F4F9FF"><input name="txt_foto2" type="file" id="txt_foto2"  style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"  size="18" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">
        <div align="right">Foto 3:</div>
      </div></td>
      <td bgcolor="#F4F9FF"><input name="txt_foto3" type="file" id="txt_foto3"  style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"  size="18" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">
        <div align="right">Foto 4:</div>
      </div></td>
      <td bgcolor="#F4F9FF"><input name="txt_foto4" type="file" id="txt_foto4"  style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"  size="18" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Foto 5:</div>
      <div align="right"></div></td>
      <td bgcolor="#F4F9FF"><input name="txt_foto5" type="file" id="txt_foto5" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"  size="18" /></td>
    </tr>
    
    <tr>
      <td colspan="2" bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" bgcolor="#F4F9FF"><div align="center">
        <input type="submit" name="button" id="button"  style=" font-size:10px; color:#FFFFFF;  background-color:#33507C;  font-family:Verdana, Arial, Helvetica, sans-serif"value="Cadastrar" />
      </div></td>
    </tr>
  </table>
</form>
</body>
</html>
Página que faz o cadastro: salva_maquinavenda.asp 
<%@LANGUAGE="VBSCRIPT" %>
<!-- #Include File="conexaoDB.inc" -->
<!-- #include file = "upload_funcoes.asp" -->
<%
'---------------# - DECLARAÇÃO DE VARIAVEIS - #------------------------------------------------------------------------------

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

    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 , "-" , " " )
    
'==============================================================

<!-- #INCLUDE FILE="conexaoDB.inc" -->
'-----------------# - INSTRUÇÃO SQL DE INCLUSÃO DE CADASTRO NO BANCO DE DADO - #-----------------------------------


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

CALL AbreConexao
SET rsSQL = conexaoDB.EXECUTE(strINS)

'================================================================
%>
ERRO: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério. /GilMaquinas/salva_maquinavenda.asp, line 149 LINHA DE ERRO: 
SET rsSQL = conexaoDB.EXECUTE(strINS)

CAMPOS DA TABELA

ID_USUARIO - Nº

MARCA - TXT

MODELO - TXT

FORMATO - TXT

ANO_FABRICACAO - Nº

TIPO - TXT

FUNCIONAMENTO - TXT

APARENCIA - TXT

LOC_CIDADE - TXT

LOC_ESTADO - TXT

NOME - TXT

EMPRESA - TXT

DDD - Nº

TELEFONE - Nº

E_MAIL - TXT

preço - MOEDA

PAGAMENTO - TXT

OBSERVACOES - MEMORANDO

FOTO1 - TXT

FOTO2 - TXT

FOTO3 - TXT

FOTO4 - TXT

FOTO5 - TXT

DATA - DATA/HORA

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

Rafael Spilki

Postado
Postado

Aham... acho que estamos chegando lá amigão...

fiz mais algumas modificaçõezinhas aqui no insert... to fazendo rapidão aqui... então tipo... esses errinhos são normais...

teste com essa instrução abaixo:

strINS = "Insert into TBL_MAQUINAS_VENDA (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 ('"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '"& varDataCadastro &"')"

Poste aqui os resultados, ok?

[]'s Rafael Spilki

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

ANDRE_GUSTAVO

Postado
  • Autor
Postado
Aham... acho que estamos chegando lá amigão...

fiz mais algumas modificaçõezinhas aqui no insert... to fazendo rapidão aqui... então tipo... esses errinhos são normais...

teste com essa instrução abaixo:

strINS = "Insert into TBL_MAQUINAS_VENDA (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 ('"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '"& varDataCadastro &"')"
Poste aqui os resultados, ok? []'s Rafael Spilki
Não deu certo cara... olha o erro Tipo de 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 154 linha 154 
SET rsSQL = conexaoDB.EXECUTE(strINS)

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

Rafael Spilki

Postado
Postado

Tive olhando o seu form que antecede a instrução de insert e não vi a tag <form> você tem ela??? postou a pagina completa que antecede a instrução do insert?!?! porque ela tá bem estranha... tb não tem as tags <html> e etc...

Caso tenha postado a pagina que antece de forma completa colque isso aqui entre as tags <body> </body>

assim:

<body>
<form name="form" action="salva_maquinavenda.asp" method="post" enctype="multipart/form-data">
</form>
</body>
tb coloque as tags <html> </html> de forma a completar seu script... é de fundamental importancia para que funcione seu upload que o form que antecede a instrução de insert esteja como: enctype="multipart/form-data" sacou? bom depois de fazer tudo isso... se continuar dando erro debugue a instrução insert assim: cole esse trecho abaixo da instrução insert into e acima de SET rsSQL = conexaoDB.EXECUTE(strINS) 
response.write strINS
response.end

faça isso e poste os resultados obtidos juntamente com a página completa do form que antecede a instrução de insert!

[]'s Rafael Spilki

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

ANDRE_GUSTAVO

Postado
  • Autor
Postado
Tive olhando o seu form que antecede a instrução de insert e não vi a tag <form> você tem ela??? postou a pagina completa que antecede a instrução do insert?!?! porque ela tá bem estranha... tb não tem as tags <html> e etc...

Caso tenha postado a pagina que antece de forma completa colque isso aqui entre as tags <body> </body>

assim:

<body>
<form name="form" action="salva_maquinavenda.asp" method="post" enctype="multipart/form-data">
</form>
</body>
tb coloque as tags <html> </html> de forma a completar seu script... é de fundamental importancia para que funcione seu upload que o form que antecede a instrução de insert esteja como: enctype="multipart/form-data" sacou? bom depois de fazer tudo isso... se continuar dando erro debugue a instrução insert assim: cole esse trecho abaixo da instrução insert into e acima de SET rsSQL = conexaoDB.EXECUTE(strINS) 
response.write strINS
response.end
faça isso e poste os resultados obtidos juntamente com a página completa do form que antecede a instrução de insert! []'s Rafael Spilki
Rafael, a pagina do form, esta com as tags que você citou. Ainda continuar erro de INSERT INTO pagina do formulario: 
<%@LANGUAGE="vb script:Sonumero1(this);" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Tipo:</div></td>
      <td bgcolor="#F4F9FF"><select name="txt_Tipo" id="txt_Tipo" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">
      
        <option value="-1" selected="selected">Selecione</option>
        <% Do While Not rsTIPO.EOF %>
        <option value="<% = rsTIPO("ID_TIPO") %>"><% = rsTIPO("TIPO") %></option>
     <%
rsTIPO.MoveNext
Loop
rsTIPO.Close
Call fechaConexao
Set rsTIPO = Nothing
%>   
    </select></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Funcionamento:</div></td>
      <td bgcolor="#F4F9FF"><select name="txt_Funcionamento" id="txt_Funcionamento" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">
          <option value="-1" selected="selected">Selecione</option>
          <option value="Perfeita">Perfeita</option>
          <option value="Excelente">Excelente</option>
          <option value="Muito Boa">Muito Boa</option>
          <option value="Boa">Boa</option>
          <option value="Regular">Regular</option>
          <option value="Ruim">Ruim</option>
      </select></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Apar&ecirc;ncia:</div></td>
      <td bgcolor="#F4F9FF"><select name="txt_Aparencia" id="txt_Aparencia" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">
          <option value="-1" selected="selected">Selecione</option>
          <option value="Perfeita">Perfeita</option>
          <option value="Excelente">Excelente</option>
          <option value="Muito Boa">Muito Boa</option>
          <option value="Boa">Boa</option>
          <option value="Regular">Regular</option>
          <option value="Ruim">Ruim</option>
      </select></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Localiza&ccedil;&atilde;o da M&aacute;quina </span></div></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Cidade:</div></td>
      <td bgcolor="#F4F9FF"><input name="txt_LocCidade" type="text" id="txt_LocCidade" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("cidade") %>" size="28" maxlength="12" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Estado:</div></td>
      <td bgcolor="#F4F9FF"><select name="txt_LocEstado" id="txt_LocEstado" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">
          <option value="-1">Selecione</option>
          <option value="AC">AC</option>
          <option value="AL">AL</option>
          <option value="AP">AP</option>
          <option value="AM">AM</option>
          <option value="BA">BA</option>
          <option value="CE">CE</option>
          <option value="DF">DF</option>
          <option value="ES">ES</option>
          <option value="GO">GO</option>
          <option value="MA">MA</option>
          <option value="muito">muito</option>
          <option value="MS">MS</option>
          <option value="MG">MG</option>
          <option value="PA">PA</option>
          <option value="PB">PB</option>
          <option value="PR">PR</option>
          <option value="PE">PE</option>
          <option value="PI">PI</option>
          <option value="RJ">RJ</option>
          <option value="RN">RN</option>
          <option value="RS">RS</option>
          <option value="RO">RO</option>
          <option value="RR">RR</option>
          <option value="SC">SC</option>
          <option value="SP">SP</option>
          <option value="SE">SE</option>
          <option value="TO">TO</option>
      </select></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Informa&ccedil;&otilde;es para Contato </span></div></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Nome: </div></td>
      <td bgcolor="#F4F9FF"><input name="txt_NomeContato" type="text" id="txt_NomeContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("nome") %>" size="28" maxlength="50" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Empresa:</div></td>
      <td bgcolor="#F4F9FF"><input name="txt_EmpresaContato" type="text" id="txt_EmpresaContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Telefone:</div></td>
      <td bgcolor="#F4F9FF"><input name="txt_DDD_FoneContato" type="text" id="txt_DDD_FoneContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" onKeyUp="java script:Sonumero2(this);" value="<% =session("ddd") %>" size="3" maxlength="2" />
          <input name="txt_TelefoneContato" type="text" id="txt_TelefoneContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" onKeyUp="java script:Sonumero3(this);" value="<% =session("telefone") %>" size="21" maxlength="12" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">E-mail:</div></td>
      <td bgcolor="#F4F9FF"><input name="txt_EmailContato" type="text" id="txt_EmailContato" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" value="<% =session("email") %>" size="28" maxlength="50" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Condi&ccedil;&otilde;es de Pagamento</span></div></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right"> Pre&ccedil;o:</div></td>
      <td bgcolor="#F4F9FF"><input name="txt_Preco" type="text" id="txt_Preco" onKeyUp="java script:Sonumero4(this);" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Pagamento:</div></td>
      <td bgcolor="#F4F9FF"><select name="txt_Pagamento" id="txt_Pagamento" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto">
          <option value="-1" selected="selected">Selecione</option>
          <option value="&Aacute; Vista">&Aacute; Vista</option>
          <option value="&Aacute; Combinar">&Aacute; Combinar</option>
      </select></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Informa&ccedil;&otilde;es Complementares</span></div></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" bgcolor="#F4F9FF"><div align="center">
        <textarea name="txt_InfoComplementar" id="txt_InfoComplementar"  cols="28" rows="5">Digite aqui alguma observa&ccedil;&atilde;o ou dados do equipamento que jugar importante.</textarea>
      </div></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"><span class="style14">Fotos do Equipamento</span></div></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF">&nbsp;</td>
      <td bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">
        <div align="right">Foto 1:</div>
      </div></td>
      <td bgcolor="#F4F9FF"><label>
        <input name="txt_foto1" type="file" id="txt_foto1"  style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"  size="18" />
      </label></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">
        <div align="right">Foto 2:</div>
      </div></td>
      <td bgcolor="#F4F9FF"><input name="txt_foto2" type="file" id="txt_foto2"  style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"  size="18" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">
        <div align="right">Foto 3:</div>
      </div></td>
      <td bgcolor="#F4F9FF"><input name="txt_foto3" type="file" id="txt_foto3"  style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"  size="18" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">
        <div align="right">Foto 4:</div>
      </div></td>
      <td bgcolor="#F4F9FF"><input name="txt_foto4" type="file" id="txt_foto4"  style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"  size="18" /></td>
    </tr>
    <tr>
      <td bgcolor="#F4F9FF"><div align="right">Foto 5:</div>
      <div align="right"></div></td>
      <td bgcolor="#F4F9FF"><input name="txt_foto5" type="file" id="txt_foto5" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"  size="18" /></td>
    </tr>
    
    <tr>
      <td colspan="2" bgcolor="#F4F9FF">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" bgcolor="#F4F9FF"><div align="center">
        <input type="submit" name="button" id="button"  style=" font-size:10px; color:#FFFFFF;  background-color:#33507C;  font-family:Verdana, Arial, Helvetica, sans-serif"value="Cadastrar" />
      </div></td>
    </tr>
  </table>
</form>
</body>
</html>

QUANDO MANDO EXIBIR APARECE ISSO AI.... AINDA NÃO ESTA SENDO ENVIADO OS VALORES DOS OUTROS CAMPOS DO FORMULARIO, SOMENTE O ID DO USUARIO AS FOTOS E A DATA ESTAO SENDO ENVIADOS

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 ( 2,'', '', '', , '', '', '', '', '', '', '', , , '', '', '', '', 'Fotos_maquinas_venda/828274-007.JPG', 'Fotos_maquinas_venda/874590-001.JPG', 'Fotos_maquinas_venda/828439-020.JPG', 'Fotos_maquinas_venda/427807-001.JPG', 'Fotos_maquinas_venda/828438-022.JPG', '1/9/2008')

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

Rafael Spilki

Postado
Postado

Mas onde estão estas tags amigão?

Seu codigo do form aqui pra mim começa assim:

<%@LANGUAGE="vb script:Sonumero1(this);" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td>
    </tr>

o que é isso?!? <%@LANGUAGE="vb script:Sonumero1(this)?!?!

e onde está a tag form com enctype="multipart/form-data" eu aqui não consigo ver essa tag?

eu até vejo que o codigo termina assim:

</form>

</body>

</html>

mas não consigo ver de forma alguma aqui <html><body><form> sendo que essa de form ainda deve ser assim:

<form name="form" action="salva_maquinavenda.asp" method="post" enctype="multipart/form-data">

senão não vai funcionar...

[]'s Rafael Spilki

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

bareta

Postado
Postado

veja o q a sql escreve...

strINS = "Insert into TBL_MAQUINAS_VENDA (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 ('"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '"& varDataCadastro &"')"
response.write  strINS
response.end()
num nivel maior de detalhe 
sql="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"


sql3=split("'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '"& varDataCadastro &"'",",")

sql2=split(sql,",")

response.write "strINS = ""Insert into TBL_MAQUINAS_VENDA (<br>"

for i=lbound(sql2) to ubound(sql2)
response.write sql2(i)&"="&sql3(i)&"<br>"
next

response.write ")"

primeiro descubra o que causa o erro... depois porque o form ta em branco...

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

ANDRE_GUSTAVO

Postado
  • Autor
Postado
Mas onde estão estas tags amigão?

Seu codigo do form aqui pra mim começa assim:

<%@LANGUAGE="vb script:Sonumero1(this)[/b]?!?! 

e onde está a tag form com enctype="multipart/form-data" eu aqui não consigo ver essa tag?

eu até vejo que o codigo termina assim:
</form>
</body>
</html>

mas não consigo ver de forma alguma aqui <html><body><form> sendo que essa de form ainda deve ser assim:

<form name="form" action="salva_maquinavenda.asp" method="post" enctype="multipart/form-data">

senão não vai funcionar...

[]'s Rafael Spilki[/quote]
Rafael, essa tag ai aparece quando eu colo o codigo pra postar, não sei porque elas apareceram não
mas aqui no meu programa ta normal, essa tag não existe aqui no arquivo.

[quote name='bareta' post='501339' date='01/09/2008 - 15:49']veja o q a sql escreve...
[code]strINS = "Insert into TBL_MAQUINAS_VENDA (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 ('"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '"& varDataCadastro &"')"
response.write  strINS
response.end()
num nivel maior de detalhe 
sql="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"


sql3=split("'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '"& varDataCadastro &"'",",")

sql2=split(sql,",")

response.write "strINS = ""Insert into TBL_MAQUINAS_VENDA (<br>"

for i=lbound(sql2) to ubound(sql2)
response.write sql2(i)&"="&sql3(i)&"<br>"
next

response.write ")"

primeiro descubra o que causa o erro... depois porque o form ta em branco...

bareta...

olha so o que aconteceu

era isso mesmo?

strINS = "Insert into TBL_MAQUINAS_VENDA (

ID_USUARIO = 2

MARCA =''

MODELO = ''

FORMATO = ''

ANO_FABRICACAO =

TIPO = ''

FUNCIONAMENTO = ''

APARENCIA = ''

LOC_CIDADE = ''

LOC_ESTADO = ''

NOME = ''

EMPRESA = ''

DDD =

TELEFONE =

E_MAIL = ''

preço =

PAGAMENTO = ''

OBSERVACOES = ''

FOTO1 = 'Fotos_maquinas_venda/828274-007.JPG'

FOTO2 = 'Fotos_maquinas_venda/874590-001.JPG'

FOTO3 = 'Fotos_maquinas_venda/828439-020.JPG'

FOTO4 = 'Fotos_maquinas_venda/427807-001.JPG'

FOTO5 = 'Fotos_maquinas_venda/828438-022.JPG'

DATA= '1/9/2008'

)

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

ANDRE_GUSTAVO

Postado
  • Autor
Postado
Cara... zipa ai teus arquivos e bota num link ai pra eu fazer download então e da uma olhadinha... tipo... numa horinha aqui que der uma folga... dou uma olhadinha por cima e te sugiro mais alguns testes ok?

[]'s Rafael Spilki

os arquivos estão nesse link ai:

http://webtecno.webng.com/teste.rar

se precisar de outros arquivos é so falar

valeu

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

bareta

Postado
Postado

pra finaliza faça o seguinte mude o nome do campo preço para preço e teste a sql

if varDataCadastro<>"" then varDataCadastro=cdate(varDataCadastro)

strINS = "Insert into TBL_MAQUINAS_VENDA (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 ('"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '#"& varDataCadastro &"#')"
CALL AbreConexao
SET rsSQL = conexaoDB.EXECUTE(strINS)
se mesmo assim não der certo faça o insert campo a campo... ou use a funcao (deixei o id_usuario fora se ele for autonum adicione ele e mude o campo para numero), fiz agora talvez não funcione e precie de um ajuste... mais depois fica uma função fixa para depurar qualquer insert... 
CALL AbreConexao
on error resume next
campos="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="'"& 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

x2=camp(i2)&","
x3=val(i2)&","
x4=camp(i2)

x2=x2
x3=x3

next

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


SET rsSQL = conexaoDB.EXECUTE(strINS&x2&strx2&strx)

if error<>"" then
response.write "Campo "&x4&" gerou erro<br>"
end if

next

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

ANDRE_GUSTAVO

Postado
  • Autor
Postado
pra finaliza faça o seguinte mude o nome do campo preço para preço e teste a sql

if varDataCadastro<>"" then varDataCadastro=cdate(varDataCadastro)

strINS = "Insert into TBL_MAQUINAS_VENDA (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 ('"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '#"& varDataCadastro &"#')"
CALL AbreConexao
SET rsSQL = conexaoDB.EXECUTE(strINS)
se mesmo assim não der certo faça o insert campo a campo... ou use a funcao (deixei o id_usuario fora se ele for autonum adicione ele e mude o campo para numero), fiz agora talvez não funcione e precie de um ajuste... mais depois fica uma função fixa para depurar qualquer insert... 
CALL AbreConexao
on error resume next
campos="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="'"& 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

x2=camp(i2)&","
x3=val(i2)&","
x4=camp(i2)

x2=x2
x3=x3

next

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


SET rsSQL = conexaoDB.EXECUTE(strINS&x2&strx2&strx)

if error<>"" then
response.write "Campo "&x4&" gerou erro<br>"
end if

next

Iai bareta, so na paz....

Cara o negocio parou de dar o erro, mas não esta registrando na tabela nem enviando as fotos.

Visualmente da certo, mas quando verifico o DB e a pasta que recebe as fotos, nada foi alterado.

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

ANDRE_GUSTAVO

Postado
  • Autor
Postado
link fora!

[]'s Rafael Spilki

Fala ai Rafael...

outro link com os arquivos

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

O fato das tabelas estarem relacionadas, deve ter alguma coisa haver ou não?

o INSERT é a mesma coisa para as tabelas relacionadas?

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". A "TBL_MAQUINAS_VENDA" recebe o ID do usuario para o controle de qual o usuario fez o cadastro da maquina.

Desde já eu agradeço a todos que estao me ajudando nesse problema!

Valeu mesmo pela ajuda de vocês.

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,2k
×
×
  • Criar Novo...