Como isibir uma mensagem tipo:

[Rodrigo Patricio 3]

Olá, olha eu aqui de novo, hehe, minha duvida agora é seguinte:

 

Quando faz uma consulta em um banco de dados Access, e não tem nenhum registro gravado aparece aquelas mensagens de erro, né? Ai eu fiz uma consulta com paginação, só q quando num tem nada, não carrega nada dá pagina, fica só a tela de erro, já tentei aquele IF RS.EOF THEN... mais num funcionou.

 

Ai tá o código q eu tô usando:

 

<%PagAtual = Request.QueryString("PagAtual")Set Conn = Server.CreateObject("AdoDb.Connection")Conn.provider="Microsoft.Jet.OLEDB.4.0"Conn.connectionstring=Server.Mappath("..\..\..\db\banco.mdb")Conn.openSet RS = Server.CreateObject("ADODB.Recordset")SQL = "SELECT * FROM pilotos_esperar_resposta order by ID desc"RS.Open SQL,Conn,3,3Const NumPorPage = 5   Dim PagAtual   IF Request.QueryString("PagAtual") = "" Then			   PagAtual = 1 		 Else				PagAtual = Request.QueryString("PagAtual")   End If   RS.CacheSize = NumPorPage	RS.MoveFirst			   	RS.PageSize = NumPorPage		Dim TotalPages			  	TotalPages = RS.PageCount	RS.AbsolutePage = PagAtual  Count = 0	  i = 0DO WHILE NOT RS.EOF And Count < RS.PageSize  if i mod 2<>0 thencor = "#F4F4F4"elsecor = "#e1e1e1"end if%>----------------------------------(Aqui ficaria o codigo html)----------------------------------	   <%	i = i+1 Count = Count + 1	RS.MoveNext	LOOP			   %><% Response.Write("<B><font color=""#FFFFFF"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ")  var01 = Len(PagAtual) var02 = var01 - 1 var03 = Left(PagAtual,var02)var04 = Right(PagAtual,1)var05 = var03 & 0 IF var04 <> 0 THEN inicial = var05 + 1final = inicial + 9  ELSEinicial = var05 - 9  final = var05END IFindice_i = var04 - 1 indice_f = 10 - var04 If CInt(final) > CInt(TotalPages) Then final = TotalPagesIF PagAtual > 1 THEN	  Response.Write("<B><font color=""#FFFFFF"" size=""1"" face=""Arial"">")	  Response.Write("<a href='logado.asp?PagAtual=" &  1 & "'>")	  Response.Write("< Primeira")	  Response.Write("</a></font></B>  ")	 	  Response.Write("<B><font color=""#FFFFFF"" size=""2"" face=""Arial"">")	  Response.Write("<a href='logado.asp?PagAtual=" & PagAtual - 1 & "'>")	  Response.Write("Anterior")	  Response.Write("</a></font></B>  ")	  IF PagAtual > 10 THEN	   Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")	   Response.Write("<a href='logado.asp?PagAtual=" & inicial - 1 & "'>")	   Response.Write("...")	 Response.Write("</a></font></B>  ")		  ELSE	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")	   Response.Write("<a href='logado.asp?PagAtual=" & PagAtual - 1 & "'>")	   Response.Write("...")	   Response.Write("</font></B>  ")	END IF  Else	  Response.Write("<B><font color=""#333333"" size=""1"" face=""Arial"">")	  Response.Write("< Primeira")	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#333333"" size=""2"" face=""Arial"">")	  Response.Write("Anterior")	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#333333"" size=""2"" face=""Arial"">")	  Response.Write("...")	  Response.Write("</font></B>  ")End IfFor i = inicial To final	 If CInt(i)=CInt(PagAtual) Then		 Response.Write "<font color=""#CCCCCC"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#CCCCCC"">]</font>  "	 END IF	 If CInt(i) < CInt(PagAtual) Then	  Response.Write "<font color=""#CCCCCC"" size=""1"" face=""Arial""><a href='logado.asp?PagAtual=" & i & "'>" & i & "</a></font>  "	 END IF	 If CInt(i) > CInt(PagAtual) Then		 Response.Write "<font color=""#CCCCCC"" size=""1"" face=""Arial""><a href='logado.asp?PagAtual=" & i & "'>" & i & "</a></font>  "  END IFNextIF CInt(PagAtual) <> CInt(TotalPages) THENp1 = Left(PagAtual,var02)p2 = Left(TotalPages,var02)p3 = Left(TotalPages,var02) & 0IF (p1 > PagAtual) or ((PagAtual <= 3) and (TotalPages > 3)) THEN	   Response.Write("<B><font color=""#FFFFFF"" size=""2"" face=""Arial"">")	   Response.Write("<a href='logado.asp?PagAtual=" & final + 1 & "'>")	   Response.Write("...")	   Response.Write("</a></font></B>  ")		 ELSE	   Response.Write("<B><font color=""#FFFFFF"" size=""2"" face=""Arial"">")	   Response.Write("...")	   Response.Write("</font></B>  ")   END IF	  Response.Write("<B><font color=""#FFFFFF"" size=""2"" face=""Arial"">")	  Response.Write("<a href='logado.asp?PagAtual=" & PagAtual + 1 & "'>")	  Response.Write("Próxima")	  Response.Write("</a></font></B>  ")	  Response.Write("<B><font color=""#FFFFFF"" size=""1"" face=""Arial"">")	  Response.Write("<a href='logado.asp?PagAtual=" & TotalPages & "'>")	  Response.Write("Ultima >")	  Response.Write("</a></font></B>  ")		 ELSE	  Response.Write("<B><font color=""#333333"" size=""2"" face=""Arial"">")	  Response.Write("...")	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#333333"" size=""2"" face=""Arial"">")	  Response.Write("Próxima")	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#333333"" size=""1"" face=""Arial"">")	  Response.Write("Ultima >")	  Response.Write("</font></B>  ")End If %><%Rs.Close  Set RS = NothingConn.Close	  Set Conn = Nothing	  %>

Cortei a parte do html pra ficar melhor, deem uma olhada ai, vê o q consueguem fazer por mim.

 

 

Obrigado, pela atenção de vocês;

 

 

OBS: Esse script de paginação peguei aqui no fórum

[jrcardozo 4]

onde e como você fez o if?

[Rodrigo Patricio 3]

Em todas as partes acima do codigo html, mas nenhum deu certo

 

o q eu usei foi

IF RS.EOF THENresponse.write("Nenhum registro encontrado")END IF

Vlw

[cabral51 0]

faz assim logo abaixo da sua conecçao poe if not rs.eof then'ae ele vai executar o codigo" elseresponse.write("mensagem)

[Rodrigo Patricio 3]

vlw cabral51, vou tentar isso, mais tarde volto aqui pra dizer c deu tudo certo.

[jrcardozo 4]

tenta ai esse if que eu fiz

 

<%PagAtual = Request.QueryString("PagAtual")Set Conn = Server.CreateObject("AdoDb.Connection")Conn.provider="Microsoft.Jet.OLEDB.4.0"Conn.connectionstring=Server.Mappath("..\..\..\db\banco.mdb")Conn.openSet RS = Server.CreateObject("ADODB.Recordset")SQL = "SELECT * FROM pilotos_esperar_resposta order by ID desc"RS.Open SQL,Conn,3,3  if not rs.eof thenConst NumPorPage = 5   Dim PagAtual   IF Request.QueryString("PagAtual") = "" Then			   PagAtual = 1 		 Else				PagAtual = Request.QueryString("PagAtual")   End If   RS.CacheSize = NumPorPage	RS.MoveFirst			   	RS.PageSize = NumPorPage		Dim TotalPages			  	TotalPages = RS.PageCount	RS.AbsolutePage = PagAtual  Count = 0	 i = 0DO WHILE NOT RS.EOF And Count < RS.PageSize  if i mod 2<>0 thencor = "#F4F4F4"elsecor = "#e1e1e1"end if%>----------------------------------(Aqui ficaria o codigo html)----------------------------------	   <%	i = i+1Count = Count + 1	RS.MoveNext	LOOP			   %><%Response.Write("<B><font color=""#FFFFFF"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ")  var01 = Len(PagAtual) var02 = var01 - 1 var03 = Left(PagAtual,var02)var04 = Right(PagAtual,1)var05 = var03 & 0 IF var04 <> 0 THEN inicial = var05 + 1final = inicial + 9  ELSEinicial = var05 - 9  final = var05END IFindice_i = var04 - 1 indice_f = 10 - var04 If CInt(final) > CInt(TotalPages) Then final = TotalPagesIF PagAtual > 1 THEN	  Response.Write("<B><font color=""#FFFFFF"" size=""1"" face=""Arial"">")	  Response.Write("<a href='logado.asp?PagAtual=" &  1 & "'>")	  Response.Write("< Primeira")	  Response.Write("</a></font></B>  ")	 	  Response.Write("<B><font color=""#FFFFFF"" size=""2"" face=""Arial"">")	  Response.Write("<a href='logado.asp?PagAtual=" & PagAtual - 1 & "'>")	  Response.Write("Anterior")	  Response.Write("</a></font></B>  ")	  IF PagAtual > 10 THEN	   Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")	   Response.Write("<a href='logado.asp?PagAtual=" & inicial - 1 & "'>")	   Response.Write("...")	 Response.Write("</a></font></B>  ")		  ELSE	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")	   Response.Write("<a href='logado.asp?PagAtual=" & PagAtual - 1 & "'>")	   Response.Write("...")	   Response.Write("</font></B>  ")	END IF  Else	  Response.Write("<B><font color=""#333333"" size=""1"" face=""Arial"">")	  Response.Write("< Primeira")	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#333333"" size=""2"" face=""Arial"">")	  Response.Write("Anterior")	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#333333"" size=""2"" face=""Arial"">")	  Response.Write("...")	  Response.Write("</font></B>  ")End IfFor i = inicial To final	 If CInt(i)=CInt(PagAtual) Then		 Response.Write "<font color=""#CCCCCC"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#CCCCCC"">]</font>  "	 END IF	 If CInt(i) < CInt(PagAtual) Then	  Response.Write "<font color=""#CCCCCC"" size=""1"" face=""Arial""><a href='logado.asp?PagAtual=" & i & "'>" & i & "</a></font>  "	 END IF	 If CInt(i) > CInt(PagAtual) Then		 Response.Write "<font color=""#CCCCCC"" size=""1"" face=""Arial""><a href='logado.asp?PagAtual=" & i & "'>" & i & "</a></font>  "  END IFNextIF CInt(PagAtual) <> CInt(TotalPages) THENp1 = Left(PagAtual,var02)p2 = Left(TotalPages,var02)p3 = Left(TotalPages,var02) & 0IF (p1 > PagAtual) or ((PagAtual <= 3) and (TotalPages > 3)) THEN	   Response.Write("<B><font color=""#FFFFFF"" size=""2"" face=""Arial"">")	   Response.Write("<a href='logado.asp?PagAtual=" & final + 1 & "'>")	   Response.Write("...")	   Response.Write("</a></font></B>  ")		 ELSE	   Response.Write("<B><font color=""#FFFFFF"" size=""2"" face=""Arial"">")	   Response.Write("...")	   Response.Write("</font></B>  ")   END IF	  Response.Write("<B><font color=""#FFFFFF"" size=""2"" face=""Arial"">")	  Response.Write("<a href='logado.asp?PagAtual=" & PagAtual + 1 & "'>")	  Response.Write("Próxima")	  Response.Write("</a></font></B>  ")	  Response.Write("<B><font color=""#FFFFFF"" size=""1"" face=""Arial"">")	  Response.Write("<a href='logado.asp?PagAtual=" & TotalPages & "'>")	  Response.Write("Ultima >")	  Response.Write("</a></font></B>  ")		ELSE	  Response.Write("<B><font color=""#333333"" size=""2"" face=""Arial"">")	  Response.Write("...")	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#333333"" size=""2"" face=""Arial"">")	  Response.Write("Próxima")	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#333333"" size=""1"" face=""Arial"">")	  Response.Write("Ultima >")	  Response.Write("</font></B>  ")End If %><%Rs.Close  Set RS = NothingConn.Close	  Set Conn = Nothing	  elseresponse.write("nenhum registro")end if%>

[cabral51 0]

O jonathan ta me tesourando eu falei a mesma coisa HAuehaeu brincandeira, escuta ele q esse mlk manja!

[Rodrigo Patricio 3]

Vlw pessoal! Deu certinho aqui, vcs tão me quebrando um galhão, tanto na contrução do meu site, quanto na aprimoração dos meus conhecimentos, muito obrigado! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Rodrigo Patricio 3]

Ops, desculpa pelo erro de ortografia, escrevi "isibir" em vez de "exibir", hehehe http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

[dark0 0]

Ops, desculpa pelo erro de ortografia, escrevi "isibir" em vez de "exibir", hehehe http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

eu vi ..ate dei risada.. uhauhauMas problemas resolvidosAbraço