Jump to content
Fórum Script Brasil

koal40

Membros
  • Posts

    103
  • Joined

  • Last visited

About koal40

  • Birthday 05/21/1991

Contatos

Perfil

  • Interests
    Web design -- ^^<br>ASP, PHP, DHTML, XLM, HTM, Flash, JS

koal40's Achievements

0

Reputation

  1. uq você qr fazer? adicionar ou selecionar dados? SELECIONAR: 321. Set AltBd = Server.CreateObject("ADODB.Recordset") 322. AltBd.CursorLocation = adUseServer 323. AltBd.CursorType = adOpenForwardOnly 324. AltBd.LockType = adLockOptimistic 325. AltBd.Open "SELECT * FROM Produtos WHERE Cod = "& VarProduto &"", Banco, , , adCmdText 326. VarCategoria = AltBd("CodCategoria") 327. VarSubCategoria = AltBd("CodSubCategoria") 328. VarNomeProduto = AltBd("NomeProduto") 329.VarPrecoDe = AltBd("PrecoDe") 330. VarPrecoPor = AltBd("PrecoPor") 331. VarDescricao = AltBd("Descricao") 332. VarBreveDescricao = AltBd("BreveDescricao") 333. VarEstoque = AltBd("Estoque") 334. VarPeso = AltBd("Peso") 335. AltBd.Close ADICIONAR: 321. Set AltBd = Server.CreateObject("ADODB.Recordset") 322. AltBd.CursorLocation = adUseServer 323. AltBd.CursorType = adOpenForwardOnly 324. AltBd.LockType = adLockOptimistic 325. AltBd.Open "Produtos WHERE Cod = "& VarProduto 325,5. AltBd.addnew 326. AltBd("CodCategoria") = VarCategoria 327. AltBd("CodSubCategoria") = VarSubCategoria 328. AltBd("NomeProduto") = VarNomeProduto 329. AltBd("PrecoDe") = VarPrecoDe 330. AltBd("PrecoPor") = VarPrecoPor 331. AltBd("Descricao") = VarDescricao 332. AltBd("BreveDescricao") = VarBreveDescricao 333. AltBd("Estoque") = VarEstoque 334. AltBd("Peso") = VarPeso 335. AltBd.Update 336. AltBd.Close acho q é assim...
  2. pode ser em java script?
  3. koal40

    Gerador De Creditos

    se eu não me engano você acaba de infrigir uma regra do forum....
  4. na pagina do cadastro: crie a conexao... suponha q a conexao se chame "oitdbem" set rs = oitdbem.execute("select * from suatabelademembros where campousuario = '"&request.form("nomedocampotxt")) if not rs.eof then response.write("usuario existe") else response.write("usuario disponivel") end if
  5. o campo é hora... mas isto está certo...
  6. aew, tah dando erro! bem ai vai o codigo: conexao.execute("update config set usuarios_online="&tudo.recordcount&",hora_max_online="&time()&",dia_max_online="&date()) dá o seguinte erro: Erro de sintaxe (operador faltando) na expressão de consulta '19:44:46'. num deu isso na minha vida... num sei como resolver..
  7. koal40

    Onde Esta O Erro

    esse script: const cntCaminho = "c:\inetpub\wwwroot\livroec\database" set conexaodb = server.CreateObject("ADODB.Connection") conexaodb.open "driver={Microsoft Access Driver(*.mdb)};dbq=" & cntCaminho cade o banco de dados? const cntCaminho = "c:\inetpub\wwwroot\livroec\database" database.mdb num seria?
  8. na verdade até tinha um q era texto e não coloquei (inda bem q você falo), mas descobri uma coisa... o erro no local dá ao inserir o ip.. (tipo texto no bd).. editado--------------------------------------------- mais uma coisa, ele dá o erro cm qualquer coisa q eu especificar apos a hora... olhe o codigo: conexao.execute("insert into online (hora_u, ip_u, membro_sn, anonimo_sn, usuario_nome, usuario_id, topico_id) values ('"&Time()&"','"&ip&"',"&mem&","&anon&",'"&session("usuario")&"',"&session("id_usuario")&","&session("tópico")&")")
  9. Microsoft OLE DB Provider for ODBC Drivers error '80040e21' Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done. /klanm/forum2/online.asp, line 24 no local funciona, já no servidor não... ai vai o comando da linha 24... 21 - set insere = server.CreateObject("ADODB.RecordSet") 22 - insere.open "online", conexao, 3, 3 23 - insere.addnew 24 - insere("hora") = Time() 25 - insere("ip") = ip 26 - insere("membro") = mem_ 27 - insere("anonimo") = anon_ 28 - insere("usuario") = session("usrlgn") 29 - insere("usuario_id") = session("idusr") 30 - insere("tópico") = session("tópico") 31 - insere.update uq sera?
  10. koal40

    Onde Esta O Erro

    você pode postar 3 linhas antes da linha do erro + linha do erro + 3 linhas depois da linha do erro? assim poderemos ajudar nesse erro....
  11. ups..... então é melhor ele flar o erro q tah dando... nem vi ele escreveu assim: meu campo texto é memo, só olhei pro texto... ^^
  12. koal40

    Onde Esta O Erro

    veio.... olha a linha Set rsData = conexaodb.Execute(strData) " troque por Set rsData = conexaodb.Execute(strData) .... tinha uma aspas dupla solitária...
  13. provavelmente retorna o erro de q o campo é muito pequeno para colocar as noticias, bem o campo texto pode chegar até 255 caracteres... é só configurar o bd, mas se você quiser o campo tipo memorando aceita infinitos caracteres..
  14. sim... mais funfou agora o JCMPJ veiz certo e também entendi o meu erro... eu estava tentando identificar o ultimo registro sem passar de registro... DÃH! agora sim!
×
×
  • Create New...