Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Problema con la paginacion
 Foro Bloqueado  Tema Bloqueado


Autor Temas
erciyes
Starting Member

España
23 Posts
Mensajes - 01 Jul 2005 :  17:00:58  Ver Perfil  Enviar Email
Intento paginar los resultado de esta pagina. pero no consigo hacerlo siempre me da errores alguien me pude ayudar???? Os dejo el codigo de la pagina.

::::::::::::::::::::::::::::::::::::::::::::

<html>
<head>
<title</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<script language="JavaScript">
<!--

function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<link href="../../estilos/maquivental.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<a name="arriba"></a>
<table width="760" cellspacing="1" cellpadding="0" align="center" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td> <table width="100%" cellspacing="1" cellpadding="0">
<tr>

</tr>
<tr>
<td height="54"> <table width="100%" cellspacing="3" cellpadding="0">
<tr bgcolor="#EFF0F1">
<td valign="top" height="19">
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/maquivental.asp" -->
<%
Dim DatosFamilia__MMColParam
DatosFamilia__MMColParam = "1"
if (Request.QueryString("TablaProductos") <> "") then DatosFamilia__MMColParam = Request.QueryString("TablaProductos")
%>
<%
TablaParam = "" & Request.QueryString ("TablaProductos")
Ordenado = "ID,Campo2,Campo3"
Direccion = "ASC"
%>
<%
set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = MM_maquivental_STRING
RS.Source = "SELECT * FROM ZZ"&TablaParam&" ORDER BY PARAM_ID ASC"
RS.CursorType = 2
RS.CursorLocation = 2
RS.LockType = 3
RS.Open()
RS_numRows = 0
%>
<%
set DatosFamilia = Server.CreateObject("ADODB.Recordset")
DatosFamilia.ActiveConnection = MM_maquivental_STRING
DatosFamilia.Source = "SELECT NombreProducto, FamiliaProducto FROM ANEXO WHERE TablaProductos = '" + Replace(DatosFamilia__MMColParam, "'", "''") + "'"
DatosFamilia.CursorType = 0
DatosFamilia.CursorLocation = 2
DatosFamilia.LockType = 3
DatosFamilia.Open()
DatosFamilia_numRows = 0
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
set PR = Server.CreateObject("ADODB.Recordset")
PR.ActiveConnection = MM_maquivental_STRING
PR.Source = "SELECT * FROM "&TablaParam&" ORDER BY "&Ordenado&" "&Direccion
PR.CursorType = 0
PR.CursorLocation = 2
PR.LockType = 3
PR.Open()
PR_numRows = 0
%>
<%
resultados = rs.GetRows()
Dim est_cab()
rs.close

// CAMBIAMOS LA NOMENCLATURA DE FILAS POR COLUMNAS
NColumnas = UBound(resultados, 2)
NFilas = UBound( resultados, 1 )
Redim est_cab(NFilas-3,NColumnas)
// CAMBIAMOS LA NOMENCLATURA DE FILAS POR COLUMNAS

// CARGAMOS LA INFO DE PRODUCTOS EN UNA TABLA
productos = pr.GetRows()
pr.close

Sub muestra(tab,desde)
Response.Write ("<table height='20' width='100%' class='mini' bgcolor='#666666' cellspacing='2'>")
For fila = desde To UBound( tab, 1 )-1
Response.Write ("<tr>")
For columna = 1 To UBound( tab, 2 )
Response.Write ("<td bgcolor='#FFFFFF'>"&tab(fila,columna)&"</td>")
Next
Response.Write ("</tr>")
Next
Response.Write ("</table>")
End Sub

Sub estructura ()
Dim union, pos, primera
For fila = 3 To NFilas
union = 1
pos = 0
primera = 1
For columna = 0 To NColumnas
if IsNull(resultados(fila, columna)) Then
est_cab (fila-3,columna) = -1
Else
if (columna < NColumnas) Then
indice = columna + 1
Else // Caso de última columna con anteriores iguales
indice = columna -1
End if
if (resultados (fila,columna) = resultados (fila,indice)) Then
union = union + 1
if columna = NColumnas Then
// CELDAS FINALES
est_cab (fila-3,columna) = 0
// CELDA INICIAL
est_cab (fila-3,pos) = union-1
union=1
primera = 1
Else
// CELDAS INTERMEDIAS
est_cab (fila-3,columna) = 0
if primera = 1 Then
pos = columna
primera = 0
// CELDA INICIAL VALOR INICIAL
est_cab (fila-3,columna) = 1
End if
End if
Else
if columna > 0 Then
if resultados (fila,columna) = resultados (fila,columna-1) Then
// CELDAS FINALES
est_cab (fila-3,columna) = 0
union = union + 1
// CELDA INICIAL
est_cab (fila-3,pos) = union-1
union=1
primera = 1
Else
// CELDA SIMPLE
est_cab (fila-3,columna) = 1
End if
Else
// CELDA SIMPLE
est_cab (fila-3,columna) = 1
End if
End if
End If // IsNull
Next // For columna ...
Next // For fila ...
End Sub

Function busca_maxfilas()
Dim filas
filas=0
For fil = 3 To NFilas
For col = 0 To NColumnas
if (Not IsNull(resultados( fil, col )) And fil > filas) then
filas=fil-2
End if
Next
Next
busca_maxfilas = filas
End Function

Sub dibuja_cab()
dim colores(2,2)
dim MaxFilas
MaxFilas = busca_maxfilas()
Response.Write ("<table height='200' bgcolor='#ACACAC' cellspacing='1'>")
For fila = 0 To MaxFilas-1
Response.Write ("<tr>")
For columna = 1 To NColumnas
// Si son Marca y Modelo
if columna < 3 Then
if fila = 0 Then
Response.Write ("<td align='center' class='marca' bgcolor='#FFCC00' rowspan='"&MaxFilas&"'>"&resultados(fila+3,columna)&"</td>")
End if
Else
// Si es una casilla múltiple
if est_cab (fila,columna) > 1 Then
Response.Write ("<td align='center' class='normal' bgcolor='#FFCC99' colspan='"&est_cab (fila,columna)&"'>"&resultados(fila+3,columna)&"</td>")
Else
// Si es una casilla simple
if est_cab (fila,columna) = 1 Then
// Si hay que combinar la columna
if (fila < NFilas) AND (est_cab (fila+1,columna) = -1) Then
Response.Write ("<td align='center' class='vertical' bgcolor='#DFEFFF' rowspan='"&MaxFilas-fila&"'>"&resultados(fila+3,columna)&"</td>")
Else
Response.Write ("<td height='20' bgcolor='#DFEFFF' class='vertical'>"&resultados(fila+3,columna)&"</td>")
End if
End if
End if
End if
Next
Response.Write ("</tr>")
Next
Response.Write("<tr>")
For columna = 1 To NColumnas
Response.Write ("<td bgcolor='#FFFFCC' align='center' class='normal'>"&resultados(2,columna)&"</td>")
Next
Response.Write("</tr>")
End Sub

Sub dibuja_datos()
Dim color(3)
color(0)="#FFFFFF"
color(1)="#EFEFEF"
color(2)="#FFFFCC"
Response.Write ("<tr><td class='marca' bgcolor='#FFCC00' colspan='"&NColumnas&"'>"&productos(1,0)&"</td></tr>")
For fil = 0 To UBound( productos, 2 )
indice = fil MOD 2
Response.Write ("<tr bgcolor='"&color(indice)&"' onMouseOver='this.bgColor="&Chr(34)&"DFEFFF"&Chr(34)&"' onMouseOut='this.bgColor="&Chr(34)&color(indice)&Chr(34)&"'>")
For col = 2 To UBound( productos, 1 )
Response.Write ("<td align='right' class='normal'>"&productos(col,fil)&"</td>")
Next
Response.Write ("</tr>")
if fil < UBound(productos,2) Then
if productos(1,fil) <> productos (1,fil+1) Then
Response.Write ("<tr><td class='marca' bgcolor='#FFCC00' colspan='"&NColumnas&"'>"&productos(1,fil+1)&"</td></tr>")
End if
End if
Next
Response.Write ("</table>")
End Sub
%>
<%
Call estructura()
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#EFEFEF" class="marca" height="30">&nbsp;&nbsp;<a href="../e-maquinaria/Html/Maquivental/anexo.asp" class="titulosmall">TODAS
LAS FAMILIAS</a> / <A HREF="../e-maquinaria/Html/Maquivental/anexo.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "FamiliaProducto=" & DatosFamilia.Fields.Item("FamiliaProducto").Value %>" class="titulosmallazul"><%=(DatosFamilia.Fields.Item("FamiliaProducto").Value)%></A>
/ <%=(DatosFamilia.Fields.Item("NombreProducto").Value)%></td>
</tr>
<tr>
<td align="center" valign="middle">
<%
Call dibuja_cab()
Call dibuja_datos()
%>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
::::::::::::::::::::::::::::::::::::::::::

La funcion call datos es donde creo el bucle

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar