¡ Hola ¡
Bueno algo de lo que me expones lo comprendo pero no se exactamente como defninirlos, este es el codigo:
Sub Initialize
Dim s As New NotesSession
Dim ESTABD As NotesDatabase
Dim VISTA As NotesView
Dim count As Integer
Dim nav As NotesViewNavigator
Dim documento As NotesDocument
Set ESTABD=s.CurrentDatabase
Set VISTA = estabd.GetView("By Category")
Set VISTA=estabd.GetView("wwadmin")
Set documento=vista.GetFirstDocument()
Call encabezado ("Quejas de usuarios",xtipo)
Print "<table summary='Tabla quejas' class='bordeTablaInteriorIzq' align='center' >"
Print "<caption >QUEJAS RECIBIDAS</caption>"
Print "<thead class='cabeceraAzul'>"
Print" <tr >"
Print " <th scope='col'></th>"
Print " <th scope='col' >Clave</th>"
Print " <th scope='col' >Fecha Alta</th>"
Print " <th scope='col' >Apellidos y nombre</th>"
Print " <th scope='col' >Comentario</th>"
Print" <th scope='col' >Estado</th>"
Print" </tr>"
Print"</thead>"
Print "<tfoot class='cabeceraAzul'>"
Print" <tr >"
Print" <th scope='row'>2011</th>"
Print "<td colspan='5'> </td>"
Print" </tr>"
Print" </tfoot>"
Print" <tbody>"
While Not documento Is Nothing
Print"<tr class='cabecerRojo'>"
Print " <td style='padding:10px 0 0 10px'>"
Print " <a href='/inet/defenciu.nsf/modiQueja?openagent&clave="
Print documento.clave(0)
Print "'><img src='/graficos/botonBuscar.jpg' alt='ver registro' title='ver registro' style='border:0;'</a> </a>"
Print " </td>"
Print " <td style='padding:10px 0 0 10px'>"+documento.clave(0)+"</td>"
Print " <td style='padding:10px 0 0 10px'>"+documento.falta(0)+"</td>"
Print " <td style='padding:10px 0 0 10px'>"+documento.apellidos(0)+documento.nombre(0)+"</td>"
Print " <td style='padding:10px 0 0 10px'>"+documento.motivo(0)+"</td>"
Print " <td style='padding:10px 0 0 10px'>"+documento.estado(0)+"</td>"
Print "</tr>"
Print "<tr><td colspan='6' height='1' bgcolor='#000'></td></tr>"
Set documento=vista.GetNextDocument(documento)
Wend
Print "</tbody>"
Print"</table>"
End Sub
Me muestra la vista y 900 registros, la manera de paginarlos , he visto la pagina que me envias pero como me falta base , se me escapan los conceptos, como no conozco los arboles no veo el bosque... Gracias por tu respuestas
Bueno