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"> </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...