conseguiu brother?!

vo postar um exemplo que vai funcionar ............ usei textos.. vc ai substitu e coloca a sua imagem blza?
qualquer coisa manda uma MP...

CODIGO JAVA SCRIPT PARA "SUMIR" os DIV..
[codebox]
<script>
function Display(object)
{
obj = document.getElementById(object);
if (obj.style.display == "none")
obj.style.display = "block";
else
obj.style.display = "none";
}

</script>
[/codebox]

agora abaixo segue o HTML com os codigos que vc tem que usar nos DIV..

[codebox]
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/bt_azul.gif" width="14" height="15" border="0" align="top"> <a href="java script:Display('L2')">
TV MONITOR LCD</a></td>

</tr>
</table>
<div id="L2" style="display:none">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="30" colspan="0"><br><a href="http://www.XXX.com.b...NUAIS</a><br><a href="http://www.XXX.com.b... href="http://www.XXX.com.b... TÉCNICA</a><br><br>
</td>
</tr>

</table>
</div>
[/codebox]

Com esse código a pagina oculta o DIV de nome L2 e ao clicar ele aparece....
espero que seja isso que procura...

um abraço cara!

Fala ai rapazeada..

espero que alguem possa me ajudar...
ate ontem o sistema mexo estava funcionando bem demais.............. porem no dia de hj ele deu um tilt do mal! e nao funciona mais a parte de inserir no banco.

tento inserir os dados e me aparece a linad msg de erro:

[codebox]Microsoft JET Database Engine erro '80004005'

A operação deve usar uma consulta atualizável.

/LM/W3SVC/1058982575/Root/global.asa, line 105
[/codebox]

a linha 105 seria essa:

[codebox] dim tbs(3)
tbs(0)="tbYears"
tbs(1)="tbMonths"
tbs(2)="tbDays"

Application("level")=""


objDb=server.MapPath("/scripts/resultados/bd1.mdb")
set objConn=server.createObject("ADODB.Connection")
objConn.open"provider=Microsoft.jet.OLEDB.4.0;Data source="&objDb&""

'_______________Begin_Hits/Dia

set objTable3=objConn.execute("Select count(id<>0) from "&tbs(2)&" where cdYear="&data(2)&" and cdMonth="&data(1)&" and cdDay="&data(0)&"")
if objTable3.fields("Expr1000")>0 then
set objTable3=objConn.execute("Select * from "&tbs(2)&" where cdYear="&data(2)&" and cdMonth="&data(1)&" and cdDay="&data(0)&"")
sql3="update "&tbs(2)&" set cdHits="&objTable3.fields("cdHits")+1&" where cdYear="&data(2)&" and cdMonth="&data(1)&" and cdDay="&data(0)&""
linha 105---> objConn.execute(sql3)
else
sql3="insert into "&tbs(2)&"(cdYear,cdMonth,cdDay,cdHits) values("&data(2)&","&data(1)&","&data(0)&",1)"
objConn.execute(sql3)

end if

'_____________End Hits/Ano
[/codebox]

Pois bem, li, reli e nada............
se alguem puder ajudar!

um grande abraço!!!

fala ai PotHix, bem vamos lá...

JA LEU:

FORMATANDO DATAS

espero que ajude.

já viu http://forum.wmonlin...howtopic=122167 ?

[]s

Fala ae mestre siola! esse é o cara!!!! THE MAN!!!!!
seguinte, vou dar uma lida nesse post que tu passou, já tinha pesquisado e nao achei nada.. vamos ver se funciona...

mais tarde posto denovo!!!.... e coloco o codigo todo que eu mesmo fiz...

mais ainda to na duvida.................... eita coisinha complicada!

Fala ae rapazeada do forum! Salve... Salve!!!

Bem aqui estou eu novamente com dúvidas em my head! bem, vamos lá... Vejamos se alguem pode me ajudar.

Seguinte, tenho 1 pagina e a mesma tem 1 form, este form, vai receber somente numeros (ou grupo de 4 ou de 6 numeros). (2 DEZENAS ou 3 DEZENAS) Minha duvida é a seguinte, como faço para organizar esses numeros antes de salvar em 1 coluna no banco?

Tipo o cliente digita: 010502 e antes de de salvar no banco, organizar para 010205.

To queimando a cabeça e ta complicado isso hein.... quando organiza ele fica 000125..!

Alguem ai poderia ajudar?! Já pesquisei algo em javascript LENGTH mais nao achei nada.

ABRAÇOOOO AE GALERA!!!!!!!!!!

Siola, vc é o cara!.............. xxxxxx..............!!!!

Não sei dizer se vc é O CARA ou se eu sou um UM COMPLETO IDIOTA!... mais vo te falar.. fico com a primeira opção!

uhahuahuahu chegou na moral aqui a parada....


Vivendo e aprendendo....

Quando vc vier aqui no RIO, me avisa lek, vo pagar UMA GAROTINHA aqui pra tu! UHAiuhaIUHAiuhaiUAH...
abraçao cara!!

fala siola....

ta dando erro.. ele busca o erro nessa linha:

HTML = HTML & "</tr><tr><td><div align='justify'>" &request.form("message")& "</div></td>"

coloquei essa linha como comentario e os emails foram enviados. porem nao foram as imagens.. ele vem em formato TEXTO...

pode ajudar ai brody?

Fala ai rapazeada!! blzura?!

Bem, o problema de hj é o seguinte... fiz uma newletters, e consigo fazer o envio tranquilamente em formato de texto.. Porém para ficar uma coisa mais apresentavel resolvi enviar em html. Esse foi o problema!!.. O bagulho não esta enviando nem por nada!!...............

fiz um exemplo de como quero que a galera recebe os emails:

http://www.xxx.com.br/newsletters/

Alguem poderia me ajudar..... Olha o código que fiz para tentar enviar dessa forma...

<!--#include file="conexao.asp"-->
<%
Server.ScriptTimeout = 2000000000
Response.Buffer = True

If IsEmpty(Session("subject")) Then
	Session("subject") = request("subject")
End If

If IsEmpty(Session("message")) Then
	Session("message") = request("message")
End If

Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = conn
RS.CursorLocation = 3
RS.LockType = 1
strSQL = "select email, subject, message"
RS.Open strSQL
Set rs.ActiveConnection = Nothing

   
Function envia_email(email,subject,message)

	HTML = "<HTML><HEAD><TITLE>Novidades Tec Prima Cartões</TITLE></HEAD>"
	HTML = HTML & "<body bgcolor=#ffffff leftMargin=0 topMargin=0 marginheight='0' marginwidth='0' text=ffffff>"
	HTML = HTML & "<table border='0' cellpadding='0' cellspacing='0' width='550'> <tr>"
	HTML = HTML & "<td><img src='http://www.xxx.com.br/newsletters/images/spacer.gif' width=550 height=1 border=0></td>"
	HTML = HTML & "<td><img src='http://www.xxx.com.br/newsletters/images/spacer.gif' width=1 height=1 border=0></td>"  
	HTML = HTML & "</tr><tr><td><img name='index_r1_c1' src='http://www.xxx.com.br/newsletters/images/index_r1_c1.gif' width=550 height=34 border=0></td>"
	HTML = HTML & "<td><img src='http://www.xxx.com.br/newsletters/images/spacer.gif' width=1 height=34 border=0></td>"   
	HTML = HTML & "</tr><tr><td bgcolor='#56AA1C'><table width='100%'  border='0' cellspacing='0' cellpadding='0'>"	 
	HTML = HTML & "<tr><td width='34%'><div align='center'><img src='http://www.xxx.com.br/newsletters/images/logo.gif' width='168' height='73'></div></td>"	
	HTML = HTML & "<td width='66%'><div align='right'><img src='http://www.xxx.com.br/newsletters/images/escrita.gif' width='288' height='73'></div></td>"	  
	HTML = HTML & "</tr></table></td><td><img src='http://www.xxx.com.br/newsletters/images/spacer.gif' width='1' height='76' border='0'></td>"	
	HTML = HTML & "</tr><tr><td><img name='index_r3_c1' src='http://www.xxx.com.br/newsletters/images/index_r3_c1.gif' width='550' height='43' border='0'></td>"	 
	HTML = HTML & "<td><img src='http://www.xxx.com.br/newsletters/images/spacer.gif' width='1' height='43' border='0'></td>"		 
	HTML = HTML & "</tr><tr><td><div align='justify'>" &request.form("message")& "</div></td>"
	HTML = HTML & "<td><img src='http://www.xxx.com.br/newsletters/images/spacer.gif' width='1' height='264' border='0'></td>"					
	HTML = HTML & "</tr><tr><td><img name='index_r5_c1' src='http://www.xxx.com.br/newsletters/images/index_r5_c1.gif' width='550' height='33' border='0'></td>"			
	HTML = HTML & "<td><img src='images/spacer.gif' width='1' height='33' border='0'></td>"
	HTML = HTML & "</TR></table<table width='600'  border='0' align='center' cellpadding='0' cellspacing='0'><tr><th scope='row'>&nbsp;</th>"		 
	HTML = HTML & "</tr></table></BODY></HTML>" 


	Set objeto = Server.CreateObject("CDONTS.NewMail") 'cria o objeto'
	objeto.From = "mario@xxx.com.br" 'Email de quem envia a mensagem. Neste caso o email digitado no formulario'
	objeto.To =  rs("email") 'Email que vai receber a mensagem'
	objeto.Subject = request.form("subject") 'assunto da mensagem'
	objeto.Body = HTML
	objeto.Bodyformat = 0 'faz com que o cdonts envie conteudo html'
	objeto.MailFormat = 0 'faz com que o cdonts envie conteudo html'
	objeto.Body = request.form("message")
	objeto.Send 'envia a mensagem'
	Set objeto = Nothing 'finaliza o objeto'

