Emac - Especialista em Manutenção

<% Response.Expires = 0 set objRs=server.createobject("ADODB.recordset") ObjRs.cachesize=5 ObjRs.pagesize=20 strQuery = "SELECT * FROM tnoticias where visualizacao='Externamente' AND codempresa='6' order by codigo desc" ObjRs.open strQuery,objconn,1 pagina=request("qualpagina") if pagina="" then pagina=1 end if tamanhopagina=request("pagesize") if tamanhopagina=" " then tamanhopagina=10 end if on error resume next contador=ObjRs.recordcount maxpaginas=cint(ObjRs.pagecount) maxregistros=cint(ObjRs.PageSize) ObjRs.absolutepage=pagina registros=0 %> Emac - Especialista em Manutenção

SME - SISTEMA DE MANUTENÇÃO EMAC

voltar | home

<%DO until objRS.EOF or registros>=maxregistros%> <%if ObjRs.fields("imagens").value="Sim" then%>


" class="preto"> peq.jpg" border=0 class=borda>		" class="preto"> <%=objRS.fields("tituloprimario").value%> <%=objRS.fields("datacadastro").value%> Resumo: <%=mid(objRS.fields("titulosecundario").value,1,78)&" ..."%>

<%end if if ObjRs.fields("imagens").value="Não" then%>


	" class="preto"> <%=objRS.fields("tituloprimario").value%> <%=objRS.fields("datacadastro").value%> Resumo: <%=mid(objRS.fields("titulosecundario").value,1,78)&" ..."%>

<%end if%> <% objRS.MoveNext registros=registros+1 Loop response.Write "

PÁGINAS: " for cont=1 to maxpaginas ref="" & cont & "" else ref=ref & " class=texto>" & cont & "" end if response.write ref & " " next%>

Entre em contato com a emac, teremos prazer
em atendê-lo: admcentral@emac.com.br