Prof. Jonatas
-
Total de itens
221 -
Registro em
-
Última visita
Tudo que Prof. Jonatas postou
-
Galera, eu fiz um código aqui que grava as informações no cookie do usuário e depois resgata na página onde irá exibir os dados dele. Tipo assim: Eu digito meu nome de usuário e o numero de registro que eu quero ver! Ele grava o nome de usuário e o numero no cookie, logo em seguida eu redireciono para a página cadastro.asp Então ná página está "SELECT * FROM prod where Codigodesenho= '"&recnum&"' and user= '"&usuario&"' " OK!? Aqui no meu pc funciona perfeitamente, mas em outro pc não! o que será que acontece? Tenho aqui no escritório várias máquinas, quando fui fazer o teste de outra máquina, não entrou no registro. O sistema cadastra novo registro, edita os registro faz tudo certo. Mas não acessa, será q é por causa do cookie? Bom ná página que grava as informações no cookie ta assim:<% dim strCookie, numero1, recnum, usuario1, user1 strCookie ="cadastro" numero1 = Request.Form("numero") usuario1 = Request.Form("usuario") recnum = Request.Cookies("strCookie") ("num") user1 = Request.Cookies("strCookie") ("user") Response.Cookies("strCookie").Expires = DateAdd("s", 05, now) Response.Cookies("strCookie").Path = "/" Response.Cookies("strCookie") ("num") = numero1 Response.Cookies("strCookie") ("user") = usuario1 Response.redirect"cadastro.asp" %> E logo em seguida eu resgato na página cadastro.asp assim: <% recnum = Request.Cookies("strCookie") ("num") if recnum = "" then response.redirect"gravar2.asp" else Set Conn = Server.CreateObject("ADODB.Connection") Conn.connectionstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" _ & Server.Mappath("Db/producao.mdb") & ";User Id=;Password=;" Conn.Open recnum = Request.Cookies("strCookie") ("num") usuario = Request.Cookies("strCookie") ("user") Set RS_Max = Server.CreateObject("ADODB.Recordset") RS_Max.CursorType = adOpenKeyset RS_Max.Open "SELECT * FROM prod where Codigodesenho= '"&recnum&"' and user= '"&usuario&"' ", Conn end if %> <% if rs_max.eof then response.write "<center><font face=verdana><b>Nome de usuário ou numero da ficha inválido.<br><br><a href=java script:history.back()>Voltar</a>" else %> <html> <head> ....................................... E agora??? o que fazer? :( Aguardo, valeu!
-
Era isso mesmo Andreia, obrigado! O Servidor q eu costumo trabalhar não tem esta opção, funciona direto! Mas agora eu tive que publicar em um outro servidor, aí tinha q autorizar a gravação na pasta ao invés de somente leitura. Obrigado... ;)
-
Tem como fazer uma página se abrir em fullscreen, mas com ela mesma. :huh: Ex. Eu tenho a página 1.htm quando eu clicar 2X para abrir ela tem que já abrir em fullscreen. E não uma outra página pedindo para abrir a página 1.htm em fullscreen. Entenderam? :blink: Eu não quero uma outra página servindo de intermediária. É que eu fiz um sistema em ASP, aí fiz um atalho para a primeira página do sistema, e gostaria que abrisse direto em fullscreen. Se agluém souber por favor me ajude. :o Aguardo respostas, valeu
-
Tem como fazer uma página se abrir em fullscreen, mas com ela mesma. :huh: Ex. Eu tenho a página 1.htm quando eu clicar 2X para abrir ela tem que já abrir em fullscreen. E não uma outra página pedindo para abrir a página 1.htm em fullscreen. Entenderam? :blink: Eu não quero uma outra página servindo de intermediária. É que eu fiz um sistema em ASP, aí fiz um atalho para a primeira página do sistema, e gostaria que abrisse direto em fullscreen. Se agluém souber por favor me ajude. :o Aguardo respostas, valeu
-
Galera, eu uso aqui no meu PC o PWS. Fiz um update, e funciona perfeitamente aqui no meu pc. B) Mas quando eu publico na web da erro no update, o que será q ta acontecendo? <_< Deem uma olhada no erro aí: valeu, aguardo respostas
-
Galera eu queria fazer um target no redirect pra página que eu to puxando abrir no em frame ou em outra janela. É possível fazer isto? Se for me passem o código aí de como ficaria! Response.redirect "teste.asp" valeu
-
Opa Andréia, foi Mal. Falha minha, é foi isto mesmo, agora funcionou! Brigadão!
-
Galera, alguém sabe me dizer onde estou errando neste código de Update!? O código é este: User = Request.Form("usuario") codigodesenho = Request.Form("cod_cliente") aprvpdesenho = Request.Form("ord") desenho_concluido = Request.Form("arte") aprovado_cliente = Request.Form("apvcliente") fotolito = Request.Form("fotoli") prp_material = Request.Form("material") rev_fotolito = Request.Form("revela") impressao = Request.Form("impr") selagem = Request.Form("sela") acabamento = Request.Form("acaba") expedicao = Request.Form("exp") estoque = Request.Form("estoque") logistica = Request.Form("logis") codigorastreamento = Request.Form("codr") if user = "" then response.write "<center><font face=verdana size=2><b>O Campo precisa ser preenchido.<br><br><a href=java script:history.back()>Voltar</a>" else if codigodesenho = "" then response.write "<font face=verdana size=2><b><center>O Campo Ficha precisa ser preenchido!</b><br><br><a href='java script:history.back()'>Voltar</a>" else strCookie ="cadastro" ficha2 = Request.Form("ficha") recnum = Request.Cookies("strCookie") ("ficha") Response.Cookies("strCookie").Expires = DateAdd("s", 03, now) Response.Cookies("strCookie").Path = "/" Response.Cookies("strCookie") ("ficha") = ficha2 ficha2 = Request.Cookies("strCookie") ("ficha") sql = "UPDATE prod SET user='"&user&"', codigodesenho='"&codigodesenho&"', aprvpdesenho='"&aprvpdesenho&"', desenho_concluido='"&desenho_concluido&"', aprovado_cliente='"&aprovado_cliente&"', fotolito="'&fotolito&"', prp_material='"&prp_material&"', rev_fotolito='"&rev_fotolito&"', impressao='"&impressao&"', selagem='"&selagem&"', acabamento='"&acabamento&"', expedicao='"&expedicao&"', estoque='"&estoque&"', logistica='"&logistica&"', codigorastreamento='"&codigorastreamento&"' where Codigodesenho='"&ficha2&"' " conn.execute(sql) Response.redirect("default.asp") end if end if Ta dando este erro: Ae alguém poder me ajudar.... valeu, aguardo respostas.
-
Olá SETOKAIBA! Bom cara concordo plenamente com sua tese, de não cobrar valores baixos para criação de sites, mas só que nós temos que ver com que tipo de pessoas estamos lidando, como por exemplo este forum! Este forum é de discussão e dúvidas sobre diversos temas web, o que significa que as pessoas que o acessam não tem total conhecimento ou dominância sobre o que vem discutir. Neste tópico tivemos várias pessoas pedindo um exemplo de contrato de pessoa física para pessoa física o que significa que não tem firma aberta ou trabalham em uma agência de publicidade, o que lhe restam é serem free-lances. E pra ser Freela no mercado de trabalho hoje em dia você precisa ser maleável. Ou seja, se você quer cobrar um preço absurdo, você precisa ser conhecido. E se você não é conhecido e quer ficar conhecido, pra conseguir trabalho você precisa cobrar barato. Qualquer pessoa que vai contratar um serviço web hoje em dia, pede referência. Sites que você já criou, ou sistemas, o que for.... O contratante quer ver pra saber se você é bom, agora eu pergunto. Como um cara que acabou de sair da faculdade de web, sempre criou sites de 800,00 / 1.000,00 pode cobrar de um empresário 6.000,00 ou 10.000,00 em seu projeto? Com certeza o cara que quer contratar este serviço irá rir da cara dele e irá procurar uma agência. Resalvo, não discordo da sua tese para valorizarmos nossa profissão é preciso cobrar um preço justo, mas precisamos ter condições para isso. Hoje eu deixei de ser freela e estou abrindo minha agência, agora tenho condições de cobrar um preço justo na criação de um projeto, mas e antes? Quando eu era freela? Se eu não cobrasse barato perdia para uma agência. No mercado web a gente precisa ser flexivel, e nunca irá deixar de existir os amadores. Os q você sitou acima, q aprendem HTML em um dia no outro dia saem por aí cobrando 50,00 em um site, esta é a realidade do nosso mercado, basta aprendermos a conviver com isto. Se a gente não fecha o site do cara, que prefiriu pagar 50 reais para um iniciante, no final das contas a gente vai acabar fazendo o site do concorrente dele, e vai ficar 10X mais bacana q o site dele. E por fim este cara vendo o site do concorrente dele vai querer saber quem desenvolveu para pedir um igual ou melhor. Bom, coloquei aqui neste post o meu ponto de vista, pode ser que eu tenha escrito um monte de besteiras, como também pode ser que o q eu escrevi sirva de lição para alguém. Vou dar um toque para quem está iniciando nesta área agora. Estudem, não se acomodem com 3 sites nas costas, se atualizem constantemente. Corram atraz. Se você é freela, valorize seu trabalho, não saia criando sites baratos mas saibam ser flexiveis no momento certo. Galera, deixei meu email em alguns posts atráz, se alguém quiser pegar meu email e entrar em contato comigo, fiquem avontade, será um prazer ajudar. Té +
-
Na segunda Feira pela manhã eu estarei disponibilizando o contrato aqui no forum, fiquem ligados. Tem como anexar imagem né? Eu vou scanear, são +/- 5 folhas. Falow
-
Putz cara funcionou direitinho, é isso mesmo que eu precisava. Na verdae é isto quebrando a cabeça q se aprende. Obrigado pela dica da gravação do campo Estoque também heim! Galera, valeu, me projeto ta ficando show graças a ajuda de vocês, mas não termina por aí não tenho certeza q outras dúvida virão. Valewwwwwwwwwww ;)
-
Vixi, entender a teoria eu entendi, mas como eu vou encaixar isto no meu código?
-
Galera, desta vez acontece os seguinte, eu tenho um campo no DB que só pode ser colocado numero, mas quando o usuário coloca algum texto e clica em atualizar ele mostra o erro do asp. :angry: Eu queria colocar o meu texto, ex: Este campo não aceita valores como texto. Como fazer isto? O erro q mostra é este: E o meu código até o momento é este: Expedicao = Request.Form("exp") Estoque = Request.Form("est") if estoque = "" then response.write "<center><font face=verdana size=2><b>O Campo Estoque não pode ficar vazio.<br>Se não há peças em estoque, favor colocar o numero 0.<br><br><a href=java script:history.back()>Voltar</a>" else strCookie ="cadastro" ficha1 = Request.Form("ficha") recnum = Request.Cookies("strCookie") ("ficha") Response.Cookies("strCookie").Expires = DateAdd("s", 03, now) Response.Cookies("strCookie").Path = "/" Response.Cookies("strCookie") ("ficha") = ficha1 ficha1 = Request.Cookies("strCookie") ("ficha") sql = "UPDATE prod SET Expedicao='"&expedicao&"', Estoque='"&estoque&"' where Codigodesenho='"&ficha1&"' " conn.execute(sql) Response.redirect("busca4.asp") end if O campo que é numérico é o Estoque. Alguém sabe como mudar eu posso fazer pra criar o meu texto? :huh: valeu, aguardo respostas.
-
Galer, brigadão! Funcionou certinho. Ficou assim: ficha1 = Request.Form("cod_cliente") Sql = "SELECT * FROM prod where Codigodesenho= '"&ficha1&"'" set rs = conn.execute(sql) if not rs.eof then response.write "O Código desejado já existe!" response.end Agora funcionou mesmo, hehe, valeu!!!
-
Mas o que seria esta vardesenho, ta dando erru nela.... eu tenho q substituir pelo q?
-
Mas aí ficaria como neste código, é logo depois da else aí! if rs_max.eof then response.write "<center><font face=verdana><b>Nome de usuário ou numero da ficha inválido.<br><br><a href=gravar2.asp>Voltar</a>" else E?
-
Acabei de mandar o Contrato de prestação de serviços de pessoa física para pessoa física para os dois que me pediram. Se alguém tiver alguma dúvida ou sujestão sobre o mesmo, me comuniquem, té +
-
Não Não! :o Não funcionou, na verdade não ta mais registrando nem quando é um novo. Ta indo direto pra mensagem! :huh: E agora?
-
beleza, fera brigadão.... Vou fazer aqui!
-
Galera eu to com um cadastro aqui e quando eu tento registrar um numero que já existe no meu banco de dados ta dando erro, ta correto, porque eu coloquei pra este campo não aceitar duplicação, mas como posso personalizar o texo. Ex Este numero que você tentou cadastrar já existe no sistema. Bom o erro que dá é este aqui! Quando não tem o registro eu sei que é if variável.eof Mas e quando já tem???? Aguardo respostas, valeu
-
Deixa eu me explicar melhor, eu criei um banco de dados que registra vários usuários, mas após redistrado tal usuário ele sempre terá o mesmo nome de usuário, porém ele poderá entrar em várias áreas, as áreas funciona como senha ou numero de registro, algum coisa assim. Por exeplo o usuário jor39 tem o registo 2, 6, 9, 125. Eu sei que tem um usuário chamado bin01, mas ele tem o registro 1 e 3, só entra nos registros dele, como o jor39 só entra nos registros dele mesmo também. Eu quero criar um usuário padrão para todos, como se fosse um administrador, para que eu possa ver os registros do jor39 quanto o do bin01, entendeu? Segue abaixo a linha do código onde eu capturo o nome de usuário e numero do registro: RS_Max.Open "SELECT * FROM prod where Codigodesenho= '"&recnum&"' and user= '"&usuario&"' ", Conn Eu teria que colocar nesta função um "OU" ??? :unsure: Aguardo respostas, valeu galera
-
Mesmo sendo pra pessoa física é sempre bom assinar um contrato. Isso passa segurança para ambas as partes. E se você faz um site para uma pessoa com segundas intenções ela vai pensar 2X antes de tentar de dar um calote hahahaha. Mas é bom sempre assinar contrato sim, se você quiser eu tenho um 2 exemplos de contrato para pessoa física posso te passar. jonatas@begbrasil.com.br Té + Esqueci de dizer, se você não tem firma aberta para e vai fazer um contrato sendo pessoa física. você faz como prestador de serviços.
-
Deu este erro: Será q é por caua do WHERE? Enquanto as (") ta tranquilo, no meu banco de dados ta tudo como texto deve ser desse jeito mesmo. Mas e agora? e este erro? <_< valeu heim! Dark, desencana, deu certo aqui! O Erro na verdade era meu, eu coloquei uma variável que não poderia ter colocado. FALTA DE ATENÇÃO MINHA! sql = "UPDATE prod SET cod ='"&aprvpdesenho&"', Esta variável é a errada no meu banco de dados ela se chama Aprvpdesenho! Arrumando ela o código que você me passou funcionou certinho. Muito obrigado heim! Se quiser pode fechar este Tópico. valeu
-
Como capturar os dados do banco de dados eu já consegui! Minha dúvida agora é somente no Update. Continua dando erro, você disse que eu não fechei (") mas onde ela é aberta? :huh: Segue abaixo o código junto com as variáveis pra você ver: aprvpdesenho = Request.Form("ord") desenho_concluido = Request.Form("desenho") aprovado_cliente = Request.Form("aprv") fotolito = Request.Form("fotolito") Set RS_Max = Server.CreateObject("ADODB.Recordset") RS_Max.CursorType = adOpenKeyset RS_Max.Open "SELECT * FROM prod where Codigodesenho= '3'", Conn UPDATE prod SET cod ='"&aprvpdesenho&"', desenho_concluido='"&desenho_concluido&"', aprovado_cliente='"&aprovado_cliente&"', fotolito='"&fotolito&"'" Conn.Close Esta linha do Update é q eu não consigo acertar. :angry: Aguardo respostas, valeu
-
Galera, pelo amor de Deus, este é o código que eu fiz: aprvpdesenho = Request.Form("ord") desenho_concluido = Request.Form("desenho") aprovado_cliente = Request.Form("aprv") fotolito = Request.Form("fotolito") Set RS_Max = Server.CreateObject("ADODB.Recordset") RS_Max.CursorType = adOpenKeyset RS_Max.Open "SELECT * FROM prod where Codigodesenho= '3'", Conn UPDATE prod SET cod ='"&aprvpdesenho&"', desenho_concluido='"&desenho_concluido&"', aprovado_cliente='"&aprovado_cliente&"', fotolito='"&fotolito&"' Conn.Close não ta funcionando de maneira alguma, eu fiz no chutem eu achu q é isto. Eu nunca fiz update, este é o primeiro. Ta dando erro no SET Erru: Aguardo respotas, valeu