<LINK href="../stylo.css" rel=stylesheet>
<%
QUECLIENTE=request.form("cli")
filtrocliente=request.querystring("cli")
If filtrocliente<>"" then
QUECLIENTE=filtrocliente
End If
'response.write "quecliente=" & quecliente & "<br>"
orden=request.querystring("orden")
paginaabsoluta=request.querystring("pagabs")
'response.write "pag. absoluta=" &paginaabsoluta&"<br>"
tamanopagina=10
%>
<!-- _______________________ listado con paginacion ____________
<!--#INCLUDE FILE="../includes/Adovbs.inc"-->
<%
If orden="" or orden=0 then
sqltxt="SELECT * FROM Clientes WHERE EMPRESA like'%" & quecliente & "%' order by EMPRESA "
End If
If orden=1 then
sqltxt="SELECT * FROM Clientes WHERE EMPRESA like'%" & quecliente & "%' order by COD_cliente "
End If
'response.write sqltxt
'response.end
set rs = CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../data/clientes.mdb"))
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open sqltxt,conn
If CInt(RS.PageCount) = 0 Then
Response.Write("<br><center>")
Response.Write("<Font size=2 color=red>No encontre clientes<br>que cumplan esa condicion<BR>Selecciona otro</center>")
%>
<CENTER><input type="button" value="Volver" name="Retrocede" onclick="javascript
:history.go(-1)"></center>
<%
Else
if paginaabsoluta="" then
paginaabsoluta=1
end if
if paginaabsoluta=1 Then
inicio=1
else
inicio=1+(paginaabsoluta-1)*tamanopagina
end if
fin=inicio+tamanopagina-1
if fin > rs.recordcount then
fin =rs.recordcount
end if
rs.pagesize= cint(tamanopagina)
rs.absolutepage=cint(paginaabsoluta)
contador=1%>
<BR>
<CENTER><SPAN CLASS=TABLON2> CLIENTES&nbs p; </SPAN></CENTER>
<center>
<table border="0" width="400" cellspacing=0 cellpadding=0>
<tr>
<td width="" align="center" bgcolor="#C0C0C0">
<font face="verdana" size="1">Total Encontrados = <font color="#FF0000"><%=rs.recordcount%></font>
</td>
<td width="" align="center" bgcolor="#C0C0C0">
<font face="verdana" size="1">Página <font color="#FF0000"><%=paginaabsoluta%>
</font> de <font color="#FF0000"><%=rs.pagecount%></font>
</td>
</tr>
</table>
</center>
<BR>
<table width="98%" border="1" align="center" class="tblcat" cellspacing="0" cellpadding="0" >
<tr>
<td class="TXT_V9N" ALIGN=CENTER WIDTH=35>
<IMG SRC="../IMAGES/bul.gif" WIDTH="4" HEIGHT="4" BORDER="0" ALT="">
<a href="busca_clientes.asp?orden=1&cli=<%=quecliente %>" class="link1">COD </a>
</TD>
<td class="TXT_V9N" ALIGN=CENTER>
NIF / CIF
</TD>
<td class="TXT_V9N" ALIGN=CENTER>
<IMG SRC="../IMAGES/bul.gif" WIDTH="4" HEIGHT="4" BORDER="0" ALT="">
<a href="busca_clientes.asp?orden=0&cli=<%=quecliente %>" class="link1">EMPRESA</a>
</TD>
<td class="TXT_V9N" width=75 ALIGN=CENTER>
TELEF.1
</TD>
<td class="TXT_V9N" width=75 ALIGN=CENTER>
MOVIL
</TD>
</TR>
<% do while not rs.eof and contador <= cint(tamanopagina)
%>
<TR class="MINITXT" onmouseover="this.bgColor= 'silver'"onmouseout="this.bgColor='white'" ONCLICK="LOCATION='HTTP://WWW.GOOGLE.ES'">
<% 'adonde="location='verficha.asp?cod=" & rs("COD_CLIENTE")
'response.write adonde & "<br>" %>
<td class="MINITXT">
<a href="./verficha.asp?cod=<%response.write rs("COD_CLIENTE")%>"><%response.write mid(rs("COD_CLIENTE"),3,4)%></a>
</td>
<td class="MINITXT">
<%=rs("NIFCIF")%>
</td>
<td class="MINITXT">
<%=rs("EMPRESA")%>
</td>
<td class="MINITXT" width=75>
<%=rs("TELEFONO1")%>
</td>
<td class="MINITXT" width=75>
<%=rs("MOVIL")%>
</td>
</tr>
<%rs.movenext
contador=contador+1
loop%>
</TABLE>
<!-- <p align="center"><b>Pulsa en la página a la que deseas ir</b> </p> -->
<table align="center" bgcolor="#ffffff" border=1>
<tr>
<td class=link-blanco>Páginas</td>
<%j=0
if cint(paginaabsoluta) <> 1 then
atras=cint(paginaabsoluta)-1
response.write "<td align=center><a href=busca_clientes.asp?pagabs=" & atras & " class=link-blanco>"&"<<"&"</a></td>"
j=j+1
end if
for i = 1 to rs.pagecount
j=j+1
if j>20 then
response.write "</tr><tr>"
j=1
end if
if cint(i) = cint(paginaabsoluta) then
response.write "<td bgcolor=#00ff00 align=center><font face=verdana, arial size=1>("&i&")</font></td>"
else
response.write "<td align=center><a href=busca_clientes.asp?pagabs=" & i & "&cli=" &quecliente& " class=link-blanco>["&i&"]</a></td>"
end if
next %>
<%
if cint(paginaabsoluta) <> rs.pagecount then
atras=cint(paginaabsoluta)+1
response.write "<td align=center><a href=busca_clientes.asp?pagabs=" & atras & " class=link-blanco >"&">>"&"</a></td>"
end if %>
</tr>
</table>
<%
End If%>
<!-- Fin listado paginado ----->
<BR><BR>
<CENTER><input type="button" value="Otra Busqueda" name="Retrocede" onclick="javascript
:history.go(-1)">
</BODY>
</HTML>