[Resolvido] Erro de Bof ou Eof e Exceção

Por Favor, alguém poderia me ajudar com o Script abaixo?

Quero selecionar todos os Links, dentro do Loop dos Links, quero selecionar os Sublinks - se ñ houver SubLink com o CodLink então ele responde "Não há Link" senão ele mostra os dados dos SubLinks, depois ele seleciona os Produtos, se ñ houver Produto com o CodSubLink ele responde "Não há Produto" senão ele mostra os dados dos produtos..

montem nesse parâmetro, porém da erro de Bof ou Eof e também Exceção..

Agradeço a Ajuda de todos!!!!

Segue Script..

ASP

<%Option Explicit

%>

<!--#Include file="..conexao.asp"-->

Dim conexaodb, strNRegistros, rsNRegistros

Dim strLink, rsLink

Call abreConexao

' ******** Seleciona todos os Registros

strLink = "SELECT * FROM CatLink ORDER BY LinkCat asc"

Set rsLink = conexaodb.Execute(strLink)

%>

<table border="0" cellpading="0" cellspacing="1" width="605">

<%

Do While Not RsLink.Eof

%>

<tr>

<td width="78%" bgcolor="#FFFFFF" align="left"  valing="top" class="ft8">

<hr color="#999999" size="3">

<span class="ft10">Nome do Link:</span> <span class="ft10Cinza3Bold"><%= rsLink("Link") %></span>

<br>

<span class="ft10">Opção do Link:</span> <span class="ft10Cinza3Bold"><%= rsLink("Opcao") %></span>

<br>

<hr color="#CCCCCC" size="1">

<span class="ft8Bold">SubLinks Relacionados</span>

<br>

<span class="ft8RedBold">

<%

Dim SelSubLink, rsSubLink

SelSubLink= "Select * From CatSubLink Where CodSubLinkCat = "& rsLink("CodLink")

Set rsSubLink= conexaodb.Execute(SelSubLink)

If rsSubLink.eof or rsSubLink.Bof then

Response.Write ("Não há SubLink! <br>")

        Else

%>

</span>

<span class="ft10">Código do SubLink:</span> <span class="ft10Cinza3Bold"><%= rsSubLink("CodSubLinkCat") %></span>

<br>

<span class="ft10">Nome do SubLink:</span> <span class="ft10Cinza3Bold"><%= rsSubLink("SubLinkCat") %></span>

<br>

<span class="ft10">Opção do SubLink:</span> <span class="ft10Cinza3Bold"><%= rsSubLink("opcao") %></span>

<br>

<% End IF %>

<hr color="#CCCCCC" size="1">

 

<span class="ft8Bold">Produtos Relacionados</span>

<br>

<span class="ft8RedBold">

<%

Dim SelPro, rsPro

SelPro = "Select * From CatSubLink Where CodSubLinkCat = "& rsSubLink("CodSubLinkCat")

Set rsPro = conexaodb.Execute(SelPro)

%>

</span>

<img src="<%= rsPro.Fields("FotoPro") %>" align="left" border="1" width="70" height="50">

<span class="ft10">Código do Produto:</span> <span class="ft10Cinza3Bold"><%= rsPro.Fields("CodProduto") %></span>

<br>

<span class="ft10">Nome do Produto:</span> <span class="ft10Cinza3Bold"><%= rsSbLk.Fields("NomeProduto") %></span>

<br>

<%

End IF

%>

</td>

</tr>

<%

RsLink.MoveNext

Loop

%>

</table>

 

</body>

</html>