Jump to content


ecbert's Content

There have been 87 items by ecbert (Search limited from 25/04/2023)



Ordernar por                Order  

#176674 Sistema De Usuario

Posted by ecbert on 27/08/2003, 10:23 in ASP

Acrescentando que isso fica bom para sistemas simples que não possuem muitas páginas...

No caso de um portal por exemplo, o ideal seria fazer o bloqueio por aplicação. Mas acho que não é seu caso. Já fiz uma vez como o Rodrigo te falou e ficou muito bom.

Bom trabalho.



#172008 Técnicas De Desenho

Posted by ecbert on 20/08/2003, 08:38 in Teoria da arte e tipologia

Alguns sites para sua pesquisa:

O desenho e suas funções

Links para desenho e técnicas de pintura

Drawing - Em inglês

Desenho - Materiais, Instrumentos e técnicas

Lições de Desenho - Em Inglês


Boa sorte.



#168988 Lighting Effects

Posted by ecbert on 15/08/2003, 15:55 in Editores Bitmap

Experimente este!.

Acho que pode ajudar!

Boa sorte.



#167445 Barra De Rolagem Horizontal

Posted by ecbert on 12/08/2003, 16:32 in FrontPage

Alguém sabe se tem como sumir apenas com a barra horizontal de um dos quadros de uma página de frames?

Se mecher nas propriedades do quadro, o front page não deixa nenhuma barra, e eu só queria a vertical ativa.

Será que tem como?

Até mais



#167233 Produção E Design Gráfico

Posted by ecbert on 12/08/2003, 10:25 in Teoria da arte e tipologia

Acho que podem te ajudar na pesquisa:

Desenvolvimento e Administração de Websites Profissionais

Webdesign - Universidade de Brasília

O que é produção gráfica

Bom estudo.

Até mais.



#167170 Tuturiais

Posted by ecbert on 12/08/2003, 07:50 in Editores Bitmap

Werral

dê uma olhada nestes links com tutoriais para abstrato em PS. Eles são em inglês, e mesmo que não tenha muita intimidade com a língua inglesa, a leitura está bem fácil:

Tutorial Abstrato em PS - efeito com luzes

Efeito com "wave" e "smoke"

e depois navegue mais na Shiver - Tutoriais que vc vai achar vários outros. Os de Ps estão lá embaixo na página.

Como o pessoal disse um abstrato reflete sentimentos, expressa emoções momentâneas ou não, etc... mas acho que todo aprendizado é válido para começar a produzir.

Se não sabemos direito como fazer é difícil pegar uma ferramenta e tentar refletir alguma coisa que sentimos ou pensamos com aquilo.

Bom estudo e quando tiver alguma coisa poste para vermos.

E quando postar: um conselho - coloque uma breve descrição do trabalho e da sua inspiração ao fazê-lo. Não vai ser uma coisa mostrada só por mostrar, ok?

Até mais.



#164708 Erro 8002009

Posted by ecbert on 08/08/2003, 13:12 in ASP

Oi Cyber...

Me parece que o problema está no tipo de dados que coloco para o campo notícia.

O pessoal aqui tem algo parecido mas o banco é SQL.

Como o tipo memorando é muito grande talvez seja esse o problema, agora, a explicação do porquê disso ocorrer é que são elas... ainda não sei.


O código é este aqui caso queira dar uma olhada:

Código da página com o link da noticia:
[SIZE=1]conexão com o banco
código html
<% 
if not rs.eof then  
while not rs.eof 
%> 
<p><a href="noticias/ver.asp?id=<%=rs("id")%>"><%=rs("manchete")%></a></p>
<%
rs.Movenext
wend
end if
%>
código html[/SIZE]


e este é o código da página que mostra a notícia: Ver.asp

[SIZE=1]<%
cnpath="DBQ=" & Server.MapPath("../banco/banco.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
 
Set Conn = Server.CreateObject("ADODB.Connection") 

Conn.Open DataSource

Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = conn
set rs=conn.execute("select*from Noticias where id="&request.querystring("id")&"")
%>

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0">
<div align="center">
<center>
<table border="0" cellspacing="0" cellpadding="0">
<tr> 
<td bgcolor="#339966" width="464">
<p align="center"><b>
<font size="2" color="#FFFFFF" face="Verdana"><%=rs("manchete")%></font></b></td>
</tr>
<tr> 
<td>
<font face="Verdana" size="2"><%=rs("noticia")%></font>
</td>
</tr>
<tr>
<td align="right"><font face="Verdana" size="1" color="#808080">Fonte:<%=rs("fonte")%></font></td>
</tr>
<tr>
<td align="right"><font face="Verdana" size="1" color="#808080">Data:<%=rs("data")%></font></td>
</tr>
</table>
</center>
</div>
</body>
</html>[/SIZE]


Se souber se realmente é isso ou não, me dá uma dica ok?

Obrigada por enquanto e até mais.



#164642 Erro 8002009

Posted by ecbert on 08/08/2003, 10:38 in ASP

Pessoal, gostaria de uma dica se alguém puder me ajudar!

Fiz um sistema de notícias bem simples para um site.

Na página que visualiza a notícia coloquei uma tabela chamando os dados do banco nessa ordem: a manchete, a noticia, a fonte e a data.

No banco, o campo noticia está como tipo memorando (utilizo o Access). Quando testo a página, aparece apenas o campo da manchete e abaixo ele mostra error 8002009 e blá blá blá...

Tentei mudar o campo da noticia para tipo texto e funcionou. Mas preciso que seja tipo memorando, devido ao tamanho das notícias.

Alguém sabe porque ele considera esse campo como vazio se eu uso o tipo memorando?

Obrigada e até mais.



#159509 Como O Olho Percorre O Site...

Posted by ecbert on 01/08/2003, 11:03 in Teoria da arte e tipologia

Isso envolve muita coisa. Para chegar a conclusão mostrada neste artigo, acredito que vários estudos foram feitos, várias pesquisas passando por muitos temas como processos de aprendizagem, elementos cognitivos, ergonomia, psicologia, inteligência artificial entre outros vários... e são vários mesmo.

A teoria que foi apresentada não é a única, e não foi baseada em um único argumento.

Cada cultura tem suas características e propostas.

Sendo assim, todo esse processo óptico em relação a cores, disposição, luz, etc varia de cultura para cultura.

Acredito que 90% dos usuários deste fórum, senão mais, são desenvolvedores de web para o ocidente...

Para isso, todo o contexto das pesquisas deve estar voltado para essa cultura. Então acho que vale a dica deste artigo...

Não acho que houve ocidentalização, nem haverá...pois a intenção do design é fixar uma imagem, uma informação, etc, sendo assim, antes de projetar qualquer coisa, deve-se preceder com a pesquisa do público que ira interagir.

Se o projeto for para o público Oriental, as estratégias para atrair o leitor serão outras baseadas em outros fundamentos teóricos e práticos.

Outra fonte de pesquisa que trata do tema:

"6.2 Foco e Ênfase

...A cultura e as decisões do projeto de uma página na Web podem governar este princípio. Pessoas de culturas ocidentais, por exemplo, procuram no canto superior esquerdo da tela as informações mais importantes. "

"O olho é sempre atraído por elementos coloridos antes dos elementos em preto e branco e por desenhos antes do texto.
Respeite as convenções de layout de leitura da informação.

Em países ocidentais isto significa da esquerda para a direita e de cima para baixo. As informações mais importantes devem estar localizadas no canto superior esquerdo. (OSF/Motif, 1990)

Quando a informação é posicionada verticalmente, alinhe os links por suas extremidades esquerdas (em países ocidentais). (Schriver, 1997) "


Fonte: http://www.eps.ufsc..../rosam/ane1.htm

Esse é meu ponto de vista ok? ;)

Até mais.



#159416 Como O Olho Percorre O Site...

Posted by ecbert on 01/08/2003, 07:52 in Teoria da arte e tipologia

Para quem quer saber um pouco mais, algumas lições que me ajudaram bastante...


"Saber distribuir os elementos dentro de uma página é muito importante, pois é através disto que você irá determinar a direção em que os olhos devem seguir, podendo assim, prender a atenção do usuário.

Normalmente os olhos se movimentam da esquerda para a direita, e de cima para baixo, então você pode criar um layout onde o usuário seja levado a visualizar os elementos superiores esquerdos primeiros e a partir daí, descer em forma diagonal.

Esta estrutura é denominada de movimento em "Z", é a mais usual, pois é a maneira mais comum de se controlar e conduzir os olhos, isto por ser considerado o movimento normal das vistas.

Outro detalhe importante que deve ser lembrado é que os olhos movem-se dos elementos maiores para os menores, das cores escuras para as mais claras, e da cor para a ausência de cor.

Assim você poderá criar um layout iniciando a movimentação dos olhos em qualquer lugar e controlar a partir daí a sequência fazendo com que os olhos não se percam. "

Fonte: http://www.e-dimensa...to/mov_olho.asp

Bom estudo!



#159066 Tempo Para Excluir As Notícias!

Posted by ecbert on 31/07/2003, 18:39 in ASP

Vou querer sim essa maneira "esperta" de montar esse código!

Se puder, desde já te agradeço!


Aguardo seu retorno...


Obrigada.



#158966 O Que É Blur ?

Posted by ecbert on 31/07/2003, 16:45 in Teoria da arte e tipologia

Blur é aquele efeito embaçado que vc colocou no seu menu.

Acho que vc pode e deve melhorar o layout do seu site.

Eu li o tópico ao qual vc se refere e a pessoa que te respondeu deu bastante dica para recomeçar.

Aproveite que aquilo pode dar bons resultados.

Depois poste novamente para ser reavaliado. Tenho certeza que vai melhorar!

Boa sorte e bom trabalho.

Até. ;)



#158929 Tempo Para Excluir As Notícias!

Posted by ecbert on 31/07/2003, 16:05 in ASP

Pessoal, tenho um sistema de notícias para um site e gostaria que quando o usuário editasse uma nova notícia além da data de postagem ele entrasse com uma data final para a publicação.

Assim, expirando aquele tempo, a notícia seria retirada automaticamente da página inicial.

Como eu faço isso?

Até mais.



#142248 Modelo De Croqui?

Posted by ecbert on 11/07/2003, 10:59 in Teoria da arte e tipologia

Croqui que eu saiba é um pré daquilo que se pretende fazer... tipo um rascunho melhor elaborado....

Não sei se é isso... se não for alguém me corrija. Massssss......vc precisa dizer o que precisa realmente , senão não dá pra ajudar.


Poste novamente ok?

Até mais



#138694 Pessoal, Mais Dicas...

Posted by ecbert on 07/07/2003, 08:16 in Teoria da arte e tipologia

Bom dia a todos.

Aqui, alguns sites que podem ajudar bastante:

E-Dimensão

Laboratório de Imagem e Som - Universidade de Brasília

Espero que aproveitem bastante.

Abraço a todos e até mais.



#132707 Usuário Que Imprime Página

Posted by ecbert on 30/06/2003, 09:09 in ASP

Para o pessoal com mais experiência em programação asp, estou tentando montar o seguinte:

Tenho um site onde usuários tem níveis para acesso às paginas... Dentre essas páginas existem algumas que mostram documentos de qualidade. Esses documentos são cadastrados por um sistema auxiliar feito em vb e a página apenas direciona o caminho do documento. Até aí tudo bem...

Alguns desses documentos tem cópia controlada, ou seja, não podem ser impressos por qualquer pessoa em qualquer quantidade, então o que preciso?

Tenho que marcar de alguma forma esse usuário que imprimiu tal documento, em tal hora, em tal data e registrá-lo no banco, pois quando houver alguma modificação nesse documento impresso, o sistema terá que informar esse usuário sobre a alteração para que ele possa descartar a cópia.

Alguém tem idéia de como eu poderia montar isso no site?
Vou ter que usar session, mas como e onde é que é o problema...

Estou utilizando Banco Access, rede local, intranet, servidor iis...

Se alguém puder me dar uma dica, obrigada.



#124644 Como Criar Uma Area Protegina

Posted by ecbert on 20/06/2003, 07:31 in ASP

Você pode fazer isso criando um banco de usuários com a definição do login, senha e acesso e fazendo a autenticação deste login e senha. Abra um recordset que receberá um select desse banco e armazene os dados digitados em sessions que serão utilizadas depois...

Arquivo para autenticação:
[SIZE=1]<% 
'Conexão com o banco=============
Dim StrCon	'String de conexão
Dim Conexao    'Objeto de conexão
 
Set Conexao = CreateObject("ADODB.CONNECTION")
Strcon ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &    server.MapPath("banco/users")

'Autenticação do usuário============ 
Dim rs                    'recordset para receber o resultado do select

Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "Select * from Usuarios Where Usuario='" & request.form("txtusuario") & "'" _
	& " And Senha='" & request.form("txtsenha") & "'", Conexao,3,3

if not rs.eof then   'encontrou o registro procurado
	session("logado")= true
                session("acesso")=rs("acesso")
	response.redirect("talpagina.asp")
else
	response.redirect("restrito.asp")
end if
%> [/SIZE]

e a rotina abaixo vc coloca no início da página que quer restringir, fazendo com que o usuário se logue no sistema pois caso não esteja (session("logado")=false) ele redireciona para uma determinada página e ao mesmo tempo se o acesso for diferente de, por exemplo, acesso 1 ele também é redirecionado para tal página.
Isso deve ser colocado no início de todas as páginas que quer restringir...

[SIZE=1]<% 
if not session("logado")=true then
if not session("acesso")=1 then
       response.redirect "restrito.asp"
end if
end if
%>[/SIZE]

