Tite
-
Total de itens
39 -
Registro em
-
Última visita
Tudo que Tite postou
-
Rodrigo.. utilizo este mesmo codigo no ASP e funciona perfeitamente, com o preview no momento que escolhe a imagem. coloco este codigo dentro do head: <script language="javascript"> <!-- function preview() { var largura = 150; //Largura da Imagem de Preview! var altura = 110; //Altura da Imagem de Preview! document.visualizar.src=document.billform.file2.value; document.visualizar.width=largura; document.visualizar.height=altura; --> } </script> No form.. coloco o name "billform" como no exemplo. e aqui o codigo do campo file: <input name="file2" id="file2" type="file" size="40" maxlength="200" onChange="preview()"> <img src="space.gif" name="visualizar" width="6" height="2" id="fotoshow" /> Está funcionando perfeitamente.
-
Nossa andreia... passei 20min tentando decifrar o que falou mas ta dificil.. só deu pra entender um pouco a parte do ASP..rs! Seria pedir muito... se você detalhasse mais isso? onde coloco o hidden? qual o valor que eu colocaria nesse onbeforeunload??? valeu por enquanto! Abraços.
-
E ai pessoal.. ninguém sabe de uma solução?? Esse é complicado mesmo heim.. Se os fera não sabe, então é porque o codigo é dificil. Valeu. Abraços!
-
Pessoal estou fazendo uma contagem regressiva, este codigo abaixo está funcionando quase perfeito, o problema é simples.. porém não consegui resolver.. Obs.: Os minutos é passado diante de uma variável asp. O problema é o seguinte: A contagem inicia-se perfeitamente.. mas se por exemplo estiver em 01:30 e eu atualizar o browser a contagem volta para 01:59... eu só queria que se caso atualizar o browser a contagem continua normalmente. O certo seria colocar a variável ASP "strsegundos" no codigo JAVA também, mas quando faço isso a contagem fica com 3 casas mais ou menos assim: 01:307. Só que os segundos real fica no "07". Enfim.. talvez seria melhor concertar esse erro das 3 casas.. pois assim pego a variavel de segundos também. Conseguiram entender?? Vejam o codigo: <% strdata_atual = now strdata_final = contagem("datafinal") strminutos = DateDiff("n", strdata_atual, strdata_final) strsegundos = DateDiff("s", strdata_atual, strdata_final) %> <script language="javaScript"> var min, seg; min = <%= strminutos %>; seg = 0 function relogio(){ if((min > 0) || (seg > 0)){ if(seg == 0){ seg = 59; min = min - 1 } else{ seg = seg - 1; } if(min.toString().length == 1){ min = "0" + min; } if(seg.toString().length == 1){ seg = "0" + seg; } document.getElementById('spanRelogio').innerHTML = min + ":" + seg; setTimeout('relogio()', 1000); } else{ document.getElementById('spanRelogio').innerHTML = "A contagem terminou"; parent.window.location="atualiza_contagem.asp"; } } </script> <body bgcolor="#ffffff" onload="relogio()"> <FONT face=verdana color=#1e90ff size=2><B> <span id="spanRelogio"></span></FONT> Como não entendo muito de java... to apanhando demais... me ajudem ai quem souber... please!!! Abraços.
-
No access deu o mesmo erro!!!! Isso não tem lógica... o código está correto num tá?????
-
como faço isso no access??? poderá ser erro de que será??? Grato.
-
Estou tendo esse erro na minha consulta com inner join: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta '3MEMBRO.cod_membro=3ESPACO.cod_membro'. MINHA TABELA DO ACCESS: TABELA: 3MEMBRO - cod_membro (numeraçao automatica) - nome - etc TABELA: 3ESPACO - cod_espaco - cod_membro (numero) - titulo - etc E NO RELACIONAMENTO ESTÁ O cod_membro (3MEMBRO) ligado ao cod_membro (3ESPACO). O CÓDIGO: procura = "SELECT 3MEMBRO.*, 3ESPACO.* FROM 3MEMBRO INNER JOIN 3ESPACO ON 3MEMBRO.cod_membro=3ESPACO.cod_membro " procura = procura &" WHERE 3MEMBRO.ativado='s' " procura = procura &" AND 3ESPACO.ativado ='s' " procura = procura &" order by 3ESPACO.dtespaco desc " Set RS_membros = Server.CreateObject("ADODB.Recordset") SET RS_membros = Conexao.Execute(procura) Agora me dizem o que tem d errado ai??? Já revisei letra por letra e não acho nada d errado. Abraços.
-
Bareta deu o seguinte ERRO: Tipos incompatíveis: "CDate" Valeu pela intenção... Ufaaa pessoal... até que enfim descobri o problema. o segredo está na variavel da data como o companheiro bareta falou... então o código esta ai completo, somente troque isso: strdata=formatData(FormatDateTime(dt,2)) Por isso: strdata=gr(ct) Ai é só fazer um Admin pra inserir eventos e pronto. Abraços.
-
Este é o codigo completao: FUNÇOES: <% function formatData(data) dim dia, mês, ano, b1, b2, hora, espaco formatData = "" if not isdate(data) then exit function b1 = instr(1,data,"/") b2 = instr(b1+2,data,"/") espaco = instr(1,data," ") dia = left(data,b1-1) if len(dia)<>2 then dia = "0" & dia mês = mid(data,b1+1,2) if not isnumeric(mês) then mês = "0" & left(mês,1) if espaco>0 then ano = mid(data,b2+1,espaco-(b2+1)) else ano = mid(data,b2+1) end if if len(data)>10 then hora = formatdatetime(data,3) formatData = trim(dia & "/" & mês & "/" & ano & " " & hora) end function %> <% Public Function nomesemana(nome) Select Case nome Case 1 nomesemana = "DOMINGO" Case 2 nomesemana = "SEGUNDA" Case 3 nomesemana = "TERÇA" Case 4 nomesemana = "QUARTA" Case 5 nomesemana = "QUINTA" Case 6 nomesemana = "SEXTA" Case 7 nomesemana = "SÁBADO" End Select End Function %> VARIÁVEIS DO CALENDÁRIO: <% dim dt 'Variável que controla a Data if request("dt") = empty then dt = date() 'Traz data else dt = request("dt") end if dim pd 'Variável do primeiro dia dim ud 'Variável do último dia pd = DateSerial(year(dt),month(dt),1) ud = DateSerial(year(dt),month(dt)+1,1)-1 dim ma 'Mês anterior ao atual dim mp 'Mês posterior ao atual ma = DateSerial(year(dt),month(dt)-1,1) 'Para voltar 1 mês mp = DateSerial(year(dt),month(dt)+1,1) 'Para andar 1 mês '------------------------- 'Montagem da Grade de Dias '------------------------- dim gr(36) 'Matriz dim li 'Linhas da Grade dim co 'Colunas da Grade dim ct 'Contador da Grade ct = 1 dim lp 'Suporte aos Loops '------------------------- 'Montagem dos Quadros Brancos '------------------------- for lp = 1 to weekday(pd)- 1 gr(ct) = " " ct = ct + 1 next '------------------------- 'Lendo o Mês Atual '------------------------- for lp = pd to ud if lp = date then gr(ct) = "<font color = red>" & day(lp) & "</font>" else gr(ct) = day(lp) end if ct = ct + 1 next '----------------------------- 'Montagem do Resto dos Quadros '----------------------------- for lp = ct to 36 gr(lp) = " " 'Coloquei LP dentro do GR porque ele já 'tem o valor de CT (que é a posição 'do último dia + 1) next ct = 1 %> ESCREVENDO O CALENDÁRIO NA TELA: <table width="100%" border=1 cellspacing = 0> <tr> <td bgcolor="#4DA8E1"><a href= "index_ger2.asp?dt=<%=ma%>"> <img src="../imagens/jpg/rev.jpg" alt="Mês anterior" width="32" height="32" border="0"></a></td> <td colspan = 4 align = center bgcolor="#4DA8E1"><font face = "verdana" size = 3><b> <%=Ucase(MonthName(month(dt),true))%>/<%=year(dt)%> </b></font></td> <td align="right" bgcolor="#4DA8E1"><a href = "index_ger2.asp?dt=<%=mp%>"><img src="../imagens/jpg/fw.jpg" alt="Próximo mês" width="32" height="32" border="0"></a></td> </tr> </table> <table width="100%" border=1 cellspacing = 0> <%for li = 1 to 9%> <tr> <%for co = 1 to 4%> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <th width="100%" bgcolor="#CCCCCC" scope="row"><div align="left" class="style29"> <% diasemanahoje = nomesemana(WeekDay(ct)) response.write diasemanahoje %> </div></th> </tr> <tr> <th scope="row"><div align="left" class="style31"><%=gr(ct)%></div></th> </tr> <tr> <th scope="row"><div align="left"><span class="style13 style21"> <% strdata=formatData(FormatDateTime(dt,2)) data = "SELECT * FROM 4AGENDA WHERE cod_politico="& session("cod_user") &" AND dtcompromisso='"& strdata &"'" Set RS_data = Server.CreateObject("ADODB.Recordset") SET RS_data = Conexao.Execute(data) If RS_data.EOF = true then response.write "Nenhum compromisso" end if %> <% while Not RS_data.EOF %> </span> <table width="100%" border="0" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC"> <tr style="cursor:default" onMouseOver="java script:this.style.backgroundColor='#00b3fe'" onMouseOut="java script:this.style.backgroundColor=''"> <th width="16%" scope="row"><div align="left" class="style27"><%= RS_data("horario") %></div></th> <td width="84%"><div align="left" class="style26"><a class='tooltip' href='#'><%= Left(RS_data("chamada"),21) %>...<span> <% response.write "<font size=3><b>"& Ucase(RS_data("chamada")) & "</b></font><br><br>" response.write RS_data("descricao") & "<br><br>" if RS_data("publico")="s" then response.write "<font color=#0099ff><b>TIPO: Público</b></font>" else response.write "<font color=#0099ff><b>TIPO: Não Público</b></font>" end if %> </span></a></div></td> </tr> </table> <% RS_data.MoveNext wend RS_data.Close Set RS_data = Nothing %> </div></th> </tr> </table></td> <%ct = ct + 1%> <%next%> </tr> <%next%> </table> Ficou mais claro agora? Abraços.
-
Falou grego pra mim cara... como que vou fazer isso na variavel da data? este é o restante do código: <% dim dt 'Variável que controla a Data if request("dt") = empty then dt = date() 'Traz data else dt = request("dt") end if dim pd 'Variável do primeiro dia dim ud 'Variável do último dia pd = DateSerial(year(dt),month(dt),1) ud = DateSerial(year(dt),month(dt)+1,1)-1 dim ma 'Mês anterior ao atual dim mp 'Mês posterior ao atual ma = DateSerial(year(dt),month(dt)-1,1) 'Para voltar 1 mês mp = DateSerial(year(dt),month(dt)+1,1) 'Para andar 1 mês '------------------------- 'Montagem da Grade de Dias '------------------------- dim gr(36) 'Matriz dim li 'Linhas da Grade dim co 'Colunas da Grade dim ct 'Contador da Grade ct = 1 dim lp 'Suporte aos Loops '------------------------- 'Montagem dos Quadros Brancos '------------------------- for lp = 1 to weekday(pd)- 1 gr(ct) = " " ct = ct + 1 next '------------------------- 'Lendo o Mês Atual '------------------------- for lp = pd to ud if lp = date then gr(ct) = "<font color = red>" & day(lp) & "</font>" else gr(ct) = day(lp) end if ct = ct + 1 next '----------------------------- 'Montagem do Resto dos Quadros '----------------------------- for lp = ct to 36 gr(lp) = " " 'Coloquei LP dentro do GR porque ele já 'tem o valor de CT (que é a posição 'do último dia + 1) next ct = 1 %> Brigadão por enquanto ai bareta... Se você puder mudar no próprio código vou ficar muito agradecido. Abraços.
-
Pessoal como não consegui resolver meu problema com o script de agenda.. (tópico anterior), resolvi adaptar um script de calendário já pronto.. mas só está faltando uma coisa pra concluir, notem na imagem abaixo que os dias estão imprimindo registros iguais: Para cada dia existe um compromisso diferente, compromisso este que é buscado no banco de dados ACCESS.. mas não sei porque está pegando registros iguais... o While - wend, está dentro do For - next.. será que é por causa disso? como fazer? veja o codigo simplificado: <table width="100%" border=1 cellspacing = 0> <tr> <td bgcolor="#4DA8E1"><a href= "index_ger2.asp?dt=<%=ma%>"> <img src="../imagens/jpg/rev.jpg" alt="Mês anterior" width="32" height="32" border="0"></a></td> <td colspan = 4 align = center bgcolor="#4DA8E1"><font face = "verdana" size = 3><b> <%=Ucase(MonthName(month(dt),true))%>/<%=year(dt)%> </b></font></td> <td align="right" bgcolor="#4DA8E1"><a href = "index_ger2.asp?dt=<%=mp%>"><img src="../imagens/jpg/fw.jpg" alt="Próximo mês" width="32" height="32" border="0"></a></td> </tr> </table> <table width="100%" border=1 cellspacing = 0> <%for li = 1 to 9% <tr> <%for co = 1 to 4%> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <th width="100%" bgcolor="#CCCCCC" scope="row"><div align="left" class="style29"> <% diasemanahoje = nomesemana(WeekDay(ct)) response.write diasemanahoje %> </div></th> </tr> <tr> <th scope="row"><div align="left" class="style31"><%=gr(ct)%></div></th> </tr> <tr> <th scope="row"><div align="left"><span class="style13 style21"> <% strdata=formatData(FormatDateTime(dt,2)) data = "SELECT * FROM 4AGENDA WHERE cod_politico="& session("cod_user") &" AND dtcompromisso='"& strdata &"'" Set RS_data = Server.CreateObject("ADODB.Recordset") SET RS_data = Conexao.Execute(data) If RS_data.EOF = true then response.write "Nenhum compromisso" end if %> <% while Not RS_data.EOF %> </span> <table width="100%" border="0" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC"> <tr style="cursor:default" onMouseOver="java script:this.style.backgroundColor='#00b3fe'" onMouseOut="java script:this.style.backgroundColor=''"> <th width="16%" scope="row"><div align="left" class="style27"><%= RS_data("horario") %></div></th> <td width="84%"><div align="left" class="style26"><a class='tooltip' href='#'><%= Left(RS_data("chamada"),21) %>...<span> <% response.write "<font size=3><b>"& Ucase(RS_data("chamada")) & "</b></font><br><br>" response.write RS_data("descricao") & "<br><br>" if RS_data("publico")="s" then response.write "<font color=#0099ff><b>TIPO: Público</b></font>" else response.write "<font color=#0099ff><b>TIPO: Não Público</b></font>" end if %> </span></a></div></td> </tr> </table> <% RS_data.MoveNext wend RS_data.Close Set RS_data = Nothing %></div></th> </tr> </table></td> <%ct = ct + 1%> <%next%> </tr> <%next%> </table> Assim que consegui concluir (se conseguir), posto o código pra vocês.. Abraços.
-
LA VAI então O CODIGO FUNCIONANDO PERFEITAMENTE EM HTML... PEGUEI DE UM SITE que não LEMBRO MAIS QUAL FOI. <html> <head> <title></title> </head> <body bgcolor="#FFFFFF" text="#000000"> <table width="50%" border="1" cellspacing="0" cellpadding="0" align="center"> <tr> <td height="103"> <div align="center"><font color="#0000CC">Passe o mouse sobre as linhas para ver o resultado!</font></div> </td> </tr> <tr style="cursor:default" onMouseOver="java script:this.style.backgroundColor='#C0B085'" onMouseOut="java script:this.style.backgroundColor=''"> <td height="5"><div align="center">Linha 01 da tabela</div></td> </tr> <tr style="cursor:default" onMouseOver="java script:this.style.backgroundColor='#C0B085'" onMouseOut="java script:this.style.backgroundColor=''"> <td height="2"><div align="center">Linha 02 da tabela</div></td> </tr> <tr style="cursor:default" onMouseOver="java script:this.style.backgroundColor='#C0B085'" onMouseOut="java script:this.style.backgroundColor=''"> <td height="2"><div align="center">Linha 03 da tabela</div></td> </tr> <tr style="cursor:default" onMouseOver="java script:this.style.backgroundColor='#C0B085'" onMouseOut="java script:this.style.backgroundColor=''"> <td height="2"><div align="center">Linha 04 da tabela</div></td> </tr> <tr style="cursor:default" onMouseOver="java script:this.style.backgroundColor='#C0B085'" onMouseOut="java script:this.style.backgroundColor=''"> <td height="2"><div align="center">Linha 05 da tabela</div></td> </tr> <tr> <td height="82"> </td> </tr> </table> </body> </html>
-
Pessoal.. este codigo: <tr style="cursor:default" onMouseOver="java script:this.style.backgroundColor='#C0B085'" onMouseOut="java script:this.style.backgroundColor=''"> faz com que ao passar o mouse sobre linha de uma tabela, mude a cor do background desta tabela... mas este codigo só está funcionando em arquivo HTML.. Em arquivo ASP não dá certo... alguém sabe fazer esse efeito em ASP???? Abraços.