End Function

Se alguma alma puder ajudar ai.. seria de bom agrado!

vlw mestre thalis.. show demais!!!

koeh galera....

utilizei esse script ai e funcionou na moral.. fiz algumas modificações e ta show de bola.. vlw mesmo brother Without a Nick tiro onda! uhahuauhahuahua...

abraço ae pururucada!

Fala juventude.....

Nao sei tbm como fazer, mais já vi alguns sites em EXIBIR o CODIGO FONT nao aparecer.. mas bem...

Seguinte.. a opção postada pelo amigo RECYCLED

<body oncontextmenu="return false">

fucniona perfeitamente.... e para o meu uso serviu mais ainda, pq minhas aplicações eu preciso bloquear o mouse...

não tenho a estrutura da tua tabela, mas acredito que se vc adaptar vai funcionar...

soma dos alunos

select sum(cod_aluno) soma from tabela group by cod_aluno

aluno + velho

select nome_aluno from tabela order by nascimento asc limit 1

aluno + novo

select nome_aluno from tabela order by nascimento desc limit 1

Fala brother MxDxPx....

a logica eu ate entendi.. o meu problema é? como montar isso ai? fecho o banco e abro denovo???
como falei nao sei nada de SQL... como montar isso ai ?

<% set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("pecas.mdb") & ";Persist Security Info=False"
Set rstCarro=Server.CreateObject("ADODB.RecordSet")
rstCarro.Open "Select TOP 1 aluno, nascimento, med1, med2, med3, med4, (med1+med2+med3+med4) /4 AS Media From carro order by nascimento", SetCarro.Open "Select anluno, from Carro order by nascimento desc",  conexao %>

ALGO ASSIM?!!?

Fala ai rapeize! na moral?

Seguinte.. to com uma duvida cruel..... Tenho uma pagina em ASP. Essa pagina eu preciso exibir o NOME DO ALUNO MAIS VELHO, NOME DO MAIS NOVO E A QUANTIDADE DE ALUNOS.

Consigo exibir o ALUNO MAIS VELHO. Porém ja tentei inumeras vezes e nao to conseguinto exibir o NOME DO ALUNO MAIS NOVO, e nem a QUANTIDADE DE ALUNOS.

Como podem ver na pagina:
http://www.gastando....e/1/calculo.asp
Eu consigo exibir o ALUNO MAIS VELHO... Sei que colocando DESC depois do nascimento ele ordena o mais novo.... Porém, como fazer isso ? eu to fazendo e ta dando conflito...

eu teria que fechar o banco e abrir denovo? to perdidao!!

eu to usando o seguinte codigo.

<% set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("pecas.mdb") & ";Persist Security Info=False" 
Set rstCarro=Server.CreateObject("ADODB.RecordSet")
rstCarro.Open "Select TOP 1 aluno, nascimento, med1, med2, med3, med4, (med1+med2+med3+med4) /4 AS Media From carro order by nascimento", conexao %>

Alguém poderia ajudar? sei nada de SQL.. e to aprendendo.. conseguindo fazer isso.. ja vai ajudar pra caramba!!

Abração para todos!!!!!

Velho, tu nunca mexeu com ASP?

Tô só perguntando porque caso seja sim a resposta, vai ficar um pouco difícil de te explicar certas coisas, melhor seria se tu desse uma fuçada no asp porque certamente sempre um ou outro erro vai acabar acontecendo, por mais mínimo que ele seja (erro de digitação por exemplo) e sem uma base fica difícil achar a origem.

Bom, pra usar o código dentro do HTML, é só por <%= nome_da_variavel %>. Ex:

<table border="0">
<tr>
<td>
O aluno mais novo é <%=aluno_mais_novo%>
</td>
</tr>
</table>

fala show.. blza?

lek, sei sim mexer no asp. mais tipo.. meu forte mesmo é C e Assembly.. peguei esse serviço mais so to me fudendo..... como essa base é feita direto dentro do banco, pensei que tivesse que chamar usando outra forma.. mais vo testar essa pra ver qual é.. mais tipo.. mesmo assim tu ajudou pra xxxxxx.. um abraço meu brother!

Fala amigo Fire....

boehter, vlw pela força, mais só uma pergunta.. como faço para puxar essas info para colocar dentro da tabela no site ? tentei de tudo e nao consegui.....

da a moral ai veio!

abraçp!

Fala brother firewalk! na moral??

bicho vlw pela dica.. mais deixa eu te falar.. nao funcionou nao... tipo.. a duvida é como eu escreveria essa parada ai ?

tentei de varias formas e nao consegui!

Set rstCarro=Server.CreateObject("ADODB.RecordSet")
rstCarro.Open "Select aluno, nascimento, med1, med2, med3, med4, (med1+med2+med3+med4) /4 AS Media, (date()-nascimento)/365 as teste  From carro order by nascimento", conexao %>

pode me ajudar ai brother ?

abraçao!

Sobre a duvida 1:
Você está fazendo o calculo entre as idades com a função DateDiff?

Sobre a duvida 2:
Na instrução sql bsata adicionar o TOP 1.
Ex:

SELECT TOP 1 * FROM tabela ORDER BY nascimento DESC

[]s

Fala mestre Siola! na boa show ?

seguinte, a duvida 01 eu consegui resolver... a base de calculos eu fiz de 2 formas.. e vou agora usar a que melhor me convem.. fiz direto na linha SQL e outra em asp....

<%
Dim qtd_anos
qtd_anos = (date - RstCarro("nascimento")) /365 
Idade = round(qtd_anos,0)
%>

Usei o ROUND e agora a idade aparece certinho! show de bola...... agora minha dúvida é a 2... a tabela ja esta ordenada pela data de nascimento e envetualmente a idade tbm fica ordenada... decrescente... Primeiro vem o mais velho e o ultimo o mais novo....

Preciso tipo, puxar somente o nome do aluno mais velho e jogar em um lugar na pagina... e na mesma pagina puxar tbm o nome do aluno mais novo e jogar em outro lugar... E mais uma duvida.. Queria contar a quantidade de alunos e jogar em um outro campo na pagina.... Resumindo: Puxar aluno mais velho / mais novo / e quantidade de alunos.

o resto eu ja resolvi tudo..........

abraço ai Siola.. vlw pela força show!!

Fala NEO, blza?

seguinte.. veja se isso pode te ajudar!

TUTORIAIS CHAT

Abraço!

Bom dia rapazeada! blza?
eis me aqui novamente com minhas duvidas inacabaveis!!

agora sao 2.. hehehehe!!

DÚVIDA 01
Tenho 1 banco. puxo as info desse banco e faço um calculo na pagina... ele pega a data de nascimento - data atual e da a idade.. porém o resultado esta vindo assm: 29.3369863013699. Utilizei o FIX para nao mostrar os numeros depois do ponto... só que não funcionou!

DÚVIDA 02
Resolvendo ou nao esse problema da idade, gostaria de saber, como puxar o nome do aluno mais velho na tabela e jogar em qualquer lugar da pagina... o banco ja esta ordenado pela data de nascimento (order by nascimento) só que eu quero somente pegar o nome do aluno mais velho... eu consigo puxar, só que vem a coluna inteira com todos os nomes!!

alguem poderia ajudar??

vlw rapazeada!!!

bom , a data de nascimento vc deve ter cadastrada numa tabela certo?

Considera o campo datanascimento sendo dtnasc e a tabela chamada cliente

faz assim

SELECT (YEAR(NOW()) - YEAR(dtnasc)) as idade FROM cliente ;


Tenta ae

qq coisa posta ae

kolé brother execao!!

vlw pela força show.. mais tipo, comigo só funcionou assim....

Select (date()-nascimento) / 365 as idade  From carro order by nascimento

mais tipo.. o que vc colocou clareou minha ideia.... vlw mesmo brother!!

abraço!!!

Fala ai moçada!! na moral?

seguinte.. ja consegui fazer as continhas e tal.. so que agora me vem mais um duvida que nao se cala....

tenho ordenado (idade).. porem queria pegar somente o nome do primeiro aluno (mais velho) o ultimo aluno (mais novo) e exibir em algum lugar na tela.. quero pegar somete no nome.. e nao a coluna inteira com os nomes.. somente o primeiro e ultimo...

alguem poderia ajudar ???

um beijo e um queijo!

Fala galera.. olha eu denovo ai.. e para variar.. com mais duvidas.....

estou fazendo uma funçao para calcular a idade....
pego a informação no banco (nascimento) no formato dd/mm/aaaa. tenho + - a função feita, só que não consigo puxar o ano para efetuar o calculo.. vejam exemplo.

mediaano = ( [b]ANO[/b] -  RstCarro("nascimento") /365)

queria saber como faço para exibir o ano ... só isso..

ja tentei tudo.. se alguem puder me ajudar.. seria grato!!

abraçao!!

bom.. pra pegar ono da pessoa:

SELECT YEAR(NOW())

soh troca o NOW() pelo campo da data

FUNCIONOU NAO AMIZADE!!!......



MAIS VLW PELA FORÇA...

Fala galera..... blza?? ai, tenho outra duvida so pra variar... hehehe

tenho um form que insere no banco os dados de data de nascimento: dd/mm/aaaa

consigo puxar essa variavel para o site... porem estou com duvidas no calculo... preciso puxar a idade. fiz de diversas formulas e nao congio... teria primeiro como puxar somente os 4 digitos do ano? caso negativo, como proceder?

dd/mm/aaaa - ano = idade

alguem pode dar uma luz ???

abraçao!

Fala galera!! blza?

seguinte... tenho 1 formulario que suas informações são armazenadas em um bd, esse form existe vários campos como qualquer outro.. hehehe.. já consigui validar a data e o nome.. porém, se o cidadão que preencher, deixar algum campo vazio e clicar em enviar, ele ta enviando... já tentei de tudo, mais acho que fiz algum M ai na parada!

segue codigo.:

<html>
<style type="text/css">
<!--
.style5 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }
-->
</style>


<script type="text/javascript">
<!--

var data_valida = false;
var nome_valido = false;

function checkName(nome){
	if (nome.value != ''){
	nome_u = nome.value.search(new RegExp("^[a-záéíóúçãõüêîôûÁÉÍÓÚÃÔÊÔÛA-Z0-9]+([ ]+[a-záéíóúçãõüêîôûÁÉÍÓÚÃÔÊÔÛA-Z0-9]+)+"));
		if (nome_u < 0){
		alert("Nome inválido. Altere usando no mínimo um nome e um sobrenome.");
		nome_valido = false;
		nome.focus();
		} else {
		nome_valido = true;
		if (data_valida == true){opcoes();}
		}
	}
}
function checkDate(data){
	if (data.value != ''){
	data_u = data.value.search(new RegExp("^(0[1-9]|[12][0-9]|3[01])/(0[1-9]|1[012])/(20|1[789])[0-9][0-9]$"));
		if(data_u < 0){
		alert("Data inválida. Altere, por favor. Utilize o formato dd/mm/aaaa.");
		data_valida = false;
		data.focus();
		} else {
		data_valida = true;
		if (nome_valido == true){opcoes();}
		}
	}
}

function Validar()
with(document.incluir) {
	
	if (document.form.aluno.value=="") {
 alert("Campo Aluno é obrigatório!");
 document.form.aluno.focus();
 return false;
	}
	document.form.submit();
  }

if (document.form.nascimento.value=="") {
 alert("Campo Nascimento é obrigatório!");
 document.form.nascimento.focus();
 return false;
	}
	document.form.submit();
}
//-->
</script>

no campo do form eu coloquei a tag:

onsubmit="return Validar();"

alguem poderia ajudar??

vlw!!

Fala Soila, blza???

cara, seguinte.. da forma que vc fez ai, nao funcionou... da o seguinte erro:

Microsoft VBScript compilation  error '800a03fa'

Expected 'Wend'

/teste/1/consulta.asp, line 29

elseif Media = 6 then color ="#000000"

vlw pela força!

rapazeada... dei uma mexida no codigo, e agora parece estar funcionando.... só que as notas >= 7 eram para ser azul. só que ta ficando tudo vermelho (cor do reprovado.)

olha o codigo....

<% While Not RstCarro.EOF%>
	<%
	
	   if Media >= 7 then
	   		'Aprovado
		color = "blue"

	   else
			'Reprovado
		color = "red"
			   
	   end if %>


<TR>
<TD> <span class="style3">
  <% = RstCarro("aluno") %> 
  </span></TD><TD><div align="center" class="style3">
	  <% = RstCarro("nascimento") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med1") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med2") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med3") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med4") %>
</div></TD>
<TD><div align="center"><span class="style3">
  <font color="<%=color%>"><% =RstCarro("Media") %> </font>
 
</span></div></TD>
</TR> 
<%
RstCarro.MoveNext
Wend %>
</table>

FUNCIONAR ELE FUNCIONA.. POREM FICA TUDO NA COR VERMELHA...

alguem poderia me dar uma ajudadinha ??

vlw galera!!