<% set conn=server.CreateObject("Adodb.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.MapPath("../../dados/evernet.mdb") data_noticia = Date() data_noticia2 = FormatDateTime(data_noticia,vbLongDate) data_noticia3 = split(data_noticia2,",") data_noticia33 = replace(data_noticia3(0),"-feira","") data1 = UCase(Left((data_noticia33),1)) & LCase(Right(((data_noticia33)), Len((data_noticia33))-1)) data_noticia4 = split(data_noticia3(1)," de ") data2 = data_noticia4(0) data_noticia5 = data_noticia4(1) data3 = UCase(Left((data_noticia5),1)) & LCase(Right(((data_noticia5)), Len((data_noticia5))-1)) data4 = data_noticia4(2) data_noticia_extenso = data1 &", "& data2 &" de "& data3 &" de "& data4 %> Notícias de internet e tecnologia | evernet
Topo
EverNET - Criação de Sites e Sistemas Online
Automatizamos seu negócio
aumentando sua produtividade e lucro
(19) 2532.3979 / 3402.4072
  • Utilize os recursos da internet
  • Deixe os sistemas trabalharem por você
Abre login
Home | Clientes | Contato
VEJA ABAIXO O QUE A EVERNET
PODE FAZER POR VOCÊ
Notícias de internetÍNDICE DE NOTÍCIAS
<%=data_noticia_extenso%>
<% set rs = server.createobject("adodb.recordset") rs.open "select * from noticias order by cod desc",conn,3,3 rs.pagesize = 100 if request.querystring("pag") = "" then intpagina = 1 else if cint(request.querystring("pag")) < 1 then intpagina = 1 else if cint(request.querystring("pag")) > rs.pagecount then intpagina = rs.pagecount else intpagina = request.querystring("pag") end if end if end if rs.absolutepage = intpagina intrec=0 while intrec < rs.pagesize and not rs.eof title = rs("title") If title <> "" Then Else title = rs("titulo") End if %> <% rs.movenext intrec=intrec+1 wend %>
Notícias de Internet<%=Left(rs("data"),5)%> :: " title="<%=title%>" class="noticias2b"><%=rs("titulo")%>
 

<% if intpagina > 1 then %>« Anterior<% else %>« Anterior<% end if %>  |  <% if strcomp(intpagina,rs.pagecount) <> 0 then %>Próxima »<% else %>Próxima »<% end if %>

Criação de Sites
Loja Virtual
Hotsites
Sistemas Personalizados
Sites de Serviços
Ferramentas para seu Site
E-mail Marketing
Boletos Personalizados
Serviços de Cobrança
Suporte a Serviços Online
Revistas e Guias Online
Sombra
Valid XHTML 1.0 Transitional Windows ASP.NET SQL Server Linux mySql Locaweb
Rodapé da Página


<% rs.close Set rs = nothing conn.close Set conn = nothing %>