[Resolvido] recordset não retorna nada

Ernestop · Junho 28, 2011

Galera estou com um problema meio doido...

Um pagina da intra que estou fazendo simplesmente parou de funcionar do nada.

A conexao que faz o count retorna o numero de registro totais certo mas o recordset que faz a paginação não retorna nada, nadica. Não dá erro de sintaxe ou qualquer outro erro, é como se tivesse um erro lógico mas até sexta ela estava funcionando a mais de 6 meses. Não houve nenhuma atualização do arquivo ou mudanças radicais no server.

Alguem pode me dar uma luz?

Já aconteceu isso com alguem? como resolveu? Bem o segue o código da pagina

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%
Response.Buffer = True
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = #January 1, 1990 00:00:01#
Response.Expires=0

Set conn= Server.CreateObject("ADODB.Connection")
conn.Open Application("Conexao")

%>
<!--#INCLUDE file="funcoes_uteis.asp"-->
<%
pagina_mestre = "Aves_lista.asp"

no_text =""
ordem=request.QueryString("ordem")
cr=request.QueryString("cr")
alf=request.QueryString("alf")
busca=request.QueryString("busca")
parametro=request.QueryString("parametro")
codigo_especie=request.QueryString("codigo_especie")
codigo_pass=request.QueryString("cpass")
ob=request.QueryString("ob")


Dim objrs,objstr,ordem,alf,x,busca,parametro


objstr_extra = ""
if codigo_pass <> "" then
antepassado = " AND (codigo_padreador = "&codigo_pass&" OR codigo_matriz = "&codigo_pass&")"
end if
if ob = "ob" then
obito = ""
else
obito = "NOT "
end if


Select case cr
case "ft"
postura_hidden = 0
objstr= " WHERE (Situacao = 'FL' OR Situacao = 'FD' OR Situacao = 'FR') "
case "av"
postura_hidden = 0
objstr= " WHERE (Situacao = 'AV') "
case "fv"
postura_hidden = 0
objstr= " WHERE (Situacao = 'FV') "
case "fd"
postura_hidden = 1
objstr= " WHERE (Situacao = 'FD' OR Situacao = 'FR') "
case "ad"
postura_hidden = 1
objstr= " WHERE (Situacao = 'AD' OR Situacao = 'AR') "
case else
postura_hidden = 1
objstr= " WHERE (Situacao = 'PL' OR Situacao = 'AD' OR Situacao = 'AR') "
End Select 

if codigo_especie <> "" then
if objstr <> "" then
	objstr= objstr& " AND codigo_especie = "&codigo_especie
else
	objstr= " WHERE codigo_especie = "&codigo_especie
end if
end if
if busca="" then
if alf<>"" then
	objstr= " WHERE codigo_anilha LIKE '"&alf&"%'"
end if
else
if parametro<>"" then
	Select case parametro
	case "codigo_especie"
		idstr3="SELECT codigo_especie,especie,nome_comercial FROM Especie_lista WHERE especie LIKE '%"&busca&"%'"
		Set idrs3=conn.execute(idstr3)
		do While not idrs3.eof
			if objstr <> "" then
				objstr= objstr& " OR codigo_especie = "&idrs3("codigo_especie")
			else
				objstr= " WHERE codigo_especie = "&idrs3("codigo_especie")
			end if
		idrs3.MoveNext()
		loop
		Set idrs3=Nothing
	case "nome_comercial"
		idstr3="SELECT codigo_especie,especie,nome_comercial FROM Especie_lista WHERE nome_comercial LIKE '%"&busca&"%'"
		Set idrs3=conn.execute(idstr3)
		do While not idrs3.eof
			if objstr <> "" then
				objstr= objstr& " OR codigo_especie='"&idrs3("codigo_especie")&"'"
			else
				objstr= " WHERE codigo_especie='"&idrs3("codigo_especie")&"'"
			end if
		idrs3.MoveNext()
		loop
		Set idrs3=Nothing
	case else
		if objstr <> "" then
			objstr= objstr& " AND "&parametro&" LIKE '%"&busca&"%'"
		else
			objstr= " WHERE "&parametro&" LIKE '%"&busca&"%'"
		end if
		'objstr= " WHERE "&parametro&" LIKE '%"&busca&"%'"
	End Select
end if
end if
tabela = "Aves"

Set total_reg=conn.execute("SELECT COUNT(*) AS Contar FROM "& tabela & objstr)
total_reg = "Total de registros: "& total_reg("contar")

