Rafael Spilki

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

Bareta, td bem? Eu acho que o que ele quer é pesquisar palavras "dentro" dos arquivos... e não o nome dos arquivos... a não ser que eu tenha entendido errado... []'s Rafael Spilki

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

Legal Renan, parabéns... qualquer coisa posta aí! []'s Rafael Spilki

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

Este erro aí normalmente aconte4ce quando em algum while não tem resultado nenhum... pode significar que ele foi aberto antes da hora necessária ou fechado antes do momento oportuno... []'s Rafael SPilki

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

Rssssssssss... ok, que bom que funcionou! qualquer coisa posta aí! []'s Rafael Spilki

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

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

Oi André... Já baixei aqui mas ainda não rolou tempo pra dar uma olhadinha nos seus scripts... Como assim relacionados? Tipo um insert pra duas tabelas?!?! Pode explicar que tipo de relacionamento é esse? []'s Rafael Spilki

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

Renan isso que você quer se faz desta forma aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=123154 []'s Rafael Spilki

link fora! []'s Rafael Spilki

Bah bixo... real hein... hj em dia layout é tudo! Bah... tenho muita dificuldade pra fazer layouts balas... me contento (e atpe prefiro) layouts bem simples... mas cara... o seu ta simples demais... vai acabar perdendo clientes ao invés de ganhá-los... Mas tipo... idéia ótima... parabéns pela iniciativa! []'s Rafael Spilki

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

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

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

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

Legal... qualquer coisa posta aí! []'s Rafael Spilki

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

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

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

que linha é essa: 173 !?! []' Rafael Spilki

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