sergiotp

E ae glr, bele?? Eu to tentando fazer um update aq num campo do banco onde ele é do tipo sim/não.. To fazendo como se fosse uma string normal... linkdownload=' "&linkdownload_r&" ' to fazendo assim.. e não ta dando certo... me retorna o seguinte erro... Se alguém puder me da uma mao ae... eu agradeço.. abraços

Fica mais facil se você falar pra gente o erro ne??? Ai sim podemos te ajudar com mais facilidade.. Abraços

Poste seu loop pra gente ver como você ta fazendo....

hehehehehe... vlw pela opiniao D31v1d1... como vocês podem ver.. o site já ta no ar... Abraços

opssss... esqueci de logar.. o usuario acima ai sou eu.. Abraços

manda pra mim também sergiohenrique@tpnet.psi.br

Eu vou fazer um outro sistema aq meu pra estudo com sessions... pode deixar, vou querbrar cabeça... Mas pra esse ai, eu resolvir usar md5... não vai ter como o cara acessar dados de outros.. hehehehe Abraços

beleza... sem erro entaum... vlw pela mao ai... Eu vou procurar saber como funciona esse codigo ai entaum.. Abraços....

cara bem loko... funcionou.... Mas eu não entendi nada dessa função... Sera q seria encomodar muito pedindo pra você me falar o que ela faz? não intendi o codigo... to lendo ele aq.. Mas de qualquer maneira vlw ai Luiz Guilherme Abraço

E ae glr tudo certo??? Entaum quero q me deem uma mao numa parada aq.. É o seguinte, vou enviar o id da pessoa pra uma pagina via querystring... entaum vou buscar os dados no campo de acordo com esse id na querystring.. tipo pagina.asp?id=81... dai vou listar os dados do id 81 para a pessoa poder edita-lo.. Ate ai tudo bem,.. mas tem um porem, vou ter vario usuarios na minha extranet entaum vai q um espertinho vai la em cima e mude o id para 85 por exemplo.. e de um enter, ai meu codigo vai automaticamente listar os dados do id 85 e essa pessoa não tem permissao para editar esse id, ela tem permissao para editar somente o id dela q no caso seria o 81... Dai eu tava tentando fazer assim Session("id") = request.QueryString("id") if Session("id") <> rs("id") then response.write "Você não tem permissão para acessar esses dados" else mostraria os dados end if So q essa verificação não ta rolando, se a pessoa mudar o id la no endereço ele continua me mostrando os dados... vocês tem alguma ideia melhor ai? Ow entaum o porque disso ai não ta funfando? Abraços....

opss... esqueci de logar, esse ai acima sou eu.. E o codigo deu certo... Mas o que você mudou Mario? Nop achei mudanças.. Abraços

Fala ae glr, tudo certo? Bom a minha duvida é a seguinte, eu to fazendo uma validacao (numa tabela do banco onde tenho os usuarios e senhas) de acesso a uma pagina para poder alterar dados.. Ta assim: <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../../database/dados.mdb") usuario = Replace(Request.Form("usuario"),chr(39),"''") senha = Replace(Request.Form("senha"),chr(39),"''") Set Rs = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT * FROM admusuarios WHERE usuario='"&usuario&"' AND senha='"&senha&"' " Set Rs = conn.execute(SQL) If Not Rs.EOF then Set Rs1 = Server.CreateObject("ADODB.RecordSet") SQ11 = "SELECT id, nome FROM listamineira WHERE nome='"&usuario&"' " [COLOR=red]Set Rs1 = conn.execute(SQL1)[/COLOR] Session("idusuario") = Rs("idusuario") Session("senha") = Rs("senha") Session("usuario") = Rs("usuario") Session("nome") = Rs("nome") id = rs1("id") Response.Redirect ("../home/default.asp?id=" & id) else Response.Redirect ("../default.asp?erro=yes") end if rs.close set rs = nothing conn.close set conn=nothing %> Ele me da erro naquela linha ali em cima de vermelho.. o erro é esse... Tipo de erro: Microsoft JET Database Engine (0x80040E0C) O comando de texto não foi definido para o objeto de comando. /lista/anunciante/includes/valida.asp, line 19 Deem uma mao ai, pois nunca topei com esse erro antes.. abraços...

Salve salve... também to curioso pra ver a sua paginação cyber.. posta ai pra gente ver.. Eu nunca tive um banco com mais de 500 registros, por enquanto não... o que to usando em um site de comercio tem 100 e poucos registros ainda, e to usando getrows pra paginar e tals...E ta legal... Bom posta a sua ai pra gente ver cyber.. No mais é isso.. Abraços..

Bom isso q o deividy propos é uma boa, e acho q funcionaria bem... ow entaum você pode fazer ele voltar pro seu diretorio raiz sem usar o endereço tipo response.redirect("diretorio") daria também.. Ae aproveitando o tópico.. eu posso incluir uma variavel dentro do redirect? tipo assim... Response.Redirect ("../home/default.asp?id=<%=id%>") me veio essa duvida na cabeça agora, e se isso for possivel ira resolver meu problema com o site aq... Abraços...

Opa opa... consegui arrumar... hehehe depois de muita briga com o codigo eu cosegui... Abraçossss

