|
"" 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
?>
|
"" then
response.Redirect("error.php")
end if
end if
tampagina=10
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
if PaginaActual=0 then PaginaActual=1
CONECTA
dim strsql
' strsql="SELECT TARTICULOS.*, T1.seccion, USUARIOS.USUARIO " & _
' "FROM USUARIOS INNER JOIN (T1 INNER JOIN TARTICULOS ON T1.id = TARTICULOS.idt1) ON USUARIOS.ID = TARTICULOS.coduser " & _
' "WHERE TARTICULOS.coduser)=" & MICODUSER & " ORDER BY TARTICULOS.ID"
strsql="SELECT TARTICULOS.*, T1.seccion, USUARIOS.USUARIO,usuarios.localidad,usuarios.provincia " & _
"FROM USUARIOS INNER JOIN (T1 INNER JOIN TARTICULOS ON T1.id = TARTICULOS.idt1) ON USUARIOS.ID = TARTICULOS.coduser " & _
" ORDER BY TARTICULOS.ID DESC"
strsql2= "SELECT TARTICULOS.*, T1.seccion, USUARIOS.USUARIO,usuarios.localidad,usuarios.provincia " & _
"FROM USUARIOS INNER JOIN (T1 INNER JOIN TARTICULOS ON T1.id = TARTICULOS.idt1) ON USUARIOS.ID = TARTICULOS.coduser " & _
"WHERE TARTICULOS.idt1=" & miidt1 & " ORDER BY TARTICULOS.ID DESC"
'response.write strsql2
if miidt1<>"" then
OB_rS.OPEN strsql2,OB_CONN,3,1
else
OB_rS.OPEN strsql,OB_CONN,3,1
end if
ob_rs.pagesize = tampagina
PaginasTotales=ob_rs.PageCount
micount=ob_rs.recordcount
if PaginasTotales<>0 then
'Vamos a paginar
oB_rs.AbsolutePage=PaginaActual
'Response.Write("PÁGINA " & PaginaActual & " DE " & PaginasTotales)
CuantosRegistros=0
end if
?>
|
"" then?>
Usted esta viendo.... "
"
Usted esta viendo...TODOS LOS ARTÍCULOS
|
|
NO HAY ARTÍCULOS PARA MOSTRAR EN ESTA CATEGORIA
|
|
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
?> |
|
|
|