Set objrs = Server.CreateObject("adodb.recordset")
objrs.PageSize = 60
objrs.cursorlocation = 3

group = "SELECT * FROM " & tabela & objstr & antepassado & " AND "&obito&" EXISTS (SELECT titulo_historico FROM Historico WHERE titulo_historico = 'Ave-Obito' AND Aves.codigo_ave = Historico.codigo_key) ORDER by codigo_anilha ASC"

objrs.open group,conn,3,3

Dim intpagina, intrec
IF objrs.EOF then 
  no_text = "<span class='texto_bold'><center>Nenhum registro encontrado <br> <a href='javascript:history.go(-1)'>Retornar</a></center></span>"
ELSE
  IF Request.QueryString("pagina")="" then 
     intpagina=1 
  ELSE
     IF cint(Request.QueryString("pagina"))<1 then
        intpagina=1 
     ELSE
        IF cint(Request.QueryString("pagina"))> objrs.PageCount then 
           intpagina=objrs.PageCount 
        ELSE
           intpagina=Request.QueryString("pagina")
        END IF
     END IF
  END IF
objrs.AbsolutePage=intpagina
intrec=0
cor=0
END IF
%>
<html xmlns="http://www.w3.org/1999/xhtml" dir="ltr" lang="pt-BR">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title><%=Application("site")%></title>
<meta http-equiv="Content-Style-Type" content="text/css" />
<link href="style.css" rel="stylesheet" type="text/css" />
<link href="layout.css" rel="stylesheet" type="text/css" />
<script language="javascript">
function AbreFecha(obj) {

var elem = document.getElementById(obj)

if (elem.style.visibility == "visible") {
	elem.style.visibility= "hidden";
}
else {
	elem.style.visibility= "visible";
}
}
</script>
</head>
<body id="page2">
<div id="main">
 <!-- header -->
 <div id="header">
   <div>
	<!-- #INCLUDE file="L_top.asp"-->
   </div>
 </div>
 <!-- content -->
 <div id="content">
   <div class="row-3">
     <div class="wrapper">
       <div class="col-1">
         <div class="box">
           <div class="border-top">
             <div class="border-right">
               <div class="border-bot">
                 <div class="border-left">
                   <div class="inner">
					<!-- #INCLUDE file="L_menu.asp"-->
                   </div>
                 </div>
               </div>
             </div>
           </div>
         </div>
       </div>
       <div class="col-2 indent">
           <% if inclusao_reg = 1 then%>
		<p style="margin: 0 0 15px 0;">
               <a href="<%=Application("UrldoSistema")%>Aves_inc.asp" class="link5">Incluir nova ave</a>
           </p>
           <%end if%>
		<p style="margin: 0 0 15px 0; text-align:right;">
               <a href="javascript:history.go(-1);">Voltar</a>
           </p>
         <div class="box2 texto">
           <form name="form1" method="get" action="<%=pagina_mestre%>">
           	<input type="hidden" name="cr" value="<%=cr%>" />
           	<input type="hidden" name="ob" value="<%=ob%>" />
           	<input type="hidden" name="codigo_especie" value="<%=codigo_especie%>" />
           <div class="title-box-busca">
      			<div class="win-col">
               <h4>Busca</h4>
                   <input name="busca" type="text" class="input" value="<%=busca%>" size="30" maxlength="50"></div>
      			<div class="win-col">
          		<h4>Parametro de busca:</h4>
                   <select name="parametro" class="input">
					<%
                       selects="codigo_especie-Espécie;nome_comercial-Nome Comercial;codigo_anilha-Codigo da Anilha"
                       index1 = Split(selects, ";")
                       For i = LBOUND(index1) to UBOUND(index1)
                           index2 = Split(index1(i), "-")
                           if parametro = index2(0) then
                               response.write "<option value='" & index2(0) & "' SELECTED='yes'>" & index2(1) & "</option>"
                           else
                               response.write "<option value='" & index2(0) & "'>" & index2(1) & "</option>"
                           end if
                       next
                       %>
               </select><br />
      			<p>
			<input type="submit" name="Submit" value=" Buscar " class="submit">
               </p></div>
           </div>
           </form>
	  </div>
         <br />
		<div class="box-alf">
           <form name="form_filtro" method="get" action="<%=pagina_mestre%>">
           	<input type="hidden" name="ordem" value="<%=ordem%>" />
           	<input type="hidden" name="alf" value="<%=alf%>" />
           	<input type="hidden" name="busca" value="<%=busca%>" />
           	<input type="hidden" name="parametro" value="<%=parametro%>" />
           	<input type="hidden" name="cr" value="<%=cr%>" />
           	<input type="hidden" name="ob" value="<%=ob%>" />
          <div align="left">Filtro:</div>
           <ul>
             <li class="last"><% call especie(request.QueryString("codigo_especie")," onchange='javascript:document.form_filtro.submit();'")%>           
             </li>
           </ul>
           </form>
         </div>
       <div class="texto_bold" align="left"> <%=total_reg%></div>
	<br />
		<div class="box-alf">
           <ul>
             <li><a href="<%=pagina_mestre%>?cr=<%=cr%>&ordem=&alf=">Limpar</a></li>
             <li><a href="<%=pagina_mestre%>?ordem=<%=ordem%>&cr=<%=cr%>&ob=<%=ob%>&alf=">Todos</a></li>
               <% x=65
               do while x<91
                   if x = 90 then
                       response.write("<li class='last'>")
                   else
                       response.write("<li>")
                   end if
               %>
                   <a href="<%=pagina_mestre%>?ordem=<%=ordem%>&cr=<%=cr%>&ob=<%=ob%>&alf=<%=chr(x)%>&codigo_especie=<%=codigo_especie%>"><%=chr(x)%></a></li>
               <%
               if x = 75 then
               	response.write("<br>")
               end if
               x=x+1
               loop
               %>
           </ul>
         </div>
                   <h6><%=txt_titulo%></h6>
                   <%
                   if no_text <> "" then
                       response.write "			<p aling='center'>" & no_text &"</p>"
                   else

                       While intrec < objrs.PageSize and not objrs.EOF
                           if cor=0 then
                               bg="#FFF3E8"
                               cor=cor+1
                           else
                               bg="#FFD1A4"
                               cor=cor+1
                           end if

                           %>
           <div class="box-lista" style="background-color:<%=bg%>;">
             	<div class="inner" style="margin-left:10px;">
               <table width="100%" border="0" cellspacing="5" cellpadding="0">
                 <tr>
                   <td align="left" width="70%">
             	<a onmouseover="javascript:AbreFecha('det<%=objrs("codigo_ave")%>');" onmouseout="javascript:AbreFecha('det<%=objrs("codigo_ave")%>');" href="#">
			<%=objrs("codigo_anilha")%> - <%call especie(objrs("codigo_especie"),"nome_comercial")%> - 
			<%=objrs("sexo")%> - <% call postura(objrs("codigo_ave"),objrs("sexo"),"simples")%> +</a>
           <div id="det<%=objrs("codigo_ave")%>" class="win-col-det" style="visibility:hidden;">
               <b>Data de nascimento:</b>  
               <%
               if objrs("data_nascimento") = "1/1/1901" or objrs("data_nascimento") = "1/1/1950" then
                   response.write "Desconhecida"
               else
                   response.write objrs("data_nascimento")
               end if
               %>
               <br>
               <b>Local:</b>  <% call viveiros(objrs("codigo_viveiro"),"local","viveiro")%><br>
               <b>Cor:</b>  <%=objrs("cor")%><br>
               <b>Sexo:</b>  
               <%
                           response.write objrs("sexo")
               %><br>
               <b>Status:</b>  
               <%
                   selects="PL-Plantel;AD-Disponivel;AV-Vendido;AR-Reservado;FL-Filhote Plantel;FD-Filhote Disponivel;FV-Filhote Vendido;FR-Filhote Reservado"
                   index1 = Split(selects, ";")
                   For i = LBOUND(index1) to UBOUND(index1)
                       index2 = Split(index1(i), "-")
                       if trim(objrs("situacao")) = trim(index2(0)) then
                           response.write index2(1)
                       end if
                   next
               %><br>
               <b>Observações:</b>  <%=objrs("obs")%><br>
           </div>
           </td>
           <td align="right">
            <% if postura_hidden = 1 then%>
           <a href="javascript:AbreFecha('post<%=objrs("codigo_ave")%>');"><img src="images/icon_basket.png" alt="Dados da ave" border="0"></a>
           <div id="post<%=objrs("codigo_ave")%>" class="win-col-det2" style="visibility:hidden;">
           <a href="maternidade_lista.asp?cm=<%=objrs("codigo_ave")%>">> Postura</a><br />
           <a href="aves_lista.asp?cpass=<%=objrs("codigo_ave")%>&cr=ft">> Filhote Plantel</a><br />
           <a href="aves_lista.asp?cpass=<%=objrs("codigo_ave")%>&cr=fd">> Filhote Disponível</a><br />
           <a href="aves_lista.asp?cpass=<%=objrs("codigo_ave")%>&cr=fv">> Filhote Vendido</a><br />
           <a href="maternidade_estatistica.asp?ca=<%=objrs("codigo_ave")%>">> Estatistica da postura</a><br />
          </div>
           <%end if%>
           <a href="javascript:AbreFecha('hist<%=objrs("codigo_ave")%>');"><img src="images/icon_historico.png" alt="Historico e estatisticas" border="0"></a>
           <div id="hist<%=objrs("codigo_ave")%>" class="win-col-det2" style="visibility:hidden;">
           <a href="Historico_lista.asp?ca=<%=objrs("codigo_ave")%>&cr=comentario">> Historico</a><br />
           <a href="Historico_viveiro.asp?ca=<%=objrs("codigo_ave")%>">> Viveiro</a><br />
           <a href="Historico_vet.asp?ca=<%=objrs("codigo_ave")%>">> Hist. Veterinário</a><br />
           <a href="Historico_obito.asp?ca=<%=objrs("codigo_ave")%>">> Óbito</a><br />
           <%if ob = "ob" then %>
           <a href="gen_exc.asp?acao=12&id=<%=objrs("codigo_ave")%>">> Excluir Óbito</a><br />
          	<%end if%>
           </div>
           <a href="javascript:AbreFecha('alt<%=objrs("codigo_ave")%>');"><img src="images/icon_alterar.png" alt="Dados da ave" border="0"></a>
           <div id="alt<%=objrs("codigo_ave")%>" class="win-col-det2" style="visibility:hidden;">
           <a href="Aves_detalhes.asp?ca=<%=objrs("codigo_ave")%>">> Detalhes/Alterar</a><br />
           <a href="gen_exc.asp?acao=7&id=<%=objrs("codigo_ave")%>">> Excluir</a>
           </div>

       </td>
     </tr>
   </table>

   </div>
   </div>
