Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

BrunoHP

Erro na paginação

Por , em ASP Clássico

Recommended Posts

BrunoHP    0

BrunoHP
Postado

Galera estou com problema na paginação... seguinte ao clicar em próxima página me traz o seguinte erro;

 

Microsoft OLE DB Provider for ODBC Drivers error '80040e37'

[MySQL][ODBC 5.1 Driver][mysqld-5.1.41-percona-log]Table 'soubrasileiro.a' doesn't exist

/admin/institucional/listargastronomia.asp, line 143

alinha 143 e essa:

 

set LTrs=conn.execute(LTvarSQL)

Se poderem me ajudar ficarei grato já tentei de tudo e não acho o erro.

Toda a script:

 

<%

LTtabela   = trim(request("tabela"))

LTaction            = trim(request("action"))

LTidRelacionamento  = trim(request("id_relacionamento"))
LTidTipo            = trim(request("id_tipo"))


    LTtable1 = LTtabela
    LTcampos1 = "id, id_pagina, id_relacionamento, id_tipo, data1, titulo1, status"

    LTtable2 = "estrutura_pagina"
    LTcampos2 = "id_pagina, id_relacionamento, titulo"

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title><%=LTtitle%></title>
<script src="../js/mascara.js" type="text/javascript"></script>
<script src="../js/funcoes.js" type="text/javascript"></script>
<script src="../js/ajax.js" type="text/javascript"></script>
<link href="../css/site_adm.css" rel="stylesheet" type="text/css" />
</head>

<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="92" align="left" valign="top" style="background-image:url(../img/bg_topo.gif); background-position:right; background-repeat:no-repeat"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="401%" colspan="2" align="left" valign="middle"><!--#include file="topo.asp" --></td>
        </tr>
      
      
    </table></td>
  </tr>
  
  <tr>
    <td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="10" colspan="2" align="left" valign="top"></td>
        </tr>
      <tr>
        <td align="left" valign="top" background="../img/contens_bg.gif"><img src="../img/contens_bg.gif" width="7" height="7" /></td>
        <td width="14" align="right" valign="top"><img src="../img/contens_top_right.gif" width="14" height="7" /></td>
      </tr>
      <tr>
        <td align="left" valign="top" background="../img/contens_bg.gif"><table width="100%" border="0" cellspacing="10" cellpadding="0">
          <tr>
            <td width="180" align="left" valign="top"><table width="180" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td align="left" valign="top" background="../img/menu_contens_right.gif"><img src="../img/menu_contens_right.gif" width="6" height="6" /></td>
                  <td width="6" align="left" valign="top"><img src="../img/menu_contens_top_right.gif" width="6" height="6" /></td>
                </tr>
                <tr>
                  <td align="left" valign="top" background="../img/menu_contens_right.gif"><!--#include file="menu.asp" --></td>
                  <td width="6" align="left" valign="top" background="../img/menu_contens_right.gif"><img src="../img/menu_contens_right.gif" width="6" height="6" /></td>
                </tr>
                <tr>
                  <td align="left" valign="top" background="../img/menu_contens_right.gif"><img src="../img/menu_contens_right.gif" width="6" height="6" /></td>
                  <td width="6" align="left" valign="top"><img src="../img/menu_contens_bottom_right.gif" width="6" height="6" /></td>
                </tr>
            </table></td>
            <td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                
                <tr>
                  <td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td align="left" valign="top" background="../img/menu_contens_right.gif"><img src="../img/menu_contens_right.gif" width="6" height="6" /></td>
                      <td width="6" align="left" valign="top"><img src="../img/menu_contens_top_right.gif" width="6" height="6" /></td>
                    </tr>
                    <tr>
                      <td align="left" valign="top" background="../img/menu_contens_right.gif" class="textoNormalPreto11"><table width="100%" border="0" cellspacing="5" cellpadding="0">
                        <tr>
                          <td align="right" valign="top">
                          <%  set LTrsEstruturaPagina = conn.execute("select id_pagina, tabela, titulo, id_tipo from estrutura_pagina where id_tipo=1 and tabela='"&LTtabela&"'")
                              if not(LTrsEstruturaPagina.eof)then
                          %>
                          <input name="inserir" type="submit" class="bot140" id="inserir" value="INSERIR" onclick="javascript: document.location.href='cadastrar.asp?tabela=<%=LTtabela%>&id_pagina=<%=LTrsEstruturaPagina("id_pagina")%>&id_relacionamento=0&id_tipo=1&action=insert';"/>
                           
                          <input name="listar" type="submit" class="bot140" id="listar" value="LISTAR" onclick="javascript: document.location.href='listarGastronomia.asp?tabela=<%=LTtabela%>';"/></td>
                          
                        </tr>
                        <tr>
                          <td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                            <tr>
                              <td width="10" align="left" valign="top"><img src="../img/tabs-contens-top-left.gif" width="10" height="10" /></td>
                              <td align="left" valign="top" background="../img/tabs-contens-top.gif"><img src="../img/tabs-contens-top.gif" width="1" height="10" /><img src="../img/tabs-contens-top.gif" width="22" height="10" /></td>
                              <td width="10" align="left" valign="top"><img src="../img/tabs-contens-top-right.gif" width="10" height="10" /></td>
                            </tr>
                            <tr>
                              <td width="10" align="left" valign="top" background="../img/tabs-contens-left.gif"><img src="../img/tabs-contens-left.gif" width="10" height="22" /></td>
                              <td align="left" valign="middle" bgcolor="#F7F7F7" class="textoBoldPreto13"><%=LTrsEstruturaPagina("titulo")%></td>
                              <td width="10" align="left" valign="top" background="../img/tabs-contens-right.gif"> </td>
                            </tr>
                            <tr>
                              <td width="10" align="left" valign="top"><img src="../img/tabs-contens-bottom-left.gif" width="10" height="10" /></td>
                              <td align="left" valign="top" background="../img/tabs-contens-bottom.gif"><img src="../img/tabs-contens-bottom.gif" width="1" height="10" /><img src="../img/tabs-contens-bottom.gif" width="22" height="10" /></td>
                              <td width="10" align="left" valign="top"><img src="../img/tabs-contens-bottom-right.gif" width="10" height="10" /></td>
                            </tr>
                            <tr>
                              <td align="left" valign="top" bgcolor="#F7F7F7"></td>
                            </tr>
                          </table>
                          <%  end if 
                              Set LTrsEstruturaPagina = nothing
                          %>
                          
                          </td>
                        </tr>
                        <tr>
                          <td align="left" valign="top"><table width="100%" border="0" cellspacing="5" cellpadding="0">
                            <tr>
                              <td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td width="15" height="25" align="center" valign="middle" bgcolor="#f3f3f3" class="textoBoldPreto11">#</td>
                                  <td width="70" align="left" valign="middle" bgcolor="#f3f3f3" class="textoBoldPreto11">DATA</td>
                                  <td align="left" valign="middle" bgcolor="#f3f3f3" class="textoBoldPreto11">TÍTULO</td>
                                  <td width="140" align="left" valign="middle" bgcolor="#f3f3f3" class="textoBoldPreto11">CATEGORIA</td>
                                  <td width="60" align="left" valign="middle" bgcolor="#f3f3f3" class="textoBoldPreto11">ESTADO</td>
                                  <td width="60" align="center" valign="middle" bgcolor="#f3f3f3" class="textoBoldPreto11">AÇÃO</td>
                                  </tr>
                                <%



LTtables   = ""&LTtabela&" a, "&LTtabela&"_list2 b"

LTcampos   = "a.id,a.titulo1,a.data1,a.list1,a.list2,a.list3,a.id_pagina"
LTcampos   = LTcampos&",b.id_list,b.titulo"
LTcondicao = "a.list2=b.id_list"

LTvarSQL = "select "&LTcampos&" from "&LTtables&" where "&LTcondicao&" order by titulo1 DESC"

LTvarSQL2 = "select count(id) as soma from "&LTtabela&""

set LTrs=conn.execute(LTvarSQL)

set rscount=conn.execute(LTvarSQL2)

vqtd=30

if rscount("soma") <> "" then
vtotal = cint(rscount("soma"))
else
vtotal = 0
end if

vpag = vtotal\vqtd
resto = (vtotal/vqtd) - vpag
if (resto = 0) then
   vpag = vpag-1
end if
if (trim(request("pagina"))="") then
pagina = 0
else
pagina=trim(request("pagina"))
end if

vinicio = (pagina*vqtd)

for i=0 to (vinicio-1)
   LTrs.movenext
next
%>
                                <%
    if not(LTrs.eof) then 
    lin = 0
    do until lin=30
    col = 0
%>
                                <%
    do until col=1
    if not (LTrs.eof) then
%>
                                <tr onmouseover="this.style.backgroundColor='#e3ffb3';" onmouseout="this.style.backgroundColor='';" style="cursor:hand;">
                                  <td align="center" valign="middle" class="textoNormalPreto11"><%=LTrs("id")%></td>
                                  <td align="left" valign="middle" class="textoNormalPreto11"><%=LTrs("data1")%></td>
                                  <td align="left" valign="middle" class="textoNormalPreto11"><%=LTrs("titulo1")%></td>
                                  <td align="left" valign="middle" class="textoNormalPreto11"><%=LTrs("titulo")%></td>
                                  <td align="left" valign="middle" class="textoNormalPreto11"><%=LTrs("list3")%></td>
                                  <td align="center" valign="middle" class="textoNormalPreto11"><table border="0" cellspacing="5" cellpadding="0">
                                    <tr>

                                    <td  align="center" valign="middle"><a href="listarFotos.asp?tabela=<%=LTtabela%>&id_galeria=<%=LTrs("id")%>"  title="ADICIONAR FOTOS"><img src="../img/ico-foto.gif" width="20" height="16" border="0" /></a></td>
                                      <td align="center" valign="middle"><a href="cadastrar.asp?tabela=<%=LTtabela%>&id_pagina=<%=LTrs("id_pagina")%>&id=<%=LTrs("id")%>&action=update"  title="ALTERAR"><img src="../img/ico-cadastro.gif" width="16" height="16" border="0" /></a></td>
                                      <td align="center" valign="middle"><a href="javascript: excluir('gravar.asp?tabela=<%=LTtabela%>&id=<%=LTrs("id")%>&action=delete');"  title="EXCLUIR"><img src="../img/ico-del.gif" width="16" height="16" border="0" /></a></td>
                                      </tr>
                                    </table></td>
                                  </tr>
                                <tr>
                                  <td colspan="6" align="left" valign="top" background="../img/separador_tr.gif"><img src="../img/separador_tr.gif" width="3" height="5" /></td>
                                  </tr>
                                <%
LTrs.movenext
else
end if
col = col+1
loop
lin = lin +1
loop
else
%>
                                <tr>
                                  <td height="30" colspan="6" align="center" valign="middle">sem registros no sistema</td>
                                  </tr>
                                <%
set LTrs = nothing
end if
%>
                                </table></td>
                            </tr>
                            <tr>
                              <td align="center" valign="top"><%if vtotal > 30 then%>
                                <table width="99%" border="0" cellpadding="3" cellspacing="0">
                                  <tr>
                                    <td width="50%" height="25" align="center" valign="middle" bgcolor="#f7f7f7"><%                  if pagina>0 then
%>
                                      <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?pagina=<%=(pagina-1)%>"><img src="../img/anterior.gif" width="98" height="15" border="0" /></a>
                                      <%
                    end if
%></td>
                                    <td height="25" align="center" valign="middle" bgcolor="#f7f7f7"><%                  if ((trim(vpag)>0) and (cint(pagina)<>cint(vpag)))  then
%>
                                      <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?pagina=<%=(pagina+1)%>"><img src="../img/proxima.gif" width="98" height="15" border="0" /></a>
                                      <%
                    end if
%></td>
                                  </tr>
                                </table>
                                <%end if%></td>
                            </tr>
                          </table></td>
                        </tr>
                      </table>                        </td>
                      <td width="6" align="left" valign="top" background="../img/menu_contens_right.gif"><img src="../img/menu_contens_right.gif" width="6" height="6" /></td>
                    </tr>
                    <tr>
                      <td align="left" valign="top" background="../img/menu_contens_right.gif"><img src="../img/menu_contens_right.gif" width="6" height="6" /></td>
                      <td width="6" align="left" valign="top"><img src="../img/menu_contens_bottom_right.gif" width="6" height="6" /></td>
                    </tr>
                  </table></td>
                </tr>
              </table></td>
          </tr>
        </table>          </td>
        <td width="14" align="right" valign="top" background="../img/contens_right.gif"><img src="../img/contens_right.gif" width="14" height="7" /></td>
      </tr>
      <tr>
        <td align="left" valign="top" background="../img/contens_bg.gif"><img src="../img/contens_bg.gif" width="7" height="7" /></td>
        <td width="14" align="right" valign="top"><img src="../img/contens_bottom_right.gif" width="14" height="7" /></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td align="left" valign="top"><img src="../img/rodape.gif" width="762" height="92" /></td>
  </tr>
</table>
</body>
</html>
<%
    conn.close
    set conn = nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá um response.write na sua string SQL par ver o que esta passando, e certifique-se que a atbela existe, Certifique-se que a tabela existe, e que o arquivo existe no caminho especificado. Se você estiver usando uma tabela vinculada, certifique-se que IUSR_machinename tem permissões na pasta (s) que hospeda o 'controle remoto' arquivos de banco de dados, e que as conexoes continuam apontando para um local válido.

Compartilhar este post

Link para o post
Compartilhar em outros sites

BrunoHP    0

BrunoHP
Postado

dá um response.write na sua string SQL par ver o que esta passando, e certifique-se que a atbela existe, Certifique-se que a tabela existe, e que o arquivo existe no caminho especificado. Se você estiver usando uma tabela vinculada, certifique-se que IUSR_machinename tem permissões na pasta (s) que hospeda o 'controle remoto' arquivos de banco de dados, e que as conexoes continuam apontando para um local válido.

 

Resultado

 

select a.id,a.titulo1,a.data1,a.list1,a.list2,a.list3,a.id_pagina,b.id_list,b.titulo from gastronomia a, gastronomia_list2 b where a.list2=b.id_list order by titulo1 DESC

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

esta tabelas estão relaionandoas ?

verifique também as permissões no banco

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique se o painel esta configurado corretamente

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito