Menssagem: "Nenhum arquivo encontrado"

[gpassarelli 1]

Bom galera eh o seguinte.

Eu to com o codigo de paginacao em uma página.

Soh que oq eu nao to conseguindo fazer eh que ele exiba uma msg falando que nao foi encontrado nenhum arquivo caso nao ache nenhum arquivo com a ID que ele tah procurando...

Alguem pode me ajudar?

O Código

<!--#include file="../settings/settings_produtos.asp" --><%PagAtual = Request.QueryString("PagAtual") 'página atualid = request("id")Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginaçãoSQL = "SELECT * FROM SNT_produtos WHERE id_fabricante="& id &""RS.Open SQL, Connect, 3'############## paginacao Introdução  #################Const NumPorPage = 8 '<------------------ numero de arquivos por página   Dim PagAtual   IF Request.QueryString("PagAtual") = "" Then			   PagAtual = 1 'Primeira página		 Else				PagAtual = Request.QueryString("PagAtual")   End If   RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros	RS.MoveFirst				'Move o RecorSet para o início	RS.PageSize = NumPorPage	'Coloca a quantidade de páginas	Dim TotalPages			  'Pega o número total de páginas	TotalPages = RS.PageCount	RS.AbsolutePage = PagAtual  'Configura a página atual'############## paginacao Introdução  - FIM #################Count = 0	   'Zera o contadori = 0%><style type="text/css"><!--a:link {	color: #666666;}a:visited {	color: #666666;}a:hover {	color: #666666;	background-color: #FFFFFF;}a:active {	color: #666666;}--></style><% Response.Write("<font color=""#006600"" size=""2"" face=""Arial"">Página: "& PagAtual &"/"& TotalPages &"</font><br> ")  %><table width=50%><tr><% Dim contador  contador = 1  maxcol = 2	'<------------------ numero de  colunas%><%DO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PageSize' ----- linhas coloridas -------if i mod 2<>0 thencor = "#F4F4F4"elsecor = "#e1e1e1"end if'-------------------------------%><%  	if contador <= maxcol then %>  <td>	<a href="produto.asp?id=<%=rs("id")%>"><%=rs("produto")%>  </a></td>    <%	  contador = contador + 1	else %></tr><tr>  <td>	<a href="produto.asp?id=<%=rs("id")%>"><%=rs("produto")%>  </a></td>  <%	  contador = 2	end if%><%	i = i+1Count = Count + 1   'paginacao	RS.MoveNext	LOOP				'tb paginacao%><%'completa as colunasdo while contador <= maxcol %>  <%  contador = contador + 1loop %></tr></table><%'################## paginacao 01 #####################IF PagAtual > 1 THEN'Se for a primeira página, Mostra apenas o botão Próximo e Ultima	  Response.Write(" <font color=""#000000"" size=""2"" face=""Arial"">")	  Response.Write("<a href='layout.asp?PagAtual=" &  1 & "&id="& id &"'>")	  Response.Write("Primeira")	  Response.Write("</a></font>   ")	  	  Response.Write(" <font color=""#000000"" size=""2"" face=""Arial"">")	  Response.Write("... <a href='layout.asp?PagAtual=" & PagAtual - 1 & "&id="& id &"'>")	  Response.Write("<<")	  Response.Write("</a></font>   ")End If'------------------- numero -------------------------   max_n_mostrados = 3intervalo = Int(max_n_mostrados /3)inicio = PagAtual - intervalofinal = PagAtual + intervaloIf CInt(inicio) <1 Theninicio = 1final = 3END IFIf CInt(final) > CInt(TotalPages) Then final = TotalPagesFor i = inicio To final	 If CInt(i)=CInt(PagAtual) Then		 Response.Write "<font color=""#000000"" size=""2"" face=""Arial"">[" & i & "<font color=""#660066"" size=""2"" face=""Arial"">]</font>  "	 END IF	 If CInt(i) < CInt(PagAtual) Then	  Response.Write "<font color=""#000000"" size=""2"" face=""Arial""><a href='layout.asp?PagAtual=" & i & "&id="& id &"'>" & i & "</a></font>  "	 END IF	 If CInt(i) > CInt(PagAtual) Then		 Response.Write "<font color=""#000000"" size=""2"" face=""Arial""><a href='layout.asp?PagAtual=" & i & "&id="& id &"'>" & i & "</a> </font> "  END IFNext'------------------------------------------------------IF CInt(PagAtual) <> CInt(TotalPages) THEN	  Response.Write(" <font color=""#000000"" size=""2"" face=""Arial"">")	  Response.Write("<a href='layout.asp?PagAtual=" & PagAtual + 1 & "&id="& id &"'>")	  Response.Write(">>")	  Response.Write("</a> ...</font>   ")	  Response.Write(" <font color=""#000000"" size=""2"" face=""Arial"">")	  Response.Write("<a href='layout.asp?PagAtual=" & TotalPages & "&id="& id &"'>")	  Response.Write("Ultima")	  Response.Write("</a></font>   ")		End If'################## fim paginacao 01 ########################%>

[jrcardozo 4]

você precisa verificar se o recordset está vazioabaixo desta linha SQL = "SELECT * FROM SNT_produtos WHERE id_fabricante="& id &""RS.Open SQL, Connect, 3coloqueif not rs.eof thene no final do código você colcoaelseresponse.write("nenhum registro")end if

[gpassarelli 1]

Vlw pela ajuda...Funcionou...