<%if cor=2 then
       cor = 0
   end if
   objrs.MoveNext
   intrec=intrec+1 
   IF objrs.EOF then %>
       <div class="line-hor"></div>
   <%END IF
Wend
%>
<div class="box-lista" style="text-align:center; margin-top:20px;">
   <%IF intpagina > 1 then%>
       <a href="<%=pagina_mestre%>?pagina=<%=intpagina-1%>&cr=<%=cr%>&ordem=<%=ordem%>&ob=<%=ob%>&alf=<%=alf%>&codigo_especie=<%=codigo_especie%>&cr=<%=cr%>&parametro=<%=parametro%>&cpass=<%=codigo_pass%>">Anterior</a> 
   <%END IF%>
      
   <%IF strcomp(intpagina,objrs.PageCount) <> 0 then %>
       <a href="<%=pagina_mestre%>?pagina=<%=intpagina + 1%>&cr=<%=cr%>&ordem=<%=ordem%>&ob=<%=ob%>&alf=<%=alf%>&codigo_especie=<%=codigo_especie%>&cr=<%=cr%>&parametro=<%=parametro%>&cpass=<%=codigo_pass%>">Próximo</a> 
   <%END IF%>
       </div>
       <%
       end if
       %>
     </div>
   </div>
 </div>
</div>
</div>
    </div>
   </div>
   <div class="line-hor"></div>
   <div class="row-2">
     <div class="wrapper">
	<!-- INCLUDE file="L_bottom.asp"-->
     </div>
   </div>
</div>
 <!-- footer -->
 <div id="footer">
   <div class="indent"><!-- #INCLUDE file="L_footer.asp"-->
</div>
 </div>
</div> 
</body>
</html>
<%

Set objrs = Nothing
conn.close
Set conn = Nothing
%>

Ernestop · Junho 28, 2011

Bem achei o problema mas cai em outro.

Esta dando algum pau quando Seto o cursorlocation. Tirando o infeliz, junto com o absolutepage, os dados vem, mas sem o absolute minha paginação vai pro saco.

Alguem já teve esse problema??

Ernestop · Junho 28, 2011

Quando não dá para remover a montanha damos a volta.

Fiz uma nova paginação usando LIMIT, que por sinal é muito melhor, e abandonei o recordset.

Abaixo segue o codigo alterado já com a paginação nova:

[]s

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%
Response.Buffer = True
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = #January 1, 1990 00:00:01#
Response.Expires=0

Set conn= Server.CreateObject("ADODB.Connection")
conn.Open Application("Conexao")

%>
<!--#INCLUDE file="funcoes_uteis.asp"-->
<%
pagina_mestre = "Aves_lista.asp"

