<%@ 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=cfgTmpg maxcount=cint(RS.pagecount) RS.absolutepage=Cdbl(mypage) registros=RS.recordcount howmanyrecs=0 %>

 SexBauru - Conteúdos relacionados a Sexo e Erotismo - Cultura Sexual.

SexBauru - Página Inicial
Xavecos

Anúncio

Aprenda as diversas maneiras de passar "cantadas" ou de abordar as suas paqueras. Com bom humor, com romantismo ou mais agressivamente... Não importa... O importante é chegar chegando. Mande-nos a sua cantada para publicarmos. Aqui, você encontrará o talento da Equipe da SexBauru na abordagem das gatas. Estamos ministrando cursos de "Xaveco Abortivo nas Mina", cursos de Fotografia e posições do Kama-Sutra. Seja um garanhão como nós, cabacinho. Pois quem entra nesta seção está carente de recursos xavecatórios.

<%= registros %> <%= lblArtencon %> <%= lblPagina %> <%= mypage %> <%= lblde %> <%= maxcount %><%= lblClose %>
<% do while not rs.eof and howmanyrecs width="80%" > <% IF RS("textoonline") <> "" THEN %> <% else %> <% END IF %>
><%= FormatDateTime(rs("data"),2) %>
>Xaveco: <%=Linker(RS("textoonline"))%>

<% rs.MoveNext howmanyrecs=howmanyrecs+1 loop RS.Close Conn.Close %> <% if mypage > 1 then %> <% end if %> <% if mypage < maxcount then %> <% end if %>