Martinsrj

Olá pessoal, beleza? Estou com dúvida em exibir uma imagem como dica. Geralmente colocamos uma dica em determinado link uma frase, porem quero fazer como o Maujor conforme o site dele: http://www.maujor.com/fw/index.php O meu site está no seguinte endereço: http://www.paulomartins.freeweb7.com/faleconosco.html Link do CSS: http://pastebin.com/m7a1dd235 Verifiquem que quando eu posiciono o mouse em cima do link o mesmo some e aparece a imagem. Como fazer essa correção. No site do Maujor ele além de colocar imagem de dica, ele coloca uma pequena descrição de dica. Agradeço desde já pela ajuda. Abraços.

Ok campeão, vou fazer o teste. Obrigado

#RJNET { position: absolute; left: 529px; width: 115px; height: 53px; border: 3px solid #c5d5d9; background-color: #D9E3E6; padding-top: 1px; padding-right: 1px; padding-bottom: 1px; padding-left: 2px; margin-top: 1px; margin-right: 1px; margin-bottom: 1px; margin-left: 5px; line-height: 20px; top: 293px; background-image: url(imagemdownloads/velocimetro_rjnet.jpg); z-index: 1; } #RJNET a { width: 200px; height: 27px; text-decoration: none; } -------------------------------------------------------------------------------------------------------------------------------------- <div id="RJNET"><a href="http://www.rjnet.com.br/1velocimetro.php">&nbsp;</a> </div> Tenho o seguinte layer acima. Gostaria que o usuario ao clicar no layer ser levado, direcionado ao site do RJNET. Tem como fazer apenas com o CSS, sem utilizar JS??? Com JavaScript eu já consegui. Desde já agradeço pela dica, Abraços.

Valeu aí pela dica campeão. Vou tentar fazer isso pelo ASP.

Geleiaskt, você tem colocar um exemplo? Agora é sua dica funciona no Internet Explorer e tb no Firefox??? Obrigado pelas dicas.

Olá pessoal, beleza? Gostaria de uma dica. Existe alguma forma de esconder o código fonte de uma pagina em CSS. Eu tenho uma pagina no endereço: http://www.paulomartins.freeweb7.com/ Porem se eu digitar o seguinte endereço: http://www.paulomartins.freeweb7.com/jcestiloindex.css a pessoa vai ter acesso a todo Código feito em CSS Se o cara for meio filho da mãe, pode roubar com muita facilidade código CSS. E isso seria muito ruim, pois não pagaria, e o trabalho de graça. Valeu aí galera pela dica. Abraços

Olá pessoal, beleza? Coloquei o meu código no site pastebin para melhor visualização do mesmo. http://pastebin.com/m7891c5b1 A pergunta é o seguinte. O Menu de navegação está funcionando perfeitamente, porem estou com dificuldade em criar os submenus. Gostaria de criar os submenus com o código apresentado no site pastebin. Exemplo. Home | Sites Úteis | Downloads | Fale Conosco pppppppppppppppppJogos pppppppppppppppppAntivirus pppppppppppppppppPapel de parede tem que ser um embaixo do outro... Deem uma olhada no meu site: http://www.paulomartins.freeweb7.com/ Desde já agradeço aí pela ajuda, Abraços. :D

Consegui fazer pelo CPF !!!!!!!!

Mas eu criei para o CPF a chave primaria

Não entendi o que você quis dizer. Gostaria que a exclusão seja feito pelo CPF, pois não existe o mesmo igual. Sei que o ID tb não será igual, porem pelo CPF é mais fácil idendificar o cliente.

Pagina: exclui2.asp http://pastebin.com/d7d66157a

Olá pessoal! Estou iniciando no mundo da programação. Semestre passado estudei lógica de programação e agora nesse inicio do ano estou estudando ASP. Estou com dificilcudades para fazer a exclusão de dados do Banco. A inclusão com muito esforço consegui fazer numa boa, porem a exclusão estou travando. Eu digito o CPF do cliente, porem não exclui do Banco de Dados. Obs.: não dá nenhuma mensagem de erro: Pagina: index.asp http://pastebin.com/f36d7b5c4 Pagina: exclui1.asp http://pastebin.com/f535acecd Pagina: exclui2.asp http://pastebin.com/d7d66157a O meu Banco de Dados é composto pelas seguintes colunas: CPF_CLI NOME_CLI DATA_NASC_CLI SEXO_CLI NOME_MAE DATA_NASC_MAE CPF_MAE NOME_PAI DATA_NASC_PAI CPF_PAI COD_CARDO

Certo, realmente ele só estar calculando o ano. alguém poderia dar uma dica em que eu calcule da forma correta? Peço desculpa aí pela ignorancia e desde já agradeço pela dica e ajudas. Abraços.

Olá pessoal, estou com uma dúvida. Verifiquei se o usuario digitar a data de nascimento: 17/07/1981 o sistema vai informar que ele tem 27 anos, mas na verdade ele tem 26. Como corrigir essa falha??? Pagina do formulário: index.asp <html> <head> <title>Idade</title> <style type="text/css"> <!-- .titulo { font-size: 18px; font-family: Arial; background-color: #CCCCCC; font-style: normal; font-weight: bold; } .pergunta { font-size:16px; font-family:Arial, Helvetica, sans-serif; font-weight: bolder; } .exemplodat { font-size:12px; font-family:Arial; font-weight: bolder; color:#999999; } --> </style> </head> <body> <div align="center" class="titulo">Programa que ler o nome e a data de nascimento de uma pessoa e imprime quantos anos ela tem.</div><br> <form action="residade.asp" method="get"> <!--Comentário --> <div align="left" class="pergunta">Qual é o seu nome: <input name="str_nome" type="text" size="50" maxlength="50"/></div> <br> <div align="left" class="pergunta">Qual é a Data de Nascimento: <input name="int_data" type="text" size="10" maxlength="10"/> <span class="exemplodat">&nbsp;&nbsp;Ex. 20/01/1930</span> </div> <br> <br> <input name="Submit" type="submit" value="Verifica"><br> <% Dim EnderecoIP Response.Write "<br>" EnderecoIP = Request.ServerVariables("REMOTE_ADDR") Response.Write "Seu endereço IP é: "& EnderecoIP Response.Write "<br>" Response.Write "<br>" %> Desenvolvido por: Paulo Martins. </form> <br> <br> </body> </html> Pagina que realiza o calculo: residade.asp <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Untitled Document</title> </head> <body> <% Dim Var_str_nome Dim Var_int_data Dim Var_Data_atual Dim CalculaIdade Var_str_nome = request.querystring("str_nome") Var_int_data = request.querystring("int_data") Var_Data_atual = date() Response.write Var_str_nome Response.write "<br>" Response.write "Data do seu Nascimento: "& Var_int_data Response.write "<br>" Response.write "Data de Hoje: "& Var_Data_atual Response.write "<br>" Response.write "<br>" CalculaIdade = DateDiff("yyyy", Var_int_data, Now) Response.write "A sua idade é: " & CalculaIdade & " anos." %> </body> </html>

Valeu Bareta pela dica!!!

Coloquei pra funcionar. O código ficou dessa forma: <html> <head> <title>Resultado</title> <style type="text/css"> <!-- .respred { color: #FF0000; font-size: 18px; } .respazul { color: #3300FF; font-size: 18px; } .respwhite {color:#FFFFFF} --> </style> </head> <body> <% Dim Var_int_num Dim intContador Dim strCor Var_int_num = request.querystring("int_num") if Var_int_num mod 2 = 0 then Response.Write "<div align=left class=respred>O Numero é Par!!!</div>" Else Response.Write "<div align=left class=respazul>O Numero é Impar!!!</div>" End if %> <br><br> <a href="numintpar_impar.asp">Voltar</a> </body> </html>

Olá pessoal, beleza? Estou com dificuldades em utiliza CSS no código ASP. Tenho a seguinte pagina: <html> <head> <title>Resultado</title> <style type="text/css"> <!-- .style3 {color: #FF0000} --> </style> </head> <body> <% Dim Var_int_num Var_int_num = request.querystring("int_num") 16 if Var_int_num mod 2 = 0 then 17 [b]Response.Write "<div align="left" class="style3">O Numero é Par!!!</div>"[/b] 18 Else Response.Write "O Número é impar!!!" End if %> <br><br> <a href="numintpar_impar.html">Voltar</a> </body> </html> Porem dá o seguinte erro: Informações técnicas (para a equipe de suporte) Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03EA) Erro de sintaxe /asp/algoritmo/respintpar_impar.asp, line 17, column 15 Response.Write <div align="left" class="style3">"O Numero é Par!!!"</div> --------------^ Tipo de navegador: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 1.1.4322) OBS.: Estou iniciando na linguagem. :rolleyes:

Olá pessoal, beleza? Estou dando os primeiros passos na programação, mas estou com algumas dificuldades, principalmente em registro e vetor. Estou fazendo faculdade e a prova vai ser na Terça-feira agora. Teve uma questão da prova que dizia o seguinte: Fazer um programa que realiza o cadastro de preso com os tipos: nome, idade, peso e a pena. O programa deve ter os seguinte menu: 1- Cadastro, 2- Consulta e 3 pra sair do programa. Tentei fazer, porem está dando o erro. Gostaria da ajudar dos mais experientes na utilização de registro e vetor e tb na modularização do programa, pois a prova exige que seja modularizado. Abaixo está o programa que eu tentei fazer, porem está com erros.

Olá pessoal, tudo bom? O algoritmo abaixo a seguinte finalidade. Ler uma data dia, mês e ano verificar se a data digitada é uma data válida: a) JAN, MAR, MAI, JUL, AGO, OUT e DEZ podem possuir no máximo 31 dias; B) ABR, JUN, SET e NOV podem possuir no máximo 30 dias; c) FEV pode possuir no máximo 29 dias se o ano for bissexto, ou seja, se o resto da divisão do ano por 4 for igual a zero; d) FEV pode possuir no máximo 28 dias se o ano não for bissexto; exemplo 1: digite dia: 20 digite mês: 12 digite ano:2007 você digitou 20/12/2007. é uma data válida exemplo 2: digite dia: 31 digite mês: 04 digite ano:2007 você digitou 31/04/2007. não é uma data válida Uma dúvida: O meu algoritmo se o usuario digitar uma data válido, exemplo: 31/1/2007 vai imprimir na tela: Data é valida, porem se o usuario digitar 32/1/2007 o comando else não funciona e com isso não imprimi na tela: "writeln" ('Data é inválida!'); OBS.: Até o momento eu não aprendi a trabalhar com Vetor, Matriz, Case. Obrigado aí galera pela ajuda. program data_valida; uses crt; procedure leitura (var int_dia, int_mes, int_ano: integer); begin writeln ('Programa verifica se a data é válida.'); writeln ('Digite o dia:'); readln (int_dia); writeln ('Digite o mês:'); readln (int_mes); writeln ('Digite o ano:'); readln (int_ano); end; procedure calculo_imprime (int_dia, int_mes, int_ano: integer); begin writeln ('Você digitou:', int_dia,'/',int_mes,'/',int_ano); if int_dia <= 31 then if int_mes = 1 then if int_ano <= 5000 then writeln ('Data é válida!!!') else writeln ('Data é inválida!'); if int_ano mod 4 = 0 then if int_mes = 2 then if int_dia <= 29 then writeln ('Data é válida e o ano é Bissexto!!!') else writeln ('Data é inválida'); if int_ano mod 4 <> 0 then if int_mes = 2 then if int_dia <= 28 then writeln ('Data é válida!!!') else writeln ('Data é inválida!!!'); if int_dia <= 31 then if int_mes = 3 then if int_ano <= 5000 then writeln ('Data é válida!!!') else writeln ('Data é inválida!'); if int_dia <= 30 then if int_mes = 4 then if int_ano <= 5000 then writeln ('Data é válida!!!') else writeln ('Data é inválida!'); if int_dia <= 31 then if int_mes = 5 then if int_ano <= 5000 then writeln ('Data é válida!!!') else writeln ('Data é inválida!'); if int_dia <= 30 then if int_mes = 6 then if int_ano <= 5000 then writeln ('Data é válida!!!') else writeln ('Data é inválida!'); if int_dia <= 31 then if int_mes = 7 then if int_ano <= 5000 then writeln ('Data é válida!!!') else writeln ('Data é inválida!'); if int_dia <= 31 then if int_mes = 8 then if int_ano <= 5000 then writeln ('Data é válida!!!') else writeln ('Data é inválida!'); if int_dia <= 30 then if int_mes = 9 then if int_ano <= 5000 then writeln ('Data é válida!!!') else writeln ('Data é inválida!'); if int_dia <= 31 then if int_mes = 10 then if int_ano <= 5000 then writeln ('Data é válida!!!') else writeln ('Data é inválida!'); if int_dia <= 30 then if int_mes = 11 then if int_ano <= 5000 then writeln ('Data é válida!!!') else writeln ('Data é inválida!'); if int_dia <= 31 then if int_mes = 12 then if int_ano <= 5000 then writeln ('Data é válida!!!') else writeln ('Data é inválida!'); end; var int_dia_g, int_mes_g, int_ano_g: integer; begin clrscr; repeat leitura (int_dia_g, int_mes_g, int_ano_g); calculo_imprime (int_dia_g, int_mes_g, int_ano_g); until int_dia <= 0; readkey; end.

:D Valeu Rafael, Funcionou!!!!!!!!!!!!!!!!

Olá Rapael!!! Continua dando erro (Error 42: Error in expression) no código abaixo: OBS: Utilizo o Turbo Pascal. program verifica; uses crt; procedure leitura (var ver_mes, ver_ano: integer); begin writeln ('Programa verifica se o mˆs ‚ 28, 29, 30 ou de 31 dias'); writeln ('1: Janeiro, 2: Fevereiro, 3: Mar‡o, 4: Abril, 5: Maio,6:Junho'); writeln ('7: Julho, 8: Agosto, 9: Setembro, 10: Outubro, 11: Novembro, 12: Dezembro'); writeln ('Digite o N£mero do mˆs'); readln (ver_mes); writeln ('Digite o Ano'); readln (ver_ano); end; procedure calculo_imprime (ver_mes, ver_ano: integer); begin if ver_mes = 1 then writeln ('Mˆs de Janeiro possui 31 Dias'); if ver_mes = 2 and then if ver_ano mod 4 = 0 then writeln ('Mˆs de Fevereiro possui 29 dias (Ano Bissexto!!!)') else writeln ('Mˆs de fevereiro possui 28 dias.'); end; if ver_mes = 4 then writeln ('Mˆs de Abril possui 30 dias'); if ver_mes = 5 then writeln ('Mˆs de Maio possui 31 Dias'); if ver_mes = 6 then writeln ('Mˆs de Junho possui 30 Dias'); if ver_mes = 7 then writeln ('Mˆs de Julho possui 31 Dias'); if ver_mes = 8 then writeln ('Mˆs de Agosto possui 31 Dias'); if ver_mes = 9 then writeln ('Mˆs de Setembro possui 30 Dias'); if ver_mes = 10 then writeln ('Mˆs de Outubro possui 31 Dias'); if ver_mes = 11 then writeln ('Mˆs de Novembro possui 30 Dias'); if ver_mes = 12 then writeln ('Mˆs de Dezembro possui 31 Dias'); end; var verifica_mes, verifica_ano: integer; begin clrscr; repeat leitura (verifica_mes, verifica_ano); calculo_imprime (verifica_mes, verifica_ano); until verifica_mes < 1; readkey; end.

Realmente Rafael o Case é a melhor, porem ainda eu não dei no curso. Consegui rodar sem colocar a condição para o Mês de Fevereiro, porem quando eu adiciono a condição para o mês de fereiro da o seguinte erro na compilação no Turbo pascal: Error 57: THEN expected. Até o momento aprendi os seguinte comandos: if, while, for e o repeat. CODIGO ABAIXO: program verifica; uses crt; procedure leitura (var ver_mes, ver_ano: integer); begin writeln ('Programa verifica se o mˆs ‚ 28, 29, 30 ou de 31 dias'); writeln ('1: Janeiro, 2: Fevereiro, 3: Mar‡o, 4: Abril, 5: Maio,6:Junho'); writeln ('7: Julho, 8: Agosto, 9: Setembro, 10: Outubro, 11: Novembro, 12: Dezembro'); writeln ('Digite o N£mero do mˆs e o ano'); readln (ver_mes, ver_ano); end; procedure calculo_imprime (ver_mes, ver_ano: integer); begin if ver_mes = 1 then writeln ('Mˆs de Janeiro possui 31 Dias'); if ver_mes = 2 and ver_ano mod 4 = 0 then writeln ('Mˆs de Fevereiro possui 29 dias (Ano Bissexto!!!) else writeln ('Mˆs de fevereiro possui 28 dias.'); if ver_mes = 4 then writeln ('Mˆs de Abril possui 30 dias'); end; var verifica_mes, verifica_ano: integer; begin clrscr; repeat leitura (verifica_mes, verifica_ano); calculo_imprime (verifica_mes, verifica_ano); until verifica_mes < 1; readkey; end.

Olá pessoal, beleza? Gostaria apenas de uma dica. Como fazer um programa em pascal que verifique o mês digitado pelo usúário se é 30, 31, 29 ou 28 dias. Obs.: Ainda eu não dei no curso matrizes, vetores. Estou inciando da seguinte forma, porem não exibe a quantida de dias do mês digitado pelo usuário. program verifica_mes; uses crt; procedure leitura (var mes: string); begin writeln ('Programa verifica se o mˆs ‚ 28, 29, 30, 31'); writeln ('Janeiro, Fevereiro, Março, Abril, Maio, Junho, Julho, Agosto, Setembro, Outubro, Novembro, Dezembro'); writeln ('Digite um mês do ano:'); readln (mes); end; procedure calculo (mes:string; var Janeiro, Abril : string); begin if (mes) = Janeiro then writeln ('Possui 31 dias'); if (mes) = Abril then writeln ('Possui 30 dias'); end; var {variavel global} mes_do_ano, J, A: string; begin clrscr; leitura (mes_do_ano); calculo (mes_do_ano, J, A); readkey; end.

você fez com vetor, mas ainda não dei na faculdade. Agradeço aí pela ajuda, mas para que eu possa fazer do seu modo eu preciso aprender o conceito de vetor e tb de array.

Gostaria de saber e tb dicas de como fazer um programa que leia 3 n° inteiros (suponha que seja todos diferentes) e imprima na tela o intermediários. Criei uma função e deu certo: function intermediario (a,b,c: integer): integer; begin if (a<b) and (b<c) then intermdiario := b else if (a<c) and (c<b) then intemediario := c else if (b<c) and (c<a) then intermediario := a else intermediario := b; end; A pergunta é o seguinte: Tem como ter o mesmo resultado utilizando apenas dois ifs? Desde já agradeço aí pela ajuda no desenvolvimento do racicionio lógico Abraços.