|
"" then response.write err.description
OB_RS.OPEN "SELECT * FROM T1 ORDER BY ID asc",OB_CONN,3,1
MICOUNT=OB_RS.RECORDCOUNT
x=1
?>
|
0 then
'Vamos a paginar
oB_rs.AbsolutePage=PaginaActual
'Response.Write("PÁGINA " & PaginaActual & " DE " & PaginasTotales)
CuantosRegistros=0
end if
?>
| |
 USUARIO:
|
|
| |
Localidad:
| Fecha de alta:
|
| |
VOTOS POSITIVOS :
 |
|
| |
VOTOS NEGATIVOS :
 |
| |
ARTICULOS :
|
|
|
|
NO HAY ARTICULOS DE ESTE USUARIO
|
|
0 then
'Vamos a paginar
oB_rs.AbsolutePage=PaginaActual
Response.Write("PÁGINA " & PaginaActual & " DE " & PaginasTotales)
CuantosRegistros=0
end if
?>
10 then?>
10 then
'parte primera
for j=paginaactual-5 to paginaactual
if j=paginaactual then
response.write " " & j & " "
else
if paginaactual>5 then
Response.Write("" & j & "" &" ")
end if
end if
next
'parte segunda
if paginaactual+5" & j & "" &" ")
next
end if
end if
?>
0 then
dim j
for j=1 to paginastotales
Response.write " "
if j=paginaactual then
response.write " " & j & " "
else
Response.Write("" & j & "" &" ")
end if
next
end if
?>
|
|
0 and mitodo="no" then
echo "MOSTRANDO TODOS LOS CONTENIDOS"
end if
desconectar
?> |
|
|
|
