<%
function DecodeUTF8(s)
dim i
dim c
dim n
i = 1
do while i <= len(s)
c = asc(mid(s,i,1))
if c and &H80 then
n = 1
do while i + n < len(s)
if (asc(mid(s,i+n,1)) and &HC0) <> &H80 then
exit do
end if
n = n + 1
loop
if n = 2 and ((c and &HE0) = &HC0) then
c = asc(mid(s,i+1,1)) + &H40 * (c and &H01)
else
c = 191
end if
s = left(s,i-1) + chr(c) + mid(s,i+n)
end if
i = i + 1
loop
DecodeUTF8 = s
end function
'On error resume next
TamPagina=10 'numero de resultados por pagina
numpag=10 'numero de enlaces de paginas
gets="" 'si tiene algun parametro por get extra como en un buscador
clase="" 'la clase si es que tiene cada enlace del paginado
SQL=" SELECT * from "&tabla&" Where validado= 1 ORDER BY id DESC; " 'la consulta
mensaje="No hay ningún comentario aún." 'Esta es una frase en caso que no haya ningun resultado
%>
<%
totalComment = prs.RecordCount
numInicio = totalComment - ( (cint(PaginaActual)-1) * TamPagina )
do while not prs.EOF and CuantosRegistros < TamPagina %>
&nuevoancho=290©right=conCopyright&encrypt=false" width="290"/>