Jump to content

  2. →
  3. →

Photo

Help Me...

Started By ecbert, 27/05/2003, 15:40

  • Faça o login para participar
4 replies to this topic

#1 ecbert

ecbert

    Viver resume tudo!

  • Usuários
  • 88 posts
  • Sexo:Não informado
  • Interesses:Viver!<br>...resume tudo.

Posted 27/05/2003, 15:40

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
Elaine
WebDesigner e Produtora Multimídia
ecbert@ig.com.br

Por que cometer erros antigos se há tantos erros novos a escolher?

#2 marcelo_prr

marcelo_prr

    Turista

  • Usuários
  • 26 posts
  • Sexo:Não informado

Posted 27/05/2003, 15:55

Escreve o código.. plz..
Marcelo Pereira Ramos Rodrigues
Delphi Developer
CCE da Amazônia

#3 ecbert

ecbert

    Viver resume tudo!

  • Usuários
  • 88 posts
  • Sexo:Não informado
  • Interesses:Viver!<br>...resume tudo.

Posted 27/05/2003, 16:14

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...
Elaine
WebDesigner e Produtora Multimídia
ecbert@ig.com.br

Por que cometer erros antigos se há tantos erros novos a escolher?

#4 marcelo_prr

marcelo_prr

    Turista

  • Usuários
  • 26 posts
  • Sexo:Não informado

Posted 27/05/2003, 16:38

Acho q achei o seu erro:

no 3º link mesmo:

<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>

vc tah usando o rs.Fields("descatividade").Value mas ele já foi fechado antes de chegar nessa linha do código..

oq vc pode fazer é jogar o rs.Fields("descatividade").Value numa variável e nessa parte do c[odigo vc põe a variável...

espero ter ajudado.........
Marcelo Pereira Ramos Rodrigues
Delphi Developer
CCE da Amazônia

#5 ecbert

ecbert

    Viver resume tudo!

  • Usuários
  • 88 posts
  • Sexo:Não informado
  • Interesses:Viver!<br>...resume tudo.

Posted 28/05/2003, 07:32

Valeu Marcelo... vou tentar.

Obrigada pela paciência :rolleyes:

Até mais
Elaine
WebDesigner e Produtora Multimídia
ecbert@ig.com.br

Por que cometer erros antigos se há tantos erros novos a escolher?
Voltar para ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq