Publicado em 28 de jun.

[Resolvido] recordset não retorna nada

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")

%>

<%
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
%>

Discussão (2)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...