none
FORM com 5 upload de fotos - Erro no INSERT INTO - Me ajudem estou no desespero RRS feed

  • Pergunta

  • Pessoal já to ha uns 5 dias tentando resolver isse problema mas não consigo, já estou no desespero, por favor me ajudem.

    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.

    Linha do erro:

     

    SET rsSQL = conexaoDB.EXECUTE(strINS)

     

    Já fiz varios testes com o RESPONSE.WRITE , variavel por variavel , na SQL, mas não consigo resolver.

    as variaveis não estão recebendo os valores e as fotos não estao chegando na pasta de destino.

    Já verifiquei o FORM, está como POST

     

    Abaixo esta o codigo da página que salva o cadastro no Banco de Dados.

     

    Salva_maquinasvenda.asp

    <%@LANGUAGE="VBSCRIPT"%>

    <!-- #Include File="conexaoDB.inc" -->
    <!--#include file ="global.asa" -->
    <!-- #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 = 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 = session("data")
      varIdusuario = session("id_usuario")
       
        varPreco = REPLACE(varPreco, "." , " ")
        varPreco = REPLACE(varPreco, "," , ".")
        varFone = Replace(varFone , "-" , " " )

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

    '-----------------# - 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 , PRECO , PAGAMENTO , OBSERVACOES  , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA ) values ( "& varIdusuario &",'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', "& varDataCadastro &")"

    strSQL = " SELECT TBL_USUARIOS.ID_USUARIO , TBL_MAQUINAS_VENDA.ID_USUARIO FROM TBL_USUARIOS INNER JOIN TBL_MAQUINAS_VENDA ON TBL_USUARIOS.ID_USUARIO = TBL_MAQUINAS_VENDA.ID_USUARIO "
    CALL AbreConexao

    SET rsSQL = conexaoDB.EXECUTE(strSQL)

    %>

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

      <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 bgcolor="#F4F9FF">&nbsp;</td>
           </tr>
           <tr>
             <td bgcolor="#F4F9FF">   </td>
            </tr>
         
           <tr>
             <td bgcolor="#F4F9FF"><% IF not rsSQL.EOF THEN
       Response.Write "<font face='Verdana' color='red' size='1'>Cadastro não pode prosseguir, devido a algum erro encontrado, por favor tente novamente ou entren em contato com o administrador do site.Obrigado.</font>"
       
    ELSE
    SET rsSalva = conexaoDB.EXECUTE(strINS)
    Response.WRITE "<font face='Verdana' size='1'>Sua máquina já esta cadastrada em nosso site.Obrigado.</font>"
    END IF
    %>  
     </td>
            </tr>
          
           <tr>
             <td bgcolor="#F4F9FF">&nbsp;</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: </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>
    <%
    CALL fechaConexao
    rsSQL.Close
    set rsSalva = Nothing
    SET rsSQL = Nothing

    %>
    </body>
    </html>

    Abaixo segue um LInk com o BD, se alguem quiser da uma olhada:
    http://users6.nofeehost.com/webtecno/Db_GilMaquinas.rar

    Me ajudem por favor.

    Desde ja agradeço pela atenção de todos.

    Obrigado.

    quinta-feira, 4 de setembro de 2008 23:06

Respostas

  • O na verdade o erro estava ocorrendo na hora do recebimento dos textos digitados no form, fui testando variavel por variavel, campo por campo, não entendi o pq do erro, pois estava tudo correto, mas mesmo assim alterei os nomes dos campos no form, e o nome das variaveis na pagina que recebe os dados, depois disso funcionou.

    o programa nao estava reconhecendo as variaveis ou coisa assim,

    varMarca = UploadRequest.Item("txtmarca").Item("value")

    alterei para marca = uploadRequest.Item(marca).Item("value")

    Valeu mesmo heim....

    terça-feira, 9 de setembro de 2008 03:59

Todas as Respostas

  • Experimente', na instrução SQL declarar a data como texto ou com o marcador correto (#)

    '"& varDataCadastro &"', ou #"& varDataCadastro &"# ou '#"& varDataCadastro &"#'

    sexta-feira, 5 de setembro de 2008 06:11
  • Bom dia Leandro,

    declarei as variaveis de acordo como vc indicou, mas ainda continua o erro

    Erro de sintaxe na instrução INSERT INTO

    Qual seria outra alternativa pra sanar esse erro?

    Desde já obrigado pela ajuda

    sexta-feira, 5 de setembro de 2008 11:35
  • Qual é a descrição completa do erro?
    Pode postar um Response.Write da string SQL montada?

     

    sexta-feira, 5 de setembro de 2008 14:04
  • Ai esta Leandro

     

    response.Write(strINS)
    response.End()

     

    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 , PRECO , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA ) values ( 57,'', '', '', , '', '', '', '', '', '', '', , , '', '', '', '', 'Fotos_maquinas_venda/828269-001.JPG', 'Fotos_maquinas_venda/828470-001.JPG', 'Fotos_maquinas_venda/427839-001.JPG', 'Fotos_maquinas_venda/879094-011.JPG', 'Fotos_maquinas_venda/871346-004.JPG', #5 de Setembro de 2008#)

     

    Esta captando apenas o Id do usuario, o path das fotos, porem não esta enviando as fotos para a pasta de destino, tambem captando a data.

     

     

    sexta-feira, 5 de setembro de 2008 14:18
  • Identifquei dois fatores que podem estar causando o erro.

    Primeiro em relação a como a data está sendo passada #5 de Setembro de 2008# ... talvez esse não seja um formato válido pelo access tente escrevê-la #05-09-2008# ou #05/09/2008#.

     

    Segundo vem as colunas que não está recebendo valores, causando techos como:

     

    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 , PRECO , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA ) values ( 57,'', '', '', , '', '', '', '', '', '', '', , , '', '', '', '', 'Fotos_maquinas_venda/828269-001.JPG', 'Fotos_maquinas_venda/828470-001.JPG', 'Fotos_maquinas_venda/427839-001.JPG', 'Fotos_maquinas_venda/879094-011.JPG', 'Fotos_maquinas_venda/871346-004.JPG', #5 de Setembro de 2008#)

     

    Os trechos marcados em vermelho causam erros de sintaxe, um valor mesmo quando não preenchido, deverá receber um valor null ou vazio '', assim como os outros.

     

    Declare a string de inserção assim e veja se o insert é concluído com sucesso no banco:

    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 , PRECO , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA ) values ( 57,'', '', '',null , '', '', '', '', '', '', '',null ,null , '', '', '', '', 'Fotos_maquinas_venda/828269-001.JPG', 'Fotos_maquinas_venda/828470-001.JPG', 'Fotos_maquinas_venda/427839-001.JPG', 'Fotos_maquinas_venda/879094-011.JPG', 'Fotos_maquinas_venda/871346-004.JPG', #05/09/2008#)

    sexta-feira, 5 de setembro de 2008 14:43
  • Leandro,

    olha como eu coloquei

    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 , PRECO , PAGAMENTO , OBSERVACOES  , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA ) values ( "& varIdusuario &",'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', " null ", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', " null ", " null ", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', #"& varDataCadastro &"#)"

     

    agora fica carregando  e não sai da página do form

    sexta-feira, 5 de setembro de 2008 16:56
  • Cara essa sua string tem um erro de sintaxe

    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 , PRECO , PAGAMENTO , OBSERVACOES  , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA ) values ( "& varIdusuario &",'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', " null ", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', " null ", " null ", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', #"& varDataCadastro &"#)"

     

    Você testou o insert com a que eu te mandei no post anterior?

     

    sexta-feira, 5 de setembro de 2008 18:27
  • Leandro, eu tinha usado essa mesmo que vc ´postou por ultimo:

    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 , PRECO , PAGAMENTO , OBSERVACOES  , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA ) values ( "& varIdusuario &",'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', " null ", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', " null ", " null ", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', #"& varDataCadastro &"#)"

     

    olha o que ta aparecendo agora

     

    O Internet Explorer não pode exibir a página da Web

     
     

    Causas prováveis:

    • Você não está conectado à Internet.
    • O site está encontrando problemas.
    • Talvez haja um erro de digitação no endereço.
     

    Você pode tentar:

     

    Diagnosticar Problemas de Conexão

     

    Mais informações

    Esse problema pode ser causado por vários motivos, incluindo:

    • A conectividade com a Internet foi perdida.
    • Site temporariamente indisponível.
    • O Servidor de Nomes de Domínio (DNS) não está acessível.
    • O Servidor de Nomes de Domínio (DNS) não tem uma listagem para o domínio do site.
    • Se for um endereço HTTPS (seguro), clique em Ferramentas, clique em Opções da Internet, clique em Avançadas e verifique se os protocolos SSL e TLS estão habilitados na seção de segurança.

    Para usuários offline

    Ainda é possível ver feeds inscritos e algumas páginas exibidas recentemente.
    Para exibir feeds inscritos

    1. Clique no botão Central de Favoritos , clique em Feeds e clique no feed que deseja exibir.

    Exibir as páginas da Web visitadas recentemente (talvez não funcione em todas as páginas)

    1. Clique em Ferramentas e clique em Trabalhar Offline.
    2. Clique no botão Central de Favoritos , clique em Histórico e clique na página que deseja exibir.

    sexta-feira, 5 de setembro de 2008 21:06
  • Seu IIS parou ou o serviço onde está hospedado não está disponível

     

    terça-feira, 9 de setembro de 2008 03:34
  • Leandro, muito obrigado pela ajuda, consegui solucionar o problema.

    Ta funcionando blz agora.

     

    terça-feira, 9 de setembro de 2008 03:39
  • Bom saber, consegui ajudar de alguma forma?

     

    terça-feira, 9 de setembro de 2008 03:41
  • O na verdade o erro estava ocorrendo na hora do recebimento dos textos digitados no form, fui testando variavel por variavel, campo por campo, não entendi o pq do erro, pois estava tudo correto, mas mesmo assim alterei os nomes dos campos no form, e o nome das variaveis na pagina que recebe os dados, depois disso funcionou.

    o programa nao estava reconhecendo as variaveis ou coisa assim,

    varMarca = UploadRequest.Item("txtmarca").Item("value")

    alterei para marca = uploadRequest.Item(marca).Item("value")

    Valeu mesmo heim....

    terça-feira, 9 de setembro de 2008 03:59