no_text =""
ordem=request.QueryString("ordem")
cr=request.QueryString("cr")
alf=request.QueryString("alf")
busca=request.QueryString("busca")
parametro=request.QueryString("parametro")
codigo_especie=request.QueryString("codigo_especie")
codigo_pass=request.QueryString("cpass")
ob=request.QueryString("ob")


Dim rs_k,objstr,ordem,alf,x,busca,parametro

objstr_extra = ""
if codigo_pass <> "" then
antepassado = " AND (codigo_padreador = "&codigo_pass&" OR codigo_matriz = "&codigo_pass&")"
end if
if ob = "ob" then
obito = ""
else
obito = "NOT "
end if

Select case cr
case "ft"
postura_hidden = 0
objstr= " WHERE (Situacao = 'FL' OR Situacao = 'FD' OR Situacao = 'FR') "
case "av"
postura_hidden = 0
objstr= " WHERE (Situacao = 'AV') "
case "fv"
postura_hidden = 0
objstr= " WHERE (Situacao = 'FV') "
case "fd"
postura_hidden = 1
objstr= " WHERE (Situacao = 'FD' OR Situacao = 'FR') "
case "ad"
postura_hidden = 1
objstr= " WHERE (Situacao = 'AD' OR Situacao = 'AR') "
case else
postura_hidden = 1
objstr= " WHERE (Situacao = 'PL' OR Situacao = 'AD' OR Situacao = 'AR') "
End Select 

if codigo_especie <> "" then
if objstr <> "" then
	objstr= objstr& " AND codigo_especie = "&codigo_especie
else
	objstr= " WHERE codigo_especie = "&codigo_especie
end if
end if
if busca="" then
if alf<>"" then
	objstr= " WHERE codigo_anilha LIKE '"&alf&"%'"
end if
else
if parametro<>"" then
	Select case parametro
	case "codigo_especie"
		idstr3="SELECT codigo_especie,especie,nome_comercial FROM Especie_lista WHERE especie LIKE '%"&busca&"%'"
		Set idrs3=conn.execute(idstr3)
		do While not idrs3.eof
			if objstr <> "" then
				objstr= objstr& " OR codigo_especie = "&idrs3("codigo_especie")
			else
				objstr= " WHERE codigo_especie = "&idrs3("codigo_especie")
			end if
		idrs3.MoveNext()
		loop
		Set idrs3=Nothing
	case "nome_comercial"
		idstr3="SELECT codigo_especie,especie,nome_comercial FROM Especie_lista WHERE nome_comercial LIKE '%"&busca&"%'"
		Set idrs3=conn.execute(idstr3)
		do While not idrs3.eof
			if objstr <> "" then
				objstr= objstr& " OR codigo_especie='"&idrs3("codigo_especie")&"'"
			else
				objstr= " WHERE codigo_especie='"&idrs3("codigo_especie")&"'"
			end if
		idrs3.MoveNext()
		loop
		Set idrs3=Nothing
	case else
		if objstr <> "" then
			objstr= objstr& " AND "&parametro&" LIKE '%"&busca&"%'"
		else
			objstr= " WHERE "&parametro&" LIKE '%"&busca&"%'"
		end if
		'objstr= " WHERE "&parametro&" LIKE '%"&busca&"%'"
	End Select
end if
end if
tabela = "Aves"
condicao = " AND "&obito&" EXISTS (SELECT titulo_historico FROM Historico WHERE titulo_historico = 'Ave-Obito' AND Aves.codigo_ave = Historico.codigo_key)"
Set total_reg2=conn.execute("SELECT COUNT(*) AS Contar FROM "& tabela & objstr&  antepassado & condicao)
total_reg = "Total de registros: "& total_reg2("contar")

IF Request.QueryString("p")="" then 
 intpagina=1 
ELSE
 IF cint(Request.QueryString("p"))<1 then
 intpagina=1 
 ELSE
intpagina=Request.QueryString("p")
 END IF
END IF
paginaAtual = intpagina
pageSize = 60
recordCount = Cint(total_reg2("contar"))
'calculamos o numero de paginas...
pageCount = Clng(recordCount / pageSize)
if int(pageCount) < (recordCount / pageSize) then pageCount = int(pageCount) + 1
If pageCount < 1 then
	pageCount = 1
end if
total_reg2.Close()
Flag1 = INT(paginaAtual / pagesize)
PI = INT(Flag1 * pagesize)
IF PI = 0 THEN
	PI = 1
