NOTÍCIAS
<% SET md_rs = Server.CreateObject("ADODB.RecordSET") md_rs.ActiveConnection = ObjConexao md_rs.CursorType = 1 md_rs.CursorLocation = 3 md_rs.LockType = 3 noticia_nome = request("noticia_nome") if noticia_nome <> "" then md_rs.Source = "select * from tab_noticias where not_nome like '%"¬icia_nome&"%' or not_descricao like '%"¬icia_nome&"%' order by not_data desc" response.write noticia_nome else md_rs.Source = "select * from tab_noticias order by not_data desc" end if md_rs.Open %>
    <% Interval = 50 Ponteiro = request.queryString("Ponteiro") Ponteiro = CInt(Ponteiro) if Ponteiro = "" then Ponteiro = 1 end if if Ponteiro > 1 then for count=1 to Ponteiro if md_rs.EOF then Exit For else md_rs.movenext end if next end if %> <% for count2=1 to Interval if md_rs.EOF then exit for else %>
    ">[<%=md_rs("not_data")%>] - <%=md_rs("not_nome")%>
    <% md_rs.movenext end if next %>
<% if Ponteiro > 0 then response.write "Anterior" end if response.write "" if md_rs.RecordCount Mod Interval = 0 then for I=0 to (md_rs.RecordCount/Interval)-1 if Interval*I = Ponteiro then response.write "" & I+1 & "" else response.write ""& I+1 &"" end if next else for I=0 to (md_rs.RecordCount/Interval) if Interval*I = Ponteiro then Response.write "
"& I+1 &"
" else Response.write ""& I+1 &"" end if next end if response.write "" if Ponteiro+Interval < md_rs.Recordcount then response.write "Próxima" end if md_rs.close %>
    <%=ws_publicidade%>

ENQUETE

<%=ws_enquete%>