Acho que é isso... Existem outras maneiras de se fazer, caso não seja essa sua necessidade poste novamente e o pessoal ajuda, ok?

Boa sorte.



#122808 Error '80004005'

Posted by ecbert on 18/06/2003, 09:24 in ASP

Tenho um sistema de cadastro, alteração e exclusão de usuários.

Quando tento fazer qualquer uma dessas funções, tenho o seguinte erro:


Este no caso de alteração de usuários...

Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
Todos os arquivos asp e o banco estão no mesmo diretório.

Meu arquivo de conexão é o seguinte:

<%
 'Procedimentos utilizados no Site
 'Variáveis
 Dim StrCon  'String de conexão
 Dim Conexao   	 'Objeto de conexão
 
 Set Conexao = CreateObject("ADODB.CONNECTION")
 Conexao.Mode = adModeReadWrite
 Strcon ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &    server.MapPath("../banco/users")
 
 Sub AbreConexao()
     Conexao.Open Strcon
 end sub
 

 Sub FechaConexao()
     Conexao.close
 end sub 

 %>

Alguém sabe o porquê desse erro? O pessoal migrou de um servidor para outro esses tempos. Antes de mudar estava funcionando legal, agora dá esse erro.

Se alguém souber, obrigada.



#113234 Request <%x=x=1%>?

Posted by ecbert on 06/06/2003, 08:32 in ASP

Explique melhor o que pretende fazer com essa página. Está trabalhando com banco ou não?

O que quer mostrar?

Tenho alguma coisa com while... mas utilizo banco... Poste novamente que eu tento te ajudar.

Até mais.



#111398 Menu Fica Embaixo Do Conteúdo

Posted by ecbert on 03/06/2003, 08:30 in HTML, CSS e Metodologias

Desculpe... mas o que foi colocado neste tópico não funcionou. Acho que meu caso é diferente, o menu continua abrindo por baixo do iframe...

Valeu.



#110687 Menu Fica Embaixo Do Conteúdo

Posted by ecbert on 02/06/2003, 11:23 in HTML, CSS e Metodologias

Oi pessoal, não trabalho muito com DHtml nem javascript, por isso resolvi pedir ajuda.

Através de um gerador online, consegui o seguinte código para um menu:

<style type="text/css">
<!--

#master  {position:absolute; width: 200px; top: 10px; left: -120px; z-index:2; visibility:visible;}
#menu  {position:absolute; width: 18px; top: 0px; left: 120px; z-index:5; visibility:visible;}
#top  {position:absolute; width: 120px; top: 0px; left: 0px; z-index:5; visibility:visible;}
#screen  {position:absolute; width: 120px; top: 6px; left: 0px; z-index:5; visibility:visible;}
#screenlinks	{position:absolute; width: 120px; top: 6px; left: 0px; z-index:5; visibility:visible;}

-->
</style>
<style type="text/css">
<!--

.NavJump {font-family: arial; font-size: 10pt; color: #339966; text-decoration: none;}
a:link.NavJump {color : #339966;}
a:visited.NavJump {color : #339966;}
a:active.NavJump {text-decoration: none; color: #003300;}
a:hover.NavJump {text-decoration: none; color: #003300;}

-->
</style>
<script language = "javascript">
<!--

var ie = document.all ? 1 : 0
var ns = document.layers ? 1 : 0

if(ie){
document.write('<style type="text/css">')
document.write("#screen	{filter:Alpha(Opacity=30);}")
document.write("</style>")
}

if(ns){
document.write('<style type="text/css">')
document.write("#master	{clip:rect(0,150,250,0);}")
document.write("</style>")
}

//-->
</script>
<script language = "javascript">
<!--

var ie = document.all ? 1 : 0
var ns = document.layers ? 1 : 0

var master = new Object("element")
master.curLeft = -120;	master.curTop = 10;
master.gapLeft = 0;  master.gapTop = 0;
master.timer = null;

function moveAlong(layerName, paceLeft, paceTop, fromLeft, fromTop){
clearTimeout(eval(layerName).timer)

if(eval(layerName).curLeft != fromLeft){
     if((Math.max(eval(layerName).curLeft, fromLeft) - Math.min(eval(layerName).curLeft, fromLeft)) < paceLeft){eval(layerName).curLeft = fromLeft}
else if(eval(layerName).curLeft < fromLeft){eval(layerName).curLeft = eval(layerName).curLeft + paceLeft}
else if(eval(layerName).curLeft > fromLeft){eval(layerName).curLeft = eval(layerName).curLeft - paceLeft}
if(ie){document.all[layerName].style.left = eval(layerName).curLeft}
if(ns){document[layerName].left = eval(layerName).curLeft}
}

if(eval(layerName).curTop != fromTop){
if((Math.max(eval(layerName).curTop, fromTop) - Math.min(eval(layerName).curTop, fromTop)) < paceTop){eval(layerName).curTop = fromTop}
else if(eval(layerName).curTop < fromTop){eval(layerName).curTop = eval(layerName).curTop + paceTop}
else if(eval(layerName).curTop > fromTop){eval(layerName).curTop = eval(layerName).curTop - paceTop}
if(ie){document.all[layerName].style.top = eval(layerName).curTop}
if(ns){document[layerName].top = eval(layerName).curTop}
}


eval(layerName).timer=setTimeout('moveAlong("'+layerName+'",'+paceLeft+','+paceTop+','+fromLeft+','+fromTop+')',30)
}

function setPace(layerName, fromLeft, fromTop, motionSpeed){
eval(layerName).gapLeft = (Math.max(eval(layerName).curLeft, fromLeft) - Math.min(eval(layerName).curLeft, fromLeft))/motionSpeed
eval(layerName).gapTop = (Math.max(eval(layerName).curTop, fromTop) - Math.min(eval(layerName).curTop, fromTop))/motionSpeed

moveAlong(layerName, eval(layerName).gapLeft, eval(layerName).gapTop, fromLeft, fromTop)
}

var expandState = 0

function expand(){
if(expandState == 0){setPace("master", 0, 10, 10); if(ie){document.menutop.src = "imagens/menub.gif"}; expandState = 1;}
else{setPace("master", -120, 10, 10); if(ie){document.menutop.src = "imagens/menu.gif"}; expandState = 0;}
}

//-->
</script>

<div id="master">

<div id="menu">
<table border="0" width="18" cellspacing="0" cellpadding="0">
<tr><td width="100%"><a href="javascript:expand()" onfocus="this.blur()"><img name="menutop" border="0" src="imagens/menu.gif" width="18" height="70"></a></td></tr>
</table>
</div>


<div id="top">
<table border="0" width="120" cellspacing="0" cellpadding="0">
<tr><td width="100%"><img border="0" src="imagens/top.gif" width="120" height="6"></td></tr>
</table>
</div>


<div id="screen">
<table border="0" width="120" cellspacing="0" cellpadding="5">
<tr><td width="100%" bgcolor="#339966">

<table border="0" width="100%" bgcolor="#339966" cellspacing="0" cellpadding="0">
<tr><td width="100%">

<table border="0" width="100%" cellspacing="1" cellpadding="5">
<tr><td width="100%" bgcolor="#FFFFFF">


<font class="NavJump"><br></font><font class="NavJump"><br></font><font class="NavJump"><br></font><font class="NavJump"><br></font><font class="NavJump"><br></font><font class="NavJump"><br></font>


</td></tr>
</table>

</td></tr>
</table>

</td></tr>
</table>
</div>

<div id="screenlinks">
<table border="0" width="120" cellspacing="0" cellpadding="5">
<tr><td width="100%">

<table border="0" width="100%" bgcolor="#339966" cellspacing="0" cellpadding="0">
<tr><td width="100%">

<table border="0" width="100%" cellspacing="1" cellpadding="5">
<tr><td width="100%" bgcolor="#FFFFFF">

<a href="documento.asp?descatividade=<%=rs.Fields("descatividade").Value%>" class="NavJump"><b>Operação</b></a><br>
<a href="equipamentos.asp?descatividade=<%=rs.Fields("descatividade").Value%>" class="NavJump"><b>Equipamentos</b></a><br>
<a href="implementos.asp?descatividade=<%=rs.Fields("descatividade").Value%>" class="NavJump"><b>Implementos</b></a><br>
<a href="epis.asp?descatividade=<%=rs.Fields("descatividade").Value%>" class="NavJump"><b>EPI's</b></a><br>
<a href="rh.asp" class="NavJump"><b>Recursos Humanos</b></a><br>
<a href="download.asp" class="NavJump"><b>Donwloads</b></a><br>


</td></tr>
</table>

</td></tr>
</table>

</td></tr>
</table>
</div>

</div>

<script language = "javascript">
<!--


if(ie){var sidemenu = document.all.master;}
if(ns){var sidemenu = document.master;}

function FixY(){
if(ie){sidemenu.style.top = document.body.scrollTop+10}
if(ns){sidemenu.top = window.pageYOffset+10}
}

setInterval("FixY()",100);

//-->
</script>


Acontece que a página tem um iframe recebendo um texto bem no centro e quando eu abro esse menu, que fica suspenso na lateral esquerda, ele aparece metade por baixo do iframe. Eu não posso diminuir a largura do iframe, então tem como modificar alguma coisa nesse código para que ele apareça sempre por cima do conteúdo?

Até mais e obrigada.



#107358 Help Me...

Posted by ecbert on 28/05/2003, 07:32 in ASP

Valeu Marcelo... vou tentar.

Obrigada pela paciência :rolleyes:

Até mais



#107357 Alguém Pode Me Indicar....

Posted by ecbert on 28/05/2003, 07:25 in ASP

Dá uma olhada nos primeiros tópicos do fórum de Asp e Asp.Net...tem bastante coisa que o pessoal indica lá, inclusive um curso que o Otávio lançou esses tempos.


Se quiser um curso legal pra começar a se inteirar, vá ao WebAula.com.br
tem um curso de asp que para quem está iniciando vale a pena.

Até mais e boa sorte.



#107040 Help Me...

Posted by ecbert on 27/05/2003, 16:14 in ASP

Bom, o código é um pouco extenso, mas aí vai:

[COLOR=blue][SIZE=1]<% response.expires=0
   
if session("logado")= false then
response.redirect "invalido.asp"
end if	%>

<html>
<head>
<title>Pagina de Implementos</title>

<script language="JavaScript">
<!-- hide this script from non-javascript-enabled browsers

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

// stop hiding -->
</script>
</head>

<body bgcolor="#ffffff" onload="" topmargin="0" leftmargin="0">
<table border="0" cellpadding="0" cellspacing="0" width="780">
  <script language="JavaScript">
  <!-- hide 
  if (document.images) {
  Implementos19_f3 = new Image(36 ,35); Implementos19_f3.src = "ImgGeral/MnOperacao.jpg";
  Implementos19_f1 = new Image(36 ,35); Implementos19_f1.src = "ImgGeral/Implementos19.jpg";
  Implementos22_f4 = new Image(36 ,35); Implementos22_f4.src = "ImgGeral/MnEquipamento.jpg";
  Implementos22_f1 = new Image(36 ,35); Implementos22_f1.src = "ImgGeral/Implementos22.jpg";
  Implementos23_f5 = new Image(36 ,34); Implementos23_f5.src = "ImgGeral/MnImplemento.jpg";
  Implementos23_f1 = new Image(36 ,34); Implementos23_f1.src = "ImgGeral/Implementos23.jpg";
  Implementos24_f6 = new Image(36 ,30); Implementos24_f6.src = "ImgGeral/MnEpi.jpg";
  Implementos24_f1 = new Image(36 ,30); Implementos24_f1.src = "ImgGeral/Implementos24.jpg";
  Implementos25_f7 = new Image(36 ,33); Implementos25_f7.src = "ImgGeral/MnRh.jpg";
  Implementos25_f1 = new Image(36 ,33); Implementos25_f1.src = "ImgGeral/Implementos25.jpg";
  Implementos26_f8 = new Image(36 ,36); Implementos26_f8.src = "ImgGeral/MnDownload.jpg";
  Implementos26_f1 = new Image(36 ,36); Implementos26_f1.src = "ImgGeral/Implementos26.jpg";
  }
  // stop hiding -->
  </script>
  <tr>
   <td><img src="ImgGeral/spacer.gif" width="36" height="1" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="33" height="1" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="88" height="1" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="183" height="1" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="108" height="1" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="112" height="1" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="112" height="1" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="10" height="1" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="34" height="1" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="26" height="1" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="38" height="1" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="1" height="1" border="0" alt=""></td>
  </tr>

  <tr>
   <td rowspan="7" colspan="3"><a href="principal.asp" target="_top"><img name="Implementos1" src="ImgGeral/Implementos1.jpg" width="157" height="150" border="0" alt=""></a></td>
   <td rowspan="4" colspan="4"><img name="Implementos2" src="ImgGeral/Implementos2.jpg" width="515" height="106" border="0" alt=""></td>
   <td colspan="2"><img name="Implementos3" src="ImgGeral/Implementos3.jpg" width="44" height="42" border="0" alt=""></td>
   <td><img name="Implementos4" src="ImgGeral/Implementos4.jpg" width="26" height="42" border="0" alt=""></td>
   <td><img name="Implementos5" src="ImgGeral/Implementos5.jpg" width="38" height="42" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="1" height="42" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="4"><img name="Implementos6" src="ImgGeral/Implementos6.jpg" width="108" height="17" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="1" height="17" border="0" alt=""></td>
  </tr>
  <tr>
   <td rowspan="2"><img name="Implementos7" src="ImgGeral/Implementos7.jpg" width="10" height="47" border="0" alt=""></td>
   <td><img name="Implementos8" src="ImgGeral/Implementos8.jpg" width="34" height="31" border="0" alt=""></td>
   <td><img name="Implementos9" src="ImgGeral/Implementos9.jpg" width="26" height="31" border="0" alt=""></td>
   <td><img name="Implementos10" src="ImgGeral/Implementos10.jpg" width="38" height="31" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="1" height="31" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="3"><img name="Implementos11" src="ImgGeral/Implementos11.jpg" width="98" height="16" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="1" height="16" border="0" alt=""></td>
  </tr>
  <tr>
   <td rowspan="2"><font size="1" face="Verdana" color="#808080">:: <%saudacao = hour(now)
     Select Case saudacao
     case 0,1,2,3,4,5,6,7,8,9,10,11
     response.write "Bom Dia" & " " & session("nome")
     case 12,13,14,15,16,17,18
     response.write "Boa Tarde" & " " & session("nome")
     case 19,20,21,22,23,24
     response.write "Boa Noite" & " " & session("nome")
     End Select %> ::</font></td>
   <td><a href="Preparo.asp"><img name="Implementos13" src="ImgGeral/Implementos13.jpg" width="108" height="14" border="0" alt=""></a></td>
   <td><a href="Plantio.asp"><img name="Implementos14" src="ImgGeral/Implementos14.jpg" width="112" height="14" border="0" alt=""></a></td>
   <td><a href="Tratos.asp"><img name="Implementos15" src="ImgGeral/Implementos15.jpg" width="112" height="14" border="0" alt=""></a></td>
   <td colspan="4"><a href="Safra.asp"><img name="Implementos16" src="ImgGeral/Implementos16.jpg" width="108" height="14" border="0" alt=""></a></td>
   <td><img src="ImgGeral/spacer.gif" width="1" height="14" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="7"><img name="Implementos17" src="ImgGeral/Implementos17.jpg" width="440" height="7" border="0" alt=""></td>
   <td><img src="ImgGeral/spacer.gif" width="1" height="7" border="0" alt=""></td>
  </tr>
  <tr>
   <td rowspan="8" colspan="8" valign="top">
   <!--#include virtual="/raiz/conecta.inc"-->
<%

AbreConexao
 
 Dim rs  'Recordset
 
  Set rs = Server.CreateObject("ADODB.Recordset")
  Set rs = conexao.Execute("SELECT * from CnImplemento" _
	& " Where descatividade= '"& request.querystring("descatividade") & "'"_
	& " Order by DescImplemento")

%>
<p>
<p style="line-height: 100%; margin-top: 0; margin-bottom: 0" align="center">
<font size="2" face="Verdana">
<%
   if rs.eof then
   Response.write("Não existem registros.")
   %>
</font>    
</p>

<%else%>
<p style="line-height: 100%; margin-top: 0; margin-bottom: 0" align="left">
<font size="1" face="Verdana" color="#808080">
:: Você está no Sisproagro: 
<% Response.Write ""& rs("descprocesso") & ""%> >
</font>
<font size="1" face="Verdana" color="#FF0000">
 <% Response.Write ""& rs("descatividade") & ""%>
</font>
<font size="1" face="Verdana" color="#808080">
 ::</font></p>

<hr color="#00CC66" size="1">

<%
     Do While Not rs.EOF 
%>

<p style="line-height: 100%; margin-top: 0; margin-bottom: 0">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" width="506" bgcolor="#FFFFFF" cellspacing="6">
    <tr>
      <td valign="top" width="197" align="center">
        <p style="line-height: 100%; margin-top: 0; margin-bottom: 0" align="justify"><img src="<%=rs.Fields("Implocalizacao").Value & "/" & rs.Fields("ImpArquivo").Value%>">
  
        </p>
      </td>
   <td width="295" valign="top">
   <font size="2" face="Verdana" color="green"><%=rs.Fields("descimplemento").Value%></font>
   <p style="line-height: 100%; margin-top: 0; margin-bottom: 0"><font face="Verdana" color="#808080" size="1"> Marca:
   <%=rs.Fields("marca").Value%></font></p>

      </td>
    </tr>
  </table>
  </center>
</div>
<blockquote>
  <blockquote>
<hr color="#C0C0C0" size="1">
  </blockquote>
</blockquote>
<p style="line-height: 100%; margin-top: 0; margin-bottom: 0">

  
<%
   rs.MoveNext
   Loop
   
   rs.Close
   Set rs = Nothing
   conexao.Close
   Set conexao = Nothing
   %>


</p>
<%end if%>

   </td>
   <td><img src="ImgGeral/spacer.gif" width="1" height="23" border="0" alt=""></td>
  </tr>
  <tr>


//Aqui começa o menu ... o causador do erro...


//Deixei o link montado apenas para o terceiro item - epi

//Então esse é o primeiro e está sem link...

<td><a href="#" onMouseOut="MM_swapImgRestore();" onMouseOver="MM_swapImage('Implementos19','','ImgGeral/MnOperacao.jpg',1);"><img name="Implementos19" src="ImgGeral/Implementos19.jpg" width="36" height="35" border="0" alt=""></a></td>
<td rowspan="6"><img name="Implementos20" src="ImgGeral/Implementos20.jpg" width="33" height="203" border="0" alt=""></td>
<td rowspan="7"></td>
<td><img src="ImgGeral/spacer.gif" width="1" height="35" border="0" alt=""></td>
  </tr>
  <tr>


//Este é o segundo e está sem link...

<td><a href="#" onMouseOut="MM_swapImgRestore();" onMouseOver="MM_swapImage('Implementos22','','ImgGeral/MnEquipamento.jpg',1);"><img name="Implementos22" src="ImgGeral/Implementos22.jpg" width="36" height="35" border="0" alt=""></a></td>
<td><img src="ImgGeral/spacer.gif" width="1" height="35" border="0" alt=""></td>
</tr>
<tr>


// O terceiro, esse é o link que quero fazer para os demais...

<td><a href="epis.asp?descatividade=<%=rs.Fields("descatividade").Value%>" " onMouseOut="MM_swapImgRestore();" onMouseOver="MM_swapImage('Implementos23','','ImgGeral/MnImplemento.jpg',1);"><img name="Implementos23" src="ImgGeral/Implementos23.jpg" width="36" height="34" border="0" alt=""></a></td>
<td><img src="ImgGeral/spacer.gif" width="1" height="34" border="0" alt=""></td>
</tr>
<tr>

//O quarto item, sem link

<td><a href="#" onMouseOut="MM_swapImgRestore();" onMouseOver="MM_swapImage('Implementos24','','ImgGeral/MnEpi.jpg',1);"><img name="Implementos24" src="ImgGeral/Implementos24.jpg" width="36" height="30" border="0" alt=""></a></td>
<td><img src="ImgGeral/spacer.gif" width="1" height="30" border="0" alt=""></td>
</tr>
<tr>

//o quinto sem link...

<td><a href="#" onMouseOut="MM_swapImgRestore();" onMouseOver="MM_swapImage('Implementos25','','ImgGeral/MnRh.jpg',1);"><img name="Implementos25" src="ImgGeral/Implementos25.jpg" width="36" height="33" border="0" alt=""></a></td>
<td><img src="ImgGeral/spacer.gif" width="1" height="33" border="0" alt=""></td>
</tr>
  <tr>

// o sexto sem link...

<td><a href="#" onMouseOut="MM_swapImgRestore();" onMouseOver="MM_swapImage('Implementos26','','ImgGeral/MnDownload.jpg',1);"><img name="Implementos26" src="ImgGeral/Implementos26.jpg" width="36" height="36" border="0" alt=""></a></td>
<td><img src="ImgGeral/spacer.gif" width="1" height="36" border="0" alt=""></td>
</tr>
  <tr>
<td colspan="2"><img name="Implementos27" src="ImgGeral/Implementos27.jpg" width="69" height="251" border="0" alt=""></td>
<td><img src="ImgGeral/spacer.gif" width="1" height="251" border="0" alt=""></td>
</tr>

</table>
</body>
</html>[/SIZE][/COLOR]

Essa página já recebe um parâmetro que é o descatividade da outra página e esse descatividade deve ser usado como parâmetro também para montar os outros cinco itens do menu...

Deixei apenas o terceiro item com o link para testar, pois ele pára naquele erro, linka para a página que deve porém ele não mostra os campos, mostra apenas a mensagem de que não há registros...

Se souberem decifrar isso comigo, estou quebrando a cabeça há horas...

Obrigada e até mais...



#107015 Help Me...

Posted by ecbert on 27/05/2003, 15:40 in ASP

Não entendo o porquê desse erro, alguém poderia me explicar?


ADODB.Field error '800a0bcd' 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. 

/raiz/pagina.asp, line 218 

Estou tentando montar um menu que recebe e passa um parâmetro para abertura da página. Já tentei colocá-lo em frame, em dhtml, asp, e continua dando o mesmo erro.

Ao invés de mostrar a imagem do menu no link, ele mostra escrito esse erro e mesmo assim, linka com a página que pedi...

O que acontece?

Preciso com certa urgência. Obrigada




IPB Skin By Virteq