END IF
PF = PI + pagesize - 1

group = "SELECT * FROM Aves " & objstr & antepassado & condicao & " ORDER by codigo_anilha ASC LIMIT " & (paginaAtual - 1) * pageSize & " , " & pageSize
Set rs_k=conn.execute(group)

Dim intpagina, intrec
IF rs_k.EOF then 
  no_text = "<span class='texto_bold'><center>Nenhum registro encontrado <br> <a href='javascript:history.go(-1)'>Retornar</a></center></span>"
intrec=0
cor=0
END IF
%>
<html xmlns="http://www.w3.org/1999/xhtml" dir="ltr" lang="pt-BR">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title><%=Application("site")%></title>
<meta http-equiv="Content-Style-Type" content="text/css" />
<link href="style.css" rel="stylesheet" type="text/css" />
<link href="layout.css" rel="stylesheet" type="text/css" />
<script language="javascript">
function AbreFecha(obj) {

var elem = document.getElementById(obj)

if (elem.style.visibility == "visible") {
	elem.style.visibility= "hidden";
}
else {
	elem.style.visibility= "visible";
}
}
</script>
</head>
<body id="page2">
<div id="main">
 <!-- header -->
 <div id="header">
   <div>
	<!-- #INCLUDE file="L_top.asp"-->
   </div>
 </div>
 <!-- content -->
 <div id="content">
   <div class="row-3">
     <div class="wrapper">
       <div class="col-1">
         <div class="box">
           <div class="border-top">
             <div class="border-right">
               <div class="border-bot">
                 <div class="border-left">
                   <div class="inner">
					<!-- #INCLUDE file="L_menu.asp"-->
                   </div>
                 </div>
               </div>
             </div>
           </div>
         </div>
       </div>
       <div class="col-2 indent">
           <% if inclusao_reg = 1 then%>
		<p style="margin: 0 0 15px 0;">
               <a href="<%=Application("UrldoSistema")%>Aves_inc.asp" class="link5">Incluir nova ave</a>
           </p>
           <%end if%>
		<p style="margin: 0 0 15px 0; text-align:right;">
               <a href="javascript:history.go(-1);">Voltar</a>
           </p>
         <div class="box2 texto">
           <form name="form1" method="get" action="<%=pagina_mestre%>">
           	<input type="hidden" name="cr" value="<%=cr%>" />
           	<input type="hidden" name="ob" value="<%=ob%>" />
           	<input type="hidden" name="codigo_especie" value="<%=codigo_especie%>" />
           <div class="title-box-busca">
      			<div class="win-col">
               <h4>Busca</h4>
                   <input name="busca" type="text" class="input" value="<%=busca%>" size="30" maxlength="50"></div>
      			<div class="win-col">
          		<h4>Parametro de busca:</h4>
                   <select name="parametro" class="input">
					<%
                       selects="codigo_especie-Espécie;nome_comercial-Nome Comercial;codigo_anilha-Codigo da Anilha"
                       index1 = Split(selects, ";")
                       For i = LBOUND(index1) to UBOUND(index1)
                           index2 = Split(index1(i), "-")
                           if parametro = index2(0) then
                               response.write "<option value='" & index2(0) & "' SELECTED='yes'>" & index2(1) & "</option>"
                           else
                               response.write "<option value='" & index2(0) & "'>" & index2(1) & "</option>"
                           end if
                       next
                       %>
               </select><br />
      			<p>
			<input type="submit" name="Submit" value=" Buscar " class="submit">
               </p></div>
           </div>
           </form>
	  </div>
         <br />
		<div class="box-alf">
           <form name="form_filtro" method="get" action="<%=pagina_mestre%>">
           	<input type="hidden" name="ordem" value="<%=ordem%>" />
           	<input type="hidden" name="alf" value="<%=alf%>" />
           	<input type="hidden" name="busca" value="<%=busca%>" />
           	<input type="hidden" name="parametro" value="<%=parametro%>" />
           	<input type="hidden" name="cr" value="<%=cr%>" />
           	<input type="hidden" name="ob" value="<%=ob%>" />
          <div align="left">Filtro:</div>
           <ul>
             <li class="last"><% call especie(request.QueryString("codigo_especie")," onchange='javascript:document.form_filtro.submit();'")%>           
             </li>
           </ul>
           </form>
         </div>
       <div class="texto_bold" align="left"> <%=total_reg%></div>
	<br />
		<div class="box-alf">
           <ul>
             <li><a href="<%=pagina_mestre%>?cr=<%=cr%>&ordem=&alf=">Limpar</a></li>
             <li><a href="<%=pagina_mestre%>?ordem=<%=ordem%>&cr=<%=cr%>&ob=<%=ob%>&alf=">Todos</a></li>
               <% x=65
               do while x<91
                   if x = 90 then
                       response.write("<li class='last'>")
                   else
                       response.write("<li>")
                   end if
               %>
                   <a href="<%=pagina_mestre%>?ordem=<%=ordem%>&cr=<%=cr%>&ob=<%=ob%>&alf=<%=chr(x)%>&codigo_especie=<%=codigo_especie%>"><%=chr(x)%></a></li>
               <%
               if x = 75 then
               	response.write("<br>")
               end if
               x=x+1
               loop
               %>
           </ul>
         </div>
                   <h6><%=txt_titulo%></h6>
                   <%
                   if no_text <> "" then
                       response.write "			<p aling='center'>" & no_text &"</p>"
                   else

                       While not rs_k.EOF
                           if cor=0 then
                               bg="#FFF3E8"
                               cor=cor+1
                           else
                               bg="#FFD1A4"
                               cor=cor+1
                           end if

                           %>
           <div class="box-lista" style="background-color:<%=bg%>;">
             	<div class="inner" style="margin-left:10px;">
               <table width="100%" border="0" cellspacing="5" cellpadding="0">
                 <tr>
                   <td align="left" width="70%">
             	<a onmouseover="javascript:AbreFecha('det<%=rs_k("codigo_ave")%>');" onmouseout="javascript:AbreFecha('det<%=rs_k("codigo_ave")%>');" href="#">
			<%=rs_k("codigo_anilha")%> - <%call especie(rs_k("codigo_especie"),"nome_comercial")%> - 
			<%=rs_k("sexo")%> - <% call postura(rs_k("codigo_ave"),rs_k("sexo"),"simples")%> +</a>
           <div id="det<%=rs_k("codigo_ave")%>" class="win-col-det" style="visibility:hidden;">
               <b>Data de nascimento:</b>  
               <%
               if rs_k("data_nascimento") = "1/1/1901" or rs_k("data_nascimento") = "1/1/1950" then
                   response.write "Desconhecida"
               else
                   response.write rs_k("data_nascimento")
               end if
               %>
               <br>
               <b>Local:</b>  <% call viveiros(rs_k("codigo_viveiro"),"local","viveiro")%><br>
               <b>Cor:</b>  <%=rs_k("cor")%><br>
               <b>Sexo:</b>  
               <%
                           response.write rs_k("sexo")
               %><br>
               <b>Status:</b>  
               <%
                   selects="PL-Plantel;AD-Disponivel;AV-Vendido;AR-Reservado;FL-Filhote Plantel;FD-Filhote Disponivel;FV-Filhote Vendido;FR-Filhote Reservado"
                   index1 = Split(selects, ";")
                   For i = LBOUND(index1) to UBOUND(index1)
                       index2 = Split(index1(i), "-")
                       if trim(rs_k("situacao")) = trim(index2(0)) then
                           response.write index2(1)
                       end if
                   next
               %><br>
               <b>Observações:</b>  <%=rs_k("obs")%><br>
           </div>
           </td>
           <td align="right">
            <% if postura_hidden = 1 then%>
           <a href="javascript:AbreFecha('post<%=rs_k("codigo_ave")%>');"><img src="images/icon_basket.png" alt="Dados da ave" border="0"></a>
           <div id="post<%=rs_k("codigo_ave")%>" class="win-col-det2" style="visibility:hidden;">
           <a href="maternidade_lista.asp?cm=<%=rs_k("codigo_ave")%>">> Postura</a><br />
           <a href="aves_lista.asp?cpass=<%=rs_k("codigo_ave")%>&cr=ft">> Filhote Plantel</a><br />
           <a href="aves_lista.asp?cpass=<%=rs_k("codigo_ave")%>&cr=fd">> Filhote Disponível</a><br />
           <a href="aves_lista.asp?cpass=<%=rs_k("codigo_ave")%>&cr=fv">> Filhote Vendido</a><br />
           <a href="maternidade_estatistica.asp?ca=<%=rs_k("codigo_ave")%>">> Estatistica da postura</a><br />
          </div>
           <%end if%>
           <a href="javascript:AbreFecha('hist<%=rs_k("codigo_ave")%>');"><img src="images/icon_historico.png" alt="Historico e estatisticas" border="0"></a>
           <div id="hist<%=rs_k("codigo_ave")%>" class="win-col-det2" style="visibility:hidden;">
           <a href="Historico_lista.asp?ca=<%=rs_k("codigo_ave")%>&cr=comentario">> Historico</a><br />
           <a href="Historico_viveiro.asp?ca=<%=rs_k("codigo_ave")%>">> Viveiro</a><br />
           <a href="Historico_vet.asp?ca=<%=rs_k("codigo_ave")%>">> Hist. Veterinário</a><br />
           <a href="Historico_obito.asp?ca=<%=rs_k("codigo_ave")%>">> Óbito</a><br />
           <%if ob = "ob" then %>
           <a href="gen_exc.asp?acao=12&id=<%=rs_k("codigo_ave")%>">> Excluir Óbito</a><br />
          	<%end if%>
           </div>
           <a href="javascript:AbreFecha('alt<%=rs_k("codigo_ave")%>');"><img src="images/icon_alterar.png" alt="Dados da ave" border="0"></a>
           <div id="alt<%=rs_k("codigo_ave")%>" class="win-col-det2" style="visibility:hidden;">
           <a href="Aves_detalhes.asp?ca=<%=rs_k("codigo_ave")%>">> Detalhes/Alterar</a><br />
           <a href="gen_exc.asp?acao=7&id=<%=rs_k("codigo_ave")%>">> Excluir</a>
           </div>

       </td>
     </tr>
   </table>

   </div>
   </div>
<%if cor=2 then
       cor = 0
   end if
   rs_k.MoveNext
   IF rs_k.EOF then %>
       <div class="line-hor"></div>
   <%END IF
Wend
%>
<div class="box-lista" style="text-align:center; margin-top:20px;">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 <tr align="center">
<%
aleat = "&cr="&cr&"&ordem="&ordem&"&ob="&ob&"&alf="&alf&"&codigo_especie="&codigo_especie&"&cr="&cr&"&parametro="&parametro&"&cpass="&codigo_pass
IF CInt(paginaAtual) > 1 THEN
Response.Write "<td width='15%'><a href='"&pagina_mestre&"?p=1"&aleat&"'>Primeira</a></td>"
Else
Response.Write "<td width='15%'><font color=""#ADADAD"">Primeira</font></td>"
END IF

if CInt(paginaAtual) > 1 then
Response.Write "<td width='15%'><a href='"&pagina_mestre&"?p=" & paginaAtual - 1 & aleat &"'>Anterior</a></td>"
Else
Response.Write "<td width='15%'><font color='#666666'>Anterior</font></td>"
END IF
response.write "<td width='40%'>"
for i=1 to pageCount
if Cint(i) = Cint(paginaAtual) then
Response.Write("<font color='#666666'>" & i & "</font> ")
else
Response.Write("<a href='"&pagina_mestre&"?p=" & i & aleat &"'>" & i & "</a> ")	
end if
next
response.write "</td>"
IF (CInt(paginaAtual) < pagecount) THEN
        IF CInt(PF) <> pagecount THEN
  Response.Write "<td width='15%'><a href='"&pagina_mestre&"?p=" & paginaAtual+1 & aleat &"'>Próxima</a></td>"
 END IF
Else
 Response.Write "<td width='15%'><font color=""#ADADAD"">Próxima</font></td>"
END IF


IF (CInt(paginaAtual) <> pagecount) THEN
        IF CInt(PF) <> pagecount THEN
  Response.Write "<td width='15%'><a href='"&pagina_mestre&"?busca="&busca&"&p=" & pagecount & aleat &"'>Última</a></td>"
 END IF
Else
 Response.Write "<td width='15%'><font color=""#ADADAD"">Última</font></td>"
 END IF

%>
 </tr>
</table>
</div>
       <%
       end if
       %>
     </div>
   </div>
 </div>
</div>
</div>
    </div>
   </div>
   <div class="line-hor"></div>
   <div class="row-2">
     <div class="wrapper">
	<!-- INCLUDE file="L_bottom.asp"-->
     </div>
   </div>
</div>
 <!-- footer -->
 <div id="footer">
   <div class="indent"><!-- #INCLUDE file="L_footer.asp"-->
</div>
 </div>
</div> 
</body>
</html>
<%
Set rs_k = Nothing
%>

Entrar

Arquivado

[Resolvido] recordset não retorna nada

Recommended Posts

Ernestop 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ernestop 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ernestop 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

PHP+Codeigniter - Dúvida referente a PDV

PHP+Codeigniter - Dúvida em Relação a Teclas

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante