<%
Response.Expires = 0
set objRs=server.createobject("ADODB.recordset")
ObjRs.cachesize=5
ObjRs.pagesize=10
'strQuery = "SELECT * FROM tmedias WHERE (visualizacao='Externamente') AND (codempresa='6' OR codempresa='9') order by codigo desc,titulo"
strQuery = "SELECT * FROM tmedias WHERE (visualizacao='Externamente') AND (codempresa='6') order by codigo desc,titulo"
ObjRs.open strQuery,objconn,1
pagina=request("qualpagina")
if pagina="" then
pagina=1
end if
if ObjRs.EOF = True then
on error resume next
end if
tamanhopagina=request("pagesize")
if tamanhopagina=" " then
tamanhopagina=10
end if
contador=ObjRs.recordcount
maxpaginas=cint(ObjRs.pagecount)
maxregistros=cint(ObjRs.PageSize)
ObjRs.absolutepage=pagina
registros=0
set objRs2=server.createobject("ADODB.recordset")
'strQuery2 = "SELECT DISTINCT tcategorias.codigo, tcategorias.nome FROM tmedias INNER JOIN tcategorias ON tmedias.categoria = tcategorias.nome WHERE (tmedias.visualizacao = 'Externamente') AND (tmedias.codempresa = '6' OR tmedias.codempresa = '9') ORDER BY tcategorias.nome"
strQuery2 = "SELECT DISTINCT tcategorias.codigo, tcategorias.nome FROM tmedias INNER JOIN tcategorias ON tmedias.categoria = tcategorias.nome WHERE (tmedias.visualizacao = 'Externamente') AND (tmedias.codempresa = '6') ORDER BY tcategorias.nome"
ObjRs2.open strQuery2,objconn,1
%>
Emac - Especialista em Manutenção
