Emilio Gonzlez Sanz

<%cabecera()%>

	dossier
		GALERA DE PRENSA
		GALERA DE FOTOS
		GALERA DE VDEOS

<% sSQL="Select * from videos order by fecha DESC" rs.open sSQL, conn, 3, 3 TM=request("TM") TamPagina=cint(TM) if TM="" then TamPagina = 5 'Leemos qu pgina mostrar. La primera vez ser la inicial if Request.Querystring("pagina")="" then PaginaActual=1 else PaginaActual=CInt(Request.Querystring("pagina")) end if rs.PageSize=TamPagina rs.CacheSize=TamPagina PaginasTotales=rs.PageCount 'Compruebo que la pagina actual est en el rango if PaginaActual < 1 then PaginaActual = 1 end if if PaginaActual > PaginasTotales then PaginaActual = PaginasTotales end if cont = ((PaginaActual-1) * TamPagina) + 1 rs.AbsolutePage=PaginaActual CuantosRegistros=0 %> <%do while not rs.EOF and CuantosRegistros < TamPagina%> <%if rs("descripcion")<>"" then%> <%end if%> <%CuantosRegistros=CuantosRegistros+1%> <%rs.moveNext%> <%loop%> <%rs.close%>

<%=rs("titulo")%>

<%=rs("enlace")%>

<%=rs("descripcion")%>

Ver videos

<% for cont=1 to PaginasTotales response.write("") if paginaActual=cont then response.write("" & cont & "") else response.write cont end if response.write(" | ") next %>

Solista | Msica de Cmara | Dossier | Audio | Contacto