Ir para conteúdo

POWERED BY:

Arquivado

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

lucasmoraes

paginação asp e mysql

Por , em ASP Clássico

Recommended Posts

lucasmoraes    1

lucasmoraes
Postado

Olá amigos eu nunca tinha usado banco de dados mysql...

estou com um problema agora

migrei um projeto de access para mysql e o site ta funfando legal

o unico problema e a paginação ja vi que tem uma propriedade que o mysql n aceita

 

eu achei aki no forum um codigo de paginação mais ta me voltando um erro vou postar aki pra ver se alguem consegue me ajudar...

<form name="formcat" method="post" action="">
  <fieldset>
    <legend class="texto">	Selecione a categoria a ser procurada.</legend>
    <p>
      <label>
      <select name="select_categoria" id="select_categoria" onchange="document.formcat.submit();">
              <option selected>SELECIONE AQUI!</option>
                          <%
			 Set rs1 = Server.CreateObject("ADODB.Recordset")
			 sql2 = "Select * From categoria"
			 rs1.open sql2,sig_conexao  
			 While Not rs1.Eof
			 %>   
             <option value="<%= rs1("id_cat")%>"><%= rs1("nome_categoria")%></option>   
<%
			 rs1.moveNext   
			 wend   
			 %>
        </select>
      </label>
    </p>
  </fieldset>
</form>
<%
idbairro = request.QueryString("bairro")
idcategorias = request.form("select_categoria")
Set rspropagandas = Server.CreateObject("ADODB.Recordset")
Set rsCatEscolha = Server.CreateObject("ADODB.Recordset")
sqlcatescolha = "Select * From categoria where id_cat='"&idcategorias&"'"
rsCatEscolha.open sqlcatescolha,sig_conexao 
if idcategorias = "" then

else
%>
<br />
<div class="nomecat">  <%= rsCatEscolha("nome_categoria")%></div>
<br />
<%
end if
rsCatEscolha.close
set rsCatEscolha = nothing
'sqlpropagandas = "Select * From propaganda where id_bairro='"&idbairro&"' and id_cat='"&idcategorias&"' and tipo_propaganda=3 Order by nome_empresa ASC"
'rspropagandas.open sqlpropagandas,sig_conexao 

 
  'While Not rspropagandas.Eof And rspropagandas.AbsolutePage = PaginaAtual 
'While Not rspropagandas.Eof
atualpagina = request.ServerVariables("SCRIPT_NAME")
'numero de registros por pagina...
	pageSize = 1
	if (len(Request.QueryString("p")) = 0 )then  
		paginaAtual = 1
	else  
		paginaAtual = CInt(Request.QueryString("p"))
	end if
' conta o numero de registros...
sql = "SELECT COUNT(*) AS total FROM propaganda where id_bairro='"&idbairro&"' and id_cat='"&idcategorias&"' and tipo_propaganda=3 Order by nome_empresa ASC"
set rs = sig_conexao.execute(sql)
'total de registros
recordCount = Cint(rs("total"))
'calculamos o numero de paginas...
pageCount = Clng(recordCount / pageSize)
	If pageCount < 1 then
		pageCount = 1
	end if
rs.Close()
Flag1 = INT(paginaAtual / pagesize)
PI = INT(Flag1 * pagesize)
	IF PI = 0 THEN
		PI = 1
	END IF
PF = PI + pagesize - 1
' selecionamos os registros...
sql = "SELECT * FROM propaganda where id_bairro='"&idbairro&"' and id_cat='"&idcategorias&"' and tipo_propaganda=3 LIMIT " & (paginaAtual - 1) * pageSize & " , " & pageSizeset 
rs = sig_conexao.execute(sql)          
do while not rs.eof
%>
<div class="divprop">
  <table width="100%" height="227" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td height="23" align="center" valign="top" ><%= rspropagandas("nome_empresa")%></td>
    </tr>
    <tr>
      <td height="106" align="center" valign="top"><div class="boxfotos"><img src="propaganda/<%= rspropagandas("caminho_propaganda")%>" width="150" height="95" /></div></td>
    </tr>
    <tr>
      <td height="22" align="center" valign="top" class="detprop"><%= rspropagandas("telefone_empresa")%></td>
    </tr>
    <tr>
      <td align="center" valign="top" class="detprop"><%= rspropagandas("email_empresa")%><br /><%= rspropagandas("site_empresa")%><br /><br />Mais Detalhes</td>
    </tr>
  </table>
  
