Ir para conteúdo

POWERED BY:

Arquivado

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

marcelocardoso

Acrescentar Filtro em Busca

Por , em ASP Clássico

Recommended Posts

marcelocardoso    6

marcelocardoso
Postado

Olá XANBURZUM!

 

Escrevo aí para os colegas e vocÊ, se podem me ajudar aqui:

È o seguinte, tenho este código abaixo que funciona certinho para oque eu preciso aqui, mas quero acrescentar um filtro que seria com o nome:

 

CHECKBOX chamado de TIPO

e campos la dentro buscados do banco, que seriam os seguintes: download, video, texto, pdf

 

E o código que uso no html é este:

 

 

<FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="get" name="frm" target="_parent" id="frm">
			<table width="378" height="40" border="0" align="center" bgcolor="#F4F4F4" class="BordaLaranja">
			  <tr>
				<td width="6"> </td>
				<td width="44"><div align="center"><strong>Buscar:</strong> </div></td>
				<td width="123"><div align="left"><input name="pesquisar" type="text" id="pesquisar"></div>
				</td>
	  <td width="55">
<%
 SQL = "SELECT * FROM Tipo WHERE NOME ORDER BY ID ASC"
 SET CATDownload = Server.CreateObject("ADODB.RECORDSET")
	 CATDownload.Open SQL, CX, 3
%>
<select name="tipodownload" size="1" id="tipodownload">
<option value=""></option>
<% 
WHILE NOT CATDownload.EOF 
%>
<option value=<%=CATDownload("TipoNOME")%>><%=CATDownload("TipoNOME")%></option>
<%
CATDownload.MoveNext
	   Wend
%>
</select>		</td>
			<td width="116"><input name="submeter_formulario" type="submit" class="BotaoBorda1" id="submeter_formulario" value="Pesquisar Download"></td>
				<td width="6"> </td>
			  </tr>
			</table>
		  </FORM>

 

Agora vem o código em asp, está funcionando, mas depois que acrescentei este código acima, não sei como fazer aqui em baixo no asp para pegar este filtro acima também do TIPODOWNLOAD do checkbox:

 

 

<%
 COD  = Replace(Trim(Request.QueryString("pesquisar")),"'","")
 TIPO = Replace(Trim(Request.QueryString("tipodownload")),"'","")
 PagAtual = Request.QueryString("paginacao")
 MaxREG   = 25

 IF COD = "" Then 
	   SQL = "SELECT * FROM Arquivos WHERE TIPO <> 1 ORDER BY DESCRICAO"
 END IF
 IF IsNumeric(COD) = True THEN
	   SQL = "SELECT * FROM Arquivos WHERE TIPO <> 1 AND TESTE = '" & COD & "' ORDER BY TIPO ID"
	   ELSE
	   SQL = "SELECT * FROM Arquivos WHERE TIPO <> 1 AND (TESTE LIKE '%" & COD & "%' OR Tipo LIKE '%" & COD & "%' OR Descricao LIKE '%" & COD & "%' OR Link LIKE '%" & COD & "%' OR Ajuda LIKE '%" & COD & "%' OR Validade LIKE '%" & COD & "%' ) ORDER BY ID"
 END IF
  
 SET RSDownloads = Server.CreateObject("ADODB.Recordset")   
	 RSDownloads.CursorType = 3
	 RSDownloads.CacheSize  = MaxREG
	 RSDownloads.PageSize   = MaxREG
	 RSDownloads.Open SQL, CX
  IF RSDownloads.BOF AND RSDownloads.EOF THEN 
%>

Consegue me ajudar amigo!

Preciso realmente no input resgatar o valor e ordenar com este filtro somente os registros escolhidos pelo checkbox.

 

 

Consegue????

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

recupera eles:

 

tipo= Split(Request("tipodownload"),",")

For I = 0 To UBound(tipo)

SQL="SELECT FROM WHERE tipo LIKE '%" & tipo(I).....

ou

For i = 1 To Request.querystring("tipodownload").Count
	 If (len(request.querystring("tipodownload")(i)) > 0) Then
		  SQL = "SELECT * FROM Arquivos WHERE tipo LIKE '%"&request.form("tipodownload")(i)&"')"

você pode usar o método filter do recordset , ´so nao entendi o pq do TIPO <> 1

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

XAMBURZUM!

 

TENTEI USAR ASSIM:

MAs não foi, pode me ajudar, pois estou me perdendo e não consegui usar o seu código acima.

 

Tentei usar para filtrar assim, odernando pelo checkbox, mas não vai:

 

<%
 COD  = Replace(Trim(Request.QueryString("pesquisar")),"'","")
 TIPO = Replace(Trim(Request.QueryString("tipodownload")),"'","")
 PagAtual = Request.QueryString("paginacao")
 MaxREG   = 300

 IF COD = "" THEN 
	SQL = "SELECT * FROM Arquivos ORDER BY Tipo DESC"
		response.write sql
	
	ELSEIF IsNumeric(COD) = TRUE THEN
	   SQL = "SELECT * FROM Arquivos WHERE CODMATRIZ = '" & COD & "' ORDER BY ID DESC"	  
   		   response.write sql
	ELSE
	   SQL = "SELECT * FROM Arquivos WHERE CODMATRIZ LIKE '%" & COD & "%' OR Tipo LIKE '%" & COD & "%' OR Descricao LIKE '%" & COD & "%' OR Link LIKE '%" & COD & "%' OR Ajuda LIKE '%" & COD & "%' OR Validade LIKE '%" & COD & "%' ORDER BY ID DESC"
   		   response.write sql
 END IF
  
 SET RSDownloads = Server.CreateObject("ADODB.Recordset")   
	 RSDownloads.CursorType = 3
	 RSDownloads.CacheSize  = MaxREG
	 RSDownloads.PageSize   = MaxREG
	 RSDownloads.Open SQL, CX
  IF RSDownloads.BOF AND RSDownloads.EOF THEN 
%>

 

Pode me ajudar???

Estou perdido mesmo.

 

 

Preciso é fazer com que :

 

1) Quando clico na pagina de downloads.asp, ele me abra todos os registros mas ordenados pelo tipo do download escolhido no checkbox.

2) Se digitar alguma coisa no input, ele deve buscar pelo texto e ordenar também pelo escolhido no checkbox.

3) E se ele digitar no input um numero, ele deve buscar por isnumeric no banco e se também estiver escolhido um tipo no checkbox, ordenar pelo escolhido.

 

 

Me ajuda???

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele gera algum erro ???

1) Quando clico na pagina de downloads.asp, ele me abra todos os registros mas ordenados pelo tipo do download escolhido no checkbox.

nessa 1º você pode apenas setar no ORDER BY '"&tipo&"' DESC

 

2) Se digitar alguma coisa no input, ele deve buscar pelo texto e ordenar também pelo escolhido no checkbox.

aqui você faz um SELECT simples, apenas na clausula WHERE codigo = '" & COD & "' ORDER BY '"&tipo&"' DESC"

 

3) E se ele digitar no input um numero, ele deve buscar por isnumeric no banco e se também estiver escolhido um tipo no checkbox, ordenar pelo escolhido

aqui você faz um SELECT no numero ,usanso o LIKE ORDER BY '"&tipo&"' DESC"

 

para melhor entender me mande uma MP que te passo um exemplo, de como fazer quando o user, por exemplo escolhe fazer uma pesquisa por E(and) OU(or) ou um termo Exato

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Amigo!

 

Estou fazendo assim agora, e quando vou abrir a pagina downloads.asp, ele me dá o seguinte erro:

 

 

ERRO:

Microsoft OLE DB Provider for ODBC Drivers erro '80040e07'
[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.
/testedown/wwwroot/downloads.asp, line 65

A linha 65 fica no RSDownloads.Open SQL, CX

 

CODIGO

<%
 COD  = Replace(Trim(Request.QueryString("pesquisar")),"'","")
 PagAtual = Request.QueryString("paginacao")
 MaxREG   = 30

 IF COD = "" THEN 
		 SQL = "SELECT * FROM Arquivos ORDER BY ID DESC"
 END IF
 IF IsNumeric(COD) = True THEN
	   SQL = "SELECT * FROM Arquivos WHERE CODMATRIZ = '" & COD & "' ORDER BY Tipo='"& Request.QueryString("tipodownload") &"'"
	   ELSE
	   SQL = "SELECT * FROM Arquivos WHERE CODMATRIZ LIKE '%" & COD & "%' OR Descricao LIKE '%" & COD & "%' OR Link LIKE '%" & COD & "%' OR CodAjuda LIKE '%" & COD & "%' OR Validade LIKE '%" & COD & "%' ORDER BY Tipo='"& Request.QueryString("tipodownload") &"'"
 END IF
  
 SET RSDownloads = Server.CreateObject("ADODB.Recordset")   
	 RSDownloads.CursorType = 3
	 RSDownloads.CacheSize  = MaxREG
	 RSDownloads.PageSize   = MaxREG
	 RSDownloads.Open SQL, CX
  IF RSDownloads.BOF AND RSDownloads.EOF THEN 
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Tentei fazer assim agora:

 

 

<%
 COD  = Replace(Trim(Request.QueryString("pesquisar")),"'","")
 TIPO = Replace(Trim(Request.QueryString("tipodownload")),"'","")
 PagAtual = Request.QueryString("paginacao")
 MaxREG   = 300

 IF COD = "" THEN 
	SQL = "SELECT * FROM Arquivos ORDER BY ID DESC"
  ELSE
		  IF TIPO AND COD = TRUE THEN
			  SQL = "SELECT * FROM Arquivos WHERE Tipo = '"& TIPO &"' AND (CODMATRIZ LIKE '%" & COD & "%' OR Descricao LIKE '%" & COD & "%' OR Link LIKE '%" & COD & "%' OR CodAjuda LIKE '%" & COD & "%' OR Validade LIKE '%" & COD & "%') ORDER BY Tipo DESC"
				  response.write sql
				  ELSE
			  SQL = "SELECT * FROM Arquivos WHERE (CODMATRIZ LIKE '%" & COD & "%' OR Descricao LIKE '%" & COD & "%' OR Link LIKE '%" & COD & "%' OR CodAjuda LIKE '%" & COD & "%' OR Validade LIKE '%" & COD & "%') ORDER BY Tipo DESC"
		  END IF
 END IF
  
 SET RSDownloads = Server.CreateObject("ADODB.Recordset")   
	 RSDownloads.CursorType = 3
	 RSDownloads.CacheSize  = MaxREG
	 RSDownloads.PageSize   = MaxREG
	 RSDownloads.Open SQL, CX
  IF RSDownloads.BOF AND RSDownloads.EOF THEN 
%>

OS IFS ACIMA FUNCIONAM, apenas este que nao, que seria o do TIPO

 

IF TIPO AND COD = TRUE THEN
			  SQL = "SELECT * FROM Arquivos WHERE Tipo = '"& TIPO &"' AND (CODMATRIZ LIKE '%" & COD & "%' OR Descricao LIKE '%" & COD & "%' OR Link LIKE '%" & COD & "%' OR CodAjuda LIKE '%" & COD & "%' OR Validade LIKE '%" & COD & "%') ORDER BY Tipo DESC"
				  response.write sql

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Me manda um MP, que vou te enviar um exemplo que te falei...

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

XAMBURZUM!

 

Me desculpe mas oque seria uma MP????

Se for meu email aí vai, pois estou precisando aprender fazer buscas com filtros, com 1 2 3 ou mais além de input para digitar oque deseja e buscar, com os filtros ou não, ok!

 

marmmc "arroba" pop "ponto" com "ponto" br

 

Até mais amigo, ficarei aguardando.

 

 

Obrigado!

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

XAMBURZUM!

 

Consegui chegar até aqui, mas acredito que tenha algo de errado na programação... portanto posto ela completa aqui, onde poderá me ajudar a ver se tem erros. Pois fui copiando daqui, alí e assim por diante ate chegar aqui.

 

Ela funciona no iis aqui beleza, mas só com o firefox...

No ie, ele não carrega a pagina, tenta carregar e parece que fica fazendo um loop, e volto do começo e não apresenta nada.

Poderia me ajudar, deve ter algo de errado no código.

 

Acho que é na parte do asp, e na parte de busca.

Obrigado!

 

 

CODIGO COMPLETO.

<!--#include file="conn.asp" -->
<%
 IF SESSION("AUTOcom_Nivel") < 2 THEN 
	Response.Write "Voce nao tem permissao para acessar"
	Response.End
 END IF  
%>
<HTML>
<HEAD>
<link href="css.css" rel="stylesheet" type="text/css">
<BODY bgcolor="#FFFFFF">
<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
	<td height="23" valign="middle"> </td>
  </tr>
  <tr>
	<td width="100%" valign="top"><table width="90%" border="0" align="center" cellpadding="2" cellspacing="2">
		<tr>
		  <td><table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="PRODBORDA"><tr> 
	<td width="208%" colspan="4"> 
<%
	  COD1 = Replace(Trim(Request.QueryString("pesquisar")),"'","")
	   CHK = Replace(Trim(Request.QueryString("filtrodebusca")),"'","")
	   ORD = Replace(Trim(Request.QueryString("ordem")),"'","")
 PagAtual  = Request.QueryString("paginacao")
 MaxREG	= 50

 IF COD1 = "" THEN 
	 SQL = "SELECT * FROM Arquivos ORDER BY ID "& ORD &""
		 END IF
		 
 IF CHK >= "1" OR COD1 >= "1" THEN
	 SQL = "SELECT * FROM Arquivos WHERE Tipo = "& CHK &" AND (COD LIKE '%" & COD1 & "%' OR Descricao LIKE '%" & COD1 & "%' OR Ajuda LIKE '%" & COD1 & "%' OR ID LIKE '%" & COD1 & "%') ORDER BY ID "& ORD &""
 END IF

 SET RSTextos = Server.CreateObject("ADODB.Recordset")   
	 RSTextos.CursorType = 3
	 RSTextos.CacheSize  = MaxREG
	 RSTextos.PageSize   = MaxREG
	 RSTextos.Open SQL, CX
  IF RSTextos.BOF AND RSTextos.EOF THEN 
%>
	  <table width="100%" height="173" border="0" align="center" cellpadding="2" cellspacing="2">
		<tr> 
		  <td valign="bottom"><FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="get" name="frm" target="_parent" id="frm">
			<table width="100%" border="0" align="center" cellpadding="2" cellspacing="4" class="BordaLaranja">
			  <tr>
				<td width="1%"> </td>
				<td width="4%"><div align="center"><strong>Buscar:</strong> </div></td>
				<td width="17%"><div align="left">
					<input name="pesquisar" type="text" id="pesquisar" size="34">
				</div></td>
				<td width="61%" bgcolor="#E8E8E8"><table border="0" align="center" cellpadding="2" cellspacing="2">
				  <tr>
					<td><label></label></td>
					<td><input name="filtrodebusca" type="radio" class="INPUTSemBorda" id="filtrodebusca" value="11" checked></td>
					<td class="FonteNoticiasTextoBold">texto A</td>
					<td><input name="filtrodebusca" type="radio" class="INPUTSemBorda" id="filtrodebusca" value="12"></td>
					<td class="FonteNoticiasTextoBold">texto B</td>
					<td><input name="filtrodebusca" type="radio" class="INPUTSemBorda" id="filtrodebusca" value="10"></td>
					<td class="FonteNoticiasTextoBold">texto C</td>
					<td><input name="filtrodebusca" type="radio" class="INPUTSemBorda" id="filtrodebusca" value="1"></td>
					<td class="FonteNoticiasTextoBold">texto D</td>
					<td><input name="filtrodebusca" type="radio" class="INPUTSemBorda" id="filtrodebusca" value="30"></td>
					<td class="FonteNoticiasTextoBold">texto E</td>
					<td><input name="filtrodebusca" type="radio" class="INPUTSemBorda" id="filtrodebusca" value="99"></td>
					<td class="FonteNoticiasTextoBold">texto F</td>
					<td><input name="filtrodebusca" type="radio" class="INPUTSemBorda" id="filtrodebusca" value="20"></td>
					<td class="FonteNoticiasTextoBold">texto G</td>
					<td> </td>
				  </tr>
				</table>				<label></label></td>
				<td width="10%"><select name="ordem" id="ordem">
				  <option value="ASC">CRESCENTE</option>
				  <option value="DESC">DECRESCENTE</option>
				</select></td>
				<td width="7%"><div align="center">
					<input name="submeter_formulario" type="submit" class="FonteLink2" id="submeter_formulario" value="Pesquisar">
				</div></td>
				<td> </td>
			  </tr>
			</table>
		  </FORM></td>
		</tr>
	  </table>
	  <table width="100%" height="98" border="0" align="center" cellpadding="2" cellspacing="2">
		<tr> 
		  <td height="14"></td>
		</tr>
		<tr> 
		  <td height="62"><div align="center" class="FonteNoticiasTitulo">Sua busca não encontrou nada para esta procura!</div></td>
		</tr>
		<tr> 
		  <td></td>
		</tr>
	  </table>
<% 
 ELSE
 IF Request.QueryString("paginacao") = "" THEN
	PagAtual = 1
		ELSE
	PagAtual = Request.QueryString("paginacao")
 END IF

			  RSTextos.MoveFirst 
 TotalPages = RSTextos.PageCount
			  RSTextos.AbsolutePage = PagAtual  
%>
	  <table width="100%" height="48" border="0" align="center" cellpadding="2" cellspacing="2">
		<tr> 
		  <td><FORM ACTION="<%= REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>" METHOD="get" name="frm" target="_parent" id="frm">
			<table width="100%" border="0" align="center" cellpadding="2" cellspacing="4" class="BordaLaranja">
			  <tr>
				<td width="1%"> </td>
				<td width="4%"><div align="center"><strong>Buscar:</strong> </div></td>
				<td width="17%"><div align="left">
					<input name="pesquisar" type="text" id="pesquisar" size="34">
				</div></td>
				<td width="61%" bgcolor="#E8E8E8"><table border="0" align="center" cellpadding="2" cellspacing="2">
				  <tr>
					<td><label></label></td>
					<td><input name="filtrodebusca" type="radio" class="INPUTSemBorda" id="filtrodebusca" value="11" checked></td>
					<td class="FonteNoticiasTextoBold">texto A</td>
					<td><input name="filtrodebusca" type="radio" class="INPUTSemBorda" id="filtrodebusca" value="12"></td>
					<td class="FonteNoticiasTextoBold">texto B</td>
					<td><input name="filtrodebusca" type="radio" class="INPUTSemBorda" id="filtrodebusca" value="10"></td>
					<td class="FonteNoticiasTextoBold">texto C</td>
					<td><input name="filtrodebusca" type="radio" class="INPUTSemBorda" id="filtrodebusca" value="1"></td>
					<td class="FonteNoticiasTextoBold">texto D</td>
					<td><input name="filtrodebusca" type="radio" class="INPUTSemBorda" id="filtrodebusca" value="30"></td>
					<td class="FonteNoticiasTextoBold">texto E</td>
					<td><input name="filtrodebusca" type="radio" class="INPUTSemBorda" id="filtrodebusca" value="99"></td>
					<td class="FonteNoticiasTextoBold">texto F</td>
					<td><input name="filtrodebusca" type="radio" class="INPUTSemBorda" id="filtrodebusca" value="20"></td>
					<td class="FonteNoticiasTextoBold">texto G</td>
					<td> </td>
				  </tr>
				</table>
				<label></label></td>
				<td width="10%"><select name="ordem" id="ordem">
					<option value="ASC">CRESCENTE</option>
					<option value="DESC">DECRESCENTE</option>
				</select></td>
				<td width="7%"><div align="center">
					<input name="submeter_formulario" type="submit" class="FonteLink2" id="submeter_formulario" value="Pesquisar">
				</div></td>
				<td> </td>
			  </tr>
			</table>
		  </FORM></td>
		</tr>
	  </table>
	  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
		<tr>
		  <td height="30"><div align="right" class="FonteNoticiasTextoBold_L"><a href="criar.asp" target="_parent" class="FonteNoticiasTextoBold_L">Adicionar NOVO</a></div></td>
		</tr>
	  </table>
	  <TABLE width="100%" cellPadding=4 cellSpacing=4 class=BordaCinza>
		<TBODY>
		  <TR>
			<TD width=12% height="30" align=middle valign="middle" bgcolor="#666666"><div align="center" class="FonteNoticiasTextoBold_B"></div></TD>
			<TD width="67%" align="center" bgcolor="#999999"><div align="left"> </div></TD>
			<TD width="21%" align="center" vAlign=middle bgcolor="#CC0000"><span class="FonteNoticiasTextoBold_B">AÇÕES</span></TD>
		  </TR>
		</TBODY>
	  </TABLE>
	  <TABLE width="100%" align="center" cellPadding=0 cellSpacing=0>
		<TBODY>
		  <TR> 
<%
 FOR i = 1 TO MaxREG
%>
			<TD vAlign=top><TABLE width="100%" cellPadding=4 cellSpacing=4 class=BordaCinza>
				<TBODY>
				  <TR> 
					<TD width=12% align=middle valign="middle" bgcolor="#F4F4F4"> <div align="center" class="FonteNoticiasTextoBold"><%=RSTextos("COD")%></div></TD>
					<TD width="62%" vAlign=middle><span class="FonteProdutosTexto"><%=RSTextos("Descricao")%></span><br>
							<span class="FormTexto_RED"><%=RSTextos("Validade")%></span></TD>
					<TD width="26%" align="center" vAlign=middle> 
					  <table width="100%" border="0" cellspacing="2" cellpadding="0">
						<tr>
						  <td width="32%" height="25"><div align="center"><a href="edita.asp?textocod=<%=RSTextos("ID")%>&paginacao=<%=PagAtual%>" target="_parent" class="FonteNoticiasTextoBold_L"><strong><img src="editar.jpg" alt="Editar " width="30" height="30" class="INPUTSemBorda"></strong></a></div></td>
						  <td width="32%"><div align="center"><a href="excluir.asp?textocod=<%=RSTextos("ID")%>&paginacao=<%=PagAtual%>" target="_parent" class="FonteNoticiasTitulo"><strong><img src="deletar.jpg" alt="Deletar " width="30" height="30" class="INPUTSemBorda"></strong></a></div></td>
						</tr>
					  </table></TD>
				  </TR>
				</TBODY>
			  </TABLE>
			  </TD>
		  </TR>
		</TBODY>
<%
	RSTextos.MoveNext
 IF RSTextos.EOF THEN
	EXIT FOR
	END IF
	NEXT
%>
	  </TABLE>
	  <br> 
	  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="4">
		<tr> 
		  <td><div align="right" class="FonteNoticiasTexto">
<%
 Response.Write("Página " & PagAtual & " de " & TotalPages & "<br><br>")   
 IF TotalPages > 1 THEN
%>
</div></td>
		</tr>
	  </table>
	  <br> <br> 
	  <table width="100%" align="center">
		<tr> 
		  <td align="center"> 
			<%
IF Cint(PagAtual) > 1 THEN
%>
			<a href="admin.asp?paginacao=<%=PagAtual-1%>&filtrodebusca=<%=CHK%>" target="_parent" class="FonteNoticiasTextoBold">Retornar</a> 
			   
			<% 
ELSE
%>
			Retornar   
			<%
END IF  
FOR t=1 TO TotalPages
	IF CInt(t) = CInt(PagAtual) THEN 
%>
			<b><%=t%></b> 
			<%
ELSE
%>
			<a href="admin.asp?paginacao=<%=t%>&filtrodebusca=<%=CHK%>" class="FonteNoticiasTitulo"><%=t%></a> 
			<% 
END IF  
	IF Cint(t) < TotalPages THEN
%>
			<%
END IF
NEXT
	 
IF Cint(PagAtual) < TotalPages THEN
%>
			   <a href="admin.asp?paginacao=<%=PagAtual+1%>&filtrodebusca=<%=CHK%>" target="_parent" class="FonteNoticiasTextoBold">Avançar</a> 
			   
			<%
ELSE
%>
   Avançar
<% 
END IF
%>		  </td>
		</tr>
		<tr> 
		  <td align="center"> </td>
		</tr>
		<tr>
		  <td align="center"> </td>
		</tr>
<%
END IF
%>
	  </table>
<%
END IF
%>	</td>
  </tr>
</table>
<%
	 RSTextos.Close
 SET RSTextos = Nothing
	 CX.Close
 SET CX = Nothing
%></td>
		</tr>
	  </table></td>
  </tr>
</table>
</BODY>
</HTML>

 

Conexão que uso.

<!--#include file="no-cache.asp" -->
<%
'SESSION.LCID					   = 1046 'BR
  SESSION.LCID					  = 1033 'EN
   SERVER.SCRIPTTIMEOUT	  = 8000
	  CAMINHO					   = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; DBQ=c:\inetpub\wwwroot\teste\BASE.mdb"
	  SET CX						= Server.CreateObject("ADODB.Connection")
		 CX.Open CAMINHO
%>

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