Marcos-rj

<% = Request.ServerVariables("PATH_TRANSLATED") %>

valeu andreia! funcionou era isso mesmo! muito obrigado. to começando a trabalhar com MySQL.

tenta: sql="select * from tabela order by rand() limit 1;"

to tentando fazer um update mas esta dando o seginte erro: a sql: sql = "UPDATE estoque SET qtdminimo = '"&estoque_minimo&"', estoque = '"&estoque&"' WHERE idproduto="&codigo set grava = abredb.execute(sql) end if Response.Redirect "produtos_consultar.asp" alguém sabe o por que deste erro?

eu esta pensando em fazer assim p/ ver se rola ComandoSQL = " SELECT * FROM formas_pagamento WHERE id = 10" Set objRS_pagamento = Server.CreateObject("ADODB.Recordset") objRS_pagamento.CursorLocation = 3 objRS_pagamento.CursorType = 0 objRS_pagamento.LockType = 2 objRS_pagamento.Open ComandoSQL, objCon,,, &H0001 If Trim(Request("deposito")) <> "" Then objRS_pagamento("deposito") = Trim(Request("deposito")) If Trim(Request("deposito_banco ")) <> "" Then objRS_pagamento("deposito_banco") = Trim(Request("deposito_banco ")) If Trim(Request("deposito_agencia")) <> "" Then objRS_pagamento("deposito_agencia ") = Cript(Trim(Request("deposito_agencia "))) objRS_pagamento.Update objRS_pagamento.Close Set objRS_pagamento = Nothing esta certo? não tenho como testar agora. nunca fiz update por recordset

Olá amigos. To com um update aqui que não funciona de jeito nenhum. já fiz busca em vários foruns e nada. Não da mensagem de erro mas não atualiza. o banco de dados é MySQL. outros UPDATE funcionam, so este não atualiza. textozql = "UPDATE formas_pagamento SET deposito = '" & deposito & "', deposito_banco = '" & deposito_Banco & "' , deposito_agencia = '" & deposito_agencia & "', deposito_dagencia = '" & deposito_dagencia & "', deposito_conta = '" & deposito_conta & "', deposito_dconta = '" & deposito_dconta & "', deposito_tipoconta = '" & deposito_tipoconta & "', deposito_cedente = '" & deposito_cedente & "', deposito_cpfcnpj = '" & deposito_cpfcnpj & "', deposito_desconto = '" & deposito_desconto & "', deposito_informacao = '" & deposito_informacao & "', boleto = '" & boleto & "', boleto_banco = '" & boleto_banco & "', boleto_cedente = '" & boleto_cedente & "', boleto_agencia = '" & boleto_agencia & "', boleto_dagencia = '" & boleto_dagencia & "', boleto_conta = '" & boleto_conta & "', boleto_dconta = '" & boleto_dconta & "', boleto_carteira = '" & boleto_carteira & "', boleto_convenio = '" & boleto_convenio & "', boleto_desconto = '" & boleto_desconto & "', boleto_vencimento = '" & boleto_vencimento & "', boleto_linha1 = '" & boleto_linha1 & "', boleto_linha2 = '" & boleto_linha2 & "', boleto_linha3 = '" & boleto_linha3 & "', boleto_linha4 = '" & boleto_linha4 & "', boleto_linha5 = '" & boleto_linha5 & "', boleto_linha6 = '" & boleto_linha6 & "', cartoes = '" & cartoes & "', cartoes_informacao = '" & cartoes_informacao & "', cartao_padrao = '" & cartao_padrao & "', visa = '" & visa & "', visa_minimo = '" & visa_minimo & "', visa_parcelas = '" & visa_parcelas & "', visa_parcelas_juros = '" & visa_parcelas_juros & "', visa_juros = '" & visa_juros & "', mastercard = '" & mastercard & "', mastercard_minimo = '" & mastercard_minimo & "', mastercard_parcelas = '" & mastercard_parcelas & "', mastercad_parcelas_juros = '" & mastercard_parcelas_juros & "', mastercad_juros = '" & mastercard_juros & "', diners = '" & diners & "', diners_minimo = '" & diners_minimo & "', diners_parcelas = '" & diners_parcelas & "', diners_parcelas_juros = '" & diners_parcelas_juros & "', diners_juros = '" & diners_juros & "', amex = '" & amex & "', amex_minimo = '" & amex_minimo & "', amex_parcelas = '" & amex_parcelas & "', amex_parcelas_juros = '" & amex_parcelas_juros & "', amex_juros = '" & amex_juros & "' WHERE id=10" Set atualizapagamento = abredb.Execute(textozql)

alguém pode colocar o link p/ baixar? tenho o dataform2 posso colocar o link.

valeu aí. peguei as instruções SQL e criei a base online pelo PhpMyAdmin! :D

passei a base de dados da minha loja virtual para MySQL, ate tudo beleza. a loja funciona legal offline. Mas não estou sabendo colocar online! como faço p/ jogar este banco de dados online? :( na verdade nau sei nem aonde ele esta! :blink: to usando o MySQL-Front para administrar o banco! é uma duvida ridicula, mas estou começando a usar agora o mysql. tentei criar la pelo servidor, ele abre o PhpMyAdmin mas to perdido!

num sistema que estou desenvolvendo estou usando esta função: function Palavra(str) Palavra = replace(str,"a","[a,á,à,ã,â,ä]") Palavra = replace(Palavra,"e","[e,é,è,ê,ë]") Palavra = replace(Palavra,"i","[i,í,ì,î,ï]") Palavra = replace(Palavra,"o","[o,ó,ò,õ,ô,ö]") Palavra = replace(Palavra,"u","[u,ú,ù,û,ü]") Palavra = Palavra end function '%"&palavra(Cidade)&"% mas tem o seguinte, quando você usa: like '%"&palavra(Cidade)&"%' por ex. se você digitar M, vai vir tudo que tem M no nome.

sqlstmt = "SELECT * FROM Tab_Correio WHERE Cidade like '%"&palavra(Cidade)&"%' ORDER BY Radio,Cidade ASC"

está certo

http://forum.imasters.com.br/index.php?s=&...st&p=417368

Gerando um pdf em ASP, funções e dicas usando o FPDF

Fiz uma mudanças aqui e funcionou em parte. Se eu jogar o valor retornado no value de um input txt da problema de acento, se exibo ele na tela não da problema.

vê se funciona: <% if cat = "" and subcat = "" and busca = "" then str="Select * from registro order by registro" Elseif cat = "" and subcat <> "" and busca = "" then str="Select * from registro where subcat = '"&subcat&"' order by registro" Elseif = "" and subcat = "" and busca <> "" then str="Select * from registro where busca like '"&busca&"' order by registro" if cat <> "" and subcat <> "" and busca = "" then str="Select * from registro where cat = '"&cat&"' and subcat = '"&subcat&"' order by registro" if cat <> "" and subcat = "" and busca <> "" then str="Select * from registro where cat = '"&cat&"' and busca like '%"&busca&"%' order by registro" if cat = "" and subcat <> "" and busca <> "" then str="Select * from registro where subcat = '"&subcat&"' and busca like '%"&busca&"%' order by registro" if cat <> "" and subcat = "" and busca = "" then str="Select * from registro where cat = '"&cat&"' order by registro" if cat <> "" and subcat <> "" and busca <> "" then str="Select * from registro where cat = '"&cat&"' and subcat = '"&subcat&"' and busca like '%"&busca&"%' order by registro" else str="Select * from registro order by registro" end if set rs = conexao.execute(str) %>

Em ASP eu ate consegui com uma função, mas em Javascript(Ajax) não. já tentei de tudo que colocaram na net e nada. To com o sistema de busca de cep funcionando, mas essa porcaria de acentuação não fica direito! Vou tentar fazer uma gambiarra aqui e vê no que dá!

tenta assim: myMail.Subject = Session("Vcontato") & " - DÚVIDAS DO SIM COM ANEXO - VIA SITE"

<% select case x case 0 str="Select * from registro order by registro" case 1 str="where subcat = '"&subcat&"' order by registro" case 2 str="where busca like '"&busca&"' order by registro" case 3 str="where cat = '"&cat&"' and subcat = '"&subcat&"' order by registro" case 4 str="where cat = '"&cat&"' and busca like '%"&busca&"%' order by registro" case 5 str="where subcat = '"&subcat&"' and busca like '%"&busca&"%' order by registro" case 6 str="where cat = '"&cat&"' order by registro" case 7 str="where cat = '"&cat&"' and subcat = '"&subcat&"' and busca like '%"&busca&"%' order by registro" case else str="Select * from registro order by registro" end select set rs=conexao.execute(str) %>

Ele não pode poie é uma palavra reservada do access.

você alterou no banco de dados o nome p/ logo?

então desabilita! senão nunca vai mostrar o erro!!!

Me diz uma coisa, a opção "Mostrar Mensagens de erro http amigáveis" do internet explorer esta habilitada?

Renomei este campo para Imagem ou outra coisa. Eu acho que a Palavra IMAGE é uma palavra reservada no Access.

Se você tirar o campo image volta a funcionar? o que você esta passando neste campo?