<%@ LANGUAGE=VBScript%> <% '=============================================================== 'Define Paginacao '=============================================================== mypage=1 if request("whichpage")="" then mypage=1 else mypage=Cdbl(request("whichpage")) end if SQL = "SELECT * FROM artigos WHERE status=1" SQL = SQL & " ORDER by auto DESC;" RS.Open SQL,Conn,3,3 If rs.eof then response.write "



"& cfgEOF &"



" Rs.close response.end end if RS.movefirst RS.pagesize=cfgTmlc maxcount=cint(RS.pagecount) RS.absolutepage=Cdbl(mypage) registros=RS.recordcount howmanyrecs=0 %> Lançamentos

PÁGINA INICIAL | LANÇAMENTOS | E-MAIL

<% do while not rs.eof and howmanyrecs

height="25" width="400"> <% IF RS("titulo") <> "" THEN %> <% END IF %> <% IF RS("valor") <> "" THEN %> height="32" width="90">>><%=Linker(RS("valor"))%> <% END IF %>
><%=Linker(RS("titulo"))%> ><%=Linker(RS("preco"))%>
<% rs.MoveNext howmanyrecs=howmanyrecs+1 loop RS.Close Conn.Close %>

E-mail: st@corporal.com.br