Ir para conteúdo
Fórum Script Brasil

marcus Gemeos

Membros
  • Total de itens

    404
  • Registro em

  • Última visita

Tudo que marcus Gemeos postou

  1. Olá amiga, Desculpe... deu certo agora... Obrigadão!!! Marcus
  2. Olá amigo, Está dando o seguinte erro agora: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0401) Fim da instrução esperado /mercado/adm19812006/excluir_debitos.asp, line 6, column 64 DelProd = "DELETE * FROM debitos WHERE Usuario = '"& varUsuario "'" Tem como resolver? Obrigado! Marcus
  3. Olá pessoal, Eu gostaria de deletar os dados através de do camando WHERE por usuário e não por código! E está dando o erro abaixo: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na seqüência de caracteres na expressão de consulta 'Usuario = 'ADM'. /mercado/adm19812006/excluir_debitos.asp, line 9 Para o seguinte código: varUsuario = session("usuario_debitos") DelProd = "DELETE * FROM debitos WHERE Usuario = '"& varUsuario Como faço? Obrigadão!!! Marcus
  4. Olá pessoal, Como faço com o comando abaixo apra atualizar um banco de dados por usuario e não por código! Por guando altero para usuário no lugar do código e mudo a variavel... ele dar um erro dizendo que esperava 1 faltando... sqlUpdateUsuarios = "UPDATE usuarios SET" sqlUpdateUsuarios = sqlUpdateUsuarios & "Debitos = '" & VarDebitosUsuario & "', " sqlUpdateUsuarios = sqlUpdateUsuarios & "Cod_Atualizacao = " & varCodAtualizar sqlUpdateUsuarios = sqlUpdateUsuarios & " WHERE usuario = " & VarUsuario Obrigadão! Marcus
  5. Olá amigo... É isso mesmo... eu tenho um incluso chamando outro arquivo... e deu esse conflito... Obrigadão!!! Marcus
  6. Não... minha conexao está fechando no final da página... como pode? VarNome = request.cookies("usuario") if request.cookies("logado_usuario") <> "Identificado" then Session.Abandon Response.Redirect "acesso_negado.asp" else 'string para exibir os produtos sqlProd = "SELECT * FROM produtos WHERE Vendedor LIKE '" & VarNome & "'" sqlProd = sqlProd & "ORDER BY Cod_Produto" 'abre a conexao Call abre_conexao 'executa a instrução SQL Set rsProd = Conexao.Execute(sqlProd) E o erro está dando nesta linha: IF rsProd.EOF then Não sei tou perdido... :( Marcus
  7. Olá pessoal, Por que está dando erro na minha programação que tempos atrás estava funcionando? Não fiz nada! Tipo de erro: ADODB.Recordset (0x800A0E78) Operação não permitida quando o objeto está fechado. /mercado/seus_produtos.asp, line 156 Como posso resolve-lo? Precisso! Obrigadão! Marcus
  8. Olá pessoal, Eu gostaria de saber se tem como desfazer o campo com autonumeração para zerar de novo? Pois há sempre o número novo mesmo que eu delete o campo e insira de novo! Se sim, como faço? Precisso! Obrigadão! Marcus
  9. Olá amigo, Está dando o seguinte erro guando eu coloco o campo "codigo" na consulta... Microsoft JET Database Engine (0x80040E21) Você tentou executar uma consulta que não inclui a expressão 'codigo' especificada como parte de uma função agregada. /mercado/adm19812006/debitos_clientes.asp, line 23 Sabe como resolver? Obrigadão!!! Marcus
  10. Olá pessoal, Eu posso o código abaixo para realizar a soma... mas gostaria que ele não tivesse somente está função mais também realizar a seleção de mais campos, como usuario e codigo, como faço isto? sqlUsuarios = "SELECT SUM(Valor) AS TOTAL FROM debitos" Precisso! Obrigadão! Marcus
  11. marcus Gemeos

    Formulario

    Ola, pode deixar conseguir resolver...mas esses 3 campos não temproblema não é assim mesmo,pois estou usando o window.navigate "inserir.asp?Opcao onde armazena na variavel opcao onde na outra pagina tem o: opto=Request.querystring("opcao") if opto <> "" then op = split(Request.QueryString("opcao"),"____") end if %> <% for i = 0 to ubound(op) op1 = split(op(i),"|") Set inserir=conn.Execute ("INSERT INTO marcelo (nome, cpf, pis ) values ('" & op1(0) & "','" & op1(1) & "','" & op1(2) & "')") next %> o problema era no for que tinha o comando -1 Obrigado!
  12. marcus Gemeos

    Formulario

    tenho esssa função mas no meu banco só preenche os campos do formulario nome, cpf, e pis, mas não preenche nome1, cpf1 e pis1...porque? Obrigado! <script language="vbscript"> Sub enviar(x) Dim Nome, Nome1, Cpf, Cpf1, Pis, Pis1 Nome = formulario.nome.value Nome1 = formulario.nome1.value Cpf = formulario.cpf.value Cpf1 = formulario.cpf1.value Pis = formulario.pis.value Pis1 = formulario.pis1.value window.navigate "inserir.asp?Opcao=" & Nome & "|" & Cpf & "|" & Pis & "____" & Nome1 & "|" & Cpf1 & "|" & Pis1 end Sub </script> na outra pagina chamada são: <% for i = 0 to ubound(op) - 1 op1 = split(op(i),"|") Set inserir=conn.Execute ("INSERT INTO marcelo (nome, cpf, pis ) values ('" & op1(0) & "','" & op1(1) & "','" & op1(2) & "')") next %>
  13. Ok, ' ADODB.Recordset error '800a0e78' Operação não permitida quando o objeto está fechado. /sistema/conteudo/prad/teste/inserir.asp, line 21 minnha linha 21 é o inserir.Close que fechei do: Set inserir=conn.Execute ("INSERT INTO...como fecha o meu set então? Se eu tirar esse inserir.close ele fica normal....? <% 'fecha a conexao Set inserir.Close ' da erro aqui Call fecha_conexao Set inserir = Nothing %> Obrigado
  14. Fiz isso: <% <!--#include file="conexao_dados.asp"--> Call abre_conexao %> e deu isso: Type mismatch: 'abre_conexao' /sistema/conteudo/prad/teste/inserir.asp, line 3 <% <!--#include file="conexao_dados.asp"--> Linha 3: Call abre_conexao %> Obrigado!
  15. Como assim? Tenho um : <% <!--#include file="conexao_dados.asp"--> %> Ele chama uma conexão que tem uma sub: sub abre_conexao set conn = Server.createobject("adodb.connection") varconn="Provider=SQLOLEDB.1;User ID=se;PASSWORD=se;Initial Catalog=ok;Data Source=bahia;" conn.Open VarConn end sub é isso? Obrigado!
  16. Ola, a o seguinte erro: Object required: 'conn' /sistema/conteudo/prad/teste/inserir.asp, line 14 Mas não acho nada na linha abaixo: <% for i = 0 to ubound(op) - 1 op1 = split(op(i),"|") Linha14 Set inserir=conn.Execute ("INSERT INTO marcelo (nome, cpf, pis ) values ('" & op1(0) & "','" & op1(1) & "','" & op1(2) & "')") next E minha conexão esta ok: <% <!--#include file="conexao_dados.asp"--> %> <% dim conn, varconn sub abre_conexao set conn = Server.createobject("adodb.connection") varconn="Provider=SQLOLEDB.1;User ID=se;PASSWORD=se;Initial Catalog=ok;Data Source=bahia;" conn.Open VarConn end sub Obrigado!
  17. marcus Gemeos

    Função

    Ola pessoal, Preciso de uma função que quando eu armarzenar as informações: campo nome1, nome2, nome3 e cpf1, cpf2 e cpf3 em uma variavel. Vou ter no formulario os campos nome1, nome2, nome3 e cpf1, cpf2 e cpf3 onde será preenchido e quando for clicar em submit do meu formulario, em vez de enviar ele tera um onchange(...) que chamará uma função que tem a missão de amarzenar na seguinte ordem as informações da variavel: Variavel = informação do campo nome1.value&","&cpf1.value&"_"&nome2.value&","&cpf2.value&"_"&... e pegar isso para jogar em outra página que tera um Request.QueryString... Como fazer essa função? Obrigado! Marcus
  18. Olá pessoa, Está dando o seguinte erro, e eu não sei por que ele não fala nem linha e nem nada! alguém tem ideia? Tipo de erro: ADODB.Field (0x80020009) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /mercado/compra_fechada.asp Precisso! Obrigadão! Marcus
  19. há! eu gostaria que ele ficase a tela cheia automaticamente sem precisar do comando ctrl + f? tem? Obrigado!
  20. Ola pessoal, Como faço para importa um arquivo flash, .fla do flash MX ou Flash 8 como um arquivo .exe e em tela cheia ou full?? Preciso! Obrigado!
  21. Ola, Onde achar um site bom de clipart particulamente estou precisando de homem jogando futebol! obrigado!
  22. Ola, Como faço para importar videos no flash 8 e que tipo de video aceita? .mov....? Obrigado!
×
×
  • Criar Novo...