<%
Dim Rs11, Sql11
Dim num_registros, num_campos, Campo, registros_mostrados
'Numero de Paginas
If Request.QueryString("pag")<>"" Then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina")=1
End If
set rs11 = server.CreateObject("ADODB.Recordset")
SQL11="SELECT * from Lcerti where Colada like '%" & UCase(Request("Colada")) & "%' " &_
"And Descripcion like '%" & UCase(Request("Codigo")) & "%' and Entrada like '%" & UCase(Request("Recepcion")) & "%' " &_
"and Nombre like '%" & UCase(Request("Proveedor")) & "%' and Certificado like '%" & UCase(Request("certi")) & "%';"
rs11.open sql11,cn1,1,2
If rs11.Eof then
Response.Write("No Exiten Registros bajo esa busqueda")
Else
If Colada = "" and Codigo = "" and Recepcion = "" and Proveedor = "" and certi = "" then
Response.Write("Buscar Un Certificado Por Colada, Codigo, Recepcion o Proveedor")
else
'Registros por Pagina
num_registros = 25
'Dimensionamos las paginas y determinamos la pagina actual
RS11.PageSize=num_registros
RS11.AbsolutePage=Session("pagina")
%>
<hr>
Pagina <b><%=Session("pagina")%></b> De <b><%=RS11.PageCount%></b>
<br>
Registros Encontrados: <b><%=RS11.RecordCount%></b>
<br><br>
<TABLE border=1 cellspacing=1 cellpadding=2 bordercolor=#c0c0c0>
<%
'Contamos el numero de campos
num_campos=RS11.Fields.Count
For campo=0 to num_campos-1%>
<td align="Left" Class="normal" bgcolor="#d8d8d8"><%=RS11(campo).Name%></td>
<%
Next
registros_mostrados = 0
Dim Color, Colorfila
While (Not RS11.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
if colorfila = 0 then
Color= "#d8d8d8"
Colorfila = 1
else
Color= "#ffffff"
Colorfila = 0
end if
%>
<tr>
<td class="normal" align="Right" bgcolor=<%=Color%>><%=RS11("Folio")%></td>
<td class="normal" align="Left" bgcolor=<%=Color%>>
<A HREF="Certificados/<%=RS11("Certificado")%>.pdf" onclick="NewWindow(this.href,'Docus','790','470','yes');return false;">
<%=RS11("Certificado")%></a>
</td>
<td class="normal" align="Left" bgcolor=<%=Color%>><%=RS11("Colada")%></td>
<td class="normal" align="Left" bgcolor=<%=Color%>><%=RS11("Proveedor")%></td>
<td class="normal" align="Left" bgcolor=<%=Color%>><%=RS11("Nombre")%></td>
<td class="normal" align="Left" bgcolor=<%=Color%>><%=RS11("Codigo")%></td>
<td class="normal" align="Left" bgcolor=<%=Color%>><%=RS11("Descripcion")%></td>
<td class="normal" align="Right" bgcolor=<%=Color%>><%=formatnumber(RS11("Cantidad"))%></td>
<td class="normal" align="Right" bgcolor=<%=Color%>>
<a href="recesp.asp?Numrec=<%=RS11("Entrada")%>&Empresa=<%= Negocio %>" onclick="NewWindow(this.href,'Calrec','790','470','yes');return false;">
<%= Rs11("Entrada") %></a>
</td>
<td class="normal" align="Left" bgcolor=<%=Color%>><%=RS11("Comentarios")%></td>
</tr>
<%
RS11.MoveNext
Wend
%>
<tr>
<td colspan="<%=num_campos + 1 %>" align="center">
<%
i=0
While i<RS11.PageCount
i=i+1
%>
<b><a href="Calidad.asp?pag=<%=i%>&Colada=<%= Colada %>&Codigo=<%= Codigo %>&Recepcion=<%= Recepcion %>&Proveedor=<%= Proveedor %>&Certi=<%= Certi %>"><%=i%></a></b>
<%
Wend
%>
</td>
</tr>
</table>
<%
End If
End If
RS11.Close
%>