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

[AspCrazy 0]

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>

[Mário Monteiro 179]

a possibilidade de erro que encontrei foi aqui

 

 

ASP

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

Set rsPro = conexaodb.Execute(SelPro)

 

voce nao pode chamar rsSubLink("CodSubLinkCat") se nao veio nada no RS rsSubLink

 

precisa fazer esta chamada dentro do if que testa o EOF

 

veja se resolve

[AspCrazy 0]

Então, Marioufpa...

 

Realmente o erro esta na linha que mencionou....

 

muito obrigado pela orientação, consegui resolver, espero que não volte o erro..vou postar como ficou para você analisar se era isto mesmo, e tbm, para outros que tiverem o mesmo problema possam corrigílo..

 

 

ASP

strLink = "SELECT * FROM TabLink ORDER BY Link"

Set rsLink = conexaodb.Execute(strLink)

 

If RsLink.Eof or RsLink.Bof Then

 

Response.Write("Não há Link Cadastrado, cadastre-o primeiro!")

Else

Do While Not RsLink.Eof

%>

<%= rsLink("NomeLink") %>

<br>

<br>

SubLinks Relacionados

<br>

<%

' MOSTRAR SUBLINKS CADASTRADOS

strSubLink = "SELECT * From TabSubLink WHERE CodLink="& RsLink("CodLink")

Set rsSubLink = conexaodb.Execute(strSubLink)

 

        If rsSubLink.Eof then

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

Response.Write "Não há Produtos Cadastrado! <br>"

 

Else

%>

<%= rsSubLink("NomeSubLink") %>

<br>

<br>

Produtos Relacionados

<br>

<%

' MOSTRAR PRODUTOS CADASTRADOS

 

StrPro = "Select * From TabProdutos Where CodSubLinkCat = "& rsSubLink.Fields("CodSubLinkCat")

Set rsPro = conexaodb.Execute(StrPro)

        If rsPro.Eof Then

        Response.Write ("Não há produto")

        Else

        %>

<%= rsPro.Fields("NomeProduto") %>

<%      

'END IF DO PRODUTO

End IF

 

'End IF  DO SUBLINK

End IF

 

RsLink.MoveNext

Loop

'END IF DO LINK

End If

%>

[Mário Monteiro 179]

agopra acho que vai