Fala ae... desencanei do distinct e to usando uma instrucao normal... era mais pra estudo.. e eu consegui fazer selecionar também... Agora outro problema... instrucao sql = "SELECT * FROM listamineira WHERE categoria='"& categoria &"' ORDER BY id DESC " Dai eu tenho no campo categoria dois registros com a categoria hoteis... hoteis - cafe palace hoteis - hotel brasil... Certo 2 hoteis cadastrados, dai na hora q vai listar ao invés de me listar o cafe palace e o hotel brasil ele ta me mostrando 2 cafe palace... porque isso? Me deem uma luz

E ae glr, tudo certo? Espero q sim. Bom a duvida hj é a seguinte, se liguem nessa intrução sql aq: sql = "SELECT DISTINCT categoria WHERE categoria='"& categoria &"' FROM [listaMineira] ORDER BY id DESC " e ta me dando o seguinte erro... Erro de sintaxe (operador faltando) na expressão de consulta 'categoria WHERE categoria='hospedagem''. essa sintaxe ai em cima eu quem fiz, não tenho ideia de como seja a certa usando o distinct, fui mais pela logica, mas como podem ver não deu certo.... Deem uma mao ai... Abraço

Opa fala ae brother... beleza? Entaum, aq em casa quando da isso eu costumo trocar o drive de conexao com o banco Tipo: DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("../database/dados.mdb") Ai da o problema e eu estou com esse codigo ai em cima, dai eu vou e mudo pra esse.... DSNTemp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/database.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=" Dai funciona... teste ai, quem sabe não resolve teu problema....

Fala brother... beleza? So uma pesquisa feita pelo forum... sua duvida esta respondida aq... http://scriptbrasil.com.br/forum/index.php...topic=33313&hl= Abraços... E feliz pascoa

cmdb.open "DBQ=" & Server.MapPath("seubanco.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password=suasenha" Espero q possa te ajudar... Abraços.. E feliz pascoa

Fala brother, na paz?... deu certo... eu testei a segunda opção... ele me mostrou todas as colunas porem sem ordem nenhuma um exemplo de como os dados estão sendo imprimidos... hehehe testei a segunda opçao e deu isso... Agora já no primeiro exemplo deu certo... <% FOR I=inicio TO fim response.write imoveis(1,i) & " - " & imoveis(2,i) & " - " & imoveis(3,i) & " - " & imoveis(4,i) & " - " & imoveis(5,i) &"<br>" next %> se eu for colocando imoveis(x,i) onde x é o numero da coluna ele vai me exibir de acordo com a coluna q eu solicitar.... So o primeiro exemplo q não exibiu certinho, é falta de tag html pra separar direitnho porque exibindo ele ta, e achei ele mais pratico q o segundo... Bom ta ae DackAle.. Abraço brother

Me expliquem o funcionamento ae glr ... Abraços

Ta vamo la entaum deixa eu intender... pois não sou bom em arrays ainda to aprendendo.... isso aq oh TotalColunas = UBound(ArrRs,1) porque o 1 ali? Quando você fez ArrRs = Rs.GetRows ele pega todo o banco e armazena na variavel arrrs certo? dai não intendi o array ali q tem o 1... Agora esse aq: For U = 0 To (TotalColunas-6) porque o -6? Bom me expliquem ae.. to apredendo e queria saber o funcionamento disso ae... Abraços

Bom eu quero mostrar todos os dados do banco de dados... ow seja todas as colunas... e o codigo so ta me mostrando uma... Eu vi o que o urso mando ali e vo tentar arrumar o meu codigo aq... mas é isso ae q eu quero DackAle... O banco não ta nem estão grande nem estão pequeno... to fazendo com getrows mais pra estudo meu mesmo.. Entaum é isso Abraços

E ae glr... tudo certo? Espero q sim... Resolvi estudar um pouco de getrows e minha duvida é a seguinte... Peguei o codigo q ta no tópico de funcoes aq forum e resolvi tentar fazer uma paginaçao com o banco de dados de um site de imobiliaria q eu to fazerndo aq.... Entaum a paginaçao deu certinho... porem so foi printado na pagina a minha segunda coluna do banco de dados... E eu quero printar na tela o banco de dados todo... o que pode ta ocorrendo??? Como já disse o código é o mesmo do tópico de funcoes aq, so muda o nome dos campos... Código: <% Set Conexao = Server.CreateObject("ADODB.Connection") Dim Dbq6 Dbq6 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/database.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=" Conexao.Open Dbq6 %> <% pagina = request("pagina") if pagina = "" then pagina = 1 else pagina = cint(pagina) end if SQL="SELECT * FROM imoveis ORDER by id DESC" SET RS = Server.CreateObject("Adodb.recordset") RS.Open SQL,Conexao,3,3 if not rs.eof then imoveis = rs.getrows() end if rs.close set rs = nothing total = ubound(imoveis,2) registros = 10 paginas = total / 10 if cint(paginas) * registros < total then paginas = cint(paginas) + 1 end if if pagina = 1 then inicio = 0 else inicio = cint(registros) * (pagina) - 10 end if fim = cint(inicio) + 9 if cint(fim) > cint(total) then fim = cint(total) end if %> Mostrando os dados: <% FOR I=inicio TO fim response.write imoveis(1,i) & "<br>" next %> Queria mostrar todos os registros... deem uma mao ae glr Desde já agradeço a atenção... Abraços