Ir para conteúdo
Fórum Script Brasil

Rafael Spilki

Veteranos
  • Total de itens

    1.583
  • Registro em

  • Última visita

Posts postados por Rafael Spilki

  1. Oi Fernanda, não sei por que esse código acima me parece familiar...

    1) Qual o banco de dados que você está utilizando?

    2) Dê um debug na sua instrução de insert assim:

    textosql = "INSERT INTO produtos(cat_id,sub_cat_id,nome,descricaop,descricaog,marca,unidade,origem,peso,
    preço,precoa,imagem,imagem_tab,disp) VALUES('"& MyUpLoad.Form("cat_id")&"','" & sub_cat_id & "','" & nome & "','" & descricaop & "','" & descricaog & "','" & marca & "','" & unidade & "','" & MyUpLoad.Form("origem") & "'," & MyUpLoad.Form("peso") & ",'" & preço & "','" & imagem & "','" & imagem_tab & "','" & disp & "')"
    'inicio debug
    response.write textosql
    response.end
    'fim debug

    poste aqui os resultados.

    []'s Rafael Spilki

    3)

    bareta

    CAMPOS NO BANCO DE DADOS NÃO DEVEM CONTER ACENTUAÇÃO E NEM OUTROS CARACTERES ESPECIAIS NO MAXIMO UNDERLINE (ANO_ID... ETC), ENTÃO ALTERE O CAMPO PREÇO REMOVENDO A Ç E DEIXANDO COM C.

  2. Carvalho, td bem?

    Deixa eu ver se eu entendi: você quer fazer uma busca (tal como do google), ou seja, digita uma(s) palavra chave e quer que "um sistema" busque por esta palavra chave em todos os arquivos de uma detarminada área do seu computador que contenham essa palavra, é isso?

    Bom se for isso, penso que não seria possível, pois, no meu entendimento, você terá que ter padrões a serem estabelecidos...

    Tipo: ou os seus textos vão estar dentro de um banco de dados, em uma tabela x e campo y, ou você vai ter que traçar METATAGS em seus arquivos html, sendo que nestas metatags terão palavras chaves previamente especificadas e nestas metatags poderão ocorrer as buscas...

    Mas enfim... não sei se eu entendi direito... e tipo... tb não sou o dono da verdade... derepente alguém aqui conheça alguma forma, ou algum componente ou qualquer coisa que eu nunca tenha visto, até por nunca ter precisado enfrentar algo do tipo ok? É a primeira vez que me deparo com uma indagação como essa, mas preliminarmente e até superficialmente e se eu entendi direito o que você quer fazer não é possível, ok?

    []'s Rafael Spilki

  3. Posso tentar te ajudar... mas antes de começarmos faça o seguinte:

    1) entre em contato com o server e te certifica do componente que eles disponibilizam para o envio de e-mails... lembre-se aspmail é diferente de aspEmail... são componentes diferentes;

    2) Poste o codigo completo do form;

    3) Posta o codigo completo da página que recebe os dados do form e envia o e-mail;

    ok?

    Fico no aguardo.

    []'s Rafael Spilki

  4. fica bem complicado contar as linhas pra saber exatamente qual é a 91... lembre-se de sempre postar a linha que o erro aponta junto com a mensagem de erro...

    o erro aponta pra essa sub aqui:

    sub abre_conn
        Set objConn = Server.CreateObject ("ADODB.Connection")
        objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\localuser\crbasso\banco\ccee.mdb"
    end sub

    a mensagem de erro diz que o objConn não está ou não foi aberto... caso seja da sub acima certificate de que ela esta sendo "chamada"...

    []'s Rafael Spilki

  5. Cara... é isso que você está querendo?

    <select name="faturadia" size="1" style="font-family: Verdana; font-size: 10 px; color: #808080; border: 1px solid #FFFFFF">
    
    <option>- Escolha o dia -</option>
    
    <% 
    While not rspedidos.EOF 
    
    dim dd, mm, aaaa, data
    dd = datepart ("d", rspedidos("DTA_Pedido"))
    mm = datepart ("m", rspedidos("DTA_Pedido"))
    aaaa = datepart ("y", rspedidos("DTA_Pedido"))
    data = (dd &"/"& mm &"/"& aaaa)
    
    %>
    
    
    <option value="<%= data>"> <%= rspedidos("DTA_Pedido")%></option>
    
    <%
    
    rspedidos.MoveNext
    
    Wend
    
    %>
    
    </select>

    Posta aí o resultado, ok?

    []'s Rafael Spilki

  6. Cara, debuga aí sua instrução... faz assim coloque isso assim:

    response.write sql
    response.end
    exatamente em cima dessa parte aqui:
    set rsINCLUIR = conexao.Execute(sql)

    depois posta o que aparecer na tela aqui no tópico, ok?

    []'s Rafael Spilki

  7. Bom... primeiro vamos ao básico...

    tipo... em algum trecho do seu código aparece:

    on error resume next
    ?!? se sim, coloque uma aspas simples na frente dele assim ó:
    'on error resume next

    segunda coisa:

    pelo que vi na sua instrução todas suas variaveis estão setadas como texto, pois estão entre aspas simples e duplas assim:

    '"variavel"' lembrando que se no bd tem algum campo que está como numero o correto seria na instrução insert está entre aspas duplas apenas assim: "variavelnumerica"... vale a pena dar uma conferidinha nisso tb, ok?

    bom pra começar é isso... veja se dá uma luz aí... se aparecer alguma mensagem de erro poste aqui a mensagem completa e a linha exata que ela indica, ok?

    []'s Rafael Spilki

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

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

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

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

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

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

  14. Cara, você vai precisar fazer upload destas imagens para uma pasta qualquer dentro do seu servidor e salvar os "caminhos" dessas imagens no BD...

    Para fazer o upload é possível inclusive sem componentes, apesar de que muitas hospedagens oferecem componentes "pagos" já em seus contratos, sendo que o uso não aumenta o seu custo e é bem mais fácil de usar...

    Um exemplo de componente pago é o AspUpload que você pode ter informações neste link aqui:

    http://scriptbrasil.com.br/forum/index.php...mp;#entry244902

    entre em contato com o servidor e veja se ele aceita o uso deste é muito bom mesmo e bem fácil de usar!

    um exemplo de upload sem componentes é esse aqui:

    http://scriptbrasil.com.br/forum/index.php...mp;#entry494993

    mas o meu server por exemplo não permitia uploads maiores do que 300 kb por arquivo... o upload sem componentes é cheio de limitações...

    Caso você queira criar, excluir ou alterar estes arquivos terá que o fazer através de FSO, pesquise no forum sobre o assunto, ok? tem muita coisa espalhada por aí e muito material no google a respeito...

    Acho que suas dúvidas eram essas, qualquer coisa posta aí!

    []'s Rafael Spilki

×
×
  • Criar Novo...