</div>
<div class="linhasep"></div>
<% 
 rs.MoveNext()
 loop
'rspropagandas.MoveNext : Wend
'rspropagandas.close
'set rspropagandas = nothing
' cria os links de pagians...
	IF CInt(paginaAtual) > 1 THEN
		Response.Write "<a href='"&pagina&"?p=1'>Primeira</a> "
	Else
		Response.Write "<font color=""#ADADAD"">Primeira</font> "
	END IF
	if CInt(paginaAtual) > 1 then
		Response.Write "<a href='"&pagina&"?p=" & paginaAtual - 1 &"'>Anterior</a> "
	Else
		Response.Write "<font color='#666666'>Anterior</font>  "
	END IF
for i=1 to pageCount  
	Response.Write("<a href='"&pagina&"?p=" & i & "'>" & i & "</a> ")
next  
	IF (CInt(paginaAtual) < pagecount) THEN         
		IF CInt(PF) <> pagecount THEN   
			Response.Write "<a href='"&pagina&"?p=" & paginaAtual+1 & "'>Próxima</a> "  
		END IF
	Else  
		Response.Write "<font color=""#ADADAD"">Próxima</font> "
	END IF
	IF (CInt(paginaAtual) <> pagecount) THEN         
		IF CInt(PF) <> pagecount THEN   
			Response.Write "<a href='"&pagina&"?p=" & pagecount & "'>Última</a> "  
		END IF
		Else  
			Response.Write "<font color=""#ADADAD"">Última</font> "  
		END IF  
%>

este e o codigo ai o erro esta nesta linha 

sql = "SELECT * FROM propaganda where id_bairro='"&idbairro&"' and id_cat='"&idcategorias&"' and tipo_propaganda=3 LIMIT " & (paginaAtual - 1) * pageSize & " , " & pageSizeset 
rs = sig_conexao.execute(sql)

olha so o erro

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

 

[MySQL][ODBC 3.51 Driver][mysqld-5.0.45-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1

 

/comercioderibeirao/propaganda.asp, line 147

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Verifique a ortografia. pode ser um nome de coluna Invalido 'sua_coluna'. A coluna a qual você se refere na Base de Dados não foi encontrada.

Compartilhar este post

Link para o post
Compartilhar em outros sites

lucasmoraes    1

lucasmoraes
Postado

bom fiz algumas alterações apos colocar o response.write e o codigo ja abriu mais com um erro ainda

tipopropaganda = 3
sql = "SELECT * FROM propaganda where id_bairro='"&idbairro&"' and id_cat='"&idcategorias&"' and tipo_propaganda='"& tipopropaganda &"' LIMIT " & (paginaAtual - 1) * pageSize & " , " & pageSizeset 
response.Write sql  
rs = sig_conexao.execute(sql)

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

 

[MySQL][ODBC 3.51 Driver][mysqld-5.0.45-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1

 

/comercioderibeirao/propaganda.asp, line 149

 

o response.write imprimiu

SELECT * FROM propaganda where id_bairro='1' and id_cat='2' and tipo_propaganda='3' LIMIT 0 ,

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Por que aquela vírgula isolada ao final? e a variável pageSizeset nessa lógica esta vazia, por isso o erro.

 

quando esiver vazia você tera que comparar e não jogar a virgula ficando assim

 

LIMIT 0

quando tiver você terá que colocar a virgula e o resultado sem dar os espaços...

 

LIMIT 0,5

[]'s

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Podemos exigir para mostrar uma parte dos registros retornados por uma consulta especificando um intervalo. esse intervalo a ser devolvido, podemos especificar dizendo o início e término número de registro. Nós vamos passar este número inicial e final, juntamente com o comando SQL LIMIT para restringir os registros dentro desse intervalo. Vamos ver a sintaxe dessa consulta em nossa tabela MySQL.

 

SELECT * FROM `aluno` LIMIT 0, 10

 

Nós especificamos aqui para retornar 10 registros a partir de 0 ou a partir do primeiro registro. mesma maneira que nós podemos pedir 10 registros a partir do registro 20 como este

 

SELECT * FROM `aluno` LIMIT 20, 10

Compartilhar este post

Link para o post
Compartilhar em outros sites

lucasmoraes    1

lucasmoraes
Postado

amigos o problema estava no sql mesmo eu coloquei o pagesize e sem querer ajuntei com o set do rs ai funcionou mas continuo com problemas na paginação.

é meio complicado de explicar mas vou tentar ok

tenho um menu onde eu separo as localidades de uma cidade por exemplo: zona norte ,zona sul, zona leste etc

quando o usuario seleciona uma das localidades

meu codigo gera um menu na lateral do site exibindo todos os bairros cadastrados no banco com o id_zona selecionado , ok até ai ne....

bom ele gera o menu normalmente

ai eu fiz os links em cada bairro redireciona para uma pagina nesta pagina tem um combobox que o cliente novamente faz uma seleção por exemplo: lanchonetes, bares, restaurantes supermercados etc...

ai quando o cliente seleciona esta caixa

eu faço um sql que recebe os valores da minha tabela e adiciono um where onde id_cat=combobox que é a onde o cliente seleciona a lanchonete etc,

e ai ele vai gerar os resultados em cima de tudo que o cliente procurou e é ai que entra a paginação, ela vai paginar os registros depois de passarem por todo esse filtro

 

ai vou postar meu codigo completo para que alguem possa me ajudar pq meu problema na verdade é para fazer os links

de anterior proxima pq eu exibo os registros normalmente mas quando eu clico em proxima ele gera um erro

<form name="formcat" method="post" action="">
  <fieldset>
    <legend class="texto">	Selecione a categoria a ser procurada.</legend>
    <p>
      <label>
      <select name="select_categoria" id="select_categoria" onchange="document.formcat.submit();">
              <option selected>SELECIONE AQUI!</option>
                          <%
			 Set rs1 = Server.CreateObject("ADODB.Recordset")
			 sql2 = "Select * From categoria"
			 rs1.open sql2,sig_conexao  
			 While Not rs1.Eof
			 %>   
             <option value="<%= rs1("id_cat")%>"><%= rs1("nome_categoria")%></option>   
<%
			 rs1.moveNext   
			 wend   
			 %>
        </select>
      </label>
    </p>
  </fieldset>
</form>
<%
idbairro = request.QueryString("bairro")
idcategorias = request.form("select_categoria")
Set rspropagandas = Server.CreateObject("ADODB.Recordset")
Set rsCatEscolha = Server.CreateObject("ADODB.Recordset")
sqlcatescolha = "Select * From categoria where id_cat='"&idcategorias&"'"
rsCatEscolha.open sqlcatescolha,sig_conexao 
if idcategorias = "" then

else
%>
<br />
<div class="nomecat">  <%= rsCatEscolha("nome_categoria")%></div>
<br />
<%

rsCatEscolha.close
set rsCatEscolha = nothing
'sqlpropagandas = "Select * From propaganda where id_bairro='"&idbairro&"' and id_cat='"&idcategorias&"' and tipo_propaganda=3 Order by nome_empresa ASC"
'rspropagandas.open sqlpropagandas,sig_conexao 

 
  'While Not rspropagandas.Eof And rspropagandas.AbsolutePage = PaginaAtual 
'While Not rspropagandas.Eof
atualpagina = request.ServerVariables("SCRIPT_NAME")
'numero de registros por pagina...
	pageSize = 1
	if (len(Request.QueryString("p")) = 0 )then  
		paginaAtual = 1
	else  
		paginaAtual = CInt(Request.QueryString("p"))
	end if
' conta o numero de registros...
tipopropaganda = 3
sql = "SELECT COUNT(*) AS total FROM propaganda where id_bairro='"&idbairro&"' and id_cat='"&idcategorias&"' and tipo_propaganda='"&tipopropaganda&"' Order by nome_empresa ASC"
set rs = sig_conexao.execute(sql)
'total de registros
recordCount = Cint(rs("total"))
'calculamos o numero de paginas...
pageCount = Clng(recordCount / pageSize)
	If pageCount < 1 then
		pageCount = 1
	end if
rs.Close()
Flag1 = INT(paginaAtual / pagesize)
PI = INT(Flag1 * pagesize)
	IF PI = 0 THEN
		PI = 1
	END IF
PF = PI + pagesize - 1
' selecionamos os registros...

sql = "SELECT * FROM propaganda where id_bairro='"&idbairro&"' and id_cat='"&idcategorias&"' and tipo_propaganda='"& tipopropaganda &"' LIMIT " & (paginaAtual - 1) * pageSize & " , " & pageSize
set rs = sig_conexao.execute(sql)  
       
do while not rs.eof
%>
<div class="divprop">
  <table width="100%" height="227" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td height="23" align="center" valign="top" ><%= rs("nome_empresa")%></td>
    </tr>
    <tr>
      <td height="106" align="center" valign="top"><div class="boxfotos"><img src="propaganda/<%= rs("caminho_propaganda")%>" width="150" height="95" /></div></td>
    </tr>
    <tr>
      <td height="22" align="center" valign="top" class="detprop"><%= rs("telefone_empresa")%></td>
    </tr>
    <tr>
      <td align="center" valign="top" class="detprop"><%= rs("email_empresa")%><br /><%= rs("site_empresa")%><br /><br />Mais Detalhes</td>
    </tr>
  </table>
  
</div>
<div class="linhasep"></div>
<% 
 rs.MoveNext()
 loop
'rspropagandas.MoveNext : Wend
'rspropagandas.close
'set rspropagandas = nothing
' cria os links de pagians...
	IF CInt(paginaAtual) > 1 THEN
		Response.Write "<a href=?ac=prop&bairro='"&idbairro&"'&idcat='"&idcategorias&"'&'"&pagina&"?p=1'>Primeira</a> "
	Else
		Response.Write "<font color=""#ADADAD"">Primeira</font> "
	END IF
	if CInt(paginaAtual) > 1 then
		Response.Write "<a href=?ac=prop&bairro='"&idbairro&"'&idcat='"&idcategorias&"'&'"&pagina&"?p=" & paginaAtual - 1 &"'>Anterior</a> "
	Else
		Response.Write "<font color='#666666'>Anterior</font>  "
	END IF
for i=1 to pageCount  
	Response.Write("<a href=?ac=prop&bairro='"&idbairro&"'&idcat='"&idcategorias&"'&'"&pagina&"?p=" & i & "'>" & i & "</a> ")
next  
	IF (CInt(paginaAtual) < pagecount) THEN         
		IF CInt(PF) <> pagecount THEN   
			Response.Write "<a href=?ac=prop&bairro='"&idbairro&"'&idcat='"&idcategorias&"'&'"&pagina&"?p=" & paginaAtual+1 & "'>Próxima</a> "  
		END IF
	Else  
		Response.Write "<font color=""#ADADAD"">Próxima</font> "
	END IF
	IF (CInt(paginaAtual) <> pagecount) THEN         
		IF CInt(PF) <> pagecount THEN   
			Response.Write "<a href='"&pagina&"?p=" & pagecount & "'>Última</a> "  
		END IF
		Else  
			Response.Write "<font color=""#ADADAD"">Última</font> "  
		END IF 
end if 
%>

se eu exibir a pagina ele abre os registros mas se eu clico em prox ou anterior ele da este erro

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

 

[MySQL][ODBC 3.51 Driver][mysqld-5.0.45-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '1'' and id_cat='1' and tipo_propaganda='3' Order by nome_empresa ASC' at line 1

 

/comercioderibeirao/propaganda.asp, line 131

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Mais uma vez é apenas um erro de sua instrucao SQL.....

 

Veja que, logo após o primeiro número 1, existem dois apóstofos juntos...

 

near 1'' and id_cat='1' and tipo_propaganda='3' Order by nome_empresa ASC' at line 1

 

É só prestar um pouco mais de atenção que a coisa vai.....

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

lucasmoraes    1

lucasmoraes
Postado

Mais uma vez é apenas um erro de sua instrucao SQL.....

 

Veja que, logo após o primeiro número 1, existem dois apóstofos juntos...

 

near 1'' and id_cat='1' and tipo_propaganda='3' Order by nome_empresa ASC' at line 1

 

É só prestar um pouco mais de atenção que a coisa vai.....

 

Att;

 

entao amigo mais oque você nao esta entendendo e que com esse sql ele resgata normalmente o registro mais ele da pau na hora de eu utilizar os links de proximo e de anterior da paginação entende

 

bom eu acho que o erro esta nesta parte do codigo pq so quando eu aciono esta parte que da o erro olha ve se da pra você entender melhor

' cria os links de pagians...
	IF CInt(paginaAtual) > 1 THEN
		Response.Write "<a href=?ac=prop&bairro='"&idbairro&"'&idcat='"&idcategorias&"'&'"&pagina&"?p=1'>Primeira</a> "
	Else
		Response.Write "<font color=""#ADADAD"">Primeira</font> "
	END IF
	if CInt(paginaAtual) > 1 then
		Response.Write "<a href=?ac=prop&bairro='"&idbairro&"'&idcat='"&idcategorias&"'&'"&pagina&"?p=" & paginaAtual - 1 &"'>Anterior</a> "
	Else
		Response.Write "<font color='#666666'>Anterior</font>  "
	END IF
for i=1 to pageCount  
	Response.Write("<a href=?ac=prop&bairro='"&idbairro&"'&idcat='"&idcategorias&"'&'"&pagina&"?p=" & i & "'>" & i & "</a> ")
next  
	IF (CInt(paginaAtual) < pagecount) THEN         
		IF CInt(PF) <> pagecount THEN   
			Response.Write "<a href=?ac=prop&bairro='"&idbairro&"'&idcat='"&idcategorias&"'&'"&pagina&"?p=" & paginaAtual+1 & "'>Próxima</a> "  
		END IF
	Else  
		Response.Write "<font color=""#ADADAD"">Próxima</font> "
	END IF
	IF (CInt(paginaAtual) <> pagecount) THEN         
		IF CInt(PF) <> pagecount THEN   
			Response.Write "<a href='"&pagina&"?p=" & pagecount & "'>Última</a> "  
		END IF
		Else  
			Response.Write "<font color=""#ADADAD"">Última</font> "  
		END IF

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Cara... se você sabe que o erro ocorre quando você clica nos links da paginação.. e sabe qual é e porque ocorre o erro.... acho que fica MUITO fácil de resolve-lo.. nao???

 

Como disse, basta prestar um pouco de atenção para ver onde está o erro.....

 

você já olhou com atenção para os seus links de paginação ?? Percebeu que você usa o ? DUAS VEZES na mesma url ???

 

"<a href=?ac=prop&bairro='"&idbairro&"'&idcat='"&idcategorias&"'&'"&pagina&"?p=" & i & "'>" & i & "</a> "

 

Ou seja... é só fazer com calma, e prestar atenção ao código..

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

lucasmoraes    1

lucasmoraes
Postado

amigo estou pedindo ajuda exatamente pq ja revisei meu codigo algumas vezes e nao consegui resolver bom fiz algumas alterações no script de urls mas mesmo assim ele parou de exibir o erro mas nao pula para o proximo registro se tiver como você ver o codigo e me ajudar eu agradeço

 

<form name="formcat" method="post" action="">
  <fieldset>
    <legend class="texto">	Selecione a categoria a ser procurada.</legend>
    <p>
      <label>
      <select name="select_categoria" id="select_categoria" onchange="document.formcat.submit();">
              <option selected>SELECIONE AQUI!</option>
                          <%
			 Set rs1 = Server.CreateObject("ADODB.Recordset")
			 sql2 = "Select * From categoria"
			 rs1.open sql2,sig_conexao  
			 While Not rs1.Eof
			 %>   
             <option value="<%= rs1("id_cat")%>"><%= rs1("nome_categoria")%></option>   
<%
			 rs1.moveNext   
			 wend   
			 %>
        </select>
      </label>
    </p>
  </fieldset>
</form>
<%
idbairro = request.QueryString("bairro")
idcategorias = request.form("select_categoria")
Set rspropagandas = Server.CreateObject("ADODB.Recordset")
Set rsCatEscolha = Server.CreateObject("ADODB.Recordset")
sqlcatescolha = "Select * From categoria where id_cat='"&idcategorias&"'"
rsCatEscolha.open sqlcatescolha,sig_conexao 
if idcategorias = "" then

else
%>
<br />
<div class="nomecat">  <%= rsCatEscolha("nome_categoria")%></div>
<br />
<%

rsCatEscolha.close
set rsCatEscolha = nothing
'sqlpropagandas = "Select * From propaganda where id_bairro='"&idbairro&"' and id_cat='"&idcategorias&"' and tipo_propaganda=3 Order by nome_empresa ASC"
'rspropagandas.open sqlpropagandas,sig_conexao 

 
  'While Not rspropagandas.Eof And rspropagandas.AbsolutePage = PaginaAtual 
'While Not rspropagandas.Eof
atualpagina = request.ServerVariables("SCRIPT_NAME")
'numero de registros por pagina...
	pageSize = 1
	if (len(Request.QueryString("p")) = 0 )then  
		paginaAtual = 1
	else  
		paginaAtual = CInt(Request.QueryString("p"))
	end if
' conta o numero de registros...
tipopropaganda = 3
sql = "SELECT COUNT(*) AS total FROM propaganda where id_bairro='"&idbairro&"' and id_cat='"&idcategorias&"' and tipo_propaganda='"&tipopropaganda&"' Order by nome_empresa ASC"
set rs = sig_conexao.execute(sql)
'total de registros
recordCount = Cint(rs("total"))
'calculamos o numero de paginas...
pageCount = Clng(recordCount / pageSize)
	If pageCount < 1 then
		pageCount = 1
	end if
rs.Close()
Flag1 = INT(paginaAtual / pagesize)
PI = INT(Flag1 * pagesize)
	IF PI = 0 THEN
		PI = 1
	END IF
PF = PI + pagesize - 1
' selecionamos os registros...

sql = "SELECT * FROM propaganda where id_bairro='"&idbairro&"' and id_cat='"&idcategorias&"' and tipo_propaganda='"& tipopropaganda &"' LIMIT " & (paginaAtual - 1) * pageSize & " , " & pageSize
set rs = sig_conexao.execute(sql)  
       
do while not rs.eof
%>
<div class="divprop">
  <table width="100%" height="227" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td height="23" align="center" valign="top" ><%= rs("nome_empresa")%></td>
    </tr>
    <tr>
      <td height="106" align="center" valign="top"><div class="boxfotos"><img src="propaganda/<%= rs("caminho_propaganda")%>" width="150" height="95" /></div></td>
    </tr>
    <tr>
      <td height="22" align="center" valign="top" class="detprop"><%= rs("telefone_empresa")%></td>
    </tr>
    <tr>
      <td align="center" valign="top" class="detprop"><%= rs("email_empresa")%><br /><%= rs("site_empresa")%><br /><br />Mais Detalhes</td>
    </tr>
  </table>
  
</div>
<div class="linhasep"></div>
<% 
 rs.MoveNext()
 loop
'rspropagandas.MoveNext : Wend
'rspropagandas.close
'set rspropagandas = nothing
' cria os links de pagians...
	IF CInt(paginaAtual) > 1 THEN
		Response.Write "<a href=?ac=prop&bairro="&idbairro&"&idcat="&idcategorias&"&"&pagina&"p=1>Primeira</a> "
	Else
		Response.Write "<font color=""#ADADAD"">Primeira</font> "
	END IF
	if CInt(paginaAtual) > 1 then
		Response.Write "<a href=?ac=prop&bairro="&idbairro&"&idcat="&idcategorias&"&"&pagina&"p=" & paginaAtual - 1 &">Anterior</a> "
	Else
		Response.Write "<font color='#666666'>Anterior</font>  "
	END IF
for i=1 to pageCount  
	Response.Write("<a href=?ac=prop&bairro="&idbairro&"&idcat="&idcategorias&"&"&pagina&"p=" & i & ">" & i & "</a> ")
next  
	IF (CInt(paginaAtual) < pagecount) THEN         
		IF CInt(PF) <> pagecount THEN   
			Response.Write "<a href=?ac=prop&bairro="&idbairro&"&idcat="&idcategorias&"&"&pagina&"p=" & paginaAtual+1 & ">Próxima</a> "  
		END IF
	Else  
		Response.Write "<font color=""#ADADAD"">Próxima</font> "
	END IF
	IF (CInt(paginaAtual) <> pagecount) THEN         
		IF CInt(PF) <> pagecount THEN   
			Response.Write "<a href=?ac=prop&bairro="&idbairro&"&idcat="&idcategorias&"&"&pagina&"p=" & pagecount & ">Última</a> "  
		END IF
		Else  
			Response.Write "<font color=""#ADADAD"">Última</font> "  
		END IF end if 
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Posta um link para podermos acessar isso.. assim poderemos ver como você esta criando os links da paginacao...

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

lucasmoraes    1

lucasmoraes
Postado

Posta um link para podermos acessar isso.. assim poderemos ver como você esta criando os links da paginacao...

 

Att;

 

bom para acessar você entra nesse link pois so tenho um bairro que eu cadastrei alguns testes entao vou te passar o link direto pra você visualizar

 

http://www.highnetinformatica.com.br/comercioderibeirao/?ac=prop&bairro=1

 

ai você faz o seguinte ele vai abrir no centro da pagina um combobox ai você seleciona lanchonetes pq tem alguns testes la ai vai exibir e vai exibir os menus de paginação ai você vai entender oque acontece

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Só uma coisa: cade o action desse form ??

 

<form name="formcat" method="post" action="">

 

Ao que pude ver.. os links estao sendo gerados normalmente, porem, quando você seleciona o item Lanchonete, a url nao se altera, ou seja, ao que parece, ele está fazendo a busca de TODOS os registros do banco, sem os filtros da SQL, ai quando você clica nos links da paginacao, ele tenta fazer o select com os filtros e nao encontra nada..

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

lucasmoraes    1

lucasmoraes
Postado

Só uma coisa: cade o action desse form ??

 

<form name="formcat" method="post" action="">

 

Ao que pude ver.. os links estao sendo gerados normalmente, porem, quando você seleciona o item Lanchonete, a url nao se altera, ou seja, ao que parece, ele está fazendo a busca de TODOS os registros do banco, sem os filtros da SQL, ai quando você clica nos links da paginacao, ele tenta fazer o select com os filtros e nao encontra nada..

 

Att;

 

e como eu faço uma action para a mesma pagina? a detalhe esta pagina e um include

Compartilhar este post

Link para o post
Compartilhar em outros sites

lucasmoraes    1

lucasmoraes
Postado

Coloca o nome da pagina....

 

qual a index ou a include

 

a e outra nao preciso fazer nada no action pq eu coloquei um submit no proprio combobox

se eu colocar alguma pagina ele sai fora do script

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