08/09/2002, 05:34
|
| | | Fecha de Ingreso: diciembre-2001
Mensajes: 76
Antigüedad: 23 años, 4 meses Puntos: 0 | |
| Re: Urgente
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<link rel="stylesheet" href="config/infra.css" type="text/css">
<%@ LANGUAGE="VBScript" %>
<% 'Option Explicit %>
<!-- #include virtual ="Control/include/adovbs.inc" -->
<script language="javascript" src="include/form.js"></script>
<html>
<%xx=request.form("direccion")
if xx = "Atras" then
session("pagina")=session("pagina&q uot;)-1
if session("pagina")< 1 then
session("pagina")=1 'evitamos el error por reload
end if
else
if xx="Adelante" then
session("pagina")=session("pagina&q uot;)+1
else
session("pagina")=1 'primera pasada
end if
end if%>
<head>
<title>Música - MP3 / CDs</title>
</head>
<body>
<%
set conexion = Server.CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")
'Conexion SQl server
conexion.Open "Provider=SQLOLEDB;Data Source=S5K9S5;Initial Catalog=CONTROL;User Id=sa;Password=eurojames;OLE DB Services=-2"
sqltext = "SELECT * FROM MUSICA"
rs.Open sqltext, conexion, 3, 1
%>
<%
rs.pagesize=10
if session("pagina")>rs.pagecount then
session("pagina")=rs.pagecount 'evitamos el error de reload
end if%>
<!-- situamos el cursor en el inicio de la pagina a mostrar y
calculamos los valores de inicio y fin para mostrarlos en
las cabeceras -->
<%rs.absolutepage=session("pagina" )
inicio=1+(session("pagina")-1)*rs.pagesize
fin=inicio+9
if fin > rs.recordcount then
fin =rs.recordcount
end if
%>
<center><h3>Paginación de registros</h3></center>
<table border="0" width="100%" bgcolor="#C0C0C0">
<tr>
<td width="50%" align="center">Registros <font color="#FF0000"><%=inicio%> </font>
al <font color="#FF0000"><%=fin%></font> de un total de
<font color="#FF0000"><%=rs.recordcount% ></font></td>
<td width="50%" align="center">Página <font color="#FF0000"><%=session("p agina")%>
</font> de <font color="#FF0000"><%=rs.pagecount%&g t;</font></td>
</tr>
</table>
<